以下为《测量程序整理第N版》的无排版文字预览,完整格式请下载
下载前请仔细阅读文字预览以及下方图片预览。图片预览是什么样的,下载的文档就是什么样的。
1、正算主程序:0---ZBZS
26→DimZ:Fix 3
Lbl 0
"N=1→ZS:N=11→FS"
180÷π→K:"N="?N
"CZX="?A:"CZY="?B:A→Z[17]:B→Z[18] 测站坐标
If N=1:Then Goto 1:IfEnd
If N=11:Then Goto B:Else "===End===":Stop:IfEnd
Lbl1
"ZH="?S:"E="?E:"JL="?Z 输入:桩号、夹角及偏距数据
Prog "ZXDATA" 调用:主线数据库
Abs(S-O)→W:1÷P→C:(P-R)÷(2HPR)→D
Prog "SUB1" 调用:正算计算公式
"ZX=":X%? 计算显示:X
"ZY=":Y%? 计算显示:Y
"TJ=":Z[5]▲DMS%? 计算显示:方位角
Prog "GCDATA" 调用:主线高程数据库
Prog "SUB3" 调用:高程计算公式
“H=":H%? 计算显示:高程
Pol(X-Z[14],Y-Z[15]):Cls
If J<0:Then J+360→J:IfEnd
J→Z[7]:I→Z[6]
"PJ=":Z[6]%? 计算显示:放样距离
"ANG=":Z[7] ▲DMS%? 计算显示:放样方位角
Z[8]→M:Cls:Goto 1
Lbl B
?X:?Y:90→E:X→I:Y→J
Prog "SUB2":"Kxxx+xxx=":O+W→S%?/p>
"D=":Z%?/p>
Goto 0
2、子程序-坐标正算(公式):SUB1
0.***26→Z[1]
0.***74→Z[2]
0.***42→Z[3]
0.33 内容过长,仅展示头部和尾部部分文字预览,全文请查看图片预览。 en H+Abs(Z)×Z[9]→H:IfEnd
If Z≥0:Then H+Abs(Z)×Z[10]→H:IfEnd
5、子程序:ZXDATA(主线平面数据库)
If S≥54972.52 And S≤56764.175:Then ***.474→U:494638.102→V:54972.52→O:143°46°15.9°→G:1791.655→H:10^(45)→P:10^(45)→R:0→Q:IfEnd
…… ……
本程序中:
S:要计算坐标的里程桩号
U:曲线起点X
V:曲线起点Y
O:曲线起点里程
G:曲线起点方位角
H:曲线长度
P:曲线起点半径,直线为10^(45)
R:曲线终点半径,直线为10^(45)
Q:曲线转向方向,左转为-1,右转为1,直线为0
6、子程序:GCDATA(高程数据库)
If S≥0 And S≤150:Then 26.518→B:230.764→G:5351.408→R:0.00166→I:-0.00762→J:-0.015→Z[9]:-0.015→Z[10]:IfEnd
…… ……
本程序中:
S:要计算高程的里程桩号 B:变坡点桩号
G:变坡点高程 R:变坡点半径
I:变坡点前坡坡度 J:变坡点后坡坡度
Z[9]:道路左幅坡度 Z[10]:道路右幅坡度
7、子程序:FSDATA(确定反算范围数据库)
If X≤0.732664Y+***.947 And X≥0.732664Y+***.872
:Then 56000→S:IfEnd
…… ……
8、子程序:ZXZJS(中间式)
Abs(S-O)→W:1÷P→C:(P-R)÷(2HPR)→D
9、路基精平(ZZZZZ,N=1)
[文章尾部最后300字内容到此结束,中间部分内容请查看底下的图片预览]请点击下方选择您需要的文档下载。
以上为《测量程序整理第N版》的无排版文字预览,完整格式请下载
下载前请仔细阅读上面文字预览以及下方图片预览。图片预览是什么样的,下载的文档就是什么样的。