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

⟦282c6d2e3⟧ Bits:30000634 GSL 551 erf(x) Søren Christiansen 17/5-69 (1200), 8-hole paper tape

    Length: 475 (0x1db)
    Description: Bits:30000634 GSL 551 erf(x)  Søren Christiansen 17/5-69 (1200)
    Types: 8-hole paper tape
    Notes: Gier Text

GIER Text (HTML)

real procedure erf(x);
____ _________


  value            x ;
  _____


  real             x ;
  ____


    comment erf  computes the value of the error function,
    _______


    i.e. the integral from 0 to x of 2/sqrt(pi)⨯exp(-t∧2);
                                                      |


begin
_____


  real t;
  ____

  t:=1/(1+0.32759 11⨯abs(x));
  erf:=sign(x)⨯(1-(((((1.06140 5459⨯t-1.45315 2027)⨯t+

  1.42141 3741)⨯t-0.28449 6736)⨯t+0.25482 9592)⨯t)⨯exp(-x∧2))
                                                         |


end erf;
___

[end] [stop]