不等长缓和曲线.pdfVIP

缓和曲线不等长5800交点法坐标计算程序

16→DimZ:Fix3:“X”?A:“Y”?B:“JD”?C:“FWJ”F:“PJ”Z:?“LS1”?:“LS2”?D:?R:1

→V:Z0＝-1→V:÷2-^(3)÷(240R²)→Z[1]:D÷2-D^(3)÷(240R²)→Z[2]:²÷

(24R)-^(4)÷(2688R÷R^(3))→Z[3]:D²÷(24R)-D^(4)÷(2688R÷R^(3))→Z[4]↙

（R+Z[3]）tan(Abs(.5Z))+Z[1]-(Z[3]-Z[4])÷sin(Abs(Z))→Z[5]:(R+Z[4])

tan(Abs(.5Z))+Z[2]+(Z[3]-Z[4])÷sin(Abs(Z))→Z[6]:Abs(Z)πR÷180-(+D)÷2→

L:C-Z[5]→Z[7]:Z[7]+→Z[8]:Z[8]+L→Z[9]:Z[9]+D→Z[10]:A-cos(F)Z[5]→

Z[11]:B-sin(F)Z[5]→Z[12]:30÷(πRV)→J:-^(3)÷(40R²)→T:T÷cos(J)→S:

Z[11]+Scos(F+J)→Z[13]:Z[12]+Ssin(F+J)→Z[14]:A+Z[6]cos(F+Z)→

Z[15]:B+Z[6]sin(F+Z)→Z[16]↙

Lb0:“KM”?→K:fK≤Z[7]:ThenC-K→L:F+180→N:“X=”:A+Lcos(N)→X

▲“Y=”:B+Lsin(N)→Y▲F→Q:fEnd::fK≤Z[8]AndK﹥Z[7]:ThenK-Z[7]→L:JL²÷²→

G:L-L^(5)÷(90R²²)→S:F+G→N:“X=”:Z[11]+Scos(N)→X▲“Y=”:Z[12]+Ssin(N)→

Y▲F+3G→Q:fEnd:fK≤Z[9]AndK﹥Z[8]:ThenK-Z[8]→L:90L÷(RVπ)→

G:2Rsin(Abs(G))→S:F+3J+G→N:“X=”:Z[13]+Scos(N)→X▲“Y=”:Z[14]+Ssin(N)

→Y▲F+3J+2G→Q:fEnd:fK≤Z[10]AndK﹥Z[9]:Then30D÷﹙πRV﹚→J:Z[10]-K→

L:JL²÷D²→G:L-L^(5)÷(90R²D²)→S:F+Z+180-G→N:“X=”:Z[15]+Scos(N)→X▲

“Y=”:Z[16]+Ssin(N)→Y▲F+Z-3G→Q:fEnd:Lb1:“BJ”?→W:W=0＝Goto0:

“JL”?S:Q+W→H:“BX=”:X+Scos(H)▲“BY=”:Y+Ssin(H)▲Goto1

数据输入及符号含义

X?,Y?输入交点的XY坐标值；

JD输入交点里程桩号

FWJ输入本段路线的坐标方位角。

PJ输入曲线偏角，左偏取负值，右偏取正值。

LS1输入第一缓和曲线长度，不设缓和曲线时时为0。

LS2输入第缓和曲线长度，不设缓和曲线时时为0。

R?输入曲线半径。

KM输入待求点里程桩号。

BJ输入边桩与中线的夹角±﹙≠0≠180﹚,计算路线左侧边桩输入负值,计算右侧

时输入正值,不计算边桩坐标时输入0

JL边桩与中桩的距离,斜交时输入斜距。

缓和曲线不等长5800交点法坐标计算程序

16→DimZ:Fix3:“X”?A:“Y”?B:“D”?C:“FW”F:“P”

Z:?“LS1”?I:“LS2”?D:?R:1→V:Z0＝-1→V:I÷2-I^(3)÷(240R

²)→Z[1]:D÷2-D^(3)÷(240R²)→Z[2]:I²÷(24R)-I^(4)÷(2688R

÷R^(3))→Z[3]:D²÷(24R)-D^(4)÷(2688R÷R^(3))→Z[4]↙

（R+Z[3]tan(Abs(.5Z))+Z[1]-(Z[3]-Z[4])÷sin(Abs(Z))→Z[5]:

(R+Z[4])tan(Abs(.5Z))+Z[2]+(Z[3]-Z[4])÷sin(Abs(Z))→Z[6]: