|
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: 2528 (0x9e0)
Notes: Mikados TextFile, Mikados_K
Names: »COSHYP«
└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »COSHYP«
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »COSHYP«
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)"