CASIO5800公路卵型曲线计算公式.docVIP

CASIO5800公路卵型曲线计算公式（积木法） 1．FQX(计算运行程序) 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”：0→D：“D=0”？D：If D>0：Then“PIANJIAO”？T：X+Dcos（F+T）→X：Y+Dsin（F+T）→Y：If End：C1s ? Locate 1，1“X=”： Locate 3，1，X◢? Locate 1，2“Y=”： Locate 3，2，Y◢? Goto1 ? 2．FJS（计算程序） If P=0：Then Goto1：E1se Goto2：If End ? Lb1 1：（S-A）→L：（M+Lcos（F））→X：（N+Lsin（F））→Y：Goto 3? Lb1 2：If P≠1：Then Goto 4：Eise Goto 5：If End ? Lb1 4：If P=2：Then 0→V：If End：If P=3：Then（C÷R）→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-（9OGV2 ）÷（Cπ））→F：（L-V-（L^（5）-V^（5））÷（40C2）+（L^（9）-V^（9））÷（3456C^（4））-（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+（90GL2）÷（πC））→F ? Goto 3? Lb1 5：（S-A）→L：（F+（180L）÷（Rπ））→Q：（M+R（sin（Q）-sin（F）））→X：（N-R（cos（Q）-cos（F）））→Y：Q→F：Lb1 3 ? 3．A（建立卵型曲线数据库，此数据仅供参考，新修线路要重新按下面方法输入数据） If S≦72932.70:Then 125808.846→M;540693.466→N:72682.70→A:341o51′14.4"→F:2→P:1→G:1100→R:274995.36→C:Goto 2:If End ? If S≦73203.68:Then 126049.052→M;540624.697→N:72932.70→A:348o21′53.98"→F:1→P:1→G:1100→R: Goto 2:If End ? If S≦73353.68:Then 126318.489→M;540603.124→N:73203.68→A:362o28′46.38"→F:3→P:-1→G:1100→R:366666.5809→C:Goto 2:If End ? If S≦73818.69:Then 126467.651→M;540618.276→N:73353.68→A:368o32′4.82"→F:1→P:1→G:2000→R: Goto 2:If End ? If S≦74138.69:Then 126915.390→M;540739.886→N:73818.69→A:381o51′22.42"→F:3→P:-1→G:2000→R:64000→C:Goto 2:If End ? Lb1 2 S≤曲线的结束里程：M=起点X坐标:N=起点Y坐标:A=计算起点桩号: F=计算起点方位角:R=半径:C=缓和曲线参数（A2=C）：P=判断线型类别（P=0直线，=1圆曲线，=2第一缓和曲线，=3第二缓和曲线）:G=左转右转：Z=？输入要计算的线路编号，本程序计算只输入1：KC=？输入所求点桩号：D=0？输入计算边桩边距：PRIANJAO？边桩与中桩夹角，右90度，左270度，也可以输任意夹角。 CASIO5800公路标准曲线计算公式（积木法） 1．RUN Lb1 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” ? 0→D: “D=”?D:If D>0:Then“JIAJIAO”? H:(X+Dcos(Q+H)) →X:(Y+Dsin(Q+H)) →Y:If End ? “X=”:X◢ “Y=”:Y◢ “F=”:Q◢ Goto 1? 2