|
DataMuseum.dkPresents historical artifacts from the history of: RC4000/8000/9000 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RC4000/8000/9000 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 1536 (0x600) Types: TextFile Names: »gtw3consttx«
└─⟦621cfb9a2⟧ Bits:30002817 RC8000 Dump tape fra HCØ. Detaljer om "HC8000" projekt. └─⟦0364f57e3⟧ └─⟦787c125fb⟧ »adjprocfile« └─⟦00964e8f7⟧ Bits:30007478 RC8000 Dump tape fra HCØ. └─⟦b2ec5d50f⟧ └─⟦787c125fb⟧ »adjprocfile« └─⟦this⟧
; g_t_w3_con_tx * page 1 6 09 78, 15.59; ; g_t_w3_const ; **************** g_t_w3_const = set 1 g_t_w3_const = algol external integer procedure g_t_w3_const _______________________________________ _ (Cp, f, N0, H0,SA); value Cp, f, N0, H0; long Cp, N0,H0; real f; array SA; begin real V2, e2; long w; w := Cp*f/(1 - f); Cp := Cp + w; SA(1) := sin(rg*N0)*rg; SA(2) := real Cp; SA(3) := e2 := f*(2 - f)/(1 - f)**2; V2 := 1 + e2*cos(rg*N0)**2; SA(4) := real N0; SA(5) := real H0; V2 := 1 + e2*cos(rg*N0)**2; SA(6) := '-6*C_p/V2; g_t_w3_const := 24; end g_t_w3_const; end if ok.no mode warning.yes if warning.yes (mode 0.yes message g_t_w3_const not ok lookup g_t_w3_const) end finis ▶EOF◀