很多朋友对于卡西欧FX-5800P坐标正反算程序怎么编辑和5800八字墙放样不太懂,今天就由小编来为大家分享,希望可以帮助到大家,下面一起来看看吧!
本文目录
卡西欧FX-5800P坐标正反算程序怎么编辑卡西欧FX-5800P坐标正反算程序怎么编辑,我刚买的计算器,谢谢!卡西欧FX-5800P坐标正反算程序怎么编辑正算子程序(ZS)(不运行)
1÷P→C:(P-R)÷(2HPR)→D: 180÷π→E←┚
0.1739274226→A: 0.3260725774→B: 0.0694318442→K: 0.3300094782→L: 1-L→F: 1-K→M:U+W(Acos(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD))+Bcos(G+QEFW(C+FWD))+Acos(G+QEMW(C+MWD)))→X: V+W(Asin(G+QEKW(C+KWD))+Bsin(G+QELW(C+LWD))+Bsin(G+QEFW(C+FWD))+Asin(G+QEMW(C+MWD)))→Y: G+QEW(C+WD)+90→F: X+ZcosF→X: Y+ZsinF→Y
3反算子程序(FS)(不运行)
G-90→T: Abs((Y-V))cos(T)-(X-U)sin(T)→W: 0→Z←┚
Lbl 0←┚
prog"ZS":T+QEW(C+WD)→L:(J-Y)cosL-(I-X)sinL→Z:If Abs(Z)<0.001: Then Goto1:Else W+Z→W:IfEnd:Goto 0←┚
Lbl 1: 0→Z:Prog"ZS":(J-Y)÷sinF→Z
ZX-WN(运行主程序,该程序适用于匝道,对全段完整非对称曲线计算太过麻烦)
"CZX"?S(仪站X坐标):"CZY"?W(仪站Y坐标)
LbI 0:"K"?K: If K≤126.9(第1条单一曲线的终点下面同上): Then Goto A:Else If K≤176.9 And K>126.9: Then Goto B:Else If K≤259.562 And K>176.9: Then Goto C:Else If K≤309.562 And K>259.562: Then Goto D: IfEnd:IfEnd:IfEnd:IfEnd←┚
LbI A:92094.336(起点X坐标)→U:8287.962(起点Y坐标)→V:0起点桩号→O:145°11'54"(方位角)→G:126.9(曲线长度)→H:10^(45)(起点半径)→P:10^(45)(止点半径)→R:+1(路线左右偏,左负右正,直线输0)→Q:Prog"WN":Goto W
LbI B:91990.134→U:8360.388→V:126.9→O:145°11'54"→G:50→H:10^(45)→P:150→R:+1→Q:Prog"WN":Goto W
LbI C:91947.609→U:8386.570→V:176.9→O:154°44'51"→G:82.662→H:150→P:150→R:+1→Q:Prog"WN":Goto W
LbI D:91867.101→U:8399.992→V:259.562→O:186°19'19"→G:50→H:150→P: 10^(45)→R:+1→Q:Prog"WN":Goto W
LbI W:"PJ1"?T←┚(该项是只左右边桩再左右偏距,输0为不再左右偏,可以直接出方位角、距离,适用于桥梁桥台、盖梁、涵洞八字墙等放样,以路线前进方向,前-,后+)
If T=0:Then Z[3]→Z: Z[4]→M: Goto P: Else Goto V: IfEnd←┚
LbI V:"JJ1"? O←┚(左右边桩再偏夹角,用180°减去路线夹角)
"X1=": Z[3]+Tcos(F+N+ O)→U◢
"Y1=":Z[4]+Tsin(F+N+ O)→V◢
U→Z: V→M: GotoP←┚
LbI P:Pol(Z-S,M-W): If J≤0:Then J+360°→J: IfEnd←┚
"JL=":I◢(仪站至测点的距离)
"FWJ=":J DMS◢(仪站至测点的方位角)
Goto0
备注:
1.规定以道路中线前进方向(即里程增大的方向)区分左右;当线元往左偏时Q=-1;当元线往右偏时,Q=1:当元线为直线时,Q=0。
2.当线元为直线时,其起点、止点的曲率半径为无穷大,以10的45次方代替。
3.当线元为圆曲线时,无论其起点、止点与什么线元相接,其曲率半径均等于
卡西欧FX-5800P坐标正反算程序怎么编辑,我刚买的计算器,谢谢!正算子程序(ZS)(不运行)
1÷P→C:(P-R)÷(2HPR)
→D:
180÷π→E←┚
0.1739274226→A:
0.3260725774→B:
0.0694318442→K:
0.3300094782→L:
1-L→F:
1-K→M:U+W(Acos(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD))+Bcos(G+QEFW(C+FWD))+Acos(G+QEMW(C+MWD)))→X:
V+W(Asin(G+QEKW(C+KWD))+Bsin(G+QELW(C+LWD))+Bsin(G+QEFW(C+FWD))+Asin(G+QEMW(C+MWD)))→Y:
G+QEW(C+WD)+90→F:
X+ZcosF→X:
Y+ZsinF→Y
3反算子程序(FS)(不运行)
G-90→T:
Abs((Y-V))cos(T)-(X-U)sin(T)→W:
0→Z←┚
Lbl
0←┚
prog"ZS":T+QEW(C+WD)→L:(J-Y)cosL-(I-X)sinL→Z:If
Abs(Z)<0.001:
Then
Goto1:Else
W+Z→W:IfEnd
:Goto
0←┚
Lbl
1:
0→Z:Prog"ZS":(J-Y)÷sinF→Z
ZX-WN(运行主程序,该程序适用于匝道,对全段完整非对称曲线计算太过麻烦)
"CZX"?S(仪站X坐标):"CZY"?W(仪站Y坐标)
LbI
0:
"K"?K:
If
K≤126.9(第1条单一曲线的终点下面同上):
Then
Goto
A:Else
If
K≤176.9
And
K>126.9:
Then
Goto
B:Else
If
K≤259.562
And
K>176.9:
Then
Goto
C:Else
If
K≤309.562
And
K>259.562:
Then
Goto
D:
IfEnd:IfEnd:IfEnd:IfEnd←┚
LbI
A:92094.336(起点X坐标)→U:8287.962(起点Y坐标)→V:0起点桩号→O:145°11'54"(方位角)→G:126.9(曲线长度)→H:10^(45)
(起点半径)→P:10^(45)
(止点半径)→R:+1(路线左右偏,左负右正,直线输0)→Q:Prog
"WN":Goto
W
LbI
B:91990.134→U:8360.388→V:126.9→O:145°11'54"→G:50→H:10^(45)
→P:150
→R:+1→Q:Prog
"WN":Goto
W
LbI
C:91947.609→U:8386.570→V:176.9→O:154°44'51"→G:82.662→H:150
→P:150
→R:+1→Q:Prog
"WN":Goto
W
LbI
D:91867.101→U:8399.992→V:259.562→O:186°19'19"→G:50→H:150
→P:
10^(45)
→R:+1→Q:Prog
"WN":Goto
W
LbI
W:"PJ1"?T←┚(该项是只左右边桩再左右偏距,输0为不再左右偏,可以直接出方位角、距离,适用于桥梁桥台、盖梁、涵洞八字墙等放样,以路线前进方向,前-,后+)
If
T=0:Then
Z[3]→Z:
Z[4]→M:
Goto
P:
Else
Goto
V:
IfEnd←┚
LbI
V:"JJ1"?
O←┚(左右边桩再偏夹角,用180°减去路线夹角)
"X1=":
Z[3]+Tcos(F+N+
O)→U◢
"Y1="
:Z[4]+Tsin(F+N+
O)→V◢
U→Z:
V→M:
GotoP←┚
LbI
P:Pol(Z-S,M-W):
If
J≤0:Then
J+360°→J:
IfEnd←┚
"JL=":I◢(仪站至测点的距离)
"FWJ=":J
DMS◢(仪站至测点的方位角)
Goto0
备注:
1.
规定以道路中线前进方向(即里程增大的方向)区分左右;当线元往左偏时Q=-1;当元线往右偏时,Q=1:当元线为直线时,Q=0。
2.
当线元为直线时,其起点、止点的曲率半径为无穷大,以10的45次方代替。
3.
当线元为圆曲线时,无论其起点、止点与什么线元相接,其曲率半径均等于
关于卡西欧FX-5800P坐标正反算程序怎么编辑和5800八字墙放样的介绍到此就结束了,不知道你从中找到你需要的信息了吗 ?如果你还想了解更多这方面的信息,记得收藏关注本站。