路桥施工测量计算程序设计与应用.pdfVIP

FHXPSzhu（主程序）

1.ZS,2.FS?→Q输入1正算，输入2反算

“NEW=0,OLD≠0”?Z:IfZ=0:Then“X0=”?A:“Y0=”?B:“C0=”?C:“1/R0=”?D:

“1/RI=”?E:“SP=”?F:“EP=”?G:Ifend:Q=2=Goto2

Lbl1:“KM=,0STOP”?H:H0=STOP:“PJ=”?O:“PY=”?L

LblZ:Z=1=Prog“01”：Z=2=Prog“02”:Fix3

H-F→M：（E-D）/（G-F）*M→N:C+（N+2D）M*90/π→P：P0=P+360→P

A+M(cos(C)+4∑cos(C+7.5*(2K+1)M((2K+1)N/12+2D)/π),K,0,5)+2∑

(cos(C+15KM(KN/6+2D)/π),K,1,5)+cos(P))/36+Lcos(P+O)→X

B+M(sin(C)+4∑sin(C+7.5*(2K+1)M((2K+1)N/12+2D)/π),K,0,5)+2∑

(sin(C+15KM(KN/6+2D)/π),K,1