QUADREG, RTD, and SIN

QUADREG.ti

@@ -0,0 +1,12 @@
+PROGRAM:QUADREG
+Disp "A"
+Input A
+Disp "B"
+Input B
+Disp "C"
+Input C
+((-B+sqrt(B^2-4*A*C))/(2*A))->D
+((-B-sqrt(B^2-4*A*C))/(2*A))->E
+Disp D
+Disp E
+

RTD.ti

@@ -0,0 +1,8 @@
+PROGRAM:RTD
+Disp "CONVERT RADIANS TO DEGREES"
+Disp ""
+Pause
+Disp "RADIANS"
+Input R
+R*180/pi->D
+Disp D 

SIN.ti

@@ -0,0 +1,27 @@
+PROGRAM:SIN Disp "Y=Asin(WX+theta)+B"
+Pause
+Disp "A"
+Input A
+Disp "W"
+Input W
+Disp "theta"
+Input theta
+Disp "B"
+Input B
+Disp "HOW MANY CYCLES TO","CAULCULATE AREA UNDER SIN",WAVE?"
+Input C
+2pi/W->P
+CP->D
+D/100->X
+theta->S
+1->Q
+X->N
+While N<100X
+Asin(WN+theta)+B->Y
+XY->Q
+S+Q->S
+N+X->N
+End
+Disp "AREA UNDER SIN FUNCTION"
+Disp S
+