有缓和曲线或无缓和曲线任意桩号中、边桩坐标4800计算程序_

有缓和曲线或无缓和曲线任意桩号中、边桩坐标4800 计算程序
有缓和曲线或无缓和曲线任意桩号中、边桩坐标4800 计算程序
四、QXZB(曲线坐标
A”ZH(ZH=〃:B”X(ZH=〃:C”Y(ZH=〃”X(HZ=〃:E”Y(HZ=〃:F ”FW-J1= 〃:G”FW-J2=〃:H”R=〃:I ”L1〃= :J ”L〃=:K”L2=〃:L”ZJ(Z=1,Y=-1=〃
O=180/pi (pi 为圆周率，电脑中找不到此符号以此代替
LbI A
{MN}
M”ZHUANG HAO=〃
P=M-A
MM>(A+I+J+K?GOTO A /
N” ZHUANG JU(Z+,Y-=〃
M>(A+I+J?GOTO D /
M>(A+I?GOTO C /
Lbl B(第一缓和曲线
X=B+(P-(P5 凶0+12十I2COSF+(P3£H H十I-P7 $364d3±l3LSINF Y=C+(P- (P5 +0+H2+2SINF-(P3 6+H-I-P7 +36+I3+3LCOSF X=X+NCOS(F-(P2-2++IOL-
90丄
Y=Y+NSIN(F-(P2 +2+H-IOL-90 丄
GOTO A
Lbl C(圆曲线
X=B+(HSIN(((P-I H+I 吃H HO+(I 吃-13 240牛I2COSF-(H(1-COS(((P-
I -Hl+I 222HO+ I2 224 2H(-1LSINF
Y=C+(HSIN(((P-I H+l -2 -HO+(I -2-13 240 -H2SINF+(H(1-COS(((P-
I H+I 2 HO+I2 24 H(-1LCOSF
X=X+NCOS(F-((P-I -H+I-2 -HOL-90 丄
Y=Y+NSIN(F-((P-I H+I-2 -HOL-90 丄
GOTO A
LbI D(第二缓和曲线
Q=A+I+J+K-M
X=D-(Q-Q5 40 H2 K2COSG+(Q3 6 H K-Q7 336 H3 K3LSING Y=E-(Q-
Q5 40 H2 K2SING-(Q3 6 H K-Q7 336 H3 K3LCOSG X=X+NCOS(F-
(I 2- -H+J 卄1+心 2 -H-Q2-2 -H-KOL-90 丄
Y=Y+NSIN(F-(I -2 -H+J -H+K^ 2 -H-Q2-2 -H -KOL-90 丄
GOTO A
变量说明：
以上变量依次为：
ZH(ZH=直缓点桩号，无缓和曲线则为直圆点；X(ZH=直缓点X坐标；无缓和曲线则为直圆点；丫(ZH=直缓点丫坐标，无缓和曲线则为直圆点；X(HZ=缓直点X坐标，无缓和曲线则为圆直点；丫(HZ=缓直点丫坐标，无缓和曲线则为圆直
点；FWJ-仁第一切线方位角；
FWJ-2=第二切线方位角;
R=半径；
L仁第一缓和曲线长；
L=圆曲线长；
L2=第二缓和曲线长；
ZJ(Z=1,丫二仁转角形式(左=1,右=-1
ZHUANG HAO= 所求点桩号
ZHUANG JU(Z+,Y-=边桩桩距，左边桩为正，右为负，中桩
0 我已经用过了，没发现什么问题,请大家提意见。