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

《单交点支线、缓和曲线、圆曲线综合程序(caiso fx-5800p计算器)》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

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

2、688R3))Tan(E/2)+((Z2-L2)/(24R)+(L4-Z4)/(2688R3))/sinE→TZ/2-Z3/(240R2)+(R+Z2/(24R)-Z4/(2688R3))tan(E/2)+((L2-Z2)/(24R)+(Z4-L4)/(2688R3))/sinE→PRE∏/180+L/2+Z/2→S:C+180→G:TcosG+A→E:TsinG+B→F:C+D→I:PcosI+A→G:PsinI+B→HLBI0“K（m）”？K：“Q”？VIfK≤W-T:thenGoto1ElseifK≤W-T+L:thenGoto2ElseifK≤W-T+S-Z:the

3、nGoto3ElseifK≤W-T+S:thenGoto4ElseifK≥W-T+S:thenGoto5IfendLBI1K-W→N:C→O:NcosO+A→M:NsinO+B→NGoto8LBI2K-W+T→N:90N2/(πRL)→QN-N5/(40R2L2)+N9/(3456R4L4)→N(K-W+T)3/(6RL)-(K-W+T)7/(336R3L3)+(K-W+T)11/(42240R5L5)→JIfD﹥0:thenE+NcosC-JsinC→M:F+NsinC+JcosC→NElseE+NcosC+JsinC→M:F+NsinC-JcosC→NIfendIfD﹥

4、0:thenC+Q→O:ElseC-Q→O:IfendGoto8LBI390L/(πR)→QL-L3/(40R2)+L5/(3456R4)→N:L2/(6R)-L4/(336R3)+L6/(42240R5)→JIfD﹥0:thenE+NcosC-JsinC→M:F+NsinC+JcosC→NElseE+NcosC+JsinC→M:F+NsinC-JcosC→NIfend90(K-W+T-L)/(πR)→O:2RsinO→X:O→IIfD﹥0:thenC+Q+I→O:ElseC-Q-I→O:IfendXcosO+M→M:XsinO+N→NIfD﹥0:thenC+Q+2I→O:

5、ElseC-Q-2I→O:IfendGoto8LBI4K-W+T-S→N:-N→N: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)→JIfD﹥0:thenG-Ncos(C+D)-Jsin(C+D)→M:H-Nsin(C+D)+Jcos（C+D）→NC+D-Q→OElseG-Ncos(C+D)+Jsin(C+D)→MH-Nsin(C+D)-Jcos（C+D）→N:C+D+Q→OIfendGoto8LBI5K-W+T+P

6、-S→N:C+D→O:NcosO+A→M:NsinO+B→NGoto8LBI8M+Vcos(O+U)→M:N+Vsin(O+U)→N“XP=”:M→M◢“YP=”:N→N◢Goto0三、使用说明：XjYj----交点坐标FWJ----交点起始方位角PJ-----交点偏角（左偏为负，右偏为正）R-----圆曲线半径L1----第一缓和曲线长L2----第二缓和曲线长U---正交或斜交角度K(j)-----交点里程K(m)-----待求点里程Q-----待求点偏移距离（左偏为负，中线为0，右偏为正）XPYP---待求点坐标四、工程事例以昆明东连接线为例，调试本程序。开机，选择文

7、件名DJDQXFY按EXE显示XJ？输入交点X坐标2572165.236按EXE显示YJ？输入交点Y坐标891213.2677按EXE显示FWJ？输入交点起始方位角90°28′39.5″按EXE显示PJ？输入交点偏角66°11′6.7″（右转）按EXE显示R？输入圆曲线半径310按EXE显示L1？输入第一缓和曲线长50按EXE显示L2？输入第二缓和曲线长138.79按EXE显示U？正交输入90按EXE显示K(j)？输入交点里程290.15按EXE显示K(m)？输入待求点里程100按EXE显示Q？输入待求点偏移距离中