暴強(qiáng)卡西歐5800計(jì)算器程序湖南津市趙濟(jì)漢

1、CASIO-fx5800  (任意平曲線極坐標(biāo)與直角坐標(biāo)放樣,求里程及邊距)        湖南津市 趙濟(jì)漢主程序PQX Deg : Fix 3 : “XZ0:YZ1”？A : If  A = 1: Then Goto 1 : IfEnd If  A = 0 : Then “ BS0:XY1:AND2:DK3:L(I)4 ” ？O : IfEnd If  O = 4: Then  Goto 1 : IfEnd If&

2、#160; O = 3: Then  Prog  “ F.2 ” : If  X= 0 : Then  Goto 1 : IfEnd : IfEnd If  O 1: Then “ X1 ” ？X : “ Y1” ？Y : XZ11: YZ12: “ X2 ” ？P : “ Y2” ？Q : Pol( PX , QY) : If  J0 : Then  J + 360J : IfEnd : Cls : “ S12= ” :  

3、Locate 6 ,1, I : “ B12= ” : J DMS1B : IfEnd If  O = 1: Then “XY(0) 0: 1” ? B: IfEnd Lbl  1 : If  A = 1  And  O = 3 :Then  Prog  “ F.2 ” : IfEnd : Prog “ Q.1 ”  子程序PPQX         

4、;    （給定綜合曲線屬性）“ ZQX 0: * 1: * 2 * ” ？C If  C=0: Then 100Z98: n0 Z99: IfEnd If  C=1: Then  m1Z98: n1 Z99: IfEnd If  C=2: Then  m2Z98: n2 Z99: IfEnd *Prog “ PQX ” 其中：  mi為第i條綜合曲線矩陣變量起始單元，(第1條綜合曲線矩陣變量起始單元應(yīng)自100開(kāi)始，以便其他程序臨時(shí)使用100以前

5、的矩陣變量，綜合曲線中每一基本單元需8個(gè)矩陣存儲(chǔ)單元)； ni為第i條綜合曲線中基本單元數(shù)，每增加一個(gè)條綜合曲線則增加一行If  C=*Z99: IfEnd語(yǔ)句。還應(yīng)注特別意，原有程序中的矩陣變量定維語(yǔ)句DimZ應(yīng)取消，只要原有程序中的矩陣變量定維不大于100，原有程序的運(yùn)行不受影響。子程序Q . 5              (建立數(shù)據(jù)庫(kù))Deg : Fix 5 0I : “ N ” ? W : W Z99: “ZMIN”? V :

6、VZ98Lbl  1 : “NO.I= ”: I Lbl  C : V + 8 IG “DK ”？A : AZG“X ”？B : BZG + 1“Y ”？C : CZG +2“AT ”？D : DZG +3“(1Y+1) ”？K : KZG +4“L ”？E : EZG +5“R2 / 221 ”？F : FZG +6“R2”？O : OZG +7Lbl  2 : “JX1: NO0 : OK2”? M : If  M = 2 : Then  Goto 3 : IfEnd : If &

7、#160;M = 1: Then  Goto  C : IfEnd I + 1I : Goto  1 Lbl  3 : “END ”子程序Q . 6Lbl  1 : “S ” ? W : If  W = 0 : Then  Goto 2 : IfEnd IWW : Cls : “S= ” : Locate 5 , 1 , W : “ BP= ” : J DMSGoto  1 Lbl  2 : Cls : “ OK ”

8、子程序Q.1If  X = 0  And  O = 3 : Then  Goto  2 : IfEnd Lbl  1 : Z98 I : Z99 J : “ DKP ” ? S If  S = 1: Then  Prog  “JH . ZJ ” : Goto  1 : IfEnd （加橋臺(tái)轉(zhuǎn)軸時(shí)）If  S = 2: Then  Prog 

9、0;“ZH . 2 ” : Goto  1 : IfEnd （加涵通轉(zhuǎn)軸時(shí)）If  S = 0: Then  Goto  2 : IfEnd : If  SZ I : Then “ DKP<MIN ” Goto  1 : IfEnd : If  S > Z I + 8 J : Then “ DKP>MAX ” Goto  1 : IfEnd If  O 4  And &

10、#160;B 0 : Then “ B ” ? V : V : Prog “ J ” : TU : “()D÷2 ”  ? N : Else  0 N : IfEnd Prog “ Q.2 ” : Goto  1 Lbl  2 : “ END ”子程序Q . 2If  O 3  : Then “ ” : IfEnd 0I : Z98+ 8 M If  S ZM8 And  S ZM :Then  Goto&

11、#160; 1 : IfEnd Lbl  2 : I +1 I : M + 8 M If  S ZM :Then  Goto  1 : Else  Goto  2 : IfEnd Lbl  1 : If  O = 3  : Then  I B :IfEnd : MZ27:  If  O 4  : Then  

12、Prog “Q. 3” : Else  “ L(I) , I = ” : I Cls : “ MIN = ” : Locate  6 , 1 , ZZ98+8 I : “ MAX = ” : Locate  6 ,2 , ZZ98+8 I +8:IB : IfEnd 子程序Q . 3If  O = 3  And  U = 0 : Then  BI : IfEnd Z98+8 I G ZGZ ZG +1Z1: ZG +2Z2: ZG +3Z3 Z3:Prog

13、  “ J ” : TZ3ZG +4Z4: ZG +5M : 1÷ ZG +6Z5: 1÷ ZG +7Z6Z6Z5Z6: SZD If  O = 3  : Then  0N : IfEnd : Prog  “Q . 4 ”子程序Q .4            (正算)Lbl  0 : 0I : 0E:0F : 0G : 0H Lbl

14、60; 1 : I + 1I : Z3+ Z4( ( I D÷12) ( Z5+ I D Z6÷24÷M ) ( 180÷ ) W : If  I 12: Then  If  Frac ( I÷2 ) 0 : Then  E + cos ( W ) E : F + sin ( W ) F : Else  G + cos ( W ) G : H + sin ( W ) H : IfEnd : IfEnd If  I 1

15、2 : Then  Goto 1：IfEnd Z1+（D÷36）( cos ( Z3) + cos ( W ) + 2G + 4E ) + N cos ( U + W ) P Z2+（D÷36）( sin ( Z3) + sin ( W ) + 2H + 4F ) + N sin ( U + W ) Q If  O = 3 : Then  Goto  2 : IfEnd If  O 0 : Then  Cls : “ XP = ” : Locate 5 ,

16、 1 , P : “ YP = ” : Locate 5 , 2 , Q : “ AT = ” : WDMSIfEnd Z27I : If  ZI S = 0  And  ZI + 1= 0 And  N = 0 : Then  P ZI + 1: QZI + 2: W : Prog “ H ” : TZI +3: IfEnd If  O 1: Then  Pol( PZ11, QZ12) : If  J < 0 : Then J

17、360J : IfEnd : Cls : “ SP= ” : Locate 5 , 1 , I : “ BP= ” : J DMSProg  “ Q. 6 ” : IfEnd Lbl  2子程序F . 2             （反算）“ ZH.D(LI) 0 : NO1” ? U Lbl  2 : If  U = 0 : Then “ I ” ? B : IfEnd Z98+ 8 Z99M I

18、f  X = 0 : Then  Z13X : IfEnd : “ X ” ? X : If  X = 0 : Then  Goto  3 : IfEnd “ Y ” ? Y : 1 Z8“= ” If  U = 1 : Then ( ( XZM + 1) ² + (YZM +2) ² ) Z7: Z7+ZMS :  Prog“Q . 2”: IfEnd Z98+ 8 BM : ZM +3: Prog“J ”: T90T ( YZM +

19、2) cos (T) ( XZM + 1) Sin (T) Z7If  U =1 And  Abs ( Z7) 0.01: Then 0.01 Z7: IfEnd Z7D : ZM+ D S : If  S > ZM +8: Then  ZM +8S ; IfEnd  If  U = 0 : Then  Prog“Q . 3”: Else  Prog“Q . 2”: IfEnd “= ” Lbl  1 : (

20、YQ ) cos （W90）(XP) sin (W90) Z8Z + Z7+ Z8SIf  Abs ( Z8) 0.0001: Then Z7+ Z8D : Prog“Q .4”: DZ7: Goto  1: IfEnd If  U =1: Then  If  S + 0.01< Z : Then “ DKP ” : S If  B< Z991 : Then B1B : ZZ98+ 8B I : ZJ : Else ZI : ZZ98+ 8 Z99J : IfEn

21、d : “ L(I)= ” : B Cls : “ MIN= ” : Locate 6 , 1 , I : “ MAX= ” : Locate 6 , 2 , J : “ END, =ZH.D(LI)”X Z13: 0X : 3O: Goto  3 : IfEnd: IfEnd If  U =0: Then  If  S< Z 0.01 : Then “ DK<MIN,L(I1) ” Goto  2 : IfEnd : If  S> ZZ98+ 8(B+1)

22、 + 0.01: Then “ DK>MAX , L(I+1) ” Goto  2 : IfEnd : IfEnd Cls : “ DKP=” : Locate  6 ,1, S : XPP : If  P =0: Then  ×109P : IfEnd : Pol( P , YQ) : If  sin（WJ）>0: Then II : IfEnd : “ D÷2= ”: Locate 6 , 2, I : Goto  2Lbl &#

23、160;3子程序 JAns  ÷ . 36 16 ( Int  ( Ans ) ) ÷ 9Int (100 (Ans Int (Ans ) )  ) ÷90T子程序 H. 6 4 Int  ( Ans )+. 36 Ans + . 004 Int ( ( 60 ( Ans ( Int (Ans ) ) T 為了實(shí)現(xiàn)橋臺(tái)轉(zhuǎn)軸坐標(biāo)計(jì)算，現(xiàn)（2009.04.19）加一個(gè)子程序如下：子程序 JH . ZJ       (橋臺(tái)轉(zhuǎn)軸)“=

24、B ”? V : V : Prog“J : W + TT Lbl  1 : “=(Y +) D ”? N : N = 0 = Goto 2 : “=( +) S ”? SPol(N , S ) : Rec( I ,TJ ) Cls : “X = ”: Locate  6, 1 , I + P : “Y = ”: Locate  6 , 2 , J + Q Goto 1 Lbl  2 : “ OK ” 在子程序Q.1 中語(yǔ)句 Lbl  1 : Z98 I : Z99 J : “ DKP ” ? S

25、 后加If  S = 1: Then  Prog  “JH . ZJ ” : Goto  1 : IfEnd （加橋臺(tái)轉(zhuǎn)軸時(shí)）就可以了，(2009.04.19以加，見(jiàn)綠色標(biāo)注語(yǔ)句。                  橋臺(tái)（樁基）轉(zhuǎn)軸直角坐標(biāo)計(jì)算 運(yùn)行提示符       直角坐標(biāo)放

26、樣令DKP=-1時(shí)，轉(zhuǎn)向橋臺(tái)（樁基）轉(zhuǎn)軸直角坐標(biāo)計(jì)算  提  示  符          說(shuō)                  明           

27、;        以上一測(cè)點(diǎn)中樁為中心作偏轉(zhuǎn)  = B ?           問(wèn)轉(zhuǎn)軸偏角（以小數(shù)點(diǎn)為度）  =(Y + ) D?    問(wèn)偏距（與直角坐標(biāo)放樣時(shí)意義一致）。賦值0時(shí)轉(zhuǎn)向OK  =( + ) S?   問(wèn)支距（小里程方向?yàn)?，大里程方向?yàn)?）  X=  &

28、#160;            給出點(diǎn)位縱坐標(biāo)  Y=               給出點(diǎn)位橫坐標(biāo)                   &

29、#160;      OK              本轉(zhuǎn)軸各點(diǎn)計(jì)算結(jié)束，返回直角坐標(biāo)放樣。子程序 ZH . 2       (涵通轉(zhuǎn)軸)“=B ”? V : V : Prog“J”: W + TTLbl  1 : “=( +) K ”? S : S = 0 = Goto 2 : “=(Y +) D ”? N N Co

30、s ( T) + P X : N Sin ( T) + Q Y  Cls : “X = ”: Locate  6, 1 ,S Cos( W ) + X : “Y = ”: Locate  6 , 2 , S Sin(W ) + Y Goto 1 Lbl  2 : “ OK ” 在子程序Q.1 中語(yǔ)句If  S = 1: Then  Prog  “JH . ZJ ” : Goto  1 : IfEnd 后加  

31、0;              If  S = 2: Then  Prog  “ZH . 2 ” : Goto  1 : IfEnd （加涵通轉(zhuǎn)軸時(shí))即可。                   

32、60;       涵通轉(zhuǎn)軸直角坐標(biāo)計(jì)算  中樁直角坐標(biāo)放樣令DKP=2時(shí)，提  示  符 示  例 說(shuō)                  明          

33、; 以上一測(cè)點(diǎn)中樁為中心作偏轉(zhuǎn)= B ?           問(wèn)涵通偏角（以小數(shù)點(diǎn)為度）=( + ) K?  問(wèn)里程差（相對(duì)于涵通中樁，小里程為、大里程為+），賦值0時(shí)轉(zhuǎn)向OK=(Y + ) D?  問(wèn)偏距（與直角坐標(biāo)放樣時(shí)意義一致）X=                  

34、60;      給出點(diǎn)位縱坐標(biāo)Y=                         給出點(diǎn)位橫坐標(biāo)  OK           本轉(zhuǎn)軸各點(diǎn)計(jì)算結(jié)束，返回直角坐標(biāo)放樣。算例1 &#

35、160;     例某工程C匝道:   根據(jù)算例數(shù)據(jù)確定綜合曲線屬性: 令名 C.ZD   令編號(hào)0   令（矩陣存起始儲(chǔ)單元 ）ZMIN= 100   （綜合曲線段數(shù),不含終點(diǎn)）N = 4      紅色數(shù)據(jù)應(yīng)在Q.5程序運(yùn)行時(shí)按提示賦值  一   給矩陣存儲(chǔ)單元定維:（COMP狀態(tài)下）   140DimZ     

36、二   編寫程序PPQX（PROG狀態(tài)下給定綜合曲線屬性）  “ C. ZD 0 ” ？ C   If  C=0: Then 起始單元100Z98: 段數(shù)4 Z99: IfEnd   Prog “ PQX ”          三  啟動(dòng)Q . 5  按下列數(shù)據(jù)建立矩陣存儲(chǔ)表  （COMP狀態(tài)下按提示賦值，詳見(jiàn)附件運(yùn)行提示符）  

37、0;                自              然                  段 名 稱 &#

38、160; L0      L1         L2           L3            L4       DK    

39、;   0      190        355.927      472.168    561.791X    20934.495  21066.119  21142.859   21076.993  20988.267Y&#

40、160;   89274.172  89411.182   89552.427  89640.286  89644.485AT   47.08177  45.09322    93.33281    160.09323   185.50027±1      -1   &

41、#160;     1          1           1          0L     190      165.927  &

42、#160;    116.241    89.623         0R1     5500       5500       100        100  

43、;          0R2     5500       100        100         ×10 20         0 

44、  備注： 起始矩陣存儲(chǔ)單元 Z100   終了矩陣存儲(chǔ)單元 Z139 。   (139 =100 +8 × 5-1)四   啟動(dòng)程序PPQX（COMP狀態(tài)下指定需計(jì)算的綜合曲線編號(hào)）   C. ZD 0 ？    提示C匝道賦值 0        回車  （自動(dòng)轉(zhuǎn)向PQX進(jìn)入各項(xiàng)計(jì)算）為了提高計(jì)算速度，現(xiàn)提供Q.4 (5點(diǎn)法加速),以該程序取代原有Q.4,

45、其它無(wú)需改變。取代后按指定區(qū)間反算時(shí)間大約4秒，有興趣的朋友可以試試。Q.4     (5點(diǎn)法加速)If  Z4= 0 : Then 1Z4: IfEndZ4ZG+6Z9: Z4ZG+7Z10( Z9Z10) ÷ （ 2M  Z9Z10）Z13: SZ Z14: Z13Z14Z13: 1 ÷ Z9Z220.1739274226 Z15: 0.3260725774 Z16: 0.0694318442 Z17: 0.3300094782 Z181Z18Z19: 1Z17Z20: 180 ÷

46、 Z21Z3+ Z17Z14(Z22+ Z17Z13) Z21Z17Z3+ Z18Z14(Z22+ Z18Z13) Z21Z18Z3+ Z19Z14(Z22+ Z19Z13) Z21Z19Z3+ Z20Z14(Z22+ Z20Z13) Z21Z20Z3+ Z14 ( Z22+ Z13) Z21WZ1+ Z14 ( Z15cos( Z17) + Z16cos( Z18) + Z16cos( Z19) + Z15cos( Z20) ) +N cos( U + W ) PZ2+ Z14 ( Z15sin( Z17) + Z16sin ( Z18) + Z16sin ( Z19) + Z15sin (

47、 Z20) ) + N sin (U + W) QIf  O = 3 : Then  Goto 2 : IfEndIf  O 0 : Then  Cls : “ XP= ” : Locate 5 , 1 , P : “ YP= ” : Locate 5 , 2 , Q : “ AT= ” : WDMSIfEndZ27I : If  ZI S = 0  And  ZI+1= 0  And N = 0 : Then  P

48、ZI+1: Q ZI+2: W : Prog “ H ” : T ZI+3: IfEndIf  O 1: Then  Pol( PZ11, QZ12) : If  J < 0 : Then J360J : IfEnd : Cls : “ SP= ” : Locate 5 , 1 , I : “ BP= ” : J DMSProg  “ Q. 6 ” : IfEnd Lbl  2需對(duì)程序有更多了解，可點(diǎn)擊附件，看運(yùn)行提示符      

49、;      平 曲 線 程 序 運(yùn) 行 提 示 符CASIO fx5800P 湖南津市 趙濟(jì)漢 啟動(dòng) Q.5 建立曲線要素矩陣存儲(chǔ)表提 示 符示 例說(shuō) 明N ?問(wèn)綜合曲線自然段數(shù)ZMIN?問(wèn)矩陣存儲(chǔ)起始單元NO.I =提示現(xiàn)在自然段DK?問(wèn)本段起點(diǎn)里程X?問(wèn)本段起點(diǎn)縱坐標(biāo)Y?問(wèn)本段起點(diǎn)橫坐標(biāo)AT?問(wèn)本段起點(diǎn)切線方位（以小數(shù)點(diǎn)為度)(1Y+1)?問(wèn)曲線偏向 ， 左賦值1， 右賦值+1,直線可賦0.L?問(wèn)本段曲線長(zhǎng)R1?問(wèn)本段起點(diǎn)曲率半徑R2?問(wèn)本段終點(diǎn)曲率半徑JX1:NO0:OK2?問(wèn)是否校對(duì)，是賦值1 ，否賦值0，本綜合段結(jié)束賦值2

50、。（校對(duì)有誤時(shí)可直接對(duì)顯示值進(jìn)行修改）END重復(fù)以上拾序步,直至本綜合曲線各自然段賦值結(jié)束（賦值2）。特別提示：除起始自然段外，其后，各自然段X, Y, AT可缺省，其值均賦值為0，程序在首次運(yùn)行時(shí)，依次計(jì)算各接點(diǎn)中樁坐標(biāo)一次，則能自動(dòng)補(bǔ)齊各缺省值。這一功能在匝道曲線方程建立時(shí)，十分有利。啟動(dòng) PPQX 選擇需計(jì)算的綜合曲線提 示 符示 例說(shuō) 明ZQX0:ZD1*M?問(wèn)在PPQX程序編寫過(guò)程中，自定義的綜合曲線屬性，如：主曲線賦值0，匝道賦值1,等等。選擇確定后，程序自動(dòng)轉(zhuǎn)向PQX ，無(wú)需選擇時(shí)可直接啟動(dòng)PQX。啟動(dòng) PQX 進(jìn)入坐標(biāo)計(jì)算階段XZ0:YZ1?問(wèn)是否改變以前設(shè)定的工作狀態(tài)，新工作

51、狀態(tài)賦值0，原工作狀態(tài)賦值1。（選擇原工作狀態(tài)時(shí)，程序直接進(jìn)入上階段運(yùn)行狀態(tài)，無(wú)需再次設(shè)置工作與計(jì)算狀態(tài)）BS0:XY1:AND2:DK3: L（I）4?選擇新?tīng)顟B(tài)時(shí)：?jiǎn)栍?jì)算狀態(tài)，極坐標(biāo)放樣賦值0，直角坐標(biāo)賦值1，兩種坐標(biāo)都需要賦值2， 求里程、邊距賦值3，由里程求所在曲線段號(hào)賦值4。選擇原工作狀態(tài)時(shí)不問(wèn)。極 坐 標(biāo) 放 樣問(wèn)計(jì)算狀態(tài)，賦值0時(shí)提 示 符示 例說(shuō) 明X1?問(wèn)設(shè)站點(diǎn)縱坐標(biāo)Y1?問(wèn)設(shè)站點(diǎn)橫坐標(biāo)X2 ?問(wèn)定向點(diǎn)縱坐標(biāo)Y2?問(wèn)定向點(diǎn)橫坐標(biāo)，由原狀態(tài)進(jìn)入時(shí)，以上不問(wèn)。S=B12=給出已知點(diǎn)間邊長(zhǎng)給出定向角DKP?問(wèn)測(cè)點(diǎn)里程（賦值0時(shí)轉(zhuǎn)向程序運(yùn)行終止）B?問(wèn)測(cè)點(diǎn)偏角（以小數(shù)點(diǎn)為度）(+)D

52、÷2?問(wèn)測(cè)點(diǎn)偏距BP=SP=給出測(cè)點(diǎn)方向給出測(cè)點(diǎn)邊長(zhǎng)S?問(wèn)測(cè)點(diǎn)實(shí)測(cè)邊長(zhǎng)（賦值0時(shí)，轉(zhuǎn)向測(cè)設(shè)下一點(diǎn)，問(wèn)測(cè)點(diǎn)里程）BP=S=給出測(cè)點(diǎn)方向給出修正值（為退回、+為延伸）DKP>MAX提示測(cè)點(diǎn)里程超出本綜合段終點(diǎn)里程DKP<MIN提示測(cè)點(diǎn)里程小于本綜合段起點(diǎn)里程END程序運(yùn)行終止 (DKP=0時(shí))直 角 坐 標(biāo) 放 樣問(wèn)計(jì)算狀態(tài)，賦值1時(shí)XY(0) 0: 1?中樁賦值0，邊樁賦值1DKP?問(wèn)測(cè)點(diǎn)里程（賦值0時(shí)轉(zhuǎn)向程序運(yùn)行終止）B?問(wèn)測(cè)點(diǎn)偏角（以小數(shù)點(diǎn)為度），中樁不問(wèn)(+)D÷2?問(wèn)測(cè)點(diǎn)偏距，中樁不問(wèn)XP=YP=AT=給出測(cè)點(diǎn)縱坐標(biāo)給出測(cè)點(diǎn)橫坐標(biāo)給出測(cè)點(diǎn)切線方向END序運(yùn)

53、行程終止 (DKP=0時(shí))兩種坐標(biāo)都需要問(wèn)計(jì)算狀態(tài)，賦值2時(shí)DKP?同上*從略*同時(shí)給出以上兩種結(jié)果END程序運(yùn)行終止 (DKP=0時(shí))由里程求所在曲線段號(hào)問(wèn)計(jì)算狀態(tài)，賦值4時(shí)提 示 符示 例說(shuō) 明DKP?同上L(I), I=DK(MIN)=DK(MAX)=給出里程所在曲線段號(hào)。給出本曲線段最小里程給出本曲線段最大里程本功能只是反求里程的一個(gè)輔助功能，以便程序按指定所在曲線段方式進(jìn)行反算，快速獲得計(jì)算結(jié)果。反求里程邊距問(wèn)計(jì)算狀態(tài)，賦值3時(shí)ZH. D(LI) 0 : NO1問(wèn)反算形式，指定曲線段賦值0、不指定曲線段賦值1。按指定曲線段反算問(wèn)反算形式，賦值0時(shí)。I?問(wèn)曲線段（可慨略指定）X?問(wèn)縱坐

54、標(biāo)（X=0時(shí)，程序運(yùn)行終止）Y?問(wèn)橫坐標(biāo)程序運(yùn)行等待符DKP=D÷2=I?給出求點(diǎn)里程給出求點(diǎn)邊距（正交）問(wèn)下點(diǎn)曲線段END程序運(yùn)行終止 。（X=0時(shí)）特殊情況提示：DK<MIN, L(I1)提示所求點(diǎn)不在本曲線區(qū)間，原段號(hào)應(yīng)減1DKMIN, L(I+1)提示所求點(diǎn)不在本曲線區(qū)間，原段號(hào)應(yīng)加1這一功能的設(shè)置，便于反算點(diǎn)曲線區(qū)間位置不明確時(shí)，也能按指定曲線段形式進(jìn)行反算。特別提示：按指定曲線段形式進(jìn)行反算，有計(jì)算速度快，不存在程序判斷盲點(diǎn)的問(wèn)題，是反算形式的首選。按不指定曲線段反算問(wèn)反算形式，賦值1時(shí)X?問(wèn)縱坐標(biāo) 。（X=0時(shí)，程序運(yùn)行終止）Y?問(wèn)橫坐標(biāo)程序運(yùn)行等待符DKP=D÷2=X?給出求點(diǎn)里程給出求點(diǎn)邊距（正交）問(wèn)下點(diǎn)縱坐標(biāo)特殊情況提示：DKP提示本里程有誤，在程序判斷盲區(qū)，不可采用。L(I), I=給出本點(diǎn)所在曲線段號(hào)。DK(MIN)=DK(MAX)=END, ZH.D（LI）給出本曲線段最小里程給出本曲線段最大里程提示中斷運(yùn)行程序，轉(zhuǎn)向按指定曲線段形式進(jìn)行反算。END程序運(yùn)行終止 。（X=0時(shí)） 2009-