卡西欧FX5800计算器公路测量全线中边桩正反算交点法程序修改版.docVIP

卡西欧FX5800计算器公路测量全线中边桩正反算交点法程序修改版 本程序是本人在承秦高速8标施工中根据蓝星程序2.3更改结果，修正了一些错误，去除一些功能，可以计算路基任意点坐标，设计高程.隧道欠超挖放样计算。支持断链，隧道超欠挖，支持N条线路输入，计算精度1mm.与原程序主要功能（采用交点法方式计算多条线路坐标正反算，要计算复杂线型及立交匝道， 包括C型，S型、卵型、回头曲线等；请使用线元法2-XY。欢迎广大朋友提出建议共同学习。本程序经作者实践证明真情奉献，如需转载请注明出处！作者：张涛 1.主程序：一般坐标计算及放样程序-----交点法程序名:1-JDClrmat：Clrvar:Lal 0:10→DimZ:Norm 2:1→A: ＂A: XY=1,KMD=2＂? A:A=1=Goto 1:A=2=Goto 2: （选择正算还是反算）Lal 1:? Lal A:Prog＂QX＂:（选线，默认（线路1） ?X1=1，（线路2） X2=2......... ? ? ?90→A: ＂PJ＂?A:A→Z[1]: （默认与道路切线方向90度）? Lal B:Do:＂KM＂?Z:Z=-1=Stop:Z=-2=Break: Prog＂K＂:?D:（输入正算计算里程，输入-1则停止，输 ? ? 入- ?2转反算），偏距默认中桩0，左为-，右为+，） ? ? ?Porg＂Z＂:I+Dcos(Z[2]+Z[1]→X:J+Dsin(Z[2]+Z[1]→Y:Fix 3: ＂X=＂:Locate 6,4,X: ＂Y=＂:Locate ? ? 6,4,Y: ＂FWJ＂=:Locate 6,4,Z[2]◢（显示坐标，切线方位角） ? ? Prog “S-Z”: Prog “3-GC”: “H=”：H◢（高程计算并显示，如不需要高程此部分可以省略）?Prog＂5-SD＂:＂-CW +QW=＂:M◢?（隧道超欠挖，如不需要此部分可以省略） ? ? ? ? LpWhile Z≠-1(Goto B此处也可以用这个命令)Lal 2 Prog＂QX＂:?（选线，默认（线路1） ?X1=1，（线路2） X2=2.........） ? ? Lal C:Do:＂KM＂?Z:Z=-1=Stop:Z=-2=Break: （反算时输入大概桩号，输入-1则停止，输入-2正算）Prog＂K＂: ＂X0＂?X: ＂Y0＂?Y: Porg＂B＂Fix 3: ＂KM＂:Lcoate 6,4,Z: ＂D=＂:Locate 6,4,D◢ ? ? Prog “S-Z”: Prog “3-GC”: “H=”：H◢?Prog＂5-SD＂:＂-CW +QW=＂:M◢ ? ? ? ?LpWhile Z≠-1(Goto C此处也可以用这个命令) 2．线路中线元段判别子程序（K）程序名：KIf Z[3]=0:Then Return: IfEnd:If Z[3]=1:Then? Prog “X1”:Return:IfEnd：If Z[3]=2:Then Prog “X2”:Return:IfEnd：If Z[3]=n:Then Prog “Xn”:Return:IfEnd.....（后面可以增加N条线路！！但需要在QX程序里面?＂QX:?=0,X1=1,X2=2，Xn=n＂做更改）。 3．线路选择子程序(线路选择输0时。则输曲线参数（QX）程序名：QX1→A: ＂QX:?=0,X1=1,X2=2＂?A:A→Z[3]:?If A=0:Then ”JDKM”?O:”XJ”?U:”YJ”?V:”FWJ”?G:”ZJ”?P:”LS1”?H:”LS2”?N:?R:IFEnd 4.交点法正算子程序(Z) 程序名：ZH2÷R÷24-H∧(4)÷2688÷R∧(3)+H ∧(6)÷506880÷R∧(5)- H ∧(8)÷154828800÷R∧(7)→A:H÷2-H∧(3)÷240÷R2+H∧(5)÷34560÷R∧(4)-H∧(7)÷8386560÷R∧(6)+H ∧(9)÷3158507520÷R∧(8)→B:(H2-N2)÷24÷R÷sin(Abs(P))-(H∧(4)-N∧(4))÷2688÷R∧(3)÷sin(Abs(P→E: (R+A)tan(Abs(P)÷2)+B-E→T:P÷Abs(P→W:H→C:0→M: (R+N2÷R÷24-N∧(4)÷2688÷R∧(3)÷tan(Abs(P)÷2))+N÷2-N∧(3) ÷240÷R2+E→Z[6]：O-T+ΠR×Abs(P)÷180+H÷2-N÷2→Z[7]:If Z≤O-T:Then Z-O→S:G→Z[2]:Goto 1: IfEnd:If Z≤O-T+H:Then Z-O+T→S:Prog “H