クロソイド中間点設置・方向杭設置　Ver3.1
メモリーを増設　SHIFT  Defm  20 EXE	
FILE  KURO HABA

A"A=":B"R=":C"KAX=":D"KAY=":W"KA.HO=":E"KA.TUI":
Lbl A:｛F,X,Y｝:
F"NO.P TUI=":X"L=":Y"R="EXE
Z［1］=Int W:Z［2］=Frac W×100:Z［3］=Int Z［2］
:Z［4］=Frac Z［2］×100:Z［15］=Z［1］＋（Z［3］÷60＋Z［4］÷3600):
G=Abs (F-E):H=A^2÷Ｇ：Ｉ＝Ｇ÷Ｈ：Ｊ＝Ｉ^2:K=I^4:L=I^6:
Z［19］=I^8:Z［16］=I^10:
M=G×（1-J÷40＋Ｋ÷3456-L÷599040+Z［19］÷175472640−Z［16］÷78033715200):
N=G^2:
O=N÷6÷Ｈ×（1-J÷56＋K÷7040-L÷1612800+Z［19］÷588349440-Z［16］÷313373491200):
P=O^2:Q=M^2:S=√(P＋Ｑ）：T=(S×1000＋0.5)÷1000:
U=G÷2÷H×180÷π:V=tan-1(O÷M):
Z=U-V:B＞0⇒Goto 2:≠⇒Goto 3:Lbl 2:G=Z［15］＋V:
G＞0⇒Goto 4:≠⇒G=G＋360:Lbl 4:G="P.HO="▲
H=G＋Z:H≧0⇒Goto 5:≠⇒H=H＋360:Lbl 5:
H"P.AZ="▲Goto 8:Lbl 3:
G=Z［15］-V:G≧0⇒Goto 6:≠⇒G=G＋360:Lbl 6:G"P.HO="▲
H=G-Z:H≧0⇒Goto 7:≠⇒H=H＋360:Lbl 7:H"P.AZ="▲
Lbl 8:S=cos G×T+C:S"PX="▲K=sin G×T+D:K"PY="▲
I=H+270:J=H+90:
Z［10］=S+((cos J)×Y):
Z［11］=K+((sin J)×Y):
Z［12］=S+((cos I)×X):
Z［13］=K+((sin I)×X):
Z［12］"P.LX="▲Z［13］"P.LY="▲
Z［10］"P.RX="▲Z［11］"P.RX="▲
Goto A




右カーブ計算例
KA1-1より中間点　　　　　　　　　　　　　　　　　　　　　　　

A=?  80
R=?  80　　　　　　　右カーブ
KAX=?     108.660
KAY=?      95.000
KA.HO=?   330.0000　　KAの接線方向角(入射角)　角度変換は不要
KATUI=?    10.000     KAの追加距離
NO.PTUI=?  60.000　　 中間点の追加距離
L=?        20.000　　　左側控え距離
R=?        20.000　　　右側控え距離


P.HO=333.7289882    333°43′44.36″
P.AZ=341.1905819    341°11′26.09″  
PX=153.4200034　　　　
PY=72.90639886
P.LX=146.9715775
P.LY=53.97447337
P.RX=159.8684294
P.RY=91.83832435

NO.PTUI=?   続けて入力出来ます。
L=?        
R=?        



KA1-2より中間点　　　　　　　　　　　　　　　　　　　　　　　

A=?   -75
R=?   -80　　　　　　　注)右カーブですがKA1-2より反対方向に計算するために-Rにする
KAX=?     272.434
KAY=?     129.070
KA.HO=?   235.1937　　KAの接線方向角(入射角なので180°足したもの入力)
KATUI=?   204.295     KAの追加距離
NO.PTUI=? 160.000　　 中間点の追加距離
L=?        20.000　　　左側控え距離
R=?        20.000　　　右側控え距離




P.HO=231.9969283   231°59′48.94″
P.AZ=225.334321    225°20′03.56″  
PX=245.1979467
PY=94.21329354
P.LX=230.9735329     注)反対より計算してますので右側の座標
P.LY=108.2726695
P.RX=259.4223605　　 注)反対より計算してますので左側の座標
P.RY=80.15391759




左カーブ計算例
KA1-1より中間点

A=?   80
R=?  -80　　　　　　左カーブ
KAX=?     285.259
KAY=?     147.610
KA.HO=?    55.1935  KAの接線方向角(入射角)
KATUI=?   226.839　 KAの追加距離
NO.PTUI=? 280.000　 中間点の追加距離
L=?        20.000　　　左側控え距離
R=?        20.000　　　右側控え距離


P.HO=51.11166046    51°06′41.98″
P.AZ=42.67642139    42°40′35.12″
PX=318.5617852
PY=188.8997857
P.LX=332.1190577
P.LY=174.1956863
P.RX=305.0049131
P.RY=203.6035622