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

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

    Length: 865 (0x361)
    Description: Bits:30000707 _x og s=sqrt(1/(n-1)*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 abc;
_______

select (19);

i:=0;x:=read real;abc:=x|0;
                        =


for i:=i+1 while abc 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
            <,,,,,,,,           >                               |

-1)));
      writecr;

       end;
       ___


  x:=read real;abc:=x|0;
                     =


   end;
   ___


end   t<
___