单交点支线、缓和曲线、圆曲线综合程序(CAISO fx-5800p计算器)

1、.单交点支线、缓和曲线、圆曲线综合程序（CAISO fx-5800p计算器）（第四指挥部 姚志彪） 一、 程序功能本程序适合于一个交点内的第一缓和曲线、圆曲线、第二缓和曲线以及第一缓和曲线前的直线段上任意一点的坐标计算。起算点为第一缓和曲线前的直线段起点，计算终点为第二缓和曲线终点。计算时只需输入待求点里程以及待求点偏移距离两个元素即可。二、源程序DJDQXFY(文件名)“Xj”？A：“Yj”？B：“FWJ”？C：“PJ”？D：“R”？R：“L1”？L：“L2”？Z：“U”？U：“K（J）”？WDE:D0=>-DEL/2-L3/(240R2)+(R+L2/(24R)-L4/(2688R3

2、)Tan(E/2)+(Z2-L2)/(24R)+(L4-Z4)/(2688R3)/sinETZ/2-Z3/(240R2)+(R+Z2/(24R)-Z4/(2688R3)tan(E/2)+(L2-Z2)/(24R)+(Z4-L4)/(2688R3)/sinEPRE/180+L/2+Z/2S:C+180G:TcosG+AE:TsinG+BF:C+DI:PcosI+AG:PsinI+BHLBI 0 “K（m）”？K：“Q”？VIf KW-T:then Goto1Else if KW-T+L:then Goto2Else if KW-T+S-Z:then Goto3Else if KW-T+S:the

3、n Goto4Else if KW-T+S:then Goto5If endLBI 1K-WN:CO:NcosO+AM:NsinO+BNGoto8LBI 2K-W+TN:90N2/(RL) QN-N5/(40R2L2)+N9/(3456R4L4)N(K-W+T)3/(6RL)-(K-W+T)7/(336R3L3)+(K-W+T)11/(42240R5L5) JIf D0:then E+NcosC-JsinCM:F+NsinC+JcosCNElse E+NcosC+JsinCM:F+NsinC-JcosCNIf endIf D0:then C+QO: Else C-QO: If endGoto

4、8LBI 390L/(R)QL-L3/(40R2)+L5/(3456R4) N:L2/(6R)-L4/(336R3)+L6/(42240R5) JIf D0:then E+NcosC-JsinCM:F+NsinC+JcosCNElse E+NcosC+JsinCM:F+NsinC-JcosCNIf end90(K-W+T-L)/( R)O:2RsinOX:OIIf D0:then C+Q+IO: Else C-Q-IO: If endXcosO+MM:XsinO+NNIf D0:then C+Q+2IO: Else C-Q-2IO: If endGoto 8LBI 4K-W+T-SN:-NN:

5、90N2/(RZ)Q:N-N5/(40R2Z2)+N9/(3456R4Z4)N(S-K+W-T)3/(6RZ)-(S-K+W-T)7/(336R3Z3)+(S-K+W-T)11/(42240R5L5)JIf D0:then G-Ncos(C+D)-Jsin(C+D)M:H-Nsin(C+D)+Jcos（C+D）NC+D-QOElse G-Ncos(C+D)+Jsin(C+D)MH-Nsin(C+D)-Jcos（C+D）N: C+D+QOIf endGoto 8LBI 5K-W+T+P-SN:C+DO:NcosO+AM:NsinO+BNGoto 8LBI 8M+Vcos(O+U)M:N+Vsin

6、(O+U)N“XP=”:MM“YP=”:NNGoto 0三、使用说明：Xj Yj-交点坐标FWJ-交点起始方位角PJ-交点偏角（左偏为负，右偏为正）R-圆曲线半径L1-第一缓和曲线长L2-第二缓和曲线长U-正交或斜交角度K(j)-交点里程K(m)-待求点里程Q-待求点偏移距离（左偏为负，中线为0，右偏为正）XP YP-待求点坐标四、工程事例 以昆明东连接线为例，调试本程序。开机，选择文件名DJDQXFY按EXE显示XJ？ 输入交点X坐标2572165.236按EXE显示YJ？ 输入交点Y坐标891213.2677按EXE显示FWJ？ 输入交点起始方位角90°2839.5按EXE显示PJ？ 输入交点偏角66°116.7（右转）按EXE显示R？ 输入圆曲线半径310按EXE显示L1？ 输入第一缓和曲线长50按EXE显示L2？ 输入第二缓和曲线长138.79按EXE显示U？ 正交输入90按EXE显示K(j)？ 输入