クロソイド対称型･非対称型　IP法ライン設置
Ver3.0
　　　P12
"KURO" PAUSE　　
MR01"BPX=＃？"HLT　Min01 
MR02"BPY=＃？"HLT Min02　
MR03"IP1X=＃？"HLT　Min03　
MR04"IP1Y=＃？HLT　Min04
MR10"IP2X=＃？"HLT Min10　
MR11"IP2Y=＃？"HLT　Min11
MR21"tuS=＃？"HLT Min21　
MR22"PiS=＃？"HLT Min22
MR20"R=＃？"HLT　Min20
MR23"A1=＃？"HLT Min23
MR24"A2=＃？"HLT Min24
MR03－MR01=Min07　MR04－MR02=Min06　
MR07　R→P　MR06=Min05
X⇔Y　X≧0　GOTO 2＋360＝LBL 2　Min1F
MR10－MR03=Min17 MR11－MR04＝Min16
MR17　R→P　MR16＝Min15 X⇔Y　X≧0 GOTO 3＋360=
LBL 3　Min2F　MR1F－MR2F= X≧0　
GOTO 7 ±＝LBL 7　°′″←"ＩＡ＝＃"ＨＬＴ　Min3F
MR23 x2=Min25 MR24 x2=Min26 MR25÷MR20=Min30
MR26÷MR20=Min31
MR30 xy2=Min32　MR30 xｙ4=Min33 MR30 xy6=Min34　
MR30 xy8=Min48  MR30 xy10=Min49
MR31 xy2=Min35　MR31 xｙ4=Min36 MR31 xy6=Min37　
MR31 xy8=Min56  MR31 xy10=Min57
MR20 xy2×40=Min40 MR20 xy4×3456=Min41
MR20 xy6×599040=Min42 
MR20 xy8×175472640=Min58
MR20 xy10×78033715200=Min59
MR20×6=Min43 
MR20 xy2×56=Min44
MR20 xy4×7040=Min45 MR20 xy6×1612800=Min46
MR20 xy8×588349440=Min77
MR20 xy10×313373491200=Min78
MR30×(1－MR32÷MR40+MR33÷MR41－MR34÷MR42+MR48÷MR58－MR49÷MR59)
=Min50 
MR32÷MR43×(1-MR32÷MR44+MR33÷MR45-MR34÷MR46+MR48÷MR77－MR49÷MR78)
=Min51 
MR31×(1-MR35÷MR40+MR36÷MR41-MR37÷MR42+MR56÷MR58－MR57÷MR59)
=Min 52 
MR35÷MR43×(1-MR35÷MR44+MR36÷MR45-MR37÷MR46+MR56÷MR77－MR57÷MR78)
=Min53
MR20 x2=Min39 
MR25÷(2×MR39)×180÷π=Min60 
MR26÷(2×MR39)×180÷π=Min61 
(MR51÷MR50)tan-1=Min62 
(MR53÷MR52)tan-1=Min63 
MR51+(MR20×(MR60 Cos)-MR20=Min65 
MR53+(MR20×(MR61 Cos)-MR20=Min66 
(MR20+MR66)×(MR3F÷2)tan=Min70 
(MR65-MR66)×(1÷MR3F tan)=Min71 
(MR65-MR66)÷MR3F tan=Min72
MR50-MR20×MR60 sin=Min74 
MR52-MR20×MR61 sin=Min75 
MR74+MR70-MR71=Min80 
MR75+MR70+MR72=Min81 
MR3F-(MR60+MR61)=Min5F
MR20×π×(MR5F÷180)=Min83 
MR30+MR83+MR31=Min84 
MR03+MR80×(MR1F+180)Cos=Min90 FIX 3"KA1X＝＃"HLT
MR04+MR80×(MR1F+180)Sin=Min91 FIX 3"KA1Y＝＃"HLT
MR21+MR05-MR80=Min92 MR92÷MR22=Min93 INT=Min94
MR93 FRAC×MR22=Min95
MR94"KA1NO##"MR95 FIX 3";+######"HLT
MR60-MR62=Min8F MR61-MR63=Min9F
MR1F FIX 2°′″←"KA1AZ＝＃"HLT GSB P13

P13
MR51×(1÷MR62 Sin)=Min38 
MR53×(1÷MR63 Sin)=Min39
MR92+MR30=Min32 MR32÷MR22=Min34 INT=Min35
MR34 FRAC×MR22=Min36 MR35"KE1NO##"MR36
FIX 3";+######"HLT
MR1F-MR2F=Min37 MR37 X≧0 GOTO 1 GOTO 2
LBL 1 MR1F-MR60=Min40 FIX 2°′″←"KE1AZ＝＃"HLT
MR1F-MR60+MR8F=Min41 GOTO 3 LBL 2
MR1F+MR60=Min40 FIX 2°′″←"KE1AZ＝＃"HLT
MR1F+MR60-MR8F=Min41
LBL 3 MR90+MR41 Cos×MR38=Min42 FIX 3 "KE1X＝＃"HLT
MR91+MR41 Sin×MR38=Min43 FIX 3 "KE1Y＝＃"HLT
MR32+MR83=Min44 MR44÷MR22=Min45 INT=Min46
MR45 FRAC×MR22=Min47 MR46"KE2NO##"MR47 FIX 3";+######"HLT
MR03+MR2F Cos×MR81=Min67 MR04+MR2F Sin×MR81=Min68
MR37 X≧0 GOTO 5 GOTO 4 LBL 5 MR2F+MR61=Min54
FIX 2°′″←"KE2AZ＝＃"HLT
MR2F+MR61-MR9F=Min55 GOTO 6 LBL 4
MR2F-MR61=Min54 FIX 2°′″←"KE2AZ＝＃"HLT
MR2F-MR61+MR9F=Min55 LBL 6 
MR67-MR55 Cos×MR39=Min56 FIX 3 "KE2X＝＃"HLT
MR68-MR55 Sin×MR39=Min57 FIX 3 "KE2Y＝＃"HLT
MR44+MR31=Min85 MR85÷MR22=Min86 INT=Min87
MR86 FRAC×MR22=Min76 MR87"KA2NO##"MR76 FIX 3";+######"HLT
MR2F FIX 2°′″←"KA2AZ＝＃"HLT
MR85 FIX 3"KA2X＝＃"HLT MR68 FIX 3"KA2Y＝＃"HLT
MR85-MR81=Min21 FIX 3"IP-2tus＝＃"HLT GSB P14

P14

MR30 FIX 3 "L1＝＃"ＨＬＴ
MR31 FIX 3 "L2＝＃"ＨＬＴ　
MR50 FIX 3 "X1=#"HLT 
MR51 FIX 3 "Y1=#"HLT 
MR52 FIX 3 "X2=#"HLT 
MR53 FIX 3 "Y2=#"HLT 
MR60 FIX 2 °′″←"tu1＝＃"HLT
MR61 FIX 2　°′″←"tu2＝＃"HLT 
MR62 FIX 2 °′″←"sig1＝＃"HLT
MR63 FIX 2 °′″←"sig2＝＃"HLT
MR65 FIX 3 "dr1＝＃"HLT
MR66 FIX 3 "dr2＝＃"HLT
MR70 FIX 3 "W＝＃"HLT
MR71 FIX 3 "Z1＝＃"HLT
MR72 FIX 3 "Z2＝＃"HLT
MR74 FIX 3 "XM1＝＃"HLT
MR75 FIX 3 "XM2＝＃"HLT
MR80 FIX 3 "TC1＝＃"HLT
MR81 FIX 3 "TC2＝＃"HLT
MR83 FIX 3 "LC＝＃"HLT
MR84 FIX 3 "CL＝＃"HLT

Ｐ．18
Ｍｉｎ09　ＩＮＴ　＋（ＭＲ09　ＦＲＡＣ×2　10ｘ）
Ｍｉｎ09　ＩＮＴ÷60＋ＭＲ09　ＦＲＡＣ　÷36＝

Ｐ．19
×4　10ｘ　＋ＦＲＡＣ＝ＩＮＴ　÷4　10ｘ＝