三心圆隧道超欠挖fx-5800程序..docVIP

三心圆隧道超欠挖fx-5800程序 三心圆隧道超欠挖fx-5800程序文件名:SXYSDSQWLb10(12→DimZ(8.6→Z[1]:6.5→Z[2]:1.5→Z[3]:1.485→Z[4]:0.410→Z[5]:0.658→Z[6]:6.416→Z[7]:6.081→Z[8]: ‖D=‖？D: ‖H=‖？H:D+Z[5]→Z[9]:D+Z[8]→Z[10](IfH≤Z[9]:ThenGoto1:ElseIfH≤Z[10]:ThenGoto2:ElseIfH≥Z[10]:ThenGoto3:IfEnd:IfEnd:IfEnd(Lb1 1Z[7]+√(Z[3]2-(D+Z[6]-H)2)→Z[11]:Goto 4Lb1 2Z[4]+√(Z[2]2-(D+Z[4]-H)2)→Z[11]:Goto 4Lb1 3√(Z[1]2-(H-D)2)→Z[11]:Goto 4Lb1 4“Z[12]=”:Z[11]◢程序说明:本程序按本标段实际情况编制,适用于三心圆隧道,由于第三半径包含范围小及所处水沟范围内,未编入程序内,该程序配合全站仪使用,隧道断面测量时,将全站仪置在该断面里程点中线上,测出断面上任一点三维坐标,数据输入计算 CASIO fx-5800P放样程序（刷新） 正算主程序[KB-MN]“1,2,3,4,5”?Z:?X:?YLbl 1:Fix 3:?K:?B:90→AZ=1＝＞Prog“PQ-1”Z=2＝＞Prog“PQ-2”Z=3＝＞Prog“PQ-3”Z=4＝＞Prog“PQ-4”Z=5＝＞Prog“PQ-5”Prog“PQXY”:M-X→I:N-Y→J:Prog“C”:Cls:Locate 1,1,“J=”:Locate 4,1, J°:Locate 1,2,“I=”:Locate 10,2,I:Locate 1,3,“M=”:Locate 8,3,M:Locate 1,4,“N=”:Locate 8,4,N◢Cls:Goto 1反算主程序[MN-KB]2→DimZ:“1,2,3,4,5”?Z:?K Lbl 0:Fix 3:?M:?N:M→Z[1]:N→Z[2]Lbl 1:90→A:0→BZ=1＝＞Prog“PQ-1”Z=2＝＞Prog“PQ-2”Z=3＝＞Prog“PQ-3”Z=4＝＞Prog“PQ-4”Z=5＝＞Prog“PQ-5”Prog“PQXY”:Pol(Z[1]-M+×10-9,Z[2]-N+×10-9:Isin(L-J→A:Icos(L-J→BIf Abs(A)＞0.001:Then K+A→K:Goto 1:Else Cls:Locate 1,1,“K=”:Locate 9,2, K:Locate 1,3,“B=”:Locate 10,4,B◢IfEnd:Goto 0子程序[C]I+×10-9→I:J+×10-9→J:Pol(I,J:J＜0＝＞J+360→J子程序[PQXY]G÷Abs(G→E:F2÷(24R→P:F÷2-F＾(3)÷(240R2→Q:Q+(R+P)Etan(G÷2→T:πRGE÷180+F→I:If K≤H-T:Then K-H→J:Goto 1:IfEndIf K≤H-T+F:Then K-H+T→J:1→S:Goto 2:IfEndIf K≤H-T+I-F:Then K-H+T→J:1→S:Goto 3:IfEndIf K＜H-T+I:Then H-T+I-K→J:C+G→C:-1→S:Goto 2:IfEndIf K≥H-T+I:Then K-H-I+2T→J:C+G→C:Goto 1:IfEndLbl 1:U+Jcos(C→M:V+Jsin(C→N:C→O:Goto 5Lbl 2:S(J-T-J＾(5)÷(40R2F2→W:E(J＾(3)÷(6RF)-J＾(7)÷(336R＾(3)F＾(3→LC+90J2SE÷(πRF→O:Goto 4Lbl 3:180(J-0.5F) ÷(πR→O:Q-T+Rsin(O→W:E(P+R(1-cos(O→L:C+OE→O:Goto 4Lbl 4:U+Wcos(C)-Lsin(C→M:V+Wsin(C)+Lcos(C→N:Goto 5Lbl 5: O+A→L:M+Bcos(L→M:N+Bsin(L→N数据库子程序[PQ-1]If K≤第一条弯道终点桩号:Then曲线起点切线方位角→C:交点X坐标→U:交点Y坐标→V:缓和曲线长度→F:道路转角（右转时输入为正值，左转时输入负值）→G:交点桩号→H:半径→R:Return:IfEndIf K≤下一条弯道终点桩号:Then曲线起点切线方位角→C:交点X坐标→U:交点Y坐标→V: