当前位置:甜馍馍地理信息网 >> 测绘科学 >> 测绘仪器 >> 正文 >>  [阅读资讯:全站仪测设公路中桩和边桩程序源代码]

全站仪测设公路中桩和边桩程序源代码

[ 来源:互联网 | 时间:2007年12月04日 | 收藏本文 ] 【

本程序用于用全站仪测设中桩和边桩,采用坐标变换的方法编制而成,在使用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
0=Abs(K-Z[6]:K(-1) Xy Z[2]>Z[6](-1) Xy Z[2]=>Goto 2⊿Q=Z[3]+0:Z[4]=B
L5
B≠0=>Prog C⊿Prog D:P=0
L6
Prog E:Goto 0
L7
Lbl 2:0≥L=>Goto 3⊿
L8
Q=Z[3]-0+0 Xy 5/40G2:Z[4]=0 Xy 3/6G-0 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(0-L)/πR-1+L/πR):B≠0=>Prog G:≠>P=R⊿Prog E:Goto 0
L12
Lbl 4:M=C:0=D:C=E:D=F:E=M:F=0:Z[2]=Z[2]+1:Prog B:Goto 6

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

文件:F4 文件名:B
L1
L2
M=E-I:0=F-J:Prog 0:T=W:M=I-C:0=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:0=Z[1]+PsinZ[8]-Y:Prog 0
W◢Fix 3:V◢Norm

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

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

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

【推荐本文】 【打印本页】 【返回顶部
最新文章
推荐文章