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

⟦483389534⟧ Bits:30005574 MD(a,b,c,d,re,ri,bo), 8-hole paper tape

    Length: 972 (0x3cc)
    Description: Bits:30005574 MD(a,b,c,d,re,ri,bo)
    Types: 8-hole paper tape
    Notes: Gier Text

GIER Text (HTML)

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


     value   a, b, c, d             ;
     _____


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


     boolean                     bo ;
     _______


     comment Proceduren MD multiplicerer eller dividerer
     _______

     (afhængig af den boole-ske variable bo) komplekse tal:

     bo true :   re + i ⨯ ri := (a+i⨯b)/(c+i⨯d).
        ____


     bo false:   re + i ⨯ ri := (a+i⨯b)⨯(c+i⨯d);
        _____


     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 MD er testet paa DASK,
     ___

                                23.8.62.
                                Søren Christiansen;
                                                                  [stop]