CASIO fx-5800P放样程序(长链反算).doc

CASIO fx-5800P放样程序 长链反算相对公路而言，城市道路的标段里程比较短，道路设计曲线亦少。由于征地、拆迁等原因，有时城市道路设计亦不可避免的出现断链。编写测量程序，当整条线路只建立一个曲线要素数据库时，相当多数的反算程序反算不出长链后的重复桩号区域，这是由于反算程序计算方法的局限性所导致。编写后，经过四次修改、优化，本程序解决了长链的问题。程序适用于CASIO fx-5800P本程序的反算方法决定了计算速度，当线路弯道越少，反算速度越快；弯道越多，反算速度越慢。因此，本程序用于城市道路比较合适。正算主程序KB-MN11DimZ:?X:?YLbl 1:Fix 3:?K:?B:KZ1:90AProg“PQ-1”:Prog“PQXY”:Z10-KK:M-XI:N-YJ:Prog“C”:Cls:Locate 1,1,“J=”:Locate 4,1, J:Locate 1,2,“I=”:Locate 10,2,I:Locate 1,3,“M=”:Locate 6,3,M:Locate 1,4,“N=”:Locate 7,4,NZ1K:Cls:Goto 1反算主程序MN-KB17DimZLbl 0:Fix 3:?M:?N:MZ1:NZ2:0K:Prog“PQ-1”:Prog“DJ-M”Lbl 1:If Z70:Then KZ7-KK:IfEnd:If KZ6:Then IfAbs(B)100:Then Cls:Locate 1,1,“K=”:Locate 9,2, K:Locate 1,3,“B=”:Locate 10,4,BIfEnd:Else Z6+1K:Prog“PQ-1”:Prog“DJ-M”:Goto 1:IfEnd:Goto 0子程序CI+10-9I:J+10-9J:Pol(I,J:J0J+360J子程序PQXYGAbs(GL:F2(24RP:F2-F(3)(240R2Q:Q+(R+P)Ltan(G2T:RGL180+FI:If KH-T:Then K-HJ:Goto 1:IfEndIf KH-T+F:Then K-H+TJ:1S:Goto 2:IfEndIf KH-T+I-F:Then K-H+TJ:LS:Goto 3:IfEndIf KH-T+I:Then H-T+I-KJ:C+GC:-1S:Goto 2:IfEndIf KH-T+I:Then K-H-I+2TJ:C+GC:Goto 1:IfEndLbl 1:U+Jcos(CM:V+Jsin(CN:CO:Goto 5Lbl 2:C+90J2SL(RFO:S(J-T-J(5)(40R2F2W:L(J(3)(6RF)-J(7)(336R(3)F(3L:Goto 4Lbl 3:180(J-0.5F) (RO:Q-T+Rsin(OW:L(P+R(1-cos(OL:C+OSOLbl 4:U+Wcos(C)-Lsin(CM:V+Wsin(C)+Lcos(CNLbl 5: O+AL:M+Bcos(LM:N+Bsin(LN子程序DJ-MSZ7:90A:ZZ6:GAbs(GE:F2(24RP:F2-F(3)(240R2Q:Q+(R+P)Etan(G2T:RGE180+FZ5:H-T+FK:0B:Prog“PQXY”:MZ3:NZ4:H-T+F+7K:ERB:Prog“PQXY”:Abs(G)-180F(RL:Z3-MI:Z4-NJ:Prog“C”:JA:Z1-MI:Z2-NJ:Prog“C”:IS:A-JJ:J0J+360J:E=-1360-JJ:If J180:Then C+180P:H-TQ:-1O:Goto 3: Else If J360-L:Then C+GP:P0P+360P:H-T+Z5Q:1O:Goto 3:Else H-T+F+R180(360-JK:10(-9)+E(R-SB:IfEnd:Goto 1:IfEndLbl 3:RFA:cos(PC:sin(PF:U+CTD:V+FTW:Z1-DU: Z2-WV:-CU-VFM:UF-CVB:If M0:Then Q-OMK:O=1-BB:Goto 1:IfEnd:If E=O:Then -BL:Else BL:IfEnd:If A=0:Then Q-OMK:O=1-BB:Goto 1:IfEnd:1(16128A(6C:37(20160A(4U:L(40A(3V:1(15A2F:M(8A2N:L(2AH:0ILbl 2:CI(13)-UI(9)+VI(6)-FI(5)+NI(4)-HI2+I-MJ:13CI(12)- 9UI(8)+6VI(5)-5FI(4)+4NI(3)-2HI+1L:I-JLL:If Abs(L-I)0.001:Then LI:Goto 2:IfEnd:Q-OIK:I-I(5)(40A2C:I(3)(6A)-I(7)(336A(3U:-UOEU:M-CI:B-UJ:Pol(I,J:IF:BU-FF:FB:O=1-BBLbl 1数据库子程序PQ-1If K倒数第一条长链前桩号(负值):Then If K倒数第一条长链后桩号(负值):Then -KK:长链后桩号弯道的方位角C:交点X坐标U:交点Y坐标V:缓和曲线长度F:道路转角（左转时输入负值,右转时输入为正值）G:交点桩号H:半径R: Goto 1:IfEnd:IfEndIf K倒数第二条长链前桩号(负值):Then If K倒数第二条长链后桩号(负值):Then -KK: 长链后桩号弯道的方位角C:交点X坐标U:交点Y坐标V:缓和曲线长度F:道路转角（左负,右正）G:交点桩号H:半径R:Goto 1:IfEnd:IfEnd If K0:Then 方位角C:交点X坐标U:交点Y坐标V:缓和曲线长度F:道路转角（左负,右正）G:交点桩号H:半径R:0S:长链前桩号Z（没有长链时，下一曲线ZH点桩号Z）:IfEndIf K第二条曲线长链前桩号(没有长链时，输入本弯道ZH点桩号）:Then方位角C:交点X坐标U:交点Y坐标V:缓和曲线长度F:道路转角（左负,右正）G:交点桩号H:半径R:长链前桩号S（没有长链时，输入0S）:长链前桩号Z（没有长链时，下一曲线ZH点桩号Z）:IfEndIf K最后一条曲线ZH点桩号:Then方位角C:交点X坐标U:交点Y坐标V:缓和曲线长度F:道路转角（左负,右正）G:交点桩号H:半径R:0S: 10(9)Z:IfEndLbl 1 正算主程序KB-MN1输入：X-测站X坐标 Y-测站Y坐标 K-桩号（长链后的重复桩号输入负值） B-距中（左负 右正 中零）结果：J=测站到放样点的方位角 I=测站到放样点的平距 M=放样点X坐标 N=放样点Y坐标若求斜交时边桩坐标，主程序KB-MN中90A修改为斜交角度A若果道路为直线，则数据库子程序PQ-1中直线起点往终点的方位角C:起点或往后某一点的X坐标U:起点或对应的某一点的Y坐标V:0F: 10(-9)G:起点或对应的某一点桩号H: 10(-9)R:0S:10(9)Z反算主程序MN-KB1输入：M-待反算点X坐标 N-待反算点Y坐标结果：K=反算点的桩号（桩号负值时为长链后的重复桩号） B=反算点的距中（左负 右正 中零）例:南宁市玉洞大道（银海大道平乐大道段）工程直线、曲线及转角要素 交点桩号 交点X坐标 交点Y坐标 转角 半径 缓和曲线长度JD1K0+262.1922515018.659534040.642 右111722.55 1000 0 JD2K0+826.1442515281.327534540.412 左34517.12 3000 0 JD3K2+207.0012516004.141535720.854 右311529.7 1500 0 ZY点 QZ点 YZ点 方位角 断链(长链)JD1 K0+163.352 K0+261.872 K0+360.392 505905.94JD2 K0+727.810 K0+826.109 K0+924.408 621628.50 K0+924.408JD3 K1+787.371 K2+196.541 K2+605.710 583111.38 =K0+921.178规定：例：断链K0+924.408=K0+921.178增长3.230米长链前桩号是指K0+924.408，长链后桩号是指K0+921.178数据库PQ-1中，长链前桩号之前的一个弯道输入：0S，长链后桩号之后的一个弯道输入：长链前桩号S求长链后重复桩号(K0+921.178K0+924.408)区域中边桩坐标，如K0+923可输入桩号-923即可。特别强调，请匆随意改变数据库PQ-1中的关系运算符号（如不要改为）则数据库PQ-1If K-924.408:Then If K-921.178:Then -KK: 583111.38C: 2516004.141U: 535720.854V:0F: 311529.7G:2207.001H:1500R: Goto 1:IfEnd:IfEndIf K0:Then 505905.94C: 2515018.659U: 534040.642V:0F: 111722.55 G:262.192H:1000R:0S:727.810Z:IfEndIf K727.810