5800交点正反算坐标（可计算不对称缓和曲线）.docVIP

主程序 程序名：1XY-KM LbI 0:5→DimZ：Norm 2:1→A：＂A:X,Y=1，KM,D=2＂?A: A=1=Goto 1:A=2=Goto 2: LbI 1：Prog ＂DX＂:LbI A:Prog＂QX＂:90→B:＂PJ＂?B:B→Z[1]：LbI B:＂KM＂?Z:Z= -1=Goto 0:Z=-2=Goto A:Z=-3=Goto X :Prog＂KM＂:?D: Prog Z:I+D×COS(Z[2]+Z[1]) →X: J+D×Sin(Z[2]+Z[1]) →Y: Ｆix 3:＂ Ｘ=＂：Locate 6,4,Ｘ：＂ Ｙ＝＂：Locate 6,4,Ｙ：Prog＂JS＂:Goto B: LbI 2：Prog＂QX＂:90→Z[1]：LbI C:＂KM＂?Z:Z=-1=Goto 0:Z=-2=Goto 2:Z=-3=Goto X :Prog＂KM＂: ＂XO＂?X: ＂Y0＂?Y:Prog ＂ZX＂: Fix 3:＂　ＫＭ＝＂＂　＝＂. 交点法正算子程序() 程序名：Z H2÷R÷24-H∧(4)÷2688÷R∧(3)→A:H÷2-H∧(3)÷240÷R2→B:（（H2-N2）÷÷R）÷(4))÷2688÷R∧(3)) ÷Sin(Abs(P))→E:(R+A)tan(Abs(P)÷2)+B-E→T:P÷Abs(P) →W:0→M:H→C: If Z≤O-T:Then Z-O→S:G→Z[2]:Goto 2: IfEnd: If Z≤O-T+H:Then Z-O+T→S:Prog “HX”:G+WK→Z[2]:Goto 4:IfEnd: If Z≤O-T+ΠR×Abs(P)÷180+H÷2-N÷2: Then 180(Z-O+T-0.5H) ÷R÷Π→S : A+R(1-Cos(S))→B:H÷2-H∧(3) ÷240÷R2+Rsin(S)→A:R→M:G+WS→Z[2]:Goto 4: IfEnd: O-T+ΠR×Abs(P)÷180+H÷2+N÷2-Z→S:(R+N2÷R÷24-N∧(4)÷2688÷R∧(3))tan(Abs(P) ÷2)+N÷2-N∧(3) ÷240÷R2+E→T :N→H:Prog “HX”:G+P→S:S-WK→Z[2]:U+(T-A)Cos(S)-WBSin(S)→I:V+(T-A)Sin(S)+WBcos(S)→J:Goto 3: LbI 4:U+(A-T)cos(G)-WBsin(G)→I:V+(A-T)Sin(G)+WBcos(G) →J: Goto 3: LbI 2:U+Scos(Z[2])→I:V+Ssin(Z[2]) →J: LbI 3:C→H 3. 交点法缓和段转化子程序() 程序名：HX S-S∧(5) ÷40÷R2÷H2+S∧(9) ÷3456÷R∧(4) ÷H∧(4)→A:S∧(3) ÷6÷R÷H-S∧(7) ÷336÷R∧(3) ÷H∧(3)+S∧(11) ÷42240÷R∧(5) ÷H∧(5)→B:90S2÷Π÷R÷H→K:RH÷S→M 4. 交点法反算子程序() 程序名：ZX Z:0→D:LbI 0:Prog “Z”:Pol(X-I,Y-J):J-Z[2] →J:Isin(J) →S:Icos(J) →I:If Abs(I)0.01:Then Z+I→Z:S→D:Goto 2:Else Goto 1: LbI 1:If M=0:Then Z+I→Z:Goto 0:Eles Pol(M-WS,I):(JMΠ)/180→I:Z+I→Z:Goto 0:IfEnd LbI 2 5．线路选择子程序(线路选择输0时。则输曲线参数（QX） 程序名：QX 1→A:”QX:？=0，X1=1”?A:A→Z[3]: If A=0:Then Goto 1:Else Goto 2: IfEnd: LbI 1:”JDKM”?O:”XJ”?U:”YJ”?V:”FW”?G:”LS1”?H:?“LS2”？N：“JDPJ”？P:?R:LbI 2 6．坐标计算参数转化子程序（F） 程序名：F Mat F[1,1]→O: Mat F[1,2]→U: Mat F[1,3]→V: Mat F[1,4]→G: Mat F[1,5]→H: Mat F[1,6]→N: Mat F[1,7]→P: Mat F[1,8]→R 7．导线点子程序（DX） 程序名：DX Z[4]→K:Z[5]→L:“XZ”?K:”YZ”?L:K→Z[4]:L→Z[5] 8．线路中线元段判别子程序（KM） 程序名：KM If Z[3]=0:Then Goto 0:Else If Z[3]=1:Then Prog “X1”: LbI 0 9：极坐放样计算程序(计算放样点至置仪点方位角及距离) 程序名：JS X：