卡西欧5800缓和曲线坐标计算程序.doc

缓和曲线段坐标计算HHQXZBJS
第一缓和曲线段任意里程位各点的坐标计算。
程序如下:
曲线起点里程→Q:
曲线起点X坐标→E:
曲线起点Y坐标→F:
曲线起点前进切线方位角→T:
圆曲线半径→R:
缓和曲线长度→U:
曲线转向方向(左转取-1,右转取+1)→P:
Lbl0:
5→DimZ:
“KM=”?L:待求点里程
“L-1,R+1”?K:待求点位于前进方向左侧为-1,右侧为+1
“PJ=”?S:待求点到线路设计中心的平距
Abs(L-Q)→Z[1]:
Pol(Z[1]-Z[1]^(5)÷(40R²U²)+Z[1]^(9)÷(3456(RU)^(4)),Z[1]^(3)÷(6RU)-Z[1]^(7)÷(336(RU)^(3))+Z[1]^(11)÷(42240(RU)^(5))):
J→Z[2]:
Rec(I,T+Z[2]P):
E+I→Z[3]:
F+J→Z[4]:
T+Z[2]P+60PZ[1]²÷(RUπ)+90→Z[5]:
IfK=1:
ThenRec(S,Z[5]):
ElseRec(S,Z[5]+180):
IfEnd:
Z[3]+I→X:
Z[4]+J→Y:
Cls:
Fix3:
“Xp=”:计算的X坐标
“Yp=”:计算的Y坐标
Locate7,1,X:X坐标显示在第一行
Locate7,2,Y◢Y坐标显示在第二行
Goto0

注解:
如果本程序不需要反复计算其它里程位的坐标值,可以将Lbl0和Goto0删除掉。
这里是按第一缓和曲线编制的,在应用于第二缓和曲线时,起算点和转向方向都要改变,同时原路线方向上的左侧变成了右侧,原路线方向上的右侧变成了左侧,等等,这点要注意。