Re:fx 9700 gh~~ 참고~~

[플라이짱]

POLAR "Station X="?→A:"Station Y="?→B:
Lbl 0:"S-O point X="?→C"S-Opoint Y="?→D:
C-A→E:D-B→F:Pol(E,F): "Length=":I▴
J>0⇒Goto1▵ J<0⇒Goto2: Lbl2:J+360→J:Goto1:
Lbl1: "Angle=":J▴Goto0:
주의: O⇒ 알파벳 O 0⇒ 수학적기호 0

RECTANGOLAR
Lbl1: Fix4 :"Station X="?→A:"Station Y="?→B:
Lbl2 :"Angle="?→E:"Length="?→F:F=0⇒Goto1:
Rec(F,E) :"S-O point X=":I+A▴"Station Y=":
J+B▴Goto2:

CLOTHOID-RECTANGOLAR
Lbl0:"In-Point X="?→E:"In-Point Y="?→F:
"In-Angle="?→X:"Clothoid A="?→B:
"Lemnicate="?→D:"AZmuth="?→A:A=0⇒Goto0:
B²/D→R:(D/2R)*180/π→T:D(1-D²/(40R²))→K:
D²(1-D²/(56R²))/6R→Y:
Y+RcosT→L:X-RsinT→M:Ltan(I/2)→W:M+W→C:
Rec(C,N):E+I→O:"S-Opoint X=":O▴F+J→P:
"S-Opoint Y=":P▴X-2T→G:RπG/180→H:
"Lemntcate Curve=":H▴Goto1:

CURVE SETTING
Lbl1:“In-Angle="?→I:"Radius="?→R:I/2→A:
RtanA→B:"Tangent Length=":B▴RπI/180→C:
"Curve Length=":C▴R(1/cos-1)→D:
"Secan Length=":D▴R(1-cosA)→E:"Middle=":E▴
2RsinA→F:"Arc Length=":F▴Lbl2:"Length="?→L:
L=0⇒Goto1:(28064783333*L)/R→T:T*2→S:
0.0174533*S*R→U:T:"Angth=":T▴2RsinT→G:
"Arc Length=":G▴"Curve Length=":U▴U-G→P:
"P=":P▴Goto2:


이건..9700 입니다..참고하세요...