您好,欢迎来到爱go旅游网。
搜索
您的当前位置:首页FX-5800带缓和曲线放样程序

FX-5800带缓和曲线放样程序

来源:爱go旅游网
带缓和曲线的圆曲线放样程序(适用 CASIO fx-5800P) 陈绍科

主程序【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

本站由北京市万商天勤律师事务所王兴未律师提供法律服务