测量程序正算

文件名：QX （计算圆曲线或缓和曲线中点、法线点坐标）

Defm1

Z"FX=Z:Y"= 线路前进方向左转输1，右转输2

F"F1"= 直缓点往交点切线方位角 

K"F2"= 缓直点往交点切线方为角

H"H1"= 第一段缓和曲线长

Z［1］"H2"= 第二段缓和曲线长

R= 半径

A"ZHX"= 直缓点Ｘ坐标

B"ZHY"= 直缓点Ｙ坐标

V"ZH"= 直缓点里程

○"HY"= 缓圆点里程

U"YH"= 圆缓点里程

C"HZ"= 缓直点里程

W"HZX"= 缓直点Ｘ坐标

S"HZY"= 缓直点Ｙ坐标

D＜V＝＞Goto4: ≠       ＝＞D≥V＝＞D ≤O＝＞Goto1: ≠        ＝          ＞D ≤U＝＞Goto2: ≠        ＝          ＞D ≤C＝＞Goto3：≠        ＝          ＞Goto4　8　

Ｌb1 1 :L=D-V: X=L- L∧5÷(40（HR）2)+ L∧9÷3456÷（RH）∧4: Y= L∧3÷(6HR)- L∧7÷336÷R∧3÷H∧3+ L∧11÷42240÷（RH）∧5: Q=F+90+90 L2÷(RHπ): Z=1＝＞Y=-Y: Q =F+90-90 L2÷(RHπ)ΔQ＞360＝＞Q=Q-360ΔM=A+XcosF- YsinF: N=B+XsinF+YcosF:X=EcosQ+M:X"X="◢

Y=EsinQ+N:Y"Y="◢

Q"Q="◢

Goto 4

Ｌb1 2 : L=D-O:M=H÷2-H∧3÷(240R2):P=H2÷24÷R-H∧4÷(2688R∧3):J=L×180÷R÷π+（90H÷(Rπ)): X=Rsin J+ M:Y=R(1-cosJ)+P: Q=F+90+90(H+2L)÷(Rπ):Z=1＝＞Y=-Y:Q=F+90

-90(H+2L)÷(Rπ)ΔQ＞360＝＞Q=Q-360ΔM=A+XcosF-YsinF:N=B+XsinF+ YcosF:X=EcosQ+M:

X"X="◢

Y=EsinQ+N:Y"Y="◢

Q"Q="◢

Goto 4

Ｌb1 3: L=Abs(D-C):X=L-L∧5÷(40(Z［1］R)2)+L∧9÷3456÷（R Z［1］）∧4:Y=L∧3÷(6Z［1］R)-L∧7÷336÷R∧3÷Z［1］∧3+L∧11÷42240÷（R Z［1］∧5 :Q=K+270+90 L 2÷(R Z［1］π): Z=2＝＞Y=-Y:Q

=K+270-90L 2÷(R Z［1］π)ΔQ＞360＝＞Q=Q-360ΔM=W+XcosK- YsinK: N=S+XsinK+ YcosK:X=E

cosQ+M:X"X="◢

Y=EsinQ+N:Y"Y="◢

Q"Q="◢

Goto 4

Ｌb1 4:""

说明：1 计算时D为待求点里程， E为偏距左负、右正 。