CASIO5800计算器公路竖曲线全线高程计算程序.doc
《CASIO5800计算器公路竖曲线全线高程计算程序.doc》由会员分享,可在线阅读,更多相关《CASIO5800计算器公路竖曲线全线高程计算程序.doc(25页珍藏版)》请在三一文库上搜索。
1、CASIO5800计算器公路竖曲线全线高程计算程序CASIO5800计算器公路竖曲线全线高程计算程序作者:彭赐明“SQXJSCX”Lb1 1CLs:Fix3“K=”?k(计算点里程输入)Ifk67549.755ANDK66894.3 :Then-0.00052A : 0B : 67394.3S : 67.37G : 600000R : Goto2 : IfEndIfk68708.391ANDK67549.755 :Then-0.0048A : -0.00052B : 68494.3S :66.8G : 100000R : Goto2 : IfEndIfk0 : ThenG+(C-K) 2/2/
2、R-L*BH: Goto 5 : Else If W0 : ThenG+(K-D) 2/2/R-L*AH: Goto 5 : Else If W0 : ThenG-(K-D) 2/2/R-L*AH: Goto 5 : IfEnd : IfEndLb1 5H-0.304H(0.304为中心路肩高差)“H=”:HGoto 12008年12月30日晚于郑漯高速谢谢发贴:+38 分 【测量空间】0查看楼主其它文章返回回复内容只查看楼主与本人回复沙发:山西09-1-1 9:42 回Ifk67549.755ANDK66894.3 :Then-0.00052A : 0B : 67394.3S : 67.37
3、G : 600000R : Goto2 : IfEnd命令用的好!2 楼:zcj00709-1-1 11:32 回评:+6 分学习学习,谢谢楼主!3 楼:whx21131409-1-5 10:20 回是全线可以用吗?谢谢了。4 楼:周建09-1-7 15:14 回评:+10 分非常好用,谢谢.怎么加超高进去呢5 楼:z_b1986101109-1-28 15:34 回Ifk本段竖曲线终点里程ANDK前一竖曲线终点里程 :Then-0.0048前坡(大里程向)A : -0.00052后坡(小里程向)B : 68494.3竖曲线交点里程S :66.8交点高程G : 100000曲率半径R : Go
4、to2 : IfEnd这段又怎么输啊谢谢6 楼:z_b1986101109-1-28 15:36 回Ifk本段竖曲线终点里程ANDK前一竖曲线终点里程 :Then-0.0048前坡(大里程向)A : -0.00052后坡(小里程向)B : 68494.3竖曲线交点里程S :66.8交点高程G : 100000曲率半径R : Goto2 : IfEnd这段又怎么输啊谢谢7 楼:哈哈明09-1-29 9:31 回评:+6 分不错,可惜没加入横破8 楼:youdonghuang09-3-3 20:49 回If KC : ThenG-L*B H : Goto 5 : Else If KS : Then
5、Goto3 : Else If KD : ThenGoto4: IfEnd : IfEnd : IfEnd这个命令用得不错9 楼:loco00109-3-6 21:31 回谢谢楼主帮忙转换成5800 万分感谢GAUSSLE坐标正反算fx4850程序(修改)源程序1.正算主程序GSZSIX0:SY0:OK0:GF0:HKN:PR0:RRN:Q”Q(-Z+Y)” :D=(P-R)(2(H-O)PR):KL”L(-Z+Y)” :M”ANG(YJJ)”=90:(注:此处若不给M赋值,则可计算斜交点)J=Abs(K-O):ProgSUB1:”FWJ=”:F=F-M:”X=”:X=X:Pause0: ”Y
6、=”:Y=Y2. 反算主程序GSFSXY:Z2=X:Z3 =Y:IX0:SY0:OK0:GF0:HKN:PR0:RRN:Q”Q(-Z+Y)” :D=(P-R)(2(H-O)PR):J=Abs(Y-S)cos(G-90)(X-I)sin(G-90):L=0:M”M(YJJ)”=90:Lbl 0:Prog SUB1:L=(Z3-Y)cos(G-90+QJ(1P+JD)180)-(Z2-X)sin(G-90+QJ(1P +JD) 180):AbsLGoto1:J=J+L:Goto 0Lbl 1:L=0:Prog SUB1:L=(Z3-Y)sinF:”K=”:K=O+J:Pause0:”L=”:L=L
7、3. 正算子程序(SUB1)Defm 4:A=0.1184634425:B=0.2393143352:Z4=0.2844444444:C=0.0469100770:E=0.2307653449:Z1=0.5:X=I+J(Acos(G+QCJ(1P+CJD)180)+Bcos(G+QEJ(1P+EJD)180)+Z4cos(G+QZ1J(1P+Z1JD)180)+Bcos(G+Q(1-E)J(1P+(1-E)JD)180)+Acos(G+Q (1-C)J(1P+(1-C)JD) 180):Y=S+J(Asin(G+QCJ(1P+CJD)180)+Bsin(G+QEJ(1P+EJD)180)+Z4
8、sin(G+QZ1J(1P+Z1JD)180)+Bsin(G+Q(1-E)J(1P+(1-E)JD)180)+Asin(G+Q (1-C)J(1P+(1-C)JD) 180):F=G+QJ(1P+JD) 180+M:X=X+LcosF:Y=Y+LsinF4. 曲线元要素数据库:DAT-MKO=KH= I=*:S=*:O=*:G=*:H=*:P=*:R=*:Q=*:Pause0KO=KH= I=*:S=*:O=*:G=*:H=*:P=*:R=*:Q=*:Pause0 KO=KH= I=*:S=*:O=*:G=*:H=*:P=*:R=*:Q=*: Pause0KO=KH= I=*:S=*:O=*:
9、G=*:H=*:P=*:R=*:Q=*: Pause0KO=KH= I=*:S=*:O=*:G=*:H=*:P=*:R=*:Q=*: Pause0 KO=KH= I=*:S=*:O=*:G=*:H=*:P=*:R=*:Q=*: Pause0(注:如有多个曲线元要素继续添加入数据库DAT-M中)5、M线(坐标正算)组合程序MG-ZBProg”DAT-M”:Prog”GSZS”6、M线(坐标计算放样)组合程序MG-FYProg”MG-ZB”:Prog”LTKZD”: Prog”FY”7、M线(坐标反算)组合程序M-GSFBProg”DAT-M”:Prog”GSFS”放样程序FYU”XJ”:V”YJ
10、”:W”XH”:Z”YH”:XY:I=W-U:J=Z-V:Pol(I,J):JJ=J+360“HSJL=”:IO”HF”=J:X=0=U=U+LCos(J+P”):V=V+LSin(J+P”):”X=”:U:Pause0:”Y=”:V:I=X-U:J=Y-V: Pol(I,J):JJ=J+360:H”QF”=J:J=H-O:JJ=J+360:“ANG=”:JDMS (该处不输Pause0语句亦可实现“ANG=”和“QSJL=”的同时出现)“QSJL=”:I控制点数据库LTKZDA=21:B=22:C=23:D=24:E=25:F=26:G=27:H=28:I=29T “ZJDH”:T=11=U
11、=*:V=*T=12=U=*:V=*T=13=U=*:V=*T=15=U=*:V=*T= 4 =U=*:V=*T= A=U=*:V=*T= B=U=*:V=*T= C=U=*:V=* (注:如有多个控制点继续添加入数据库LTKZD中)N “HSDH”:N=11=W=*:Z=*N=12=W=*:Z=*N=13=W=*:Z=*N=15=W=*:Z=*N= 4 =W=*:Z=*N= A=W=*:Z=*N= B=W=*:Z=*N= C=W=*:Z=* (注:如有多个控制点继续添加入数据库LTKZD中)组合程式LTFYProg ”LTKZD”: Prog ”FY”10 楼:lmhgll09-3-10 7
12、:44 回Lbl 0A,CPol(A-B,C-D)X=I COS(F-(J+360)+KY=I SIN(F-(J+360)GOTO 0楼主:帮我改为5800程序好吗? 谢谢11 楼:彭赐明 楼主 09-3-10 22:34 回Lbl 0?A:?B:?C:?D:?F:?K:Pol(A-B,C-D:I COS(F-(J+360)+KX:I SIN(F-(J+360)Y:X=:XY=:YGOTO 0这是个什么程序?12 楼:lmhgll09-3-11 7:3 回直线反算13 楼:lmhgll09-3-11 7:22 回大哥 还是不行啊我的 这个程序是这样的A,C为直线外任意点坐标X,Y。 B,D为起
13、算点X Y.F为起算点方位角, K为起算点里程。输出的是任一点的里程和偏距,每次重复算的话只用输入变量A,C。 刚才我试验了 ,不行啊麻烦你再给我修改修改好吗?14 楼:彭赐明 楼主 09-3-11 12:41 回Lbl 0?B:?D:?F:?KLbl 1?A:?C:Pol(A-B,C-D:I COS(F-(J+360)+KX:I SIN(F-(J+360)Y:X=:XY=:YGOTO1试试这个15 楼:lmhgll09-3-11 16:53 回高手就是高手再麻烦你把这个业给修改下吧LBL 0A,CPOL(A-B,C-D)R/180pX=G+(E-J)Y=I-RGOTO 0这个是计算圆外任意点
14、反算里程的。谢谢了16 楼:jiaomin668809-3-11 22:35 回评:+10 分你的程序确实简捷,好用,请问竖曲线直线段高程该怎么办?17 楼:彭赐明 楼主 09-3-12 15:28 回Ifk”X=”:X“Y=”:Y=Res(S,M+W:”X=”:X=X+I“Y=”:Y=Y+J4Z=0:KN=Z=180P=cosZ5X=A+I:Y=B+J6Fixm:Pol(C-A,D-B:F=J9K=N:A=C:B=DXO=RUL:X=L-L340O2+L53456O4-L7599040O6:Y=L26O-L4336O3+L642240O5-L89676800O7HU=0=U=1Prog“4”
15、:Prog“6”:L=P(V-K:H=0:PV.5P(K+N=L=P(N-V:H=180:F=F+180Q(N-K-PU)R+HRec(T,F:E=C-I:G=D-J:L0=Rec(L,F:M=F+Z+H:O=1M:Goto2LU=Prog“X”:Pol(X,Y:Rec(I,F+PQJcosH:M=F+90PQLcosHO+Z+H:Goto2J=45(2L-U)R:I=45UR:M=F+2PQJcosH+Z+H:L=U:Prog“ X”:Rec(2Rsin(J-I,J+I:X=X+I:Y=Y+J:Pol(X,Y:Rec(I,F+PQJcosH:Lb1 2:X=E+I:Y=G+J注:1M为兆,非
16、字母M。SE=1:AB=E=-1T=.5RAbs(A-B:M=A:VC=M=BAbs(V-CT=H=D+M(V-C:=G=V-C+T:H=D-AT+Gtan(tan-1A+90EGRFM=R(N-K)(H-R:U=N-K+M:L=M:Prog“X”:E=X:G=Y:L=U: Prog“X”:Prog“6”:Z=I:Pol(X-E,Y-G:Z=ZI:F=F-QJ:V=K=V=K+1L=V-K+M:Prog“X”:Pol(X-E,Y-G:Rec(ZI,F+QJ:M=F+90QLO:Prog“5”ZProg“4”:Prog“6”:M=F+Z:Rec(V-K,M:Prog“5”:O=R:Q=1YPro
17、g“6”:Prog“4”:E=F-90Q(N-K)R+Z:G=90Q(V-K)R :Rec(2QRsinG,E+G:M=E+2G:Prog“5”:O=RP(示例:邵永主线K75+000-K79+000曲线要素)K=74313.432:N=75179.345:A=46406.164:B=502972.701:C=44328.424:D=503450.285:U=0:T=433.709:R=6k:Q=-1: VN= Prog“H”:Goto2Prog“9”:K=76243.835:N=77279.84:C=42443.746:D=504181.828:U=245:T=523.475:R=2k: V
18、N= Prog“H”: Goto2Prog“9”:K=78285.572:N=79751.194:C=40803.713:D=505758.66:U=266.667:T=745.899:R=2400:Q=1: VN= Prog“H”: Goto 2Lbl 2G(竖曲线要素)A=.01:B=-13m:C=75740:D=168.99:R=20:V75800=Prog“S”:Goto1A=B:B=5m:C=77100:D=151.31:R=15k:V77400=Prog“S”:Goto1A=B:B=-16m:C=77700:D=154.31:R=16k:V78k=Prog“S”:Goto121 楼
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- CASIO5800 计算器 公路 曲线 全线 高程 计算 程序
链接地址:https://www.31doc.com/p-2367314.html