[精] fx 5800 直线圆曲线坐标正反算程序
(2010-07-01 21:50:11)
标签：
杂谈
直线计算程序
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键后显示边桩坐标)。