主程序【HHQX】
10→DimZ:”PJ”? U:”R”? R:”LS”? C:“JDZH”? P:”FWJ”? A:”JDX”? F:”JDY”? S: ”X0”? E:”Y0”? N:”ZP-1YP1”? I:
C∧(2) ÷24÷R-C∧(4) ÷2384÷R∧(3) →Z[2]
C÷2-C∧(3)÷240÷R∧(2) →Z[3]
90×C÷∏÷R→Z[4]
(R+ Z[2]) ×tan(u÷2)+ Z[3] →T
(R+ Z[2]) ÷cos((u÷2)-R→W:(U-2×Z[4]) ×∏×R÷180+2C→L
“ZH=”:(P-T) →Z[5] ▲
“HY=”: Z[5]+C →Z[6] ▲
“QZ=”: Z[5]+L÷2 →Z[7] ▲
“YH=”: Z[5]+L-C →Z[8] ▲
“HZ=”: Z[5]+L →Z[9] ▲
Lbi 0: ”Z”? →Z: ”K”? →K:If Z≤Z[5]:Then Z[5]-Z→L:A+90→O(字母):GOTO 1:IfEnd
If Z≤Z[6]:Then Z-Z[5]→L:L-L∧(5) ÷40÷R∧(2) ÷C∧(2)+ L∧(9) ÷3456÷R∧(4) ÷C∧(4) →B: L∧(3) ÷6÷R÷C- L∧(7) ÷336÷R∧(3)÷C∧(3) →D:A+28.78×I×L∧(2)÷R÷C+90→O(字母):GOTO 2:IfEnd
第 1 页 共 4 页
带缓和曲线的圆曲线放样程序(适用 CASIO fx-5800P) 陈绍科
If Z≤Z[8]:Then Z-Z[5]-C→L:90×(2L+C)÷R÷∏→V:R×sin(v)+C÷2- C∧(3)÷240÷R∧(2) →B:R×(1-cos(v))+ C∧(2)÷24÷R- C∧(4)÷2384÷R∧(3)→D:A+28.78×I×C÷R+57.29578×L×I÷R +90→O(字母):GOTO 2:IfEnd
If Z≤Z[9]:Then Z[9]-Z→L: L-L∧(5) ÷40÷R∧(2) ÷C∧(2)+ L∧(9) ÷3456÷R∧(4) ÷C∧(4) →B: L∧(3) ÷6÷R÷C- L∧(7) ÷336÷R∧(3)÷C∧(3) →D:A+I×U→W:W-28.7×I×L∧(2)÷R÷C+90→O(字母):GOTO 3:IfEnd
If Z>Z[9]:Then Z-Z[9]→L:A+I×U→W:W+90→O(字母):GOTO 4:IfEnd
Lbi 1:”X=”:F-T×cos(A)-L×cos(A)+K×cos(O) →X▲
”Y=”:S-T×sin(A)-L×sin (A)+K×sin (O) →Y▲
Goto 5
Lbi 2:”X=”:F-T×cos(A)+B×cos(A)-I×D×sin(A)+K×cos(O) →X▲
”Y=”: S-T×sin (A)+B×sin (A)+I×D×cos (A)+K×sin (O) →Y▲
Goto 5
Lbi 3:”X=”:F+T×cos(W)-B×cos(W)-I×D×sin(W)+K×cos(O) →X▲
”Y=”: S+T×sin (W)-B×sin (W)+I×D×cos (W)+K×sin (O) →Y▲
Goto 5
Lbi 4:”X=”:F+T×cos(W)+L×cos(W) +K×cos(O) →X▲
第 2 页 共 4 页
带缓和曲线的圆曲线放样程序(适用 CASIO fx-5800P) 陈绍科
”Y=”: S+T×sin (W)+L×sin (W) +K×sin (O) →Y▲
Goto 5: Lbi 5:X→X: Y→Y: E→E: N→N:
Prog “JSS”
Goto 0
主程序结束
子程序[JSS](单独建立程序)
X: Y: E: N
Tan-1((Y-N)÷(X-E)) →Q: If (X-E)<0:Then Q+180→Q: IfEnd
If (Y-N)>0:Then Q→Q: Else Q+360→Q:IfEnd
If Q>360:Then Q-360→Q: IfEnd
Goto 8
Lbi 8
”BC=”:√–((X-E)∧(2)+(Y-N) ∧(2) →M▲
”Q=”:Q▼ DMS▲(▼ DMS在功能键FUNCTION 5 ANGLE里)
Return
第 3 页 共 4 页
带缓和曲线的圆曲线放样程序(适用 CASIO fx-5800P) 陈绍科
子程序结束
说明: PJ : 曲线偏角(两个直线方位角差值) R : 曲线半径
LS: 缓和曲线长度 JDZH: 交点(角桩)设计桩号 FWJ: 桩号较小直线到交点(角桩)方位角 JDX: 交点(角桩)设计X坐标 JDY: 交点(角桩)设计Y坐标 X0 : 置仪点X坐标 Y0 : 置仪点Y坐标 ZP-1YP1: 偏角(线路前进方向)左偏为负1;右偏为1 T : 切线长 ZH :直缓点 HY:缓圆点 QZ: 曲中点 YH :圆缓点 HZ:缓直点 Z BC:置仪点到放样点距离(平距);Q :置仪点到放样点方位角
第 4 页 共 4 页
K:边桩左负右正
:放样桩号
因篇幅问题不能全部显示,请点此查看更多更全内容
Copyright © 2019- igat.cn 版权所有 赣ICP备2024042791号-1
违法及侵权请联系:TEL:199 1889 7713 E-MAIL:2724546146@qq.com
本站由北京市万商天勤律师事务所王兴未律师提供法律服务