[精] fx 5800 直线圆曲线坐标正反算程序

[精] fx 5800 直线圆曲线坐标正反算程序

直线计算程序

0→I:0→J:”X 0”?D:”Y0”?E:”X1”?B:”Y1”?C:Pol(B-D,C-E):J→A:If A<0: Then A+360→A:Else A→A:IfEnd:Lbl 0:?O:?S:If O≠0:Then Goto 1:IfEnd: D+Scos(A) →X:”X=”:X◢

E+Ssin(A) →Y:”Y=”:Y◢

Goto 0:Lbl 1:D+Scos(A)+Ocos(A+90) →X:”X=”:X◢

E+Ssin(A)+Osin(A+90) →Y:”Y=”:Y◢

Goto 0

输入程序时注意区别字母O与数字0

程序运行时符号说明

X0? Y0?分别输入直线起点的XY坐标值

X1? Y1?分别输入直线终点的XY坐标值

O? 输入边桩与中桩的距离(左边桩为负值,右边桩为正值),如计算中桩坐标输入0

S? 输入所求点到直线起点的距离

圆曲线计算程序

0→I:0→J: ”X0”?C:”Y0”?D:”X1”?E:”Y1”?F:?R:”L:-1 R:1”?N:”ZY”?W:Lbl 0:”LN”?T:

T-W→O:Pol(E-C,F-D):I→S:J→A: If A<0:Then A+360→A:Else A→A:IfEnd: sin-1(S÷(2R)) →K:2∏RK÷180→L:180O÷(2∏R) →G:(2R)sin(G)

→H:C+Hcos(A-KN+GN) →X:”X=”:X◢

D+Hsin(A-KN+GN) →Y:”Y=”:Y◢

R-0.5√(4R2-H2) →Q:”Q=”:Q◢

“S=”?V:If V=0:Then Goto 0:IfEnd:”L:-90 R:90”?U:X+Vcos(A-KN+2GN+U) →X:”X=”:X◢

Y+Vsin(A-KN+2GN+U) →Y:”Y=”:Y◢

Goto 0

输入程序时注意区别字母O与数字0

程序运行时符号说明

X0? Y0?分别输入直线起点的XY坐标值

X1? Y1?分别输入直线终点的XY坐标值

R? 输入圆曲线半径

L:-1 R:1?圆曲线向左转弯时输入-1,向右转弯时输入1

ZY? 输入起点桩号

LN? 输入所求点桩号(按下exe键后显示中桩坐标)

S? 输入所要求的边桩与中桩的距离

L:-90 R:90要求左边边桩输入-90,右边边桩输入90(按下exe键后显示边桩坐标)