1、CASIO5800 公路卵型曲线计算公式（积木法）1FQX(计算运行程序)Lb1 1：C1s “Z=”？Z：“KC=”？S：If Z=1：Then Prog“A”：Goto2：If Z=2：Then Prog“B”：Goto2：Eise Goto1：If End Lb1 2：Prog“FJS”：0D：“D=0”？D：If D0：Then“PIANJIAO”？T：X+Dcos（F+T）X：Y+Dsin（F+T）Y：If End：C1s Locate 1，1“X=”： Locate 3，1，XLocate 1，2“Y=”： Locate 3，2，YGoto1 2FJS（计算程序）If P=0：Th
2、en Goto1：E1se Goto2：If End Lb1 1：（S-A）L：（M+Lcos（F） ）X：（N+Lsin（F） ）Y：Goto 3Lb1 2：If P1：Then Goto 4：Eise Goto 5：If End Lb1 4：If P=2：Then 0V：If End：If P=3：Then（CR）V：If End Lb1 0：If G=1:Then（V+S-A）L：If End：If G=-1：Then（V-S+A）L：If End：（F-（9OGV 2 ）（C） ）F：（L-V-（L （5） -V（5） ）（40C 2）+（L （9） -V（9） ）（3456C （4）
3、 ）-（L （13） -V（13） ）（599040C （6） ） ）I （L （3） -V（3） ）（6C）-（L （7） -V（7） ）（336C （3） ）+（L （11） -V（11） ）（4240 C（5） ）-（L （15） -V（15） ）（9676800 C （7） ） ）J （M+GIcos（F）-Jsin（F） ）X：（N+GIsin（F）+Jcos（F） ）Y：（F+（90GL 2）（C） ）F Goto 3Lb1 5：（S-A）L：（F+（180L）（R） ）Q：（M+R（sin（Q）-sin（F） ） ）X：（N-R（cos（Q）-cos（F） ）Y：QF：Lb1 3
4、 3A（建立卵型曲线数据库，此数据仅供参考，新修线路要重新按下面方法输入数据）If S72932.70:Then 125808.846M;540693.466N:72682.70A:3415114.4“F:2P:1G:1100R:274995.36C:Goto 2:If End If S73203.68:Then 126049.052M;540624.697N:72932.70A:3482153.98“F:1P:1G:1100R: Goto 2:If End If S73353.68:Then 126318.489M;540603.124N:73203.68A:3622846.38“F:3P:
5、-1G:1100R:366666.5809C:Goto 2:If End If S73818.69:Then 126467.651M;540618.276N:73353.68A:368324.82“F:1P:1G:2000R: Goto 2:If End If S74138.69:Then 126915.390M;540739.886N:73818.69A:3815122.42“F:3P:-1G:2000R:64000C:Goto 2:If End Lb1 2S曲线的结束里程：M=起点 X 坐标:N=起点 Y 坐标:A=计算起点桩号: F=计算起点方位角:R=半径:C=缓和曲线参数（A 2=C
6、）：P=判断线型类别（P=0 直线， =1 圆曲线，=2 第一缓和曲线，=3 第二缓和曲线）:G=左转右转：Z=？输入要计算的线路编号，本程序计算只输入 1：KC=？输入所求点桩号：D=0？输入计算边桩边距：PRIANJAO？边桩与中桩夹角，右 90 度，左 270 度，也可以输任意夹角。CASIO5800 公路标准曲线计算公式（积木法）1RUNLb1 1：C1s “E”?E: “KC=”?S:If E=1:Then Prog“YS”:If End If E=2:Then Prog“YS1”:If End (S-Z) L:Prog”ZCX” 0D: “D=”?D:If D0:Then“JIAJ
7、IAO”? H:(X+Dcos(Q+H) X:(Y+Dsin(Q+H) Y:If End “X=”:X“Y=”:Y“F=”:QGoto 12.ZCX(AR180+C) K:(C 2(24R)-C(4) (2688R(3) P:(R+P)tan(A2)+C2-C (3) (240R2) T:-1N:If L(K-C):Then(K-L) L:1N:If End If L0:Then LX:0Y:0Q:Goto2:IfEnd If LC: Then(L-L (5) (40R2C2) X:(L (3) (6RC)-L(7) (336R(3)C(3)Y:(90L 2(RC) Q:Goto2:If En
8、d If LK-C: Then(180(L-C) (R)+90C(R) Q:(Rsin(Q)+C2-C (3) (240R2) X:(R(1-cos(Q)+P) Y:If End Lb1 2:If N=1:Then(A-Q) Q:XI:YJ:(T+(T-I)cos(A)-Jsin(A) X：（T-I）sin（A）+Jcos（A） ）Y：If End XI：FYJ：（G+Tcos（180+B）+Icos（B）-Jsin（B） ）X：（V+Tsin（180+B）+Isin（B）+Jcos（B） ）Y：（B+FQ）Q 3YS（建立标准曲线数据库，此数据仅供参考，新修线路要重新按下面方法输入数据）If
9、 S67694.56:Then 221548.3“A: 1000R :170C:67135.99Z:120812.719G:542074.823V: 12020.6“B:-1F: Goto 2:If End If S68631.73:Then 105317.6“A: 3000R : 0C:68061.63Z:121686.026G:541740.914V:3390432.3“B: 1F: Goto 2:If End If S70306.37:Then294121.1“A: 1100R :250C:69486.38Z:123219.872G:541469.458V:3495749.9“B:-1F
10、: Goto 2:If End If S70958.17:Then 262452.5“A: 980R : 200C:70306.37Z:123794.768G:540991.741V:3201628.8“B: 1F: Goto 2:If End If S72146.47:Then212338.8“A:960R :170C:71618Z:125017.748G:540702.398V:3464121.3“B: 1F: Goto 2:If End If S72682.70:Then 261345.7“A:800R :170C:72146.47Z:125550.658G:540778.084V:80500.1“B:-1F: Goto 2:If End If S72682.70:Then Prog “FQX”:Goto 2Lb1 2S曲线的结束里程（YZ，HZ）：A 交点转角 a：Z=ZH 点桩号：G=交点 X 坐标:V=交点 Y 坐标: B=计算起点方位角:R=半径:C=缓和曲线长：F=判断线型类别（F=1 线路右转，=-1 线路左转）: E？输入要计算的线路编号，本程序计算只输入 1：KC=？输入所求点桩号：D=0？输入计算边桩边距：JIAJIAO？边桩与中桩夹角，右 90 度，左270 度，也可以输任意夹角。
