DataMuseum.dk

top - metrics - download

    Length: 5376 (0x1500)
    Types: TextFile
    Names: »setconstant«

└─⟦667bb35d6⟧ Bits:30007480 RC8000 Dump tape fra HCØ.
    └─⟦4334b4c0b⟧ 
        └─⟦162d2eb5b⟧ »talgprog« 
            └─⟦this⟧ 
└─⟦00964e8f7⟧ Bits:30007478 RC8000 Dump tape fra HCØ.
    └─⟦b2ec5d50f⟧ 
        └─⟦this⟧ »setconstant« 

TextFile

;copyright Anders Lindgård, 80.04.24;
mode list.yes
lookup stdvar
if ok.no
i tstdvar
lookup varproc
if ok.yes
(scope temp varproc
clear temp varproc)
varproc=set 1 drum1
scope project varproc
varproc=stdvar list.yes scope.project
begin
real e=2.71828182845, pi=3.14159265359,
     sqrt2=1.41421356237;
integer maxinteger=8388607;
long maxlong=140737488355327;
real maxreal=1.6.1585030344'616;
real smallreal=2.91038304560'-11;
real ryinf=10973731.77,hplanck=6.626176'-34,hbar=1.05458874'-34,
     a0=5.2917706'-11,ec=1.6021892'-19,
     cms=2.99792458'8,ev=1.6021892'-19,
     alfa=7.2973506'-3,cau=137.03604,amu=1.6605655'-27,
     na=6.022045'23,uc2=931.5016,mp=1.007276470,
     auev=13.605804,boltzmann=1.380662'-23,gravitation=6.6720'-11;
real euler=.57721566490,ln10=2.30258509299;
real me=5.4858026'-4,faraday=9.648456'4,
     myb=9.274078'-24,mye=9.284832'-24,myn=5.050824'-27,
     gasconstant=8.31441;
integer instacked, outstacked;
end;
scope project varproc
scope project.drum1,
ryinf hplanck hbar a0 cms ev alfa,
ec boltzmann gravitation cau amu na,
uc2 mp auev,
me faraday myb mye myn,
gasconstant ,
 ln10 euler,
pi e sqrt2,
maxinteger maxlong maxreal smallreal,
instacked outstacked

lookup wrconstant
if ok.yes
(scope temp wrconstant
clear temp wrconstant)
wrconstant=set 30 disc1
scope project wrconstant
wrconstant=algol 
begin
write(out,
  "ff",1,"nl",1,<:Predeclared constants for ALGOL 8 programs:>,"sp",9,<:1980-09-24:>,
  "nl",3,<:Physics constants (J. Phys. Chem. Ref. Data 2 663 (1973)):>,
  "nl",2,<:ryinf      , Rydberg constant        :>,"sp",9+2,<<dddddddd.dd>,ryinf,<: m-1:>,
  "nl",1,<:hplanck    , Planck  constant        :>,"sp",9+1,<<d.dddddd'-dd>,hplanck,<: J s:>,
  "nl",1,<:hbar       , Planck  constant/2/pi   :>,"sp",9+0,<<d.ddddddd'-dd>,hbar,<: J s:>,
  "nl",1,<:a0         , Bohr radius             :>,"sp",9+0,<<d.ddddddd'-dd>,a0,<: m:>,
  "nl",1,<:ec         , Elementary charge       :>,"sp",9+0,<<d.ddddddd'-dd>,ec,<: C:>,
  "nl",1,<:cms        , Speed of light          :>,"sp",9+4,<<ddddddddd>,cms,<: m/s:>,
  "nl",1,<:ev         , Electron Volt           :>,"sp",9+0,<<d.ddddddd'-dd>,ev,<: J:>,
  "nl",1,<:alfa       , Fine structure constant :>,"sp",9+1,<<d.ddddddd'-d>,alfa,
  "nl",1,<:cau        , 1/alfa                  :>,"sp",9+4,<<ddd.ddddd>,cau,
  "nl",1,<:amu        , u (atomic mass unit)    :>,"sp",9+0,<<d.ddddddd'-dd>,amu,<: kg:>,
  "nl",1,<:na         , N (Avogadro constant)   :>,"sp",9+1,<<d.ddddddd'dd>,na,<: mole-1:>,
  "nl",1,<:uc2        , u*c**2                  :>,"sp",9+5,<<ddd.dddd>,uc2,<: MeV:>,
  "nl",1,<:me         , Electron mass           :>,"sp",9+1,<<d.ddddddd'd>,me,<: u:>,
  "nl",1,<:mp         , Proton mass             :>,"sp",9+2,<<d.ddddddddd>,mp,<: u:>,
  "nl",1,<:auev       , a.u./eV                 :>,"sp",9+4,<<dd.dddddd>,auev,<: eV:>,
  "nl",1,<:faraday    , Faraday  constant       :>,"sp",9+3,<<d.dddddd'd>,faraday,<: C/mol:>,
  "nl",1,<:myb        , Bohr magneton           :>,"sp",9+1,<<d.dddddd'-dd>,myb,<: J/T:>,
  "nl",1,<:mye        , Electron magnetic moment:>,"sp",9+1,<<d.dddddd'-dd>,mye,<: J/T:>,
  "nl",1,<:myn        , Nuclear magneton        :>,"sp",9+1,<<d.dddddd'-dd>,myn,<: J/T:>,
  "nl",1,<:gasconstant, Molar gas constant      :>,"sp",9+6,<<d.ddddd>,gasconstant,<: J/mol/K:>,
  "nl",1,<:boltzmann  , Boltzmann constant      :>,"sp",9+1,<<d.dddddd'-dd>,boltzmann,<: J/K:>,
  "nl",1,<:gravitation,gravitational constant  :>,"sp",9+3,<<d.dddd'-dd>,gravitation,<: m3/s2/kg:>,
  "nl",3,<:Mathematical constants:>,
  "nl",2,<:e          , base of natural logarithm:>,"sp",8,<<d.ddddddddddd>,e,
  "nl",1,<:pi         , pi                      :>,"sp",9,<<d.ddddddddddd>,pi,
  "nl",1,<:euler      , Euler constant          :>,"sp",9,<<d.ddddddddddd>,euler,
  "nl",1,<:sqrt2      , square root of 2        :>,"sp",9,<<d.ddddddddddd>,sqrt2,
  "nl",1,<:ln10       , natural logaritm of 10  :>,"sp",9,<<d.ddddddddddd>,ln10,
  "nl",3,<:Machine constants:>,
  "nl",2,<:max_integer, greatest positive integer:>,"sp",12,<<ddddddddd>,maxinteger,
  "nl",1,<:max_long   , greatest positive long   :>,"sp",6,<<dddddddddddddd>,maxlong,
  "nl",1,<:max_real   , greatest positive real   :>,"sp",4,<<d.ddddddddddd'ddd>,maxreal,
  "nl",1,<:small_real , machine accuracy         :>,"sp",3,<<d.dddddddddddd'-dd>,smallreal,
  "nl",2,<:This description is found in the file "constant":>,
  "nl",1,<:With algol 8 all booleans has benn removed:>,
  "nl",1,"ff",1);
end;
lookup constant
if ok.yes
(scope temp constant
clear temp constant)
constant=set 2 disc1
scope project constant
o constant
wrconstant
o c
constant=edit constant
d,l b,l-1,d b,f
head 1
mode list.no
▶EOF◀