|
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: 2528 (0x9e0)
Types: TextFile
Notes: Mikados_K
Names: »COSHYP.K«
└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »COSHYP.K«
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »COSHYP.K«
0010 // ------------------------- hyperbolsk ----------------------------- 0020 // 0030 PROC COSHYP(X1) 0040 COSHYP:=(EXP(X1)+EXP(-X1))/2 0050 ENDPROC COSHYP 0060 // 0070 PROC SINHYP(X2) 0080 SINHYP:=(EXP(X2)-EXP(-X2))/2 0090 ENDPROC SINHYP 0100 // 0110 PROC TANHYP(X3) 0120 X4:=SINHYP(X3) 0121 X5:=COSHYP(X3) 0122 TANHYP:=X4/X5 0130 ENDPROC TANHYP 0140 // 0150 CLEAR 0160 DIM FORMA$ OF 70 0170 FORMA$:=" ####.###" 0175 PRINT 0180 PRINT " x coshyp(x) sinhyp(x) "; 0181 PRINT "tanhyp(x)" 0190 PRINT 0200 FOR I:=0 TO 1.1 STEP 0.1 DO 0210 PRINT USING FORMA$:I; 0211 PRINT USING FORMA$:COSHYP(I); 0212 PRINT USING FORMA$:SINHYP(I); 0213 PRINT USING FORMA$:TANHYP(I) 0220 NEXT I ;565 // .###" =308 // x)" 9542 // (x)"
0x000…04c Line {l1=0x4a, l2=»0010 // ------------------------- hyperbolsk -----------------------------«, l3=0x4a}
0x04c…056 Line {l1=0x08, l2=»0020 // «, l3=0x08}
0x056…06c Line {l1=0x14, l2=»0030 PROC COSHYP(X1)«, l3=0x14}
0x06c…08f Line {l1=0x21, l2=»0040 COSHYP:=(EXP(X1)+EXP(-X1))/2«, l3=0x21}
0x08f…0a4 Line {l1=0x13, l2=»0050 ENDPROC COSHYP«, l3=0x13}
0x0a4…0ae Line {l1=0x08, l2=»0060 // «, l3=0x08}
0x0ae…0c4 Line {l1=0x14, l2=»0070 PROC SINHYP(X2)«, l3=0x14}
0x0c4…0e7 Line {l1=0x21, l2=»0080 SINHYP:=(EXP(X2)-EXP(-X2))/2«, l3=0x21}
0x0e7…0fc Line {l1=0x13, l2=»0090 ENDPROC SINHYP«, l3=0x13}
0x0fc…106 Line {l1=0x08, l2=»0100 // «, l3=0x08}
0x106…11c Line {l1=0x14, l2=»0110 PROC TANHYP(X3)«, l3=0x14}
0x11c…131 Line {l1=0x13, l2=»0120 X4:=SINHYP(X3)«, l3=0x13}
0x131…146 Line {l1=0x13, l2=»0121 X5:=COSHYP(X3)«, l3=0x13}
0x146…15a Line {l1=0x12, l2=»0122 TANHYP:=X4/X5«, l3=0x12}
0x15a…16f Line {l1=0x13, l2=»0130 ENDPROC TANHYP«, l3=0x13}
0x16f…179 Line {l1=0x08, l2=»0140 // «, l3=0x08}
0x179…186 Line {l1=0x0b, l2=»0150 CLEAR «, l3=0x0b}
0x186…19d Line {l1=0x15, l2=»0160 DIM FORMA$ OF 70«, l3=0x15}
0x19d…1bf Line {l1=0x20, l2=»0170 FORMA$:=" ####.###"«, l3=0x20}
0x1bf…1cc Line {l1=0x0b, l2=»0175 PRINT «, l3=0x0b}
0x1cc…218 Line {l1=0x4a, l2=»0180 PRINT " x coshyp(x) sinhyp(x) ";«, l3=0x4a}
0x218…230 Line {l1=0x16, l2=»0181 PRINT "tanhyp(x)"«, l3=0x16}
0x230…23d Line {l1=0x0b, l2=»0190 PRINT «, l3=0x0b}
0x23d…260 Line {l1=0x21, l2=»0200 FOR I:=0 TO 1.1 STEP 0.1 DO «, l3=0x21}
0x260…27c Line {l1=0x1a, l2=»0210 PRINT USING FORMA$:I;«, l3=0x1a}
0x27c…2a0 Line {l1=0x22, l2=»0211 PRINT USING FORMA$:COSHYP(I);«, l3=0x22}
0x2a0…2c4 Line {l1=0x22, l2=»0212 PRINT USING FORMA$:SINHYP(I);«, l3=0x22}
0x2c4…2e7 Line {l1=0x21, l2=»0213 PRINT USING FORMA$:TANHYP(I)«, l3=0x21}
0x2e7…2f4 Line {l1=0x0b, l2=»0220 NEXT I«, l3=0x0b}
0x2f4…303 Line {l1=0x0d, l2=»;565 // .###"«, l3=0x0d}
0x303…310 Line {l1=0x0b, l2=»=308 // x)"«, l3=0x0b}
0x310…31e Line {l1=0x0c, l2=»9542 // (x)"«, l3=0x0c}
0x31e…320 00 00 ┆ ┆
0x320…340 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┆
[…0x35…]