Sharp PC-E500/E500S Technikersoftware

TRIG.142

Trigonometrische Funktionen

TRIG.142 (3.343 Bytes)

10 ' TRIGONOM.142 (Trigonometry)
15 CLEAR
20 MERGE "G:DISP500.00$":MERGE "G:COMN.00$"
30 '
40 QMS$="      *  TRIGONOMETRIC FUNCTION  *"
100 DATA sin,&C3,&A8,+cos,&C3,&A8,=1,@
110 DATA 1+tan,&C3,&A8,=sec,&C3,&A8,@
120 DATA 1+cot,&C3,&A8,=cosec,&C3,&A8,@
130 DATA sin(,&A1,&CE,&A2,)=sin,&A1,&EA,cos,&A2,&CE,cos,&A1,&EA,sin,&A2,@
140 DATA cos(,&A1,&CE,&A2,)=cos,&A1,&EA,cos,&A2,&CF,sin,&A1,&EA,sin,&A2,@
150 DATA tan(,&A1,&CE,&A2,)=(tan,&A1,&CE,tan,&A2,)/(1,&CF,tan,&A1,&EA,tan,&A2,),@
160 DATA cot(,&A1,&CE,&A2,)=(cot,&A1,&EA,cot,&A2,&CF,1)/(cot,&A2,&CE,cot,&A1,),@
170 DATA sin(,&A1,+,&A2,),&EA,sin(,&A1,-,&A2,)=sin,&C3,&A1,-sin,&C3,&A2,@
180 DATA sin(,&A1,+,&A2,),&EA,sin(,&A1,-,&A2,)=cos,&C3,&A2,-cos,&C3,&A1,@
190 DATA cos(,&A1,+,&A2,),&EA,cos(,&A1,-,&A2,)=cos,&C3,&A1,-sin,&C3,&A2,@
200 DATA cos(,&A1,+,&A2,),&EA,cos(,&A1,-,&A2,)=cos,&C3,&A2,-sin,&C3,&A1,@
210 DATA sin(,&A1,&CE,&A2,),&EA,cos(,&A1,&CF,,&A2,),"                   =sin",&A1,&EA,cos,&A1,&CE,sin,&A2,&EA,cos,&A2,@
220 DATA sin(,&A1,+,&A2,)/sin(,&A1,-,&A2,),"                   ",=(tan,&A1,+,tan,&A2,)/(tan,&A1,-,tan,&A2,),@
230 DATA cos(,&A1,+,&A2,)/cos(,&A1,-,&A2,),"                   ",=(1-tan,&A1,&EA,tan,&A2,)/(1+tan,&A1,&EA,tan,&A2,),@
240 DATA sin2,&A8,=2sin,&A8,&EA,cos,&A8,@
250 DATA cos2,&A8,=cos,&C3,&A8,-sin,&C3,&A8,@
260 DATA cos2,&A8,=1-2sin,&C3,&A8,@
270 DATA cos2,&A8,=2cos,&C3,&A8,-1,@
280 DATA tan2,&A8,=2tan,&A8,/(1-tan,&C3,&A8,),@
290 DATA sin(,&A8,/2)=,&CE,&EB,((1-cos,&A8,)/2),@
300 DATA cos(,&A8,/2)=,&CE,&EB,((1+cos,&A8,)/2),@
310 DATA tan(,&A8,/2)=,&CE,&EB,((1-cos,&A8,)/(1+cos,&A8,)),@
320 DATA tan(,&A8,/2)=(1-cos,&A8,)/sin,&A8,@
330 DATA tan(,&A8,/2)=sin,&A8,/(1+cos,&A8,),@
340 DATA tan(,&A8,/2)=cosec,&A8,-cot,&A8,@
350 DATA cot(,&A8,/2)=,&CE,&EB,((1+cos,&A8,)/(1-cos,&A8,)),@
360 DATA cot(,&A8,/2)=sin,&A8,/(1-cos,&A8,),@
370 DATA cot(,&A8,/2)=(1+cos,&A8,)/sin,&A8,@
380 DATA cot(,&A8,/2)=cosec,&A8,+cot,&A8,@
390 DATA sin3,&A8,=-4sin,&C4,&A8,+3sin,&A8,@
400 DATA cos3,&A8,=4cos,&C4,&A8,-3cos,&A8,@
410 DATA tan3,&A8,=(3tan,&A8,-tan,&C4,&A8,)/(1-3tan,&C3,&A8,),@
420 DATA sin,&A1,&EA,cos,&A2,=(sin(,&A1,+,&A2,)+sin(,&A1,-,&A2,))/2,@
430 DATA cos,&A1,&EA,sin,&A2,=(sin(,&A1,+,&A2,)-sin(,&A1,-,&A2,))/2,@
440 DATA cos,&A1,&EA,cos,&A2,=(cos(,&A1,+,&A2,)+cos(,&A1,-,&A2,))/2,@
450 DATA sin,&A1,&EA,sin,&A2,=-(cos(,&A1,+,&A2,)-cos(,&A1,-,&A2,))/2,@
460 DATA sin,&A1,+sin,&A2,=2sin((,&A1,+,&A2,)/2),&EA,cos((,&A1,-,&A2,)/2),@
470 DATA sin,&A1,-sin,&A2,=2cos((,&A1,+,&A2,)/2),&EA,sin((,&A1,-,&A2,)/2),@
480 DATA cos,&A1,+cos,&A2,=2cos((,&A1,+,&A2,)/2),&EA,cos((,&A1,-,&A2,)/2),@
490 DATA cos,&A1,-cos,&A2,"                           ",=-2sin((,&A1,+,&A2,)/2),&EA,sin((,&A1,-,&A2,)/2),@
500 DATA tan,&A1,&CE,tan,&A2,=sin(,&A1,&CE,&A2,)/(cos,&A1,&EA,cos,&A2,),@
510 DATA cot,&A1,&CE,cot,&A2,=sin(,&A2,&CE,&A1,)/(sin,&A1,&EA,sin,&A2,),@
520 DATA cos,&A1,&CE,sin,&A1,=,&EB,2,&EA,sin(45,&F6,&CE,&A1,),@
530 DATA cos,&A1,&CE,sin,&A1,=,&EB,2,&EA,cos(45,&F6,&CF,&A1,),@
540 DATA tan(45,&F6,&CE,&A8,/2)=sec,&A8,&CE,tan,&A8,@
550 DATA tan(45,&F6,&CE,&A8,/2)=(1,&CE,sin,&A8,)/cos,&A8,@
560 DATA tan(45,&F6,&CE,&A8,/2)=cot(45,&F6,&CF,&A8,/2),@
570 DATA tan(45,&F6,+,&A8,)=(1+tan,&A8,)/(1-tan,&A8,),@
580 DATA cot(45,&F6,-,&A8,)=(1+cot,&A8,)/(1-cot,&A8,),@
590 QMA=580:QMI=100:QMD=340:R6=QMI
600 GOSUB 10000

Generated by (c) Casio FX-850P/FX-880P Notepad 2.02

(c) by mani.becker@web.de - http://blog.manib.bplaced.net