27 lines
328 B
Text
27 lines
328 B
Text
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
|
|
|