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条综合曲线中根本单元数,每增加一个条综合曲线那么增 加一行 If C=* Z

4、 99 : IfEnd/语句.还应注特别意,原有程序中的矩阵变量定维语句DimZ应取消,只要原有程序中的矩阵变量定维不大于100,原有程序的运行不受影响.子程序Q . 5建立数据库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 网 /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为了实现桥台转轴坐标计算,现(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 ?问转轴偏角(以小数点为度)=> (-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 ? 问涵通偏角以小数点为度二一 + B K?里程差相对于涵通中桩,小里程为、大里程为+,赋值0时转向OK=> -Y + D?问偏距与直角坐标放样时意义一致X=给出点位纵坐标Y=给出点位横坐标OK本转轴各点计算结束,返回直角坐标放样.算例1例某工程C匝道:根据算例数据确定综合曲线属性：令名C.ZD 令编号0令矩阵存起始储单元 Z MIN = 100 综合曲线段数,不含终点N = 4红色数据应在Q.5程序运行时按提示赋值给矩阵存储单元定维：COMP状态下140DimZ编写程序PPQX PROG状态下给定综合曲线属性“ C. ZD - 0 ? C /If C=0: Then 起始单元

22、 100fz 98:段数 4 一Z 99 : IfEnd /Prog “ PQX 启动Q . 5按以下数据建立矩阵存储表COMP状态下按提示赋值,详见附件运行提示符自然段名称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状态下指定需计算的综合曲线编号C. ZD 0 ? 提示C匝道赋值 0回车自动转向PQX进入各项计算为了提升计算速度,现提供 Q.4 5点法加速,以该程序取代原有 Q.4,其它无需改变.取 代后按指定区间反算时间大约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