4800公路测量放样计算程序
4800公路测量放样计算程序
CASIO fx-4800P计算器程序
DA DI——N E (公路弯道坐标计算)
K“JD”：R ：S“LS”：F“PJ——L －R ＋”：A“ZH——N”：B“ZH——E”：C“JD——N”：D“JD——E” M“ZH”=K－（R ＋S2÷（24R ））tan （Abs F÷2）－S÷2＋S^3÷（240R2）▲
N“HY”=M＋S▲
O“QZ”=M＋（πRAbs F÷180＋S ）÷2▲
Z[1]“YH”=M＋πRAbs F÷180▲
Q“HZ”= Z[1]＋S▲
T=K－M▲
L=Q－M▲
E=（R ＋S2÷（24R ））÷cos （F÷2）－R▲
Lb1 0：{G}：G“ZHUANG HAO”：G ＜O ＝=＞Z=G－M≠=＞Z=Q－G ：△
{U}：U“I——B OUT＋IN －”
Z ＜S ＋0.005＝=＞H=tan-1（24Z2S2R2－Z^6）÷（48Z^3R^3－6Z^4SR））：V=Z－Z^5÷（40S2R2）＋Usin H ：W=Z^3÷（6SR ）－Z ^7÷（336Z^3R^3）－Ucos H ：≠=＞H=180（Z －S÷2）÷（πR）：V=Rsin H＋S÷2－S^3÷（240R2）＋Usin H：W=R－Rcos H＋ S2÷（24R ）－Ucos H：△
F ＜0＝=＞G ＜O ＝=＞X=V：Y=W：≠=＞X=T＋Tcos F－Vcos F－Wsin Abs F：Y=Tsin Abs F－Vsin Abs F＋Wcos F：△≠=＞G ＜O ＝=＞X=V：Y=－W ：≠=＞X=T＋Tcos F－Vcos F－Wsin Abs F：Y=Vsin Abs F－Tsin Abs F－Wcos F：△△
C=A＝=＞D≥B＝=＞P=90：≠=＞P=270：△≠=＞C ＜A ＝=＞P= tan-1（（D －B ）÷（C －A ））＋180：≠=＞P= tan-1（（D －B ）÷（C －A ））：△△
I“COM——N”=A＋√（X2＋Y2）cos （P －tan-1（Y÷X ））▲
J“COM——E”=B＋√（X2＋Y2）sin （P －tan-1（Y÷X ））▲
G=G＋20
Goto 0
程序运行
输入：JD ？ ——交点桩
R ？ ——圆曲线半径
LS ？ ——缓和曲线长度
PJ ——L －R ＋？ ——偏角 右偏为正
ZH ——N ？ ——ZH 点N 坐标
ZH ——E ？ ——ZH 点E 坐标
JD ——N ？ ——JD 点N 坐标
JD ——E ？ ——JD 点E 坐标
输出：ZH= ——ZH 点桩号
HY= ——HY 点桩号
QZ= ——QZ 点桩号
YH= ——YH 点桩号
HZ= ——HZ 点桩号
T= ——切线长
L= ——曲线长
E= ——外矢距
再输入：ZHUANG HAO？ ——输入任一点桩号
I ——B OUT＋IN －？ ——距中线距离（外侧为正）
再输出：COM ——N= ——计算出N 坐标
COM ——E= ——计算出E 坐标
以此循环——再输入——再输出
程序中各字母所代表的含义：
A ——ZH 点N 坐标
B ——ZH 点E 坐标
C ——JD 点N 坐标
D ——JD 点E 坐标
E ——外矢距
F ——偏角（右偏为正）
G ——弯道内任一点桩号
H ——弯道内任一点切线角
I ——计算出的N 坐标
J ——计算出的E 坐标
K ——交点桩号
L ——曲线长
M ——ZH 点桩号
N ——HY 点桩号
O ——QZ 点桩号
P ——ZH--JD 方位角
Q ——HZ 点桩号
R ——圆曲线半径
S ——缓和曲线长度
T ——切线长
U ——距中线距离（外侧为正）
V ——支距
W ——支距
X ——弯道内坐标
Y ——弯道内坐标
Z ——任一点曲线长度
Z[1]——YH 点桩号
有缓和曲线或无缓和曲线任意桩号中、边桩坐标4800计算程序
四、QXZB(曲线坐标)
A ＂ZH(ZH)=″:B＂X(ZH)=″:C＂Y(ZH)=″ ＂X(HZ)=″:E＂Y(HZ)=″:F＂FWJ-1=″:G＂FWJ-2=″: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⊿
LbI B(第一缓和曲线)
X=B+(P-(P5÷40÷H2÷I2))COSF+(P3÷6÷H÷I-P7÷336÷H3÷I3)LSINF Y=C+(P-(P5÷40÷H2÷I2))SINF-(P3÷6÷H÷I-P7÷336÷H3÷I3)LCOSF X=X+NCOS(F-(P2÷2÷H÷I)OL-90)◢
Y=Y+NSIN(F-(P2÷2÷H÷I)OL-90)◢
GOTO A
LbI C(圆曲线)
X=B+(HSIN(((P-I)÷H+I÷2÷H)O)+(I÷2-I3÷240÷H2))COSF-(H(1-COS(((P-I)÷H+I÷2÷H)O))+ I2÷24÷H)(-1)LSINF
Y=C+(HSIN(((P-I)÷H+I÷2÷H)O)+(I÷2-I3÷240÷H2))SINF+(H(1-COS(((P-I)÷H+I÷2÷H)O))+I2÷24÷H)(-1)LCOSF
X=X+NCOS(F-((P-I)÷H+I÷2÷H)OL-90)◢
Y=Y+NSIN(F-((P-I)÷H+I÷2÷H)OL-90)◢
GOTO A
回答人的补充 2009-06-21 01:41
LbI D(第二缓和曲线)
Q=A+I+J+K-M
X=D-(Q-Q5÷40÷H2÷K2)COSG+(Q3÷6÷H÷K-Q7÷336÷H3÷K3)LSING
Y=E-(Q-Q5÷40÷H2÷K2)SING-(Q3÷6÷H÷K-Q7÷336÷H3÷K3)LCOSG
X=X+NCOS(F-(I÷2÷H+J÷H+K÷2÷H-Q2÷2÷H÷K)OL-90) ◢
Y=Y+NSIN(F-(I÷2÷H+J÷H+K÷2÷H-Q2÷2÷H÷K)OL-90) ◢
GOTO A
变量说明：
以上变量依次为：
ZH(ZH)=直缓点桩号，无缓和曲线则为直圆点；
X(ZH)=直缓点X 坐标；无缓和曲线则为直圆点；
Y(ZH)=直缓点Y 坐标，无缓和曲线则为直圆点；
X(HZ)=缓直点X 坐标，无缓和曲线则为圆直点；
Y(HZ)=缓直点Y 坐标，无缓和曲线则为圆直点；
FWJ-1=第一切线方位角；
FWJ-2=第二切线方位角；
R=半径；
L1=第一缓和曲线长；
L=圆曲线长；
L2=第二缓和曲线长；
ZJ(Z=1,Y=-1)=转角形式(左=1，右=-1)
ZHUANG HAO=所求点桩号
ZHUANG JU(Z+,Y-)=边桩桩距，左边桩为正，右为负，中桩0
我已经用过了，没发现什么问题，请大家提意见。
1、DK(JD)？输入交点桩号
2、X(JD)？ 输入交点坐标X
3、Y(JD)？ 输入交点坐标Y
4、T1？ 输入第一切线长(如果只有一条切线两者都输入一致)
5、T2？ 输入第二切线长(如果只有一条切线两者都输入一致)
6、FWJ ？输入直线方位角(ZH→JD)
7、A ？ 输入转角：左转为负，右转为正
8、R ？ 输入圆曲线半径
9、LS1？输入第一缓和曲线长(如果只有一条缓和曲线两者都输入一致)
10、LY ？输入圆曲线长(L-LS1-LS2)
11、LS2？输入第二缓和曲线长(如果只有一条缓和曲线两者都输入一致)
12、X(ZJD)？输入置镜点坐标X
13、Y(ZJD)？输入置镜点坐标Y
14、JSDK ？输入前视点里程
15、PL ？输入偏距
16、PA ？输入偏角