”ZS=1,FS=2”?N: 1÷P →C:(P-R)÷(2HPH)→D:180÷π→E: If N=1: Then Goto 1: Else Goto 2: IfEnd←┚
LbI 1:1 →I:0 →Z:Abs(K-O) →W: Prog”ZS”←┚
F-90→F←┚
”JJ”?K:”PJ”?L: ”ZX=”:X+Lcos(F+K) →Z[3]◢
”ZY=”: Y+Lsin(F+K) →Z[4]◢
”QXFWJ=”:F DMS◢念此
Abs(Z) →Z:Goto 8←┚
LbI 2:”X”?I:”Y”?J: Prog”FS”:”FSZH=”:O+W→K◢
”FSJL=”:Z◢
Lbl 8
正算子程序(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. 当线元为圆曲线时,无论其起点、止点与什么线元相接,其曲率半径均等于圆弧的半径。
4. 当线元为完整的缓和曲线时,起点与直线相接时,曲率半径为无穷大,以10的45次方代替。与圆曲线相接时,曲率半径等于圆曲线的半径,止点跟直线相接时,曲率半径为无穷大,以10的45次方代替;与圆曲线相接时,曲率半径等于圆曲线的半径。
5. 当线元为非完整缓和曲线时,起点与直线相接时,曲率半径等于设计规定的值;与圆曲线衔接时,曲率半径等于圆曲线的半径。止点与直线相接时,曲率半径等于设计规定的值;与圆曲线衔接时,曲率半径等于圆曲线的半径。
二、运行跟输入与显示说明
1.运行:ZX-WN
2.显示“CZX”输入测站:X坐标,显示“CZY”输入测站:Y坐标
3.显示:“K”输入所计算的桩号
4、显示“ZS=1,FS=2”,选择计算方式,输入1正算;输入2反算
5.输1开始正算
6.显示“JJ”正交输90,斜交输跟路线的夹角
7.显示“PJ”输入边桩偏距,左负右正,中桩输0
8.显示“ZX=”所求点的X坐标
9.显示“ZY=”所求点的Y坐标
10.显示“QXFWJ”所求点的切线方位角
11.显示“PJ1” 所求点再骗距离,输0为不再左右偏,可以直接出方位角、距离,本项适用于桥梁桥台、盖梁、涵洞八字墙等放样,以路线前进方向,左+,右-。只限于直线)
12. 显示“JJ1”再偏输入夹角(正交输90,)
13. 显示“X1”所求点X坐标
14. 显示“Y1”所求点Y坐标
15. JL=仪站与测点的距离
16. FWJ=仪站与测点的方位角
17. 反算时输入:显示“显示“ZS=1,FS=2”,选择计算方式,输入2反算
18. 显示“X?”输入反算时所求点的X坐标
19. 显示“Y?”输入反算时所求点的Y坐标
20. 显示FSZH=反算时,计算得出的所求点的里程
30. 显示FSJL=反算时,计算得出的所求点的边距(负为左偏,正为右偏)
二、坐标正算的程序LINE1∶X“HZB”
:Y“ZZB”
LINE2∶A=REC(S,T)
+X
◢
LINE3∶B=Y+V
注释∶LINE1(第一行)输入坐标X、Y值;
LINE2中函数REC()是计算器提供的由距离及角度的极坐标到X、Y直角坐标的变换函数。当运行时会提示输
入S(距离),T(方位角尺饥)值,计算出X增加值后加上原X值存于A中;
LINE3为原Y值加上增加值V存于B中。
◢
为程序暂停显示的符号,由2ndF和↑键产生;
三、坐标反算的程序
LINE1∶A:B:C:D
LINE2∶POL((C-A),(D-B))◢
LINE3∶W≥0
=>E=W◢≠>E=W+360
注释∶
LINE1是要求输入陵顷返坐标正算中两点的x,y坐标,即A,B代表x1,y1,C,D代表x2,y2;
LINE2中为计算器提供的由直角坐乎纳标到极坐标的函数;式中(C-A),(D-B),是考虑到输入数据的顺序性而定的,因为L1~L4中A、B为点1的X、Y坐标C、D为点2的X、Y坐标,要得到点1-点2的方位角,如要输入按顺序的话,就必须(C-A),(D-B);
LINE3因为计算器把计算后的方位角值存于W中,所以第3行的作用是如果W值即方位角值<0的话,加上3600
即可。
运用CASIO
FX-4500P计算器解决工程测量上的计算问题是十分方便的,不用电脑,只是几行简单的程序,就可以解决问题,比按书中公式一步一步计算要来得快且准。特别是坐标反算往往在加减1800时容易搞混淆。在公路测量中圆曲线、缓和曲线的计算也可用计算器编程计算。在用计算器程序时,应注意程序变量所代表的是公式中的哪个变量,千万不能张冠李戴。
详细的程序请在我的博客里看,这里写不下,有字数限制。http://hgq52111314.blog.163.com
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)