CP/M User
Veteran Member
Re: Another GWBASIC sin&cos functions coding
Re: Another GWBASIC sin&cos functions coding
"nodoubt73" wrote:
> Here another way.... :
> Sin function
> and Cos function
Does that work in DEGrees or RADians?
For example, SIN 1 in DEGrees is
0.017452406 & COS 1 in DEGrees
is 0.999847695. In RADians SIN 1
is 0.841470984 & COS 1 is
0.540302305.
So if that works in DEGrees, then that
could be something I could port to TP.
Cheers,
CP/M User.
Re: Another GWBASIC sin&cos functions coding
"nodoubt73" wrote:
> Here another way.... :
> Sin function
Code:
10 INPUT X#
20 GOSUB 1000
30 PRINT Y#
40 END
1000 REM SIN(X#). X# IN RADIANTS. OUTPUT IN Y#
1010 RESULT# = 0 : SIGN%=-1
1020 DOUBLEPI#=6.283185307#
1030 PRECISION = 50
1040 TEMP% = X#/DOUBLEPI#
1050 X#=X#-TEMP%*DOUBLEPI#
1060 FOR K=1 TO PRECISION
1070 ADDENDUM#=X#
1080 FOR SCANIT=2 TO 2*K+1
1090 PARTQUOT#=X#/SCANIT
1100 ADDENDUM#=ADDENDUM#*PARTQUOT#
1110 NEXT SCANIT
1120 RESULT#=RESULT#+(ADDENDUM#*SIGN%)
1130 SIGN%=SIGN%*-1
1140 NEXT K
1150 Y#=X#+RESULT#
1160 RETURN
> and Cos function
Code:
10 INPUT X#
20 GOSUB 1000
30 PRINT Y#
40 END
1000 REM COS(X#). X# IN RADIANTS. OUTPUT IN Y#
1010 RESULT# = 0 : SIGN%=-1
1020 DOUBLEPI#=6.283185307#
1030 PRECISION = 50
1040 TEMP% = X#/DOUBLEPI#
1050 X#=X#-TEMP%*DOUBLEPI#
1060 FOR K=1 TO PRECISION
1070 ADDENDUM#=X#
1080 FOR SCANIT=2 TO 2*K
1090 PARTQUOT#=X#/SCANIT
1100 ADDENDUM#=ADDENDUM#*PARTQUOT#
1110 NEXT SCANIT
1120 RESULT#=RESULT#+(ADDENDUM#*SIGN%)
1130 SIGN%=SIGN%*-1
1140 NEXT K
1150 Y#=1+RESULT#
1160 RETURN
Does that work in DEGrees or RADians?
For example, SIN 1 in DEGrees is
0.017452406 & COS 1 in DEGrees
is 0.999847695. In RADians SIN 1
is 0.841470984 & COS 1 is
0.540302305.
So if that works in DEGrees, then that
could be something I could port to TP.
Cheers,
CP/M User.