DataMuseum.dk

Presents historical artifacts from the history of:

RegneCentralen GIER Computer

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about RegneCentralen GIER Computer

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download

⟦fef5f6372⟧ Bits:30000682 _x og s = sqrt(1/n*sum(xi-_x)^2), 8-hole paper tape

    Length: 845 (0x34d)
    Description: Bits:30000682 _x og s = sqrt(1/n*sum(xi-_x)^2)
    Types: 8-hole paper tape
    Notes: Gier Text

GIER Text (HTML)

algol<

begin
_____


integer antal,i;
_______


real x,sum,kvadratsum;
____


boolean fortsæt;
_______

select (19);

i:=0;x:=read real;fortsæt:=x|0;
                            =


for i:=i+1 while fortsæt do
___        _____         __


    begin
    _____

     antal:=0;sum:=0;kvadratsum:=0;

   for x:=x,read real while x|0 do
   ___                _____  =  __


       begin
       _____

       antal:=antal+1;sum:=sum+x;
       kvadratsum:=kvadratsum+x⨯x;

       end;
       ___


if antal|read integer then writetext(|<fejl på datastrimmel|) else
__      =             ____           <                     >  ____


      begin
      _____


       if i=1 then writetext(|<middelværdi        spredning|);writecr;
       __     ____           <                             >


      write(| dddd.ddddd|,sum/antal,sqrt((kvadratsum-sum∧2/antal)/antal));
            <           >                               |

      writecr;

       end;
       ___


  x:=read real;fortsæt:=x|0;
                         =


   end;
   ___


end   t<
___