|
DataMuseum.dkPresents historical artifacts from the history of: MIKADOS |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about MIKADOS Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 992 (0x3e0)
Notes: Mikados TextFile, Mikados_K
Names: »INVERS«
└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »INVERS«
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »INVERS«
0010 // ------------------------- invers ---------------------------- 0020 // 0030 PROC ARCSIN(X) // arcsin(x) bliver angivet i radianer 0040 IF ABS(X)<1 THEN ARCSIN:=ATN(X/SQR(1-X*X)) 0050 IF ABS(X)=1 THEN ARCSIN:=SGN(X)*ATN(1)*2 0060 ENDPROC ARCSIN 0070 // 0080 PROC ARCCOS(X) // arccos(x) bliver angivet i radianer 0090 IF -1<=X AND X<0 THEN ARCCOS:=ATN(SQR(1-X*X)/X)+4*ATN(1) 0100 IF X=0 THEN ARCCOS:=ATN(1)*2 0110 IF 0<X AND X<=1 THEN ARCCOS:=ATN(SQR(1-X*X)/X) 0120 ENDPROC ARCCOS 0130 // 0140 CLEAR 0150 PI:=ATN(1)*4 0160 TAB:=20 0170 PRINT "i","Arcsin(radian)","Arcsin(grad)" 0180 PRINT 0190 FOR I:=-1 TO 1 STEP 0.2 DO 0200 PRINT I,ARCSIN(I), 0205 PRINT ARCSIN(I)*180/PI 0210 NEXT I 0220 PRINT 0230 PRINT "i","Arcsin (radian)","Arccos (grad)" 0240 PRINT 0250 FOR I:=-1 TO 1 STEP 0.2 DO 0260 PRINT INT(I*10+0.5)/10,ARCCOS(I), 0265 PRINT ARCCOS(I)*180/PI 0270 NEXT I G195 //