TRIG $TRIG2 $REAL-FL$POWER $TAN $LN $EXP $SIN $COS $H + + +H++++++  Correct up to X=11  "COS Function."'  "Enter a number : "X  R=1:N=1  I=2 30 2 # FACT=1 ( L=I 1 -1:FACT=FACT*L: 2" N=1 R=R-(X^I)/FACT:N=0:T|@ 3 N=0 R=R+(X^I)/FACT:N=1 < F) "The COS of ";X;" in Radians is ";R  Correct up to X=11  "SIN Function."'  "Enter a number : "X  R=X:N=1  I=3 33 2 # FACT=1 ( L=I 1 -1:FACT=FACT*L: 2" N=1 R=R-(X^I)/FACT:N=0:T|@ 3 N=0 R=R+(X^I)/FACT:N=1 < F) "The SIN of ";X;" in Radians is ";R  "Exponent Function."'  "Enter a number : "X  E=1+X  I=2 30 # FACT=1 ( L=I 1 -1:FACT=FACT*L: 2 E=E+(X^I)/FACT < F "The EXP of ";X;" is ";E  "LN Function."'  "Enter a number : "X  T=(X-1)/(X+1) ( L=T 2 I%=3 121 2 < L=L+(1/I%)*T^I% F P L=2*L Z "The LN of ";X;" is ";L d* "And LOG of ";X;" is ";L*0.434294482 3 Correct up to X=1. Correct to 1 decial place  "TAN Function."'  "Enter a number : "X > R=X+((X^3)/3)+((2*X^5)/15)+((17*X^7)/315)+((62*X^9)/2835) F) "The TAN of ";X;" in Radians is ";R  "Enter a number : "X ' "Enter Power to be Raised to : "R , "In BASIC Answer = ";X;"^";R;" = ";X^R (0 '''"Using EXP(R LN X) Answer = ";(R*(X))  REAL to FLOAT Convrter  "Enter REAL Number : "X  E=0:SIGNX=1 ( SIGN(X)=0 N=0: DP@ 2 SIGNX=SIGN(X):N=(X) <( N<0.1 N=10*N:E=E+1: N>0.1:DP@ F% N>=1 N=N/10:E=E-1: N<1:DP@ P N=SIGNX*N Q9 "The Number in Floating Point format is : ";N;"E";E Z d ݤSIGN(X) n X=0 =0 X<0 =-1 =1  2  23;8202;0;0;0;  0,7 ( 0,512 2 1279,512 < 640,0 F 640,1100 P 3:0,0);"SIN "; Z 1:"COS "; d 2:"TAN "; n 4:"ASN "; x 5:"ACS ";  6:"ATN ";  base%=512 start%=0  fact% = 170  i=-10.7 10.7 0.1  res=(i)*fact% 0,3  69,start%,res+base%  res=(i)*fact% 0,1  69,start%,res+base%  res=(i)*fact% 0,2  69,start%,res+base%  res=(i)*fact%  0,6 " 69,start%,res+base% , i<-1 i>1 DTA 6 res=(i)*fact% @ 0,4 J 69,start%,res+base% T i<-1 i>1 D|A ^ res=(i)*fact% h 0,5 r 69,start%,res+base% | start%=start%+6.3   ) IF i>-0.1 AND i<0.1 REPEATUNTILGET  i  7:  0  2  23;8202;0;0;0;  0,7 ( 0,512 2 1279,512 < 640,0 F 640,1100 P 3:0,0);"SIN "; Z 1:"COS "; d 2:"TAN "; n 4:"ASN "; x 5:"ACS ";  6:"ATN ";  base%=512 start%=0  fact% = 110  i=-10.7 10.7 0.1  res=(i)*fact% 0,3  69,start%,res+base%  res=(i)*fact% 0,1  69,start%,res+base%  res=(i)*fact% 0,2  69,start%,res+base%  res=(i)*fact%  0,6 " 69,start%,res+base% , i<-1 i>1 DTA 6 res=(i)*fact% @ 0,4 J 69,start%,res+base% T i<-1 i>1 D|A ^ res=(i)*fact% h 0,5 r 69,start%,res+base% | start%=start%+6.3   ) IF i>-0.1 AND i<0.1 REPEATUNTILGET  i  7:  0