DataMuseum.dk

top - download

    Length: 1024 (0x400)
    Types: TextFile
    Names: »LIBRARY.PC«

└─⟦a6ed1cd35⟧ Bits:30002862 Perfect Calc 1.10 for JET80 CP/M
    └─ ⟦this⟧ »LIBRARY.PC« 

TextFile

>b1:Øwc12
>c1:5.000000000000E+01
>d1:=(c13-c1)^2
>e1:Øwc6
>f1:Øwc11
>g1:Ødc2
>g1:Øwc5
>h1:Øwc3
>i1:Øwc8
>c2:5.200000000000E+01
>d2:=(c13-c2)^2
>e2:" 
>f2:"arc cosine(
>g2:5.000000000005E-01
>h2:")=
>i2:=1.57079-atan(g2/sqrt(1-g2^2))
>c3:5.000000000000E+01
>d3:=(c13-c3)^2
>e3:" 
>c4:4.500000000000E+01
>d4:=(c13-c4)^2
>f4:" arc sine (
>g4:8.000000000005E-01
>h4:")=
>i4:=atan(g4/sqrt(1-g4^2))
>c5:3.900000000000E+01
>d5:=(c13-c5)^2
>c6:5.000000000000E+01
>d6:=(c13-c6)^2
>f6:"  tangent (
>g6:1.400000000000E+00
>h6:")=
>i6:=sin(g6)/cos(g6)
>c7:5.000000000000E+01
>d7:=(c13-c7)^2
>c8:4.400000000000E+01
>d8:=(c13-c8)^2
>c9:5.500000000000E+01
>d9:=(c13-c9)^2
>c10:4.700000000000E+01
>d10:=(c13-c10)^2
>g10:" 
>c11:" --------
>b12:"total
>c12:=sum(c1:c10)
>b13:"average
>c13:=avg(c1:c10)
>b14:"N
>c14:=c12/c13
>b15:"variance
>c15:=((sum(d1:d10))/c14-1) 
>b16:"Stand. dev.
>c16:=sqrt(c15)
>b19:"  
>a1
«eof»