mirror of
https://github.com/forth-ev/VolksForth.git
synced 2024-06-14 16:29:26 +00:00
51 lines
1.2 KiB
Forth
Executable File
51 lines
1.2 KiB
Forth
Executable File
\ A SINUS-TABLE 20OCT87RE
|
|
\ SINUS-TABLE FROM FD Vol IV/1
|
|
|
|
\needs code INCLUDE" D:TAS65.FS"
|
|
|
|
| : TABLE ( VALUES N -)
|
|
CREATE 0 DO , LOOP
|
|
;CODE ( N - VALUE)
|
|
SP X) LDA CLC 1 # ADC .A ASL TAY
|
|
W )Y LDA SP X) STA
|
|
INY W )Y LDA 1 # LDY SP )Y STA
|
|
NEXT JMP END-CODE
|
|
|
|
BASE @ DECIMAL
|
|
|
|
10000 9998 9994 9986 9976 9962 9945 9925
|
|
9903 9877 9848 9816 9781 9744 9703 9659
|
|
9613 9563 9511 9455 9397 9336 9272 9205
|
|
9135 9063 8988 8910 8829 8746 8660 8572
|
|
8480 8387 8290 8192 8090 7986 7880 7771
|
|
7660 7547 7431 7314 7193 7071 6947 6820
|
|
6691 6561 6428 6293 6157 6018 5878 5736
|
|
5592 5446 5299 5150 5000 4848 4695 4540
|
|
4384 4226 4067 3907 3746 3584 3420 3256
|
|
3090 2924 2756 2588 2419 2250 2079 1908
|
|
1736 1564 1392 1219 1045 0872 0698 0523
|
|
0349 0175 0000
|
|
|
|
&91 | TABLE SINTABLE
|
|
|
|
BASE !
|
|
|
|
| : S180 ( DEG -- SIN*10000:SIN 0-180)
|
|
DUP &90 >
|
|
IF &180 SWAP - THEN
|
|
SINTABLE ;
|
|
|
|
: SIN ( DEG -- SIN*10000)
|
|
&360 MOD DUP 0< IF &360 + THEN
|
|
DUP &180 >
|
|
IF &180 - S180 NEGATE
|
|
ELSE S180 THEN ;
|
|
|
|
: COS ( DEG -- COS*10000)
|
|
&360 MOD &90 + SIN ;
|
|
|
|
: TAN ( DEG -- TAN*10000)
|
|
DUP SIN SWAP COS ?DUP
|
|
IF &100 SWAP */ ELSE 3 * THEN ;
|
|
|