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

主程序【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：边桩左负右正

：放样桩号