PROGRAM NAME: BANK

Return to program description page.

[A]((C-1),3)->V:Degree

Lbl A

ClrHome

Disp " OPTIMUM":Disp " BANKED CURVE":Disp "================"

Output(7,1,"ENTER '0' TO GO"):Output(8,1,"BACK")

Output(4,1,"RADIUS (M):")

Output(5,1,"ARC ANGLE°:")

Input "RADIUS (M):",R

If R=0:Then:Return:End

Input "ARC ANGLE°:",D

If D=0:Then:Stop:End

tan„ (V‰/(R*G))->N

1/cos (N)->A

((2¹V)/R)*(D/360)->T

ClrHome

Disp "--BANKED CURVE--"

Disp "VEL. (M/S):"

Disp "RADIUS (M):"

Disp "BANK ANGLE:"

Disp "ARC ANGLE°:"

Disp "G'S FELT:"

Disp "TIME (S):"

Fix 1:Output(2,12,V)

Output(3,12,R)

Output(4,12,N)

Output(5,12,D)

Output(6,11,A)

Output(7,11,T)

Fix 2

Output(8,7,"ACCEPT Y/N")

getKey->K

While (K=0):getKey->K:End

If K=71:Then:Goto A:End

ClrHome:Disp "YES"

5->[A](C,1)

T->[A](C,2)

V->[A](C,3)

R->[A](C,4)

N->[A](C,5)

D->[A](C,6)

A->[A](C,7)

C+1->C