5800程序最终修订版.docx
- 文档编号:11443515
- 上传时间:2023-03-01
- 格式:DOCX
- 页数:14
- 大小:77.97KB
5800程序最终修订版.docx
《5800程序最终修订版.docx》由会员分享,可在线阅读,更多相关《5800程序最终修订版.docx(14页珍藏版)》请在冰豆网上搜索。
5800程序最终修订版
中铁十一局二公司
宿淮铁路指挥部测量室
CASIOfx-5800测量应用程序
编著者:
刘杰赵宝
注;本程序只供参考如果出现由程序引起的施工事故编著者一律不予承担法律责任。
一
直线中边桩坐标程序(ZX)
“ZH--X”?
A;“ZH--Y”?
B;“ZH”?
C;“WH”?
D;“QIEXIAN—ZH”?
O
LbI0;D-C→S
A+S×coc(O)→F
B+S×sin(O)→G
“L-1R-0”?
H;“S”?
J
IfH=1;ThenO-90→K;ElesO+90→K;Ifend
F+J×cos(K)→X
G+J×sin(K)→Y
“X=”;X⊿
“Y=”;Y⊿
“WH”?
D;Goto0
注释;ZH—X输入直缓点X坐标,ZH—Y输入直缓点Y坐标,ZH输入缓直点里程,WH输入待求点里程,QIEXIAN—ZH输入直缓点切线方位角。
二
曲线中边桩坐标程序(QX)
70→DimZ
“ZH”?
A;“L0”?
L;“R”?
R;“ao”?
E;“ZH-X”?
C;“ZH-Y”?
D
“QIEXIAN”?
F;“WISE”?
G
IfG=0;ThenF+E→Z[38];ElseF+E→Z[38];Ifend
(R+Z[32])×tan(E/2)+Z[31]→Z[35]
(E-2×Z[32])×
÷180×R+2×L→Z[34]
A+Z[34]→Z[36]
C+Z[35]×cos(F)→Z[39]
D+Z[35]×sin(F)→Z[40]
Z[39]+Z[35]×cos(Z[38])→Z[41]
Z[40]+Z[35]×sin(Z[38])→Z[42]
Z[38]+180→Z[43]
“WH”?
B
Z[36]-L→Z[60]
IfB 注释;ZH输入直缓点里程,WH待求点里程,L0缓和曲线长度,R=输入半径,ZH-X直缓点的X坐标,ZH-Y直缓点的Y坐标,ao输入转角,QIEXIAN直缓点的切线方位角,WISE左转曲线输入1,右转曲线输入0。 1程序 IfB-A 曲线子程序(H) L×R→K IfG=1;ThenF-N→Q;ElseF+N→Q;Ifend C+M×cos(Q)→V D+M×sin(Q)→W 90×S×S÷ ÷K→T IfG=1;ThenF-T→U;ElseF+T→U;Ifend “L-1R-0”? I;“S=”? J;IfI=1;ThenU-90→H;ElseU+90→H;Ifend V+J×cos(H)→X W+J×sin(H)→Y “X=”;X⊿ “Y=”;Y⊿ “WH—QIEXIAN”;U▲DMS⊿ 注释;L-1R-0左边桩输入1,右边桩输入0.S=边桩距离,J-ao边桩与前进切线方位角的夹角。 曲线子程序(Y) 9→DimZ L×R→K;B-A→Z[9] IfG=1;ThenF-N→Q;ElseF+N→Q;Ifend C+M×cos(Q)→V D+M×sin(Q)→W 90×L×L÷ ÷K→Z[1] IfG=1;ThenF-Z[1]→Z[2];ElseF+Z[1]→Z[2];Ifend Z[9]-L→U 90×U÷ ÷R→I 2×R×sin(I)→J IfG=1;ThenZ[2]-I→Z[5];ElseZ[2]+I→Z[5];Ifend V+J×cos(Z[5])→Z[7] W+J×sin(Z[5])→Z[8] 180×U÷ ÷R→Z[3] IfG=1;ThenZ[2]-Z[3]→Z[4];ElseZ[2]+Z[3]→Z[4];Ifend “L-1R-0”? Z;“S=”? H;IfZ=1;ThenZ[4]-90→Z[6];ElseZ[4]+90→Z[6];Ifend Z[7]+H×cos(Z[6])→X Z[8]+H×sin(Z[6])→Y “X=”;X⊿ “Y=”;Y⊿ “WH—QIEXIAN”;Z[4]▲DMS⊿ 注释;L-1R-0左边桩输入1,右边桩输入0.S=边桩距离,J-ao边桩与前进切线方位角的夹角。 2程序 50→DimZ IfG=1;Then0→Z;Else1→T;Ifend Z[36]-B→S L×R→K;Z[43]-180→V IfG=1;ThenV-N→Q;ElseV+N→Q;Ifend Z[41]-M×cos(Q)→I Z[42]-M×sin(Q)→H 90×S×S÷ ÷K→J IfZ=1;ThenV-J→T;ElseV+J→T;Ifend “L-1R-0”? E;“S=”? W IfE=1;ThenT-90→Z[48];ElseT+90→Z[48];Ifend I+W×cos(Z)→X H+W×sin(Z)→Y “X=”;X⊿ “Y=”;Y⊿ “WH—QIEXIAN”;T▲DMS⊿ “WH”? B;Goto0 三 坐标正反算程序 1坐标正算(ZS) “X1”? A;“Y1”? B;“S=”? C;“ao”? D A+C×cos(D)→X B+C×sin(D)→Y “X2=”;X⊿ “Y2=”;Y⊿ 注释;X1已知点X的坐标输入,Y1Y的坐标输入,S=输入待求点与已知点的距离,ao输入前进方位角。 2坐标反算(FS) “X1”? A;“Y1”? B;“X2”? C;“Y2”? D C-A→E D-B→F “S=”;S⊿ IfF>0;Then90-T→U;Else270-T→U;Ifend “J-ao”;T▲DMS⊿ 注释;X1已知点A的X的坐标输入,Y1已知点A的Y的坐标输入,X2已知点A的X的坐标输入,Y2已知点B的Y的坐标输入。 四 路基坡脚线放样程序(PJX) Lb10;“SJ-H”? A;“DB-H”? B;“PD-i“? C;“S”? D Abs(A-B)→E E×C+S→F “PJX=”;F⊿ “PLEASETONEXT” GOTO0 注释;SJ-H输入路肩设计标高,DB-H输入实测地表标高,PD-i输入左侧或右侧路基坡度,S输入左侧或右侧路面宽度。 五 交点坐标及切线长计算程序(JD) “ZH-X”? U;“ZH-Y”? V;“QIEXIAN-ZH”? T;“HZ-X”? M “HZ-Y”? P;“QIEXIAN-HZ”? Q (U×tan(T)-V-M×tan(Q)+P)÷(tan(T)-tan(Q))→X P+(X-M)×tan(T)→Y X-U→A Y-V→B U+S×cos(T)→K V+S×sin(T)→L “JD-X”;K⊿ “JD-Y”;L⊿ “ZH-T”;S⊿ X-M→R Y-P→Z “HZ-T”;J⊿ 注释;ZH-X输入直缓点的X坐标,ZH-Y输入直缓点的Y坐标,QIEXIAN-ZH输入直缓点的前进切线方位角,HZ-X输入缓直点的X坐标,HZ-Y输入缓直点的Y坐标,HZ-QIEXIAN输入缓直点的切向方位角。 六 竖曲线计算程序(SQX) “BP-K”? A;“BP-H”? B;“R”? C;“i1”? V “i2”? W;“T-1A+1”? F V÷1000→D W÷1000→E Abs(Arctan(D)-Arctan(E))→R C×tan(R/2)→H Lb11;“WH-K”? G;IfG<A-H;Then-D→I;GOTO2;ElseIfG≤A;Then-D→I;GOTO3;ElseIfG<A+H;ThenE→I;GOTO3;ElseE→I;GOTO2;Ifend;Ifend;Ifend Lb12;“WH-H”;B+I×Abs(G-A)→J⊿ Lb13;“WH-H”;B+I×Abs(G-A)+F×(H-Abs(G-A))×(H-Abs(G-A))÷2C→J⊿ GOTO1 注释;BP-K输入边坡点里程,BP-H输入边坡点高程,R输入竖曲线半径,i1输入坡度1,i2输入坡度2,T-1A+1凸形竖曲线输入-1,凹形竖曲线+1,WH-K输入待求点里程。 七 依据交点坐标计算曲线要素程序(QX-YAOSU) Lb10;“JD1-X”? I;“JD1-Y”? J;“JD-X”? A;“JD-Y”? B; “JD-WISE”? Z Arctan((A-I)÷(B-J))→Z[1] IfB-J>0;Then90-Z[1]→G;Else270-Z[1]→G;Ifend;“J-ao”? C IfZ=0;ThenG+C→H;ElseG-C→H;Ifend “JD-L0”? D;“JD-R”? R (R+P)×tan(C÷2)+Q→T 28.6479×D÷R→F (C-2×F)× ÷180×R+2×D→L (R+P)×1÷cos(C÷2)-R→E A-T×cos(G)→X B-T×sin(G)→Y A+T×cos(H)→V B+T×sin(H)→W “T=”;T⊿ “L=”;L⊿ “E=”;E⊿ “ZH-X”;X⊿ “ZH-Y”;Y⊿ “ZH-QIEXIAN”;G▲DMS⊿ “HZ-X”;V⊿ “HZ-Y”;W⊿ “ZH-QIEXIAN”;H+180→Z▲DMS⊿ GOTO0 注释;JD1-X输入前交点的X坐标,JD1-Y输入前交点的y坐标,JD-X输入交点的X坐标,JD-Y输入交点的y坐标,JD3-X输入后交点的X坐标 JD3-Y输入后交点的y坐标,JD-WISE输入该交点曲线转向左转输入1,右转输入0,J-ao输入交点的方位角。 八 计算曲线桥大裂线方位角程序(DUN-FANGWEIJIAO) “X1”? A;“Y1”? B;“DUN-X”? C;“DUN-Y”? D; “X3”? E;“Y3”? F C-A→G D-B→H Arctan(G÷H)→I IfH>0;Then90-I→J;Else270-I→J;Ifend E-C→K D-B→L Arctan(K÷L)→M IfL>0;Then90-M→N;Else270-M→N;Ifend “WISE”? O;IfO=0;ThenN-J→P;ElseJ-N→P;Ifend (180-P)÷2→Q IfO=0;ThenN+Q→R;ElseN-Q→R;Ifend “FAN-JIAO”;R▲DMS⊿ 注释;X1输入待求墩的小里程墩梁缝中心的X坐标,Y1输入待求墩的小里程墩梁缝中心的y坐标,DUN-X输入待求墩梁缝中心的x坐标,DUN-Y输入待求墩梁缝中心的y坐标,X3输入待求墩的大里程墩梁缝中心的X坐标,Y3输入待求墩的大里程墩梁缝中心的y坐标。 九 依据已知坐标计算在直线段上的里程程序(ZSWH-K) “HZ-K”? P;“HZ-X”? A;“HZ-Y”? B“HZ-QIEXIAN”? C;Lb10;“WH-X”? D;“WH-Y”? E D-A→F E-B→G Arctan(F÷G)→L IfG>0;Then90-L→M;Else270-L→M;Ifend IfM>C;ThenC-90→N;ElseC+90→N;Ifend (A×tan(C)-B-D×tan(N)+E)÷(tan(C)-tan(N))→X E+(X-D)×tan(N)→Y P+S→U “NEAR-WH-K”;U⊿ “WH-S”;Z[2]⊿ IfM>C;Then“XL-RIGHT”;Else“XL-LEFT”;Ifend 注释;HZ-K输入缓直点里程,HZ-X缓直点的X坐标,HZ-Y缓直点的Y坐标,HZ-QIEXIAN缓直点的前进切线方位角,WH-X待求里程点的X坐标WH-Y待求里程点的Y坐标。 十 超高缓和段的横坡计算程序(HP) “QD-i”? A;“ZD-i”? B;“ZD-K”? K“QD-K”? C;“WH-K”? M K-M→N K-C→L N÷L→P (B-A)×(1-3×P×P+2×P×P×P)+A→U “WH-i”;U⊿ 注释;QD-i输入起点横坡,ZD-i输入终点横坡,ZD-K输入终点里程,QD-K输入起点里程,WH-K输入待求点里程。 十一 匝道中边桩计算程序 主程序(ZD) “WH-K”? A;“QD-K”? B;“ZD-K”? C;“QD-X”? D “QD-Y”? E;“QIEXIAN-QD”? F;“QD-e”? G;“ZD-e”? H Lb10;IfG=H;ThenIfG=0ThenProg“ZD2”;ElseProg“ZD3”;Ifend;ElseProg“ZD4”;Ifend “WH-K”? A;GOTO0 注释;WH-K输入待求点里程,QD-K起点里程,ZD-K终点里程,QD-X输入起点的X坐标,QD-Y输入终点的Y坐标,QIEXIAN-QD输入起点的切线方位角,QD-e输入起点的曲率,ZD-e输入终点的曲率 1 直线段子程序(ZD2) A-B→S D+S×cos(F)→X E+S×sin(F)→Y “WH—X”;X⊿ “WH—Y”;Y⊿ 2 圆曲线段子程序(ZD3) “R=”? R;“WISE”? T A-B→Z[1] 90×Z[1]÷ ÷R→I 2×R×sin(I)→J IfT=1;ThenF-I→Z[5];ElseF+I→Z[5];Ifend D+J×cos(Z[5])→Z[7] E+J×sin(Z[5])→Z[8] 180×Z[1]÷ ÷R→Z[3] IfT=1;ThenF-Z[3]→Z[4];ElseF+Z[3]→Z[4];Ifend “L-1R-0”? Z;“S=”? S;IfZ=1;ThenZ[4]-S→W;ElseZ[4]+S→W;Ifend Z[7]+S×cos(W)→X Z[8]+S×sin(W)→Y “WH—X”;X⊿ “WH—Y”;Y⊿ “WH—QIEXIAN”;Z[4]▲DMS⊿ 注释;R=输入圆曲线半径,WISE输入线路的转向左转输入1,右转输入0 3 缓和曲线段子程序(ZD4) (A-B)÷Abs(C-B)→P Abs(A-B)→Q P×Q→I F+(I+2×G)×Q×90÷ →J F+(I÷4+2×G)×Q×45÷(2 )→M F+(I×3÷4+2×G)×Q×135÷(2 )→N F+(I÷2+2×G)×Q×45÷ →K D+Q÷12×(cos(F)+4×(cos(M)+cos(N))+2×cos(K)+cos(J))→X E+Q÷12×(sin(F)+4×(sin(M)+sin(N))+2×sin(K)+sin(J))→Y “L-1R-0”? T;“S=”? W;IfT=1;ThenJ-90→Z[1];ElseJ+90→Z[1];Ifend X+W×cos(Z[1])→Z[2] Y+W×sin(Z[1])→Z[3] “WH—X”;X⊿ “WH—Y”;Y⊿ “WH—QIEXIAN”;J▲DMS⊿ 注释;该子程序依据复化辛普森公式编著而成,但由于该公式有一定的局限性
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 5800 程序 最终 修订版