17 lines
790 B
Plaintext
17 lines
790 B
Plaintext
100 TAU = 8 * ATN (1)
|
|
110 RAD = TAU / 8
|
|
120 DEG = 45.0
|
|
130 DEF FN RAD(DEG) = DEG * TAU / 360
|
|
140 DEF FN DEG(RAD) = RAD / TAU * 360
|
|
150 DEF FN ASN(RAD) = ATN (RAD / SQR ( - RAD * RAD + 1))
|
|
160 DEF FN ACS(RAD) = - ATN (RAD / SQR ( - RAD * RAD + 1)) + TAU / 4
|
|
170 PRINT " SINE: " SIN (RAD);: HTAB (25): PRINT SIN ( FN RAD(DEG))
|
|
180 PRINT " COSINE: " COS (RAD);: HTAB (25): PRINT COS ( FN RAD(DEG))
|
|
190 PRINT " TANGENT: " TAN (RAD);: HTAB (25): PRINT TAN ( FN RAD(DEG))
|
|
200 ARC = FN ASN( SIN (RAD))
|
|
210 PRINT " ARCSINE: "ARC;: HTAB (25): PRINT FN DEG(ARC)
|
|
220 ARC = FN ACS( COS (RAD))
|
|
230 PRINT " ARCCOSINE: "ARC;: HTAB (25): PRINT FN DEG(ARC)
|
|
240 ARC = ATN ( TAN (RAD))
|
|
250 PRINT " ARCTANGENT: "ARC;: HTAB (25): PRINT FN DEG(ARC);
|