単曲線中間点設置/方向杭設置　ver3.0

メモリーを増設　SHIFT  Defm  20 EXE		


FILE　TAN−HABA

Ｘ"ＢＣ.ＫＥＸ＝":Ｙ"ＢＣ.ＫＥＹ＝":Ｊ＝"ＡＺ.ＨＯ＝”:
Ｈ"Ｒ＝":Ｅ"ＢＣ.ＫＥＴＵＩ＝":Lbl A｛O,F,G｝:
Ｏ"ＮＯ.ＴＵＩ＝":F"L=":G"R="ＥＸＥ
Ｑ＝Ｏ−Ｅ:Ｋ＝ Int Ｊ：Ｌ＝Frac Ｊ×100：
Ｍ＝Int Ｌ：Ｎ＝Frac Ｌ×100：
Ｗ＝Ｋ＋（Ｍ÷60＋Ｎ÷3600）：Ｐ＝（180÷π）×（Ｑ÷（2×Ｈ）:
Ｒ＝2×Ｈ×Sin　Ｐ:Ｈ＜0　⇒Goto 2：≠⇒Goto 3:
Lbl 2:Ａ＝Ｗ−Abs Ｐ：Ｄ＝Ａ−Abs Ｐ:Goto 4:
Lbl 3:Ａ＝Ｗ＋Ｐ:Ｄ＝Ａ＋Ｐ:Goto 4:Lbl 4:
Ｂ＝cos Ａ×Ｒ＋Ｘ:Ｃ＝sin Ａ×Ｒ＋Ｙ:
A＞360⇒A＝A−360:GOTO 5:≠⇒A＝A:Lbl 5:
A"ＰＨＯ＝"▲
D＞360⇒D＝D−360:GOTO 6:≠⇒D＝D:Lbl 6:
D"ＰＡＺ＝"▲Ｂ"ＰＸ＝"▲Ｃ"ＰＹ＝"▲
I=D+270:V=D+90:
Z［10］=B+((cos V)×G):
Z［11］=C+((sin V)×G):
Z［12］=B+((cos I)×F):
Z［13］=C+((sin I)×F):
Z［12］"P.LX="▲Z［13］"P.LY="▲
Z［10］"P.RX="▲Z［11］"P.RX="▲
GOTO A



BC.KEX=?     115.444
BC.KEY=?     144.048
AZ.HOU=?   50.5752 　　注) °′″は押さなくて良いです。BC/KEへの入射接線角
R=?        25　　　　　注)右カーブ＋左カーブ−でＲ入力
BC.KETUI=?    48.832
NO.TUI=?   55
L=?   20
R=?   20

PHO=   58.03245181  SHIFT°′″　58°01′56.83  ″BC・KEより中間点への方向角
PAZ=   65.10045917  SHIFT°′″　65°06′01.65  ″中間点の接線角
PX=    118.7013027
PY=    149.2673498
P.LX=  136.8422505
P.LY=  140.8467789
P.RX=  100.5603549
P.RY=  157.6879207

NO.TUI=?   続けて入力できます。
L=?   
R=?   



BC.KEX=?     100.354
BC.KEY=?     190.164
AZ.HOU=?  136.2807　　注) °′″は押さなくて良いです。BC/KEへの入射接線角
R=?        -10　　　　　注)右カーブ＋左カーブ−でＲ入力
BCTUI=?    103.919
NO.TUI=?   115
L=?   20
R=?   20

PHO=   104.7238845   SHIFT°′″　104°43′25.98 ″BC.KEより中間点への方向角
PAZ=    72.97915783  SHIFT°′″　 72°58′44.97 ″中間点の接線角
PX=     97.67953523
PY=    200.3411671
P.LX=  116.803502
P.LY=  194.486776
P.RX=   78.55556846
P.RY=  206.1955582

NO.TUI=?   続けて入力できます。
L=?   
R=?