输入图纸中的整个标段交点要素,输入桩号及距中桩距离正算本标段任意点坐 标,及极坐标放样的方位角及距离;由输入大概桩号及实测坐标,反算准确桩号及距中
桩距离。(绿为程序名,蓝为输入计
算器里的内容
1、 主程序
程序名:1XY-KM
Lbl 0:7 f DimZ:Norm 2:1 — A:"A:X,Y=1,KM,D=2"?A:
A=1=>Goto 1:A=2=>Goto 2:LbI 1:LbI A:Prog"QX":90 — B:" PJ"?B:B — Z[1]:LbI
B:"KM"?Z:Z= -1=>Goto 0:Z=-2=>Goto A: Prog"X1":?D: Prog
"Z":I+D x COS(Z[2]+Z[1] — X: J+D x Sin(Z[2]+Z[1] — Y: F ix 3:"X=":Locate 6,4,
X:"Y=":Locate 6,4,Y:丄
Goto B:
LbI 2:Prog"QX":"KM"?Z:LbI C: Prog"X1": " XO"?X:X=-1=>Goto 0:X=-2=>Goto
2: "Y0"?Y:Prog "ZX": Fix 3:"KM=":Locate 6,4,Z:"D=":Locate 6,4,D 丄
Goto C
2.交点法正算子程序(Z
程序名:Z
H2申十高攀1v 1h24-H A (4 毘688采人(3 — A:H 十-H A (3 - 240- R2— B:
((H2-N2
吃44R十Sin(Abs(P-((H A (4-N A (4 毘688 采人(3 £in(A
bs(P — E:(R+Atan(Abs(P - 2EB>T:P - Abs(P—W:XM:HRC: (R+N2 - R--24
NA (4 乞6884R A (3ta n( Abs(P 2+N-2-N A (3 - 240 - R2+i Z[6O-
T+n RX Abs(P - 180+H-N2 2—Z[7]:lf Z -歪Then Z-C— S:G— Z[2]:Goto 1: IfEnd: If ZWO-T+H:Then Z-0+■— S:Prog “HX' :G+WK— Z[2]:AT— A:G— E:Goto 2:IfEnd:lf
Z< Z[7]: Then 180(Z0+T-0.5H - R-n— S :
A+R(1-Cos(S— B:H-2 A (3
-240- R2+Rsin(S — A:R— M:G+W—Z[2]: AT— A:G— E :Goto 2:
IfEn d:
If Z < Z[7]+N:Then Z[7]+-Z极压高温润滑脂4g手机电子围栏— S:Z[6] — T :N — H:Prog
“ HX' :G+P— E:-WK— Z[2]:T -A— A:C— H:Goto 2:IfEnd:
Z-Z[7]- N+Z[6] — S:G+P— Z[2]: LbI
1:U+Scos(Z[2] — I:V+Ssi n(Z[2] — J: Return:LbI
2:U+Acos(E-WBsi n(E—I:V+ASi n(E+WBcos(E —J
3.交点法缓和段子程序(HX
程序名:HX
S-SA (5 -04R2HH2+SA (9 -4564R A (4 HA (4 — A:SA (3 6—RHH-
SA (7 -336-R A (3 猎结构-H A (3+SA (11 ^2240-R A (5
-H A (5 — B:90S2 -n - R- H— K:RH十 S—M
4.交点法反算子程序(ZX
程序名:ZX
0— D:Do:Z+D—Z:Prog “Z” :Pol(XY-J+.000000001:J-Z[2] — J:l
sin(J — S:lcos(J — D: If M 工 0:Then
Pol(M-WS,D:JMn十 180— D:IfE nd: LpWhile
Abs(D>0.001:Z+D — Z:S —D
5.线路选择子程序(线路选择输0时。则输曲线参数(QX
程序名:QX
1— A: ” QX:?=0,X1=1,X2=2 ” ?A:A—Z[3]:
If
A=0:Then ” JDKM ?O:” XJ” ?U:” YJ” ?V: ” FW ?G:” LS1” ?H:“
LS2” ?N:“JDZJ” ?P:?R:lfEnd
6.坐标计算参数矩阵调出子程序(F
程序名:F
Mat F[1,1] — O: Mat F[1,2] — U: Mat F[1,3] — V: Mat F[1,4] — G: Mat F[1,5] — H:
Mat F[1,6] — N: Mat F[1,7] — P: Mat F[1,8] —R
7.数据子程序(根据自己标段设计数据修改红部分
程序名:X1(坐标计算要素程序,暂例子只给二条线路参数
纳豆菌种Z[3]=0=>Return:Z[3]=1=>Goto 1:Z[3]=2=>Goto 2: LbI 1:If Z < 122269.856:The n
[[121656.952, 2603848.019, 508351.147, 98 ° 53彩钢管' 22.6 〃 ,660,300, 41 ° 47' 44.1 〃 ,
1415.097]] — Mat F: Prog ” F” : FRfiEtodn :