交点法坐标计算程序.docVIP

主程序 JDFZBZFS 17→DimZ: Norm 2:1→A XY=1，FS=2，GC=3,LJKD=4,BPFY=5,BZFY=6”?A:A=1=Goto1:A=2=Goto 2: A=3=Goto 3:A=4=Goto 4: A=5=Goto 5: A=6=Goto 6 LbI 1:Prog ＂DX＂:LbI A:Prog＂QX＂: 90→B: ＂PJ1＂?B:B→C: ＂PJ2＂?C:B→Z[1]:C→Z[8]:LbI B:1→F: ＂KM＂?Z: Prog＂X1＂:?D:Prog＂THB＂:O→L: Z[2]+Z[1]-Z[8] →E:X+L cos(E) →X：Y+Lsin(E) →Y：Prog＂XY＂:Prog＂JS＂:Goto B LbI 2:2→F:90→Z[1] :Prog＂QX＂:LbI C: ＂KM＂?Z:Prog＂X1＂: ＂XO＂?X: ＂Y0＂?Y:Prog＂THB＂：Fix 5:Prog＂ZD＂:Goto C LbI 3:Prog＂QX＂: 0→B: ＂H-B＂?B:B→Z[9]:LbI D: ＂KM＂?Z:?D:Prog＂H＂:Fix 5: ＂H=＂: H-Z[9] →H◢ ＂I=＂:I◢ Goto D LbI 4:Prog＂QX＂:LbI E: ＂KM＂?Z:?D:Prog＂GD＂:Fix 5: ＂ SJGD=＂: Locate 6,4,L:Goto E LbI 5:Prog＂QX＂:0.5→B:＂TH-GD＂?B:B→Z[19]:LbI F:2→F:90→Z[1]:＂KM＂?Z:Prog ＂X1＂：＂X0＂?X: ＂Y0＂?Y: ＂SJGC＂?H: 0→M: ＂M0(YDMGC) ＂?M: Prog＂BP FY＂:Fix 3： S→O: ＂L0=＂:Locate 6,4,O：Prog＂ZD＂:H-M→G:＂TW=＂:Lcoate 6,4,G: Goto F LbI 6:Prog＂DX＂:LbI G:Prog＂QX＂:LbI H:1→F:90→Z[1]:＂KM＂?Z: Goto G:Prog＂X1＂:?D:Prog＂THB＂:Prog＂XY＂:Prog＂JS＂:Prog＂H＂:0→M:＂M0＂?M:Fix 2:H-M→T:＂TW=＂: 6,4,T◢ Goto H 2. 坐标计算次程序（ＴＨB） LbI J: If F=1:Then Prog Z： LbI 1:I+D×COS(Z[2]+Z[1]) →X: J+D×Sin(Z[2]+Z[1]) →Y: LbI 2 3.路基开挖边线及填方坡脚线放样程序 程序名：BP FY LbI H: 13→L:H-M→G: Prog “W1”:If G 0:Then –G →G:Goto W:Else G →G:Goto T LbI W:Z[8]+Z[9]→A: If G A:Then Goto 1:Else If G Z[8]:Then Goto 2:Else Goto 3:IfEnd LbI 1: L+Z[10]+Z[11]+Z[12]+( G -A-( Z[11]+Z[12])×0.03)×Z[7]+Z[9]×Z[6]+Z[8]×Z[5] →S:Goto Z LbI 2: L+Z[10]+Z[11]+( G -Z[8]- Z[11]×0.03)×Z[6]+Z[8]×Z[5] →S:Goto Z LbI 3: L+ G×Z[5]→S:Goto Z LbI T:Z[16]+Z[17] →B：If G B:Then Goto 4:Else If G Z[16]:Then Goto 5:Else Goto 6:IfEnd LbI 4: L+Z[18] ×2+ (G -B-2×Z[18]×0.03）×Z[15]+ Z[17]×Z[14]+ Z[16]×Z[13]→S:Goto Z LbI 5: L+Z[18]+( G -Z[16]- Z[18]×0.03)×Z[14]+Z[16]×Z[13]→S:Goto Z LbI 6: L+ G×Z[13]→S:Goto Z LbI Z 4.极坐放样计算程序(计算放样点至置仪点方位角及距离) 程序名：JS X：Y：Z[11]→K：Z[12]→L：Pol(X-K, Y-L):IF J0:Then J+360→J：IfEnd：Fix 4:” FWJ=”: J◢DMS◢ Fix 5:” S=”: I◢ 程序名：ZD Fix 3:＂　ＫＭ＝＂ ＂＝＂ 5.交点法正算子程序() 程序名：Z H2÷R÷24-H∧(4) ÷2688÷R∧(3)→A(圆曲线内移量H表示缓和曲线长) H÷2-H∧(3) ÷240÷R2→B（切垂距） （（H2-N2）÷÷R）÷(4))/2688/R∧(3)) ÷Sin(Abs(P))→E (R+A)t