CASIOfx5800任意平曲線極坐標與直角坐標放樣求里程及邊距

1、CASIO-fx5800 任意平曲線極坐標與直角坐標放樣,求里程及邊距 湖南津市趙濟漢 主程序PQXDeg : Fix 3 :“ XZf 0:YZ 田 f If A = 1: Then Goto 1 : IfEnd /If A = 0 : Then " BSf0:XYr1:ANA 2:DK- 3:L(I) -4 ?O : IfEnd /If O = 4: Then Goto 1 : IfEnd /If O = 3: Then Prog " F.2 XIf 0 : Then Goto 1 : IfEnd : IfEnd /If Ow 1: Then " X1 X :

2、" Y1 Y Y : XZ11: Y Z 12:" X2 ?' P :" Y2/'Q : Pol( P-X , Q-Y) : If J < 0 : Then J + 360 -J: IfEnd : Cis :" SLocate 6 ,1,I :“ B12= : J ?DMS1-B : IfE nd /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 子程序

3、PPQX給定綜合曲線屬性“ ZQX - 0: *- 1: *- 2 * C /Z99 : IfEnd /If C=0: Then 100 rZ 98 : n0If C=1: Then mCZIf C=2: Then m2Z98 : n1 -Z99 : IfEnd /98 : n2 -Z99 : IfEnd /*Prog “ PQX 其中：mi為第i條綜合曲線矩陣變量起始單元,第1條綜合曲線矩陣變量起始單元應 自100開始,以便其他程序臨時使用 100以前的矩陣變量,綜合曲線中每一根本單元需 8個矩陣存儲單元；ni為第i條綜合曲線中根本單元數(shù),每增加一個條綜合曲線那么增 加一行 If C=* Z

4、 99 : IfEnd/語句.還應注特別意,原有程序中的矩陣變量定維語句DimZ應取消,只要原有程序中的矩陣變量定維不大于100,原有程序的運行不受影響.子程序Q . 5建立數(shù)據(jù)庫Deg : Fix 5 /0fI :" N ? W : W9/Z: “工 MIN ？ V : V98/Lbl 1 :"NO.I= ILbl C : V + 8 If0DK ? A : A Z G /“7X ?' B : B fZ G + 1 /Y C : C G +2 /AT ?' D : D Z G +3 /G1Y+1) K : K Z G +4 /L ? E : E Z G +

5、5 /“fR1 / F : F ZG +6 /fR2? O : O Z G +7 /Lbl 2 :“JX 1: NO -0 : OK -2" ? M : IfM = 2 : Then Goto 3 : IfEnd : If M = 1:Then Goto C : IfEnd /I + 1 - I : Goto1 / Lbl 3 :“END子程序Q . 6Lbl 1 :"S ? W WIf= 0 : Then Goto 2 : IfEnd /I卅W : Cis :/$= " : Locate 5,1 , W :“ BP= " 上 J ?DMSGoto 1

6、/ Lbl 2 : Cis :“ OK 子程序Q.1If X = 0 And O = 3 : Then Goto 2 : IfEnd /Lbl 1 : Z 98 I : Z 99 J :" DKP? S/If S = -1: Then Prog “JH . ZJ " : Goto IfEnd /加橋臺轉軸時If S = -2: Then Prog “ZH . 2 : Goto IfEnd / 加涵通轉軸時If S = 0: Then Goto 2 : IfEnd : If S <Z ： I :Then"DKP<MIN " kGoto 1 :

7、IfEnd : If S > Z I + 8 J: Then“DKP>MAX'kGoto 1 : IfEnd /If O w 4 And B 豐 0 : Then “ B ? V : V : Prog "J :T+DLK:2 *次 : Else 0 - N : IfEnd / Prog " Q.2 " : Goto Lbl 2 :“ END 子程序Q . 2If O : Then " " : IfEnd 0rI : Z 98 + 8 - M /If S 冗M 8 And S q M :Then Goto 1 : IfEnd

8、/ Lbl 2 : I +1-I : M + 8 涔 MIf S & Z M :Then Goto 1 : Else Goto 2 : IfEnd /Lbl 1 : If O = 3 : Then I B :IfEnd : M Z27: If O 豐 4 : Then Prog "Q. 3 Else “ LI , I =* : ICls :“ MIN"= : Locate6,1 , Z Z 98 +8 I:" MAX =" : Locate , Z Z 98+8 I +8 :I B : IfEnd /子程序Q . 3If O = 3 And U

9、= 0 : Then B I : IfEnd /Z 98 +8 I G/Z G Z /Z G +1 -Z 1 : Z G +2 -Z 2 : Z G +3 -Z 3 /Z 3 :Prog "J : T 網(wǎng) /Z G +4 -Z 4 : Z G +5 - M : 1 + ZG +6 -Z 5 : 1 2G +7 -Z 6Z 6 Z 5If O = 3 : Then7Z 6 : S Z D /0f N : IfEnd : Prog " Q . 4 /子程序Q .4正算Lbl 0 : 0 rI : 0 -E:0 -F : 0 -G : 0A HLbl 1 : I + 1-I :

10、0 + Z 4 (I D 12) ( Z 5 + I D Z 6 +24+M ) ( 180 + ji ) - 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 : JfEndIf I < 12 : Then Goto 1: IfEnd /Z 1 +(D+36)( cos ( Z 3) + cos ( W ) + 2G + 4E ) + N cos ( U +

11、W )/-PZ 2 +(D+36)( sin ( Z 3) + sin ( W ) + 2H + 4F ) + N sin ( U + W )/-QIf O = 3 : Then Goto 2 : IfEnd /If O 豐 0 : Then Cls :" XP = "： Locate 5,1 , P :“ YP = "： Locate 5,2 , Q :“ ATW?DMS k IfEnd /Z 27I : If Z I S = 0 And Z I + 1 = 0 And N = 0 : Then P Z I + 1 : Q Z I + 2 : W : Prog

12、" H : T H+3 : IfEnd /If O w 1: Then Pol( P-Z 11 , Q-Z 12 ) : If J < 0 : Then J + 360J : IfEnd : Cls : “ SP= " : Locate 5,1 , I :“ BP= " : J ?DMSProg “ Q. 6 "： IfEnd Lbl 2子程序F . 2(反算)“ ZH.D(LI) -0 : NO 1" /? U Lbl 2 : If U = 0 : Then "I ? B : IfEnd Z 98 + 8 Z 99 M /If

13、 X = 0 : Then Z 13X : IfEnd :" X? X =If) : Then Goto 3 : IfEnd /“ Y ? Y : 1 823/If U = 1 : Then - V ( ( X-Z M + 1 ) 2 + (Y -Z M +2 ) 2 )TZ7 : Z 7 +Z MfS : Prog " Q . 2 : IfEndZ 98 + 8 BM : Z M +3 : Prog "J -: T0T /(Y-Z M +2 ) cos (T) ( X Z M + 1 ) Sin (T)一 /If U =1 And Abs ( Z 7 ) &am

14、p; 0.01: Then- 0.01 -Z 7 : IfEnd / Z 7 rD : Z M + D S :If S > Z M +8 : Then Z M +8 S ; IfEnd /If U = 0 : Then Prog "Q . 3 : ElPeog "Q . 2 : IfEnd “3 /Lbl 1 : ( Y -Q ) cos (W 90) (XP) sin (W - 90) - Z 8/ Z + Z 7 + Z 8 f /If Abs ( Z ：8 ) > 0.0001: Then Z7 + Z 8 rD : Prog "Q .4 ： D

15、 ： Goto 1: IfEnd /If U =1: Then If S + 0.01< Z : Then “ DKPw,: SIf B< Z 99 1 : Then B 1 -B : Z Z 98 + 8B -I : Z J : Else Z I :衣 98 + 8 Z 99 rJ: IfEnd :" L(I)= "、： BCls :" MIN= " : Locate 6,1 , I :“ MAX= " : Locate 6 >, ZHJD(LI)" END,=X 13 : 0 7X : 3 O: Goto 3 :

16、 IfEnd: IfEnd /If U =0: Then If S< Z 0.01 : Then “ DK<MIN,L #1)Goto 2 : IfEnd : If S> Z Z 98 + 8(B+1) + 0.01: Then “ DK>MAX , Lf(I+1)Goto 2 : IfEnd : IfEnd /Cls :" DKP= : Loc6tei, S : X-P P : If P =0: Then xi.一9P : IfEnd : Pol( P , Y-Q) : If sin (W J) >0: Then II : IfEnd :“ D + 2

17、= : Locate 6,2, I : GotoLbl 3子程序JAns 七 36 -16 ( Int ( Ans ) )9-Int>(100 (Ans - Int (Ans ) ) ) +90-T子程序H.6 4 Int ( Ans )+. 36 Ans + . 004 Int ( ( 60 ( Ans ( Int (An s ) )-T為了實現(xiàn)橋臺轉軸坐標計算,現(xiàn)(2021.04.19)加一個子程序如下：子程序JH . ZJ(橋臺車軸)“3 B ? V : V : Prog “J : W + T TLbl 1 :"(Y +) D " ? N : N = 0 >

18、;= Goto 2 :"=( +) S ?>SPol(N , S ) : Rec( I ,T -J ) /Cls :"X = "： Locate I + P :“丫 = ： L06ate , J + Q kGoto 1 /Lbl 2 :“ OK ：在子程序 Q.1 中語句 Lbl 1 : Z 98 I : Z 99 J :" DKP 7s加If S = -1: Then Prog “JH. ZJ "： Goto 1 : IfEnd / (加橋臺轉軸時)就可以了, (2021.04.19以加,見綠色標注語句.橋臺(樁基)轉軸直角坐標計算運行

19、提示符直角坐標放樣令DKP=-1時,轉向橋臺(樁基)轉軸直角坐標計算提示符說明以上一測點中樁為中央作偏轉=> B ?問轉軸偏角(以小數(shù)點為度)=> (-Y + ) D? 問偏距(與直角坐標放樣時意義一致).賦值0時轉向OK=(+ ) S?問支距(小里程方向為一,大里程方向為+)X=給出點位縱坐標Y=給出點位橫坐標OK本轉軸各點計算結束,返回直角坐標放樣.子程序ZH . 2涵通轉軸B ? V : V : Prog "J : W + T -TLbl 1 : "= 一 + K？S；S 二 0 二Goto 2 : “£ Y + D ？ NN Cos T + P

20、 - X : N Sin T + Q / 一 YCls :"X = "： L6c4t£ Cos W + X :“ Y = 6, 2 LSc§teW + Y kGoto 1 /Lbl 2 :" OK K'在子程序 Q.1 中語句 If S = - 1: Then Prog “JH . ZJ " : Goto IfEnd /后加If S = -2: Then Prog “ZH . 2 : GotolfEnd / 加涵通轉軸時即可.涵通轉軸直角坐標計算中樁直角坐標放樣令 DKP=-2時,提示符例如說明以上一測點中樁為中央作偏轉=&g

21、t; B ? 問涵通偏角以小數(shù)點為度二一 + B K?里程差相對于涵通中樁,小里程為、大里程為+,賦值0時轉向OK=> -Y + D?問偏距與直角坐標放樣時意義一致X=給出點位縱坐標Y=給出點位橫坐標OK本轉軸各點計算結束,返回直角坐標放樣.算例1例某工程C匝道:根據(jù)算例數(shù)據(jù)確定綜合曲線屬性：令名C.ZD 令編號0令矩陣存起始儲單元 Z MIN = 100 綜合曲線段數(shù),不含終點N = 4紅色數(shù)據(jù)應在Q.5程序運行時按提示賦值給矩陣存儲單元定維：COMP狀態(tài)下140DimZ編寫程序PPQX PROG狀態(tài)下給定綜合曲線屬性“ C. ZD - 0 ? C /If C=0: Then 起始單元

22、 100fz 98:段數(shù) 4 一Z 99 : IfEnd /Prog “ PQX 啟動Q . 5按以下數(shù)據(jù)建立矩陣存儲表COMP狀態(tài)下按提示賦值,詳見附件運行提示符自然段名稱L0L1L2L3L4DK0190355.927472.168561.791X20934.49521066.11921142.85921076.99320988.267Y89274.17289411.18289552.42789640.28689644.485AT47.0817745.0932293.33281160.09323185.50027±1-11110L190165.927116.24189.6230R1

23、550055001001000R25500100100刈.200備注:起始矩陣存儲單元Z 100終了矩陣存儲單元Z 139 .(139 =100 +8 5M)四啟動程序PPQX COMP狀態(tài)下指定需計算的綜合曲線編號C. ZD 0 ? 提示C匝道賦值 0回車自動轉向PQX進入各項計算為了提升計算速度,現(xiàn)提供 Q.4 5點法加速,以該程序取代原有 Q.4,其它無需改變.取 代后按指定區(qū)間反算時間大約4秒,有興趣的朋友可以試試.Q.45點法加速If Z 4 = 0 : Then 17憶4 : IfEnd /Z 4 Z G+6 -Z 9 : Z 4 Z G+7 -Z 10 /(Z 9 -Z 10 ) + ( 2M Z 9 Z 10) -Z 13 : S Z Z 14 : Z 13 Z14 -Z 13 : 1 Z 9 -Z 22 /0.1739274226 ©5 : 0.3260725774Y 住:0.0694318442 V Z : 0.3300094782-Z 18 /20 : 1801-Z 18 -Z 19 : 1-Z 17 rZZ 3 + Z 17Z 3 + Z 18Z 3 + Z 19Z 3