单交点坐标计算.doc

单交点坐标计算.doc:..单交点直线、缓和曲线、圆曲线(CAISOfx-5800p计算器)综合程序一、 程序功能本程序适合于一个交点内的第一缓和曲线、圆曲线、第二缓和曲线以及第一缓和曲线前的直线段上任意一点的坐标计算。起算点为第一缓和曲线前的直线段起点,计算终点为第二缓和曲线终点。计算时只需输入待求点里程以及待求点偏移距离两个元素即可。二、 源程序DJDQXFY(文件名)“Xj”?A:“Yj”?B:“FWJ”?C:“PJ”?D:“R”?R:“LI”?L:“L2”?Z:“U”?U:“K(J)”?WDtE:D<0=>・DtEL/2-L3/(240R2)+(R+L2/(24R)-L4/(2688R3))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^PREH/180+L/2+Z/2TS:C+180TG:TcosG+ATE:TsinG+BTF:C+DfI:PcosI+A—G:PsinI+B—>HLblO“K(m)"?K:V?VIfK<W-T:ThenGotolElseifK<W-T+L:ThenGoto2ElseifK<W-T+S-Z:ThenGoto3Else讦K<W-T+S:ThenGoto4ElseifK>W-T+S:ThenGoto5IfendLbl1K-WTN:C—O:NcosO+ATM:NsinO+BTNGoto8LBI2K-W+T^N:90N2/(ttRL)tQN-N5/(40R2L2)+N9/(3456R4L4)->N(K-W+T)3/(6RL)-(K-W+T)7/(336R3L3)+(K-W+T)h/(42240R5L5)—JIfD>O:thenE+NcosC-JsinC^M:F+NsinC+JcosC^NElseE+NcosC+JsinCiM:F+NsinC-JcosCfNIfendIfD>O:thenC+Q—O:ElseC-Q—>0:IfendGoto8Lbl390L/CR)fQL-L3/(40R2)+L5/(3456R4)^N:L2/(6R)-L4/(336R3)+L6/(42240R5)—JIfD>O:thenE+NcosC-JsinC^M:F+NsinC+JcosC—>NElseE+NcosC+JsinCfM:F+NsinC-JcosCfNIfend90(K-W+T-L)/(ttR)—O:2RsinO—X:O—IIfD>O:ThenC+Q+I—>O:ElseC-Q-IfO:IfendXcosO+M^M:XsinO+N^NIfD>0:ThenC+Q+2I—O:ElseC-Q-2I^O:IfendGoto8Lbl4K-W+T-S->N:-N^N:90N2/(ttRZ)^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)+