|
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 - download
Length: 992 (0x3e0)
Types: TextFile
Notes: Mikados_K
Names: »INVERS.K«
└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »INVERS.K«
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »INVERS.K«
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 //
0x000…047 Line {l1=0x45, l2=»0010 // ------------------------- invers ----------------------------«, l3=0x45}
0x047…051 Line {l1=0x08, l2=»0020 // «, l3=0x08}
0x051…08d Line {l1=0x3a, l2=»0030 PROC ARCSIN(X) // arcsin(x) bliver angivet i radianer«, l3=0x3a}
0x08d…0be Line {l1=0x2f, l2=»0040 IF ABS(X)<1 THEN ARCSIN:=ATN(X/SQR(1-X*X))«, l3=0x2f}
0x0be…0ed Line {l1=0x2d, l2=»0050 IF ABS(X)=1 THEN ARCSIN:=SGN(X)*ATN(1)*2«, l3=0x2d}
0x0ed…102 Line {l1=0x13, l2=»0060 ENDPROC ARCSIN«, l3=0x13}
0x102…10c Line {l1=0x08, l2=»0070 // «, l3=0x08}
0x10c…148 Line {l1=0x3a, l2=»0080 PROC ARCCOS(X) // arccos(x) bliver angivet i radianer«, l3=0x3a}
0x148…187 Line {l1=0x3d, l2=»0090 IF -1<=X AND X<0 THEN ARCCOS:=ATN(SQR(1-X*X)/X)+4*ATN(1)«, l3=0x3d}
0x187…1aa Line {l1=0x21, l2=»0100 IF X=0 THEN ARCCOS:=ATN(1)*2«, l3=0x21}
0x1aa…1df Line {l1=0x33, l2=»0110 IF 0<X AND X<=1 THEN ARCCOS:=ATN(SQR(1-X*X)/X)«, l3=0x33}
0x1df…1f4 Line {l1=0x13, l2=»0120 ENDPROC ARCCOS«, l3=0x13}
0x1f4…1fe Line {l1=0x08, l2=»0130 // «, l3=0x08}
0x1fe…20b Line {l1=0x0b, l2=»0140 CLEAR «, l3=0x0b}
0x20b…21e Line {l1=0x11, l2=»0150 PI:=ATN(1)*4«, l3=0x11}
0x21e…22c Line {l1=0x0c, l2=»0160 TAB:=20«, l3=0x0c}
0x22c…25c Line {l1=0x2e, l2=»0170 PRINT "i","Arcsin(radian)","Arcsin(grad)"«, l3=0x2e}
0x25c…269 Line {l1=0x0b, l2=»0180 PRINT «, l3=0x0b}
0x269…28b Line {l1=0x20, l2=»0190 FOR I:=-1 TO 1 STEP 0.2 DO «, l3=0x20}
0x28b…2a4 Line {l1=0x17, l2=»0200 PRINT I,ARCSIN(I),«, l3=0x17}
0x2a4…2c1 Line {l1=0x1b, l2=»0205 PRINT ARCSIN(I)*180/PI«, l3=0x1b}
0x2c1…2ce Line {l1=0x0b, l2=»0210 NEXT I«, l3=0x0b}
0x2ce…2db Line {l1=0x0b, l2=»0220 PRINT «, l3=0x0b}
0x2db…30d Line {l1=0x30, l2=»0230 PRINT "i","Arcsin (radian)","Arccos (grad)"«, l3=0x30}
0x30d…31a Line {l1=0x0b, l2=»0240 PRINT «, l3=0x0b}
0x31a…33c Line {l1=0x20, l2=»0250 FOR I:=-1 TO 1 STEP 0.2 DO «, l3=0x20}
0x33c…364 Line {l1=0x26, l2=»0260 PRINT INT(I*10+0.5)/10,ARCCOS(I),«, l3=0x26}
0x364…381 Line {l1=0x1b, l2=»0265 PRINT ARCCOS(I)*180/PI«, l3=0x1b}
0x381…38e Line {l1=0x0b, l2=»0270 NEXT I«, l3=0x0b}
0x38e…398 Line {l1=0x08, l2=»G195 // «, l3=0x08}
0x398…3a0 00 00 63 63 63 63 63 63 ┆ cccccc┆
0x3a0…3c0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x1…]