クロソイド要素計算
ＦＩＬＥ　ＫＵＲＯ

Lbl 0：｛K,E,A｝:Ｋ"Ａ＝":Ｅ"Ｒ＝":Ａ"Ｌ＝ＥＸＥ
A=0⇒A＝K^2÷E:Goto 1:≠⇒Lbl 1:
K=0⇒K＝√(E×A):Goto 2:≠⇒Lbl 2:　
Ｂ＝Ａ＾2　」（（40×（Ｅ＾2）：
C＝A＾4　」（（3456×（Ｅ＾4）：
Ｄ＝Ａ＾6┘（（599040×（Ｅ＾6）：
Z［1］＝Ａ＾8┘（（175472640×（Ｅ＾8）：
Z［2］＝Ａ＾10┘（（78033715200×（Ｅ＾10）：
Ｆ＝Ａ＾2　」（6×Ｅ）：
Ｇ＝Ａ＾2　」（（56×（Ｅ＾2）：
H＝A＾4　」（（7040×（Ｅ＾4）：
Ｊ＝Ａ＾6　┘（（1612800×（Ｅ＾6）：
Z［3］＝Ａ＾8┘（（588349440×（Ｅ＾8）：
Z［4］＝Ａ＾10┘（（313373491200×（Ｅ＾10）：
Ｘ＝Ａ（1−Ｂ＋Ｃ−Ｄ）▲Ｙ＝Ｆ　
（1−Ｇ＋Ｈ−Ｊ）▲Ｌ＝Ａ＾2　」　
（2×Ｋ＾2）：Ｍ＝（180÷π）×Ｌ：Ｍ"Ｔａｕ＝"　▲
Ｏ＝√（Ｘ＾2＋Ｙ＾2）：Ｏ"Ｓ0＝"　▲Ｐ＝（Ｏ＾2＋Ｘ＾2-Ｙ＾2）　」
（2×Ｏ×Ｘ）：Ｑ＝Ｃｏｓ-1
Ｐ：Ｑ"Ｓｉｇ＝"　▲Ｒ＝Ｙ＋Ｅ　×Ｃｏｓ　Ｍ−Ｅ：Ｒ"ｄｅＲ＝"　▲
Ｓ＝Ｘ−Ｅ×Ｓｉｎ　Ｍ：Ｓ"ＸＭ＝"▲
Ｕ＝Ｙ×（1÷Ｓｉｎ　Ｍ）：Ｕ"ＴＫ＝"　▲Ｖ＝Ｘ−Ｙ
×（1÷Ｔａｎ　Ｍ）：Ｖ"ＴＬ＝"　▲Ｇｏｔｏ　0

」記号は分数計算の記号ａｂ／ｃを押すと　」　出ます。


パラメーターとRが解かっている時
Lは0入力してください。

A＝? 　275                                         
R＝?　 1800
L＝?   0

X＝ 42.01331666
Y＝  0.1634397858
TAU＝0.6686718095  　SHIFT°′″　0°40′07.22″
S0＝42.01363456
SIG＝0.2228903463    SHIFT°′″  0°13′22.41″
DER＝0.0408601452
XM＝21.00684907
TK＝14.00481129
TL＝28.00945909

RとLが解かっている時
Aは0入力してください。

A＝? 　0
R＝?　 1800
L＝?   42.014

X＝ 42.013…
Y＝  0.163…
TAU＝0.6686735779  　SHIFT°′″　0°40′07.22″
S0＝42.013…
SIG＝0.222890936    SHIFT°′″  0°13′22.41″
DER＝0.041…
XM＝21.007…
TK＝14.005…
TL＝28.010…

パラメーターとRが解かっている時
Lは0入力してください。

A＝? 　275                                         
R＝?　 140
L＝?   0

X＝ 370.945…
Y＝ 265.278…
TAU＝110.535544 　   SHIFT°′″　110°32′07.96″
S0＝456.040…
SIG＝35.57015502    SHIFT°′″    35°34′12.56″
DER＝76.168…
XM＝239.841…
TK＝283.279…
TL＝470.316…