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

⟦dc21f725c⟧ Bits:30000619 Opg 698; MD; S. Chr. 27.5.62, 8-hole paper tape

    Length: 1886 (0x75e)
    Description: Bits:30000619 Opg 698; MD; S. Chr. 27.5.62
    Types: 8-hole paper tape
    Notes: Gier Text, Has10

GIER Text (HTML)

begin comment program til afprøvning af MD-procedure;
_____ _______


real a, b, c, d, re, ri;
____


integer n;
_______


boolean bo;
_______


switch S := s1, s2, s3, s4, s5;
______


procedure MD(a, b, c, d, re, ri, bo);
_________


      value a, b, c, d;
      _____


      real  a, b, c, d, re, ri;
      ____


      boolean bo;
      _______


      comment multiplikation kræver bo := false ,
      _______                             _____


              division       kræver bo := true;
                                          ____


              begin real k;
              _____ ____


              if bo then begin d := (-d); k := (c∧2 + d∧2) end
              __    ____ _____                   |     |   ___


                    else k := 1;
                    ____

              re := (a⨯c - b⨯d)/k ; ri := (b⨯c + a⨯d)/k

end procedure MD;
___


comment her starter prøveprogrammet;
_______

trykvr;

tryktom(50); trykvr; tryktekst(|<
                               <

          Prøve af multiplikation-division med komplekse tal.
  a =             b =             c =           d =             re =
 ri =

|);
>

n := 1 ;

s1 : a := 1 ; b := 0 ; c := 3 ; d := 4 ; bo := false ; goto t ;
                                               _____   ____


s2 : a := 1 ; b := 2 ; c := 3 ; d := 4 ; bo := false ; goto t ;
                                               _____   ____


s3 : a := 0 ; b := -4.5;c :=-11;d :=0.3; bo := true  ; goto t ;
                                               ____    ____


s4 : a := 6; b := -13;c := 0 ; d :=-10; bo := true ;  goto t ;
                                              ____    ____


s5 : a := 1; b := 0 ; c := 0 ; d := 0 ; bo := true  ; goto t;
                                              ____    ____

t: MD(a, b, c, d, re, ri, bo);

tryk(|+d.dddddd10+dd|, trykvr , a , trykml(3) , b , trykml (3) , c ,
     <             >

trykml(3) , d , trykml(3) , re , trykml(3) , ri );

n := n + 1 ; goto S[n];
             ____


end program;
___