路桥施工测量常用计算资料大全:有关路基和隧道的CASIO 5800P 万能曲线 计算程序.doc
-
资源ID:28149
资源大小:39.50KB
全文页数:8页
- 资源格式: DOC
下载积分:7金币
免费下载
微信登录下载
快捷下载
账号登录下载
三方登录下载:
友情提示
2、PDF文件下载后,可能会被浏览器默认打开,此种情况可以点击浏览器菜单,保存网页到桌面,就可以正常下载了。
3、本站不支持迅雷下载,请使用电脑自带的IE浏览器,或者360浏览器、谷歌浏览器下载即可。
4、本站资源下载后的文档和图纸-无水印,预览文档经过压缩,下载后原文更清晰。
5、试题试卷类文档,如果标题没有明确说明有答案则都视为没有答案,请知晓。
|
路桥施工测量常用计算资料大全:有关路基和隧道的CASIO 5800P 万能曲线 计算程序.doc
有关路基和隧道的CASIO 5800P 万能曲线 计算程序
第二次修改:有关路基和隧道的CASIO 5800P 万能曲线 计算程序,可以正、反坐标,放边坡和隧道圆心,计算开挖半径
曲线任意里程中边桩坐标正反算
(CASIO fx-5800P计算器)程序
一、程序功能
本程序由一个主程序(ZHUCHENXU)和几个子程序——正算子程序(SUB1)、反算子程序(SUB2)、数据库(SUB3)、算方位角程序(FA)、使用方位角算坐标(NE)、边坡放样程序(BIANPO)、隧道圆心放样程序(SDYX)构成,可以根据直线、圆曲线、缓和曲线(完整或非完整型)的线元要素(起点坐标、起点里程、起点切线方位角、线元长度、起点曲率半径、止点曲率半径)及里程边距或坐标,对该曲线段范围内任意里程中边桩坐标进行正反算。
二、源程序
增加变量22→DimZ
1.主程序(ZHUCHENXU)
"1.SZ → XY,2.XY → SZ,3.SDYX,4. BIANPO "?N:
Lbl 1:”ZHUANGHAO=”?S: Prog "SUB3": N≥2=>Goto 2: Abs(S-O)→W:”BIANZHU=”?→Z:Prog "SUB1": "XS=”:X→X◢"YS=”:Y→Y◢"FS=”:(F-90) →F:F►DMS◢Prog "FA":Goto 1:
Lbl 2:”CX=”?X: X→I:”CY=”?Y: Y→J:”DMG=”?→Z[7]:Prog "SUB2": "S=":(O+W) →S◢"Z=":Z→Z◢If N=3:Then Prog”SDYX”: IfEnd :If N=4:Then Prog”BIANPO”:IfEnd:Goto 2
2. 正算子程序(SUB1)
0.1739274226 →Z[1]: 0.3260725774→B: 0.0694318442→K: 0.3300094782→L: (1-L) →F: (1-K)→M: U+W(Z[1]cos(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD))+Bcos(G+QEFW (C+FWD))+Z[1]cos(G+QEMW(C+MWD))) →X: V+W(Z[1]sin(G+QEKW(C+KWD))+Bsin(G+QELW(C+LWD))
+Bsin(G+QEFW(C+FWD))+Z[1]sin(G+QEMW(C+MWD))) →Y: G+QEW(C+WD)+90→F: X+ZcosF→X: Y+ZsinF→Y
3. 反算子程序(SUB2)
G-90 →Z[2]: Abs((Y-V)cosZ[2]-(X-U)sinZ[2]) →W: 0→Z:Lbl 0:Prog "SUB1": Z[2]+QEW(C+WD) →L: (J-Y)cosL-(I-X)sinL→Z:
If Abs(Z)<1E-6:Then Goto1:Else W+Z→W:Goto 0: IfEnd
Lbl 1: 0→Z:Prog "SUB1": (J-Y)sinF→Z
4. 数据库(SUB3)
If S<226100:Then Cls:Stop: IfEnd
If S<226255.833:Then 226100→O: 99037.9736→U: 4282.3590→V: 201.3266304→G: 1045→P: 1045→R: 253.543→H: 0→Q: Goto 1:IfEnd
……
……
If S>236005.651:Then Cls:Stop: IfEnd
Lbl 1: 1P→C:(P-R)(2HPR) →D:180π→E:
5. 算方位角程序(FA)
LbI0:“XC=”? A : “YC=”? T :X:Y
0→J: POI(X-A,Y-T)→I:“BC=”:I◢If J<0: Then 360+J→J:ElseJ→J :IfEnd
“FW=”:J►DMS◢ Goto0
6. 使用方位角算坐标(NE)
LbI0:“X=”? X: “Y=”? Y: “L=”? L:“F0”?F: LCos(F)+X→N: “N=”N◢LSin(F)+Y→E: “E=”E◢
Goto0
7. 边坡放样程序(BIANPO)
Prog " TCD ":Prog " BHD ":IF S<226255.731 : then 232.257→ Z[17]:225844.269→ Z[18]:-0.69→Z[19]:11789.745→ Z[22]: Goto 3: IfEnd
IF S<226351.25 : then 230.837→ Z[17]:226050→ Z[18]:2.