|
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: »sftrtx«
└─⟦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⟧
; spherical triangle * page 1 29 01 79, 13.51; ; sf_tr ; ***** if listing.yes char 10 12 10 sf_tr = set 1 sf_tr = algol external long procedure sf_tr _____________________________ _ (C, a, b, A, B); value C, a, b; long C, a, b, A, B; begin real svscs, svdss, cvscs, cvdss, cosCh, sinCh, Ch, _ sum, dif; a := a//2; b := b//2; C := C//2; sum := rg*(a + b); dif := rg*(a - b); Ch := rg*C; cosCh := cos(Ch); sinCh := sin(Ch); svscs := cosCh*cos(dif); svdss := cosCh*sin(dif); cvscs := sinCh*cos(sum); cvdss := sinCh*sin(sum); sum := arg(cvscs, svscs); dif := arg(cvdss, svdss); A := (sum + dif)/rg; B := (sum - dif)/rg; ; sf_tr := 2*arg(sqrt(svscs**2 + cvscs**2), _ sqrt(svdss**2 + cvdss**2))/rg; end sftr; end if ok.no mode warning.yes if warning.yes (mode 0.yes message sf_tr not ok lookup sf_tr) end finis ▶EOF◀