用全站仪测设公路中桩和边桩程序[转帖] 

由本人从网络是整理而得。供大家使用！！(原程序是这样的，我未加整理，见谅)

程序说明： 
本程序用于用全站仪测设中桩和边桩，采用坐标变换的方法编制而成，在使用fx-4500计算器时，可直接输入以下程序便可使用；而在使用fx-4800计算器时，见fx-4800程序清单。 
注意：因程序的0(零)和O易混淆,所以字母O用较大的全角符号，零仍用标准字。程序输入时应连续输入，无空格。而且输入时文件名需和给出的一样，否则会出现调用文件错误。

变量说明： <程序运算符定义>

X 输入摆站点的x坐标 C 输入第一个曲线角桩x坐标 I 输入中间曲线角桩的x坐标

Y 输入摆站点的y坐标 D 输入第一个曲线角桩y坐标 J 输入中间曲线角桩的y坐标 
E 最后一个曲线角桩x坐标 R 中间曲线半径 L 中间曲线缓和曲线长 
F 最后一个曲线角桩y坐标 K 第一个K为中间角桩桩号 S 中间角桩曲线总长，检验用 
K 第二个K为要测设的桩号 B 测中桩时输入0，测边桩时输入宽度（左输负值，右输正值） 

程 序 清 单
注 释

文件:F1 文件名：1 
L1 
L2 
L3
Defm 8 
XYCDIJEFRLK:Fixm:Z[2]=0:Prog B 
Z[5]=0.5L-L Xy 3/240R2:Z[3]=Z[5]+(R+L2/24R)Abs tan T┛2:Z=K-Ans:S=R Abs Tπ/180+L:S◢H=Z+Ans:G=RL:Prog 2

文件:F2 文件名：2 
L1 
Lbl 0:Fixm:{K} 
L2 
Lbl 6:{B}:Norm:K(-1) Xy Z[2]>(H-L)(-1) Xy Z[2]＝>Goto 4⊿Frac Z[2]┛2=0=>Z[6]=Z:≠>Z[6]=H⊿A=90T/Abs T 
L3 
B<0＝>N=0:≠>N=1⊿B=Abs B 
L4 
０=Abs(K-Z[6]:K(-1) Xy Z[2]>Z[6](-1) Xy Z[2]＝>Goto 2⊿Q=Z[3]+０:Z[4]=B 
L5
B≠0＝>Prog C⊿Prog D:P=0 
L6 
Prog E:Goto 0 
L7 
Lbl 2:０≥L＝>Goto 3⊿ 
L8 
Q=Z[3]-０+０ Xy 5/40G2:Z[4]=０ Xy 3/6G-０ Xy 7/336G Xy 3:Prog D:P=B 
L9 
B≠0＝>Prog F⊿Prog E:Goto 0 
L10 
Lbl 3:Q=Z[3]-Z[5]:Z[4]=R+L2/24R:Prog D 
L11 
Z[8]=U+A(2(０-L)/πR-1+L/πR):B≠0＝>Prog G:≠>P=R⊿Prog E:Goto 0 
L12
Lbl 4:M=C:０=D:C=E:D=F:E=M:F=０:Z[2]=Z[2]+1:Prog B:Goto 6

文件:F3 文件名：0 
L1
Pol(M,０):W<0＝>W=W+360

文件:F4 文件名：B 
L1 
L2
M=E-I:０=F-J:Prog 0:T=W:M=I-C:０=J-D:Prog 0:U=W:T=T-W 
T<-180＝>T=T+360⊿T>180＝>T=T-360

文件:F5 文件名：C 
L1 A=-90(-1) Xy (N+Z[2])

文件:F6 文件名：D 
L1 Z[7]=I-QcosU+Z[4]cos(U+A):Z[1]=J-QsinU+Z[4]sin(U+A)

文件:F7 文件名：E 
L1 
L2
M=Z[7]+PcosZ[8]-X:０=Z[1]+PsinZ[8]-Y:Prog 0 
W◢Fix 3:V◢Norm

文件:F8 文件名：F 
L1
Z[8]=U+A+A０2/πG+90+A(-1) Xy (N+Z[2])

文件:F9 文件名：G 
L1
P=R+AB(-1) Xy (N+Z[2])/90


此处L2句加入： M+X◢０+Y◢可显示测点坐标值