公路平曲线设计与敷设程序程序4850P

公路平曲线设计与敷设程序(用于CASIO fx-4850P计算器)１.该程序是公路平曲线测设的常用程序，包括五种半径选择程序、四种中线敷设程序和四种特殊平曲线设计与敷设程序。

适用于三、四级公路之测设，符合海地道路软件中平曲线计算之＂算法三＂,是公路工程师的最佳助手。

２.该程序可分为三个部分：第一部分为半径选择程序，分为外距控制（E）、切线长控制（T）、曲线长控制(L)，两点虚交(AB)，三点虚交(ABC)；第二部分为中桩支距法放样程序：分为单交点(1JD)、两点虚交(2JD)、三点虚交(3JD)、回头曲线之圆曲线部分(HTQX)；第三部分为特殊平曲线设计与敷设程序，分为单交点凸型曲线设计(TU)、两点虚交复曲线设计与敷设(FU/FUF)、两点虚交非对称基本型平曲线的设计与敷设(FDC/FDCF)以及两点虚交卵型曲线的设计与敷设(LQX/LQXF)。

３.该程序利用模拟菜单操作，各个程序既可单独使用，又可联合使用。

程序必须全部输入完才能正常运行（特殊平曲线除外）。

４.程序使用技巧：运行时按照提示输入数据即可得到结果：①单交点平曲线半径可根据控制较严的一项进行选择：外距控制按１(E)、切线长控制按２(T)、曲线长控制按５(L)；结果不满意可按AC键退出程序，重新计算。

②虚交点的平曲线半径选择，先运行相应程序，拟放曲中桩号（QZ桩号），按AC键退出程序，根据拟放的曲中桩(QZ)位置需向外或者向内偏移的距离（例如：１.５米），再运行外距控制程序（Ｅ），需向外偏移时Ｅ值输入Ｅ－偏移距离（例如：Ｅ－１.５），向内偏移时输入Ｅ＋偏移距离（例如：Ｅ＋１.５），即可得所求半径。

③运行敷设程序得到中桩坐标，Ｘ值为沿导线上量取的长度，Ｘ前面的交点桩号为量取长度的起点，方向为测量的前进方向，Ｙ值为偏移导线的垂直距离，Ｙ值为正时向内偏移，为负时往外偏移。

④复曲线和卵型曲线须先拟定第一个曲线半径即可。

⑤Ｃ型曲线和Ｓ型曲线可分成两个曲线，分别用外距控制和切线长控制程序进行计算。

常用平曲线设计与敷设程序程序1 程序名：JS （选择半径主程序）94字节G＂1E-2T-3AB-4ABC-5L＂：G=1=﹥Prog＂E＂：≠>G=2=>Prog＂T＂：≠>G=3=>Prog＂AB＂：≠>G=4=>Prog＂ABC＂：≠>G=5=>Prog＂L＂⊿⊿⊿⊿⊿程序2 程序名：FX （计算及放样主程序）112字节G＂1-2-3JD-4HTQX＂：G=1=>Prog＂S1JD＂：Prog＂F1JD＂：≠>G=2=> Prog＂S2JD＂：Prog＂F2JD＂：≠>G=3=>Prog＂S3JD＂：Prog＂F3JD＂：≠>G=4=>Prog＂HTQX＂⊿⊿⊿⊿程序3 程序名：E （外距控制程序）115字节J＂PJ=＂：E：H＂LS=＂：D=J÷2：A=1÷cosD-1：C=H2÷24÷cosD：E＜0=>＂R=＂：R=(E-√(E2-4AC))÷2÷A◢≠>＂R=＂：R=(E+√(E2-4AC))÷2÷A◢⊿程序4 程序名：T （切线长控制程序）192字节J＂PJ=＂：S＂T=＂：H＂LS=＂：A=1-cosJ：B=(H÷2-S)sinJ：C=AH2÷24：R=(-B+√(B2-4AC))÷2÷A：C=R-2：D=R+2 ↓Lbl A：Prog＂PQ＂：T=(R+P)tan(J÷2)+Q：F=Int(E4T)÷E4：F=S=>Goto B：≠>F＜S=>C=R：≠>D=R⊿R=(C+D)÷2：Goto A⊿↓ Lbl B：＂R=＂：R=Int(E3R)÷E3◢程序5 程序名：AB（两点虚交切基线半径程序）66字节M＂PJA=＂：N＂PJB=＂：K＂AB=＂：D=M：S=N：F=K：Prog＂QJX＂：＂R=＂：R◢程序6 程序名：ABC （三点虚交切基线半径程序）152字节M＂PJA=＂：N＂PJB=＂：Ｏ＂PJC=＂：K＂AB=＂：I＂BC=＂：D=M：S=N+Ｏ：F=K+IsinＯ÷sinS：Prog＂QJX＂：＂R1=＂：X=R◢D=M+N：S=Ｏ：F＝I+KsinM÷sinD：Prog＂QJX＂：＂R2=＂：Y=R◢＂R=＂：R=(XK+YI)÷(K+I)◢程序7 程序名：L （曲线长控制程序）65字节J＂PJ=＂：H＂LS=＂：L：R=180(L-H)÷兀÷J：＂R=＂：R=Int(E3R+1)÷E3◢程序8 程序名：QJX （切基线半径计算子程序）83字节H＂LS=＂：A=(1-cosD)÷sinD+(1-cosS)÷sinS：C=H2(1÷sinD+1÷sinS)÷24：R=(F+√(F2-4AC))÷2÷A程序9 程序名：S1JD （单交点平曲线计算程序）97字节J＂PJ=＂：R：H＂LS=＂：Prog＂PQ＂：F=J÷2：＂T=＂：T=(R+P)tanF+Q◢＂E=＂：E=(R+P)÷cosF-R◢＂L=＂：L=兀RJ÷180+H◢程序10 程序名：S2JD（两点虚交平曲线计算程序）105字节M＂PJA=＂：N＂PJB=＂：K＂AB=＂：J=M+N：Prog＂S1JD＂↓＂TA=＂：U=T-KsinN÷sin(180-J)◢＂TB=＂：V=T-KsinM÷sin(180-J)◢Prog＂ZN＂程序11 程序名：S3JD （三点虚交平曲线计算程序）166字节M＂PJA=＂：N＂PJB=＂：Ｏ＂PJC=＂：K＂AB=＂：I＂BC=＂：J=M+N+Ｏ：Prog＂S1JD＂↓U=T-(K+IsinＯ÷sin(180-N-Ｏ))×sin(N+Ｏ)÷sin(180-J)：＂TA=＂：U◢V=T-(I+KsinM÷sin(180-M-N))×sin(M+N)÷sin(180-J)：＂TB=＂：V◢Prog＂ZN＂程序12 程序名：F1JD （单交点平曲线敷设程序）136字节U=T：Z＂JD K+＂：Prog＂ZN＂：Lbl A：{W}：C=W-Z+T：C＞L=>Goto A⊿↓C＞L÷2=>C=L-C⊿C≤H=>Prog＂ZH＂：≠>Prog＂HY＂⊿↓W-Z+T＜L÷2=>＂ZH X=＂：◢＂Y=＂：Y◢≠>＂JD X=＂：T-X◢＂Y=＂：Y◢⊿Goto A程序13 程序名：F2JD（两点虚交平曲线敷设程序）236字节Lbl A：{W}：C=W-Z+U：C＞L=>Goto A⊿C≥L-H=>C=L-C：Prog＂ZH＂：X＜V=>＂JDB X=＂：V-X◢＂Y=＂：Y◢≠>A=N：B=V：Prog＂ZXY＂：＂JDA X=＂：K-X◢＂Y=＂：Y◢⊿Goto A⊿↓ C≤H=>Prog＂ZH＂：≠>Prog＂HY＂⊿X＜U=>X＂ZH X=＂： X◢＂Y=＂：Y◢≠>A=M：B=U：Prog＂ZXY＂：X＜K=>＂JDA X=＂：X◢＂Y=＂：Y◢≠>A=N：B=K：Prog＂ZXY＂：＂JDB X=＂：X◢＂Y=＂：Y◢⊿⊿Goto A程序14 程序名：F3JD （三点虚交平曲线敷设程序）279字节Lbl A：{W}：C=W-Z+U：C＞L=>Goto A⊿C≥L-H=> Goto B⊿C≤H =>Prog＂ZH＂：≠>Prog＂HY＂⊿X＜U=>＂ZH X=＂：X◢＂Y=＂：Y◢≠>A=M：B=U：Prog＂ZXY＂：X＜K=>＂JDA X=＂：X◢＂Y=＂：Y◢≠>A=N：B=K：Prog＂ZXY＂：X＜I=>＂JDB X=＂：X◢＂Y=＂：Y◢≠>A=Ｏ：B=I：Prog＂ZXY＂：＂JDC X=＂：X◢＂Y=＂：Y◢⊿⊿⊿Goto A ↓Lbl B：C=L-C：Prog＂ZH＂：X＜V=>＂JDC X=＂：V-X◢＂Y=＂：Y◢≠>A=Ｏ：B=V：Prog＂ZXY＂：＂JDB X=＂：I-X◢＂Y=＂：Y◢⊿Goto A程序15 程序名：HTQX （回头曲线之圆曲线部分敷设程序）214字节D＂2AB-3ABC＂：D=2=>Prog＂S2JD＂：≠>Prog＂S3JD＂⊿Z＂JDA K+＂：W＂NO=＂↓Lbl A：{W}：C=W-Z+U： Prog＂HY＂：＂ZH X=＂：X◢＂Y=＂：Y◢A=M：B=U：Prog＂ZXY＂：＂JDA X=＂：X◢＂Y=＂：Y◢A=N：B=K：Prog＂ZXY＂：＂JDB X=＂：X◢＂Y=＂：Y◢D=2=>Goto A：≠>A=Ｏ：B=I：Prog＂ZXY＂：＂JDC X=＂：X◢＂Y=＂：Y◢⊿Goto A程序16 程序名：ZH （缓和曲线敷设子程序）61字节X=C-C^5÷(40H2R2)：Y=C^3÷(6RH)-C^7÷(336R^3H^3)程序17 程序名：HY（圆曲线敷设子程序）59字节S=180((C-H)÷R+H÷2÷R)÷兀：X=Q+RsinS：Y=P+R(1-cosS)程序18 程序名：ZXY（坐标转换子程序）48字节F=X：X=(F-B)cosA+YsinA：Y=YcosA-(F-B)sinA程序19 程序名：PQ (切线增长值和内移值计算子程序1) 73字节B=90H÷R÷兀：P=H2÷6÷R-H^4÷336÷R^3-R(1-cosB)：Q=H-H^3÷40÷R2-RsinB程序20 程序名：ZN（主点桩号计算子程序）90字节Z＂JDA K+＂：＂ZH+＂：F=Z-U◢＂HY+＂： F+H◢＂QZ+＂：F+L÷2◢＂YH+＂：F+L-H◢＂HZ+＂：F+L◢W＂NO=＂注：只需要以上程序时，在计算状态下录入Prog＂JS＂：Prog＂FX＂，按SHIFT IN键，计算时按CALC键。

特殊平曲线设计与敷设程序程序21 程序名：TS (特殊平曲线设计与敷设主程序) 85字节G＂1TU-2FU-3FDC-4LQX＂：G=1=>Prog＂TU＂：≠>G=2=>Prog＂FU＂：≠>G=3=>Prog＂FDCK＂：≠>G=4=>Prog＂LQX＂⊿⊿⊿⊿程序22 程序名：TU (单交点凸型曲线设计程序) 135字节J＂PJ=＂：A=兀J÷180：B=J÷2：D＂1T-2E＂：D=1=>R=T÷((1+A2÷24)t anB+A÷2-A^3÷240)：＂R=＂：R◢≠>D=2=>R=E÷((1+A2÷24)÷cosB-1) ：＂R=＂：R◢⊿⊿＂LS=＂：H=AR◢程序23 程序名：FU（两点虚交复曲线设计程序）239字节M＂PJA=＂：N＂PJB=＂：K＂AB=＂：I＂LS1=＂：H＂LS2=＂：Ｏ＂RA=＂：Prog＂PQ1＂：S=(Ｏ+X-ＯcosM)÷sinM：A=(1-cosN)÷sinN：B=K-S：C=H2÷24÷sinN：R=(B+√(B2-4AC))÷2÷A：F=Int(E4B)÷E4：D=R-1：E=R+1↓Lbl A：Prog＂PQ＂：J=(R+P-RcosN)÷sinN：J=Int(E4J)÷E4：J=F=>Goto B：≠>J＞F=>E=R：≠>D=R⊿R=(D+E)÷2：Goto A⊿↓Lbl B：R=Int(E3R+0.5)÷E3：＂RB=＂：R◢Prog＂FUF＂程序24 程序名：FUF（两点虚交复曲线计算与敷设程序）543字节M＂PJA=＂：N＂PJB=＂：K＂AB=＂：I＂LS1=＂：H＂LS2=＂：Ｏ＂RA=＂：R＂RB=＂：Prog＂PQ1＂：D=R：J=H：U=I÷2+(Ｏ-(Ｏ+X)cosM)÷sinM：X=Ｏ兀M÷180-I÷2：＂LYA=＂：X◢Y=R兀N÷180-H÷2：＂LYB=＂：Y◢＂L=＂：L=X+Y+I+H◢Prog＂PQ＂：＂TA=＂：U◢V=H÷2+(R-(R+P)conN)÷sinN：＂TB=＂：V◢Z＂JDA K+＂：＂ZH+＂：F=Z-U◢＂HY+＂：F=F+I◢＂GQ+＂：F=F+X◢＂YH+＂：F=F+Y◢＂HZ+＂：F=F+H◢T=X+I：W＂NO=＂↓Lbl C：{W}：C=W-Z+U：C＞L=>Goto C⊿↓ C≤T=>R=Ｏ：H=I：C≤I=>Prog＂ZH＂：≠>Prog＂PQ1＂：P=X：Q=Y：Prog＂HY＂⊿X＜U=>＂ZH X=＂：X◢＂Y=＂：Y◢≠>A=M：B=U：Prog＂ZXY＂：＂JDA X=＂：X◢＂Y=＂：Y◢⊿↓≠>C=L-C：R=D：H=J：C≤H=>Prog＂ZH＂：≠>Prog＂PQ＂：Prog＂HY＂⊿X＜V=>＂JDB X=＂：V-X◢＂Y=＂：Y◢≠>A=N：B=V：Prog＂ZXY＂：＂JDA X=＂：K-X◢＂Y=＂：Y◢⊿⊿Goto C程序25 程序名：FDC (两点虚交非对称基本型平曲线切线长控制程序，简写为FK)251字节M＂PJA=＂：N＂PJB=＂：K＂AB=＂：H＂LS1=＂：I＂LS2=＂：U＂TA=＂：J=M+N：T=U+KsinN÷sin(180-J)：A=1-cosJ：B=(H÷2-T)sinJ：C=I2÷24-H2cosJ÷24：R=(-B+√(B2-4AC))÷2÷A：D=R-1：E=R+1：T=Int(E4T)÷E4 ↓Lbl A：Prog＂PQ＂：Ｏ=R：Prog＂PQ1＂：S=(R+X-(R+P)cosJ)÷sinJ+Q：S=Int(E4S)÷E4：S=T=>＂R=＂：R◢≠>S＞T=>E=R：≠>D=R⊿R=(D+E)÷2：Goto A⊿Prog＂FDCF＂（只要PJB=0，AB=0即可计算单交点。