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


程序说明：
　　本程序用于用全站仪测设中桩和边桩，采用坐标变换的方法编制而成，在使用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◢可显示测点坐标值