fx-FD10_Pro 缓和曲线程序
缓和曲线坐标计算程序的编制与优化
Ｖ（ ＋ ： Ｎ Ｍ）＊： Ｌ＋Ｒ ｃ －Ｊ ＋ Ｊ＊ ） ｔ 矾 （＋ －Ｉ ０ （Ｃｒ－ ： Ｇ－Ｏ －９ ）－Ｄ － ￣
Ｉ Ｏ ０ Ｔ ｅ ３ ０ Ｏ：Ｅ ｄ ｆ ＜ ： ｈ ｎ０＋ ６ Ｉ ｎ ｆ
Ｏ＝ ： ０
２ ． 曲线坐标计算方法 缓和
在 直线 与圆曲线 间插 入一段半径 由 逐渐变化 到 Ｒ的曲线 ． 这 种曲线称为缓和曲线【 其特征为 ： １ ］ 。 曲线上任意一点 的曲率半径与该 点
至起点 的曲线长成反 比， 即：
Ｒ＝
￡
ｘ： Ｅ Ｈ ｏ（＋ ）Ａｅｓ ＋ Ｊ Ｂ ：＋ ｃ ， ＧＩ ｏ（ Ｇ ＋ ） Ｄ ＋ Ｄ ’Ｙ ：＋ ｓ （ ＋ １ Ａｓ （＋ Ｊ Ｂ ＝ Ｆ Ｈｉ Ｄ Ｇ） ｉＤ Ｇ＋ ） ｎ ＋ ｎ
１ 也 ＩＬ Ｏ ｈｎ ０ ｆ ＝ ￣ ｅ ＇ Ｔ ： ０ Ｘ－ ： ＋ ｃ ｓ ＋ ） Ｅ Ａ ０（ Ｂ Ｄ
７ １ Ｉ
但是 ， 缓和曲线 曲率半径变化 的特征也为其增加了施工 的难度 ． 其 中最主要的就是在施工放样工序 中缓和曲线段 中边桩点位坐标的计算 问题。在实际工作 中， 为了提高工作效率 ． 测量人员一般都使用可编程 计算器编制好坐标计算程序随时计算待测设点坐标然后进行澳设 ４
பைடு நூலகம்
Ｌ÷ ６ ）￡＋３＋Ｒ （ Ｃ 一 ３ ６ （ Ｃ）十 ＋ ２４ ＋ ＲＣ ＋ 三 ４ ２ ０ （ ）— Ⅳ
中的 和 因为计算器 序编制的特点． 所以没有用增加下标的方式
来描述 。 从程序 中可 以看出 ． Ｈ为待计 算坐标 点到缓 和曲线起点（ 直缓点 ） 的直线距离 Ｉ 为直缓点到待计算坐标 点的方位角与直缓点 曲线方位 角的偏差 。 为待计算坐标点 曲线方位角与直缓点 曲线方位角的偏差 。 Ｊ Ｄ为直 缓点 曲线方位角 如图： 以直缓点 Ｚ Ｈ为原点 ， ｚ 过 Ｈ点缓 和曲线切 线为 轴 ｚ Ｈ点 按 照公式的计算 。与 Ｊ Ｉ 的数值都为正值 ， 但在 实际情况 中 ， 缓和 上缓 和曲线的半径为 Ｙ 轴建立坐标 系。 图中 ｉ 点为缓 和曲线上任意 曲线方位角 的偏差有时是增大 ． 有时是减小 ． 应该视情 况而定 。 具体情 点 。 为缓和 曲线起点到 ｉ ｆ 点在缓和曲线 上的长度 。 为缓 和全线 总 况是 ． 曲线从直缓点开始． 缓和 如果沿前进方向向右转 ． 则方位角应该 长度 Ｒ为 圆曲线半径 增 大， 反之 方位角减小 。因此 。 程序 中还有一个变 量 Ｇ， Ｇ的数值应该 根据缓 和曲线 的特性 ，通过积分推导 可以得到在建立 的坐标系 为 １ 或者 一 ． １在调用缓和 曲线计算子程 序之前赋值 ， 门用来 描述缓 专 中，点 的坐标计算公式如下 ： ｉ 和曲线 的转动方向 ０为待计算坐标点的曲线方位角 ． 该方位角在缓和 曲线 中线坐标 ｆ Ｔ 丁 ＋ — — 计算 中并不会用 到 ． 但是在实际工作 中 ． 绝大多数时候需要测 设的并 ４０ １ ３ ５ Ｒ ｌ Ｒ ０ ４ ６ ０ 不 只有 中线坐标 ， 还包括边桩坐标 。 在计算边桩坐标时 ， 曲线方位角就 １ ３ 一 ＋ Ｉ ｊ１ Ｉ ７ 必 不可少 了 同时 ． 实际工作 中也经常需要知道曲线上任意一点 的方 位角。 ２ 由于计算器程序的计算问题 ． 计算得出的 ０值有时会小于 ０度 ， ， 】 ６ ｔ 而方位角 的取值范围是 ０ 度到 ３ ０ ． ６ 度 因此程序 中加上下 面这 行条 件 代码 ． 用就是在计算得出的 Ｏ值小于 ０时 自动加上 ３ ０ ， 其 其作 ６度 将 利用求得 的 誓、 数值加上 已知的直缓点 （Ｈ 坐标及方位 角 ， ｚ） 便 调整至方位角允许的范围 可 以计算得到 ｉ 点在原坐标系中的真正坐标 。
CASIO第一缓和曲线道路中边桩编程和计算
实验四 第一缓和曲线道路中边桩编程和计算一、实验目的1、掌握第一缓和曲线型道路的数学模型及其计算过程2、学习和掌握用CASIO Fx-4850计算器编写计算缓和曲线型道路中边桩的计算。
二、实验原理（一）、第一缓和曲线型道路数学模型 1、数学模型已知点1-i JD 和i JD 的测量坐标，转角i I ，设计半径R ，缓和曲线长S l ，以及点i JD 和P 的里程，要求的P 的测量坐标。
由两已知点可以算的直线的方位角i α，)(tan 111-----=i i i i i X X Y Y α （4—1）1+i1.4图示意图右偏曲线第一缓和曲线由切线长1T 和i JD 的坐标即可算出ZH 的坐标，)180sin()180cos(11++=++=i i ZY i i ZY T Y Y T X X αα （4—2）建立独立坐标系''ZHy x 。
我们已经知道，缓和曲线上任意相对原点ZH 曲线长为P l 一点P 在独立坐标系''ZHy x 中的坐标，-+-=-+-=55113373'449225'422403366345640SPS P S P P SPSPP Pl R l l R l Rl l Y l R l l R l l X （4—3）在由已求得的ZH 和i α，通过坐标平移旋转，即可求得P 的测量坐标，ZHi Pi P P ZHi P i P P Y Y X Y X Y X X ++=+-=ααααcos sin sin cos ''''（4—4）P I 我们也可求得， π1802⨯=S P P Rl l I 由P I 和i α求得曲线在点P 处的切线的方位角，再由切线的方位角，求得边桩的方位角，如已知边桩距，就可用式（4—2）求得边桩的坐标。
2、计算步骤（1）输入已知数据：i i i i i i i R I L Y X Y X ,,,,,,11--。
卡西欧fx5800计算器缓和曲线编程
1fx－5800P计算器编程缓和曲线程序14→DimZ ：“ZHK”：?K：?R ：? A：?L：? T：? F：“Y＋1，Z－1”：?P：“JDX”：?Q：“JDY”：?W：180÷（πR）→Z：0.5L－L^3÷(240R2)→Z[8]：“LZ”：ZL÷2→B：A÷Z＋L→Z[13]◢“ZHK=”：K◢“HYK=”：K+L→Z[1]◢“YHK=”：K+ Z[13] －L→Z[2]◢“HZK=”：K+ Z[13]→Z[3]◢“ZHX=”：Q+Tcos(F+180)→U◢“ZHY=”：W+Tsin(F+180)→V◢“HZX=”：Q+ Tcos(F+PA)→Z[6]◢“HZY=”：W+ Tsin (F+PA)→Z[7]◢Lb1 0：“CDZH”：?MIf M≤K：Then Goto 6：Else If M≤Z[1] ：Then Goto 1：Else If M≤Z[2] ：Then Goto 2：Else If M≥Z[3] ：Then Goto 7：Else If M≥Z[2] ：Then Goto 5：If End：If End：If End：If End：If EndLb1 1：M－K→G：√（（G－G^(5)÷(40L2R2)＋G^(9)÷(3456R^(4)L^(4)))2＋(G^(3)÷(6RL)－G^(7)÷(336R^(3)L^(3)) ＋G^(11)÷(42240R^(5)L^(5)))2）→D F＋PZG2÷(6L)→C：F＋PBG2÷L2→H：Goto 3Lb1 2：M－Z[1]→G：R（1－cos（B＋ZG））＋L2÷（24R）→Z[9]：√（Z[9]2＋（Rsin（B＋ZG）＋Z[8]）2）→DF＋Ptg-1(Z[9]÷(Rsin(B＋ZG)＋Z[8]))→C：F＋P(B＋ZG)→HLb1 3“X=”:U＋Dcos(C)→X◢“Y=”:V＋Dsin(C)→Y◢Lb1 B：“ZBJS1，FY－1”：?JIf J>0：Then Goto 4：Else If J〈0：Then Goto A：If End：If EndLb1 4：“ZB”：?S“ZBX”:X＋Scos（H－90）◢“ZBY”:Y＋Ssin（H－90）◢“YB”：?N“YBX”:X＋Ncos（H＋90）◢“YBY”:Y＋Nsin（H＋90）◢Goto 0Lb1 5：Z[3]－M→G：（T－G＋G^(5)÷(40L2R2)－G^(9)÷(3456R^(4)L^(4))) sin(A) ＋(G^(3)÷(6RL)－G^(7)÷(336R^(3)L^(3))＋G^(11)÷(42240R^(5)L^(5))) cos(A)→Z[4]：T＋（T －G＋G^(5)÷(40L2R2)）cos(A) －(G^(3)÷(6RL)－G^(7)÷(336R^(3)L^(3))) sin(A)→Z[5]：√（Z[4]2＋Z[5]2）→D ：F＋Ptg-1(Z[4]÷Z[5])→C：F＋P(A－BG2÷L2) →H：Goto 3Lb1 6：K－M→D：F＋180→C：F→H：Goto 3Lb1 7：M－Z[3]→D：F＋PA→C：C→H：Goto 9Lb1 9：“X=”: Z[6]＋Dcos(C)→X◢“Y=”: Z[7]＋Dsin(C)→Y◢Goto BLb1 A：“N”：?N:“E”：?S：“H”：?I“X=”:（N－X）cos(H)＋(S－Y)sin(H)＋M→Z[10]◢“Y=”:（S－Y）cos(H)－(N－X)sin(H) →Z[11]◢“MS”：1711.15+0.004(Z[10]-85030) →E◢If I≥E+2 ：Then“+－R1”：6.57－√((I－E－2)) 2+ Z[11] 2→OElse If I<E+2 ：Then“+R2”：7.47－√((E+2－I) 2+(Abs( Z[11])+0.9) 2→O◢“﹦＞DB”:(I－E+0.5)→O◢Z[10] →M：If End：If EndGoto 01.1程序说明“DimZ”—内存变量扩充“ZHK”—输入直缓点桩号“R”—输入曲半径“L”—输入缓和曲线长“A”—输入偏角“Y＋1，Z－1”—路线右转输＋1，左转输－1“FWJ”—输入起算方位角“JDX”—输入交点X坐标“JDY”—输入交点Y坐标“ZHK=”：得出直缓点桩号“HYK=”：得出缓圆点桩号“YHK=”：得出圆缓点桩号“HZK=”：得出缓直点桩号“ZHX=”：得出直缓点X“ZHY=”：得出直缓点Y“HZX=”：得出缓直点X“HZY=”：得出缓直点Y“CDZH”—输入待测点桩号“X=”：得出测点桩号中心桩N“Y=”：得出测点桩号中心桩E“ZBJS1，FY－1”—①（坐标计算）施工坐标转大地坐标输+1，“ZB”—输入中桩到左边桩的距离；“ZBX”: 得出待测点左边N值“ZBY”: 得出待测点左边E值“YB”—输入中桩到右边桩的距离；“YBX”: 得出待测点右边N值“YBY”: 得出待测点右边E值②（放样）大地坐标转施工坐标输－1，“N”—输入大地坐标的N坐标；“E”—输入大地坐标的E坐标。
CAD画缓和曲线lisp程序
CAD画缓和曲线lisp程序CAD中画缓和曲线,首先复制本文☆后面的源程序保存至cad安装目录的SUPPORT文件夹,保存类型为.lsp可以随便复制一个SUPPORT文件夹内的lsp 文件,然后替换本文的程序。
打开CAD后,输入appload回车,找到你保存的缓和曲线lsp程序,点击加载,然后就可以画缓和曲线了。
首先,要画出缓和曲线的两条直线,然后输入HH回车,按提示完成缓和曲线。
注:本程序,缓和曲线段拟合长度为0.4m,如需更改拟合长度,将程序的第8行(repeat(FIX(/Ls0.4))及9行(setql(+l(/Ls(FIX(/Ls0.4))))中的0.4修改即可。
☆;;多义线摹拟缓和曲线。
;;输入起止直线､半径､缓和曲线长或设计车速。
;;命令:HH(defun_p()(setql0)(mand\(mand\(repeat(FIX(/Ls0.4))(setql(+l(/Ls(FIX(/Ls0.4))))x(+(-l(/(*lllll)40CC))(/(*lllllllll)3456CCCC))y(*id__(+(-(/(*lll)6C)(/(*lllllll)336CCC))(/(*lllllllllll)42240CCCCC))));setq(mand(listxy0)));repaet);mand(setqpt5(trans(listxy0)10)));_p(defunll_v()(setqV(getreal\Ls1(*V0.85)Ls2(/(*0.0357VVV)R)Ls(maxLs1Ls2(/R9))Ls(*(fix(/Ls10))10.0));setq(if(>LsR)(setqLsR))(ll_d));ll_v(defunll_d()(setqos(getvar\(setvar\(setqC(*LsR)q(-(+(-(/Ls2)(/(*LsLsLs)240RR))(/(*LsLsLsLsLs)34560RRRR))(/(*LsLsLsLsLsLsLs)8386560RRRRRR))pt1(cdr(assoc10(entget(carp1))))pt2(cdr(assoc11(entget(carp1))))pt10(polarpt1(anglept1pt2)(/(distancept1pt2)2))pt3(cdr(assoc10(entget(carp2))))p t4(cdr(assoc11(entget(carp2))))pt20(polarpt3(anglept3pt4)(/(distancept3pt4)2))p(+(-(/(*LsLs)24R)(/(*LsLsLsLs)2688RRR))(/(*LsLsLsLsLsLs)506880RRRRR) )jd(interspt1pt2pt3pt4nil)alf1(anglept10jd)alf2(anglept20jd)alf(-(anglejdpt20)alf1));setq(if(or(>alfpi)(and(alf(-0pi))))(progn(setqid__-1)(if(>alfpi)(setqalf(-(+pipi)alf))(setqalf(absalf))));progn(progn(setqid__1)(if((abs(distancejdpt1))(abs(distancejdpt2)))(setqptt1pt1)(setqptt1pt2));if(setqptt2(polarjdalf1(-0x1)))(thhp1ptt110)(thhp1ptt211)(if(>(abs(distancejdpt3))(abs(distancejdpt4)))(setqptt3pt3)(setqptt3pt4));if(setqptt4(polarjdalf2(-0x1)))(thhp2ptt310)(thhp2ptt411)(if(=id__1)(mand\(setqalfd(angfalf))(setvar\(mand\(mand\偏角=\(mand\(mand\(strcat\半径=\(mand\(strcat\切线长=\(mand\(strcat\曲线长=\(mand\(strcat\外距=\(mand\(strcat\缓曲长=\);ll_d(defunangf(alf)(setqalff(angtosalf14)n1kk(strlenalff))(repeatkk(setqalfn(substralffn1))(if(=alfn\(setqnnn));if(setqn(+n1)));repeat(strcat(substralff1(-nn1))\);angf(defunc:hh(/p1p2pt1pt2pt3pt4pt5pt6pt10pt20id__RVLsEp3r1xylx0x1Cjdalfalf1al f2qpClLs1Ls2)(mand\(setqp1nilp2nil)(while(=p1nil)(setqp1(entsel\拾取第一条直线:\(redraw(carp1)3)(while(=p2nil)(setqp2(entsel\拾取第二条直线:\(redraw(carp2)3)(initget1)(setqR(getdist\请输入圆曲线半径R:\(initget1\(setqp3(getdist\输入缓和曲线长度(Ls)或[设计速度(V)]:\(if(=p3\(princ));eline (defunthh(lenpth)(setqen_data(entget(carlen))old_data(assochen_data)new_data(conshpt)en(substnew_dataold_dataen_data));setq(entmoden));thh。
测设缓和曲线和圆曲线的程序
测设缓和曲线和圆曲线的程序（ƒx-4800p）说明：W---W=0时在圆曲线上设站测设圆曲线；W=1时在缓和曲线上设站测设缓和曲线；W=2时在缓和曲线上设站测设圆曲线；Z---ZH(或HZ)的桩号；C---测站的桩号；H---HY(或YH)的桩号；R---半径；A---缓和曲线参数；N---N=0时前视，N=1时后视；L---缓和曲线长度。
程序：W：Z：C：H：R：A：N：L↙Lbi1↙〔I〕↙W=0=>J=Abs(C-I)÷2÷R×180÷π◢S=2×R×SinJ◢ GOTO 1⊿↙W=1=>J=180×Abs(I-C)×(3×Abs(Z-C)+(-1)＾N ×Abs(I-C))÷6 ÷π÷R÷L◢P=(Abs(Z-C)÷Abs(I-Z))＾(1-2×N):S= Abs(I-C)-(Abs(I-Z))＾5×(0.8-P-P＾2+P＾3+P＾4-0.8 ×P＾5)÷72÷R＾2÷L＾2◢ GOTO 1⊿↙W=2=>E=(Abs(C-H)÷6÷A＾2×(3×Abs(Z-H)+Abs(C-H)))×180÷π:F=(Abs(C-H)÷6÷A＾2×(3×Abs(Z-C)+Abs(C-H)))×180÷π:P=Abs(C-Z)÷Abs(H-Z):Q= Abs(C-H)-(Abs(H-Z))＾5÷72÷A＾4×(0.8-P-P＾2+P＾3+P＾4-0.8×P＾5):M= Abs(I-H)÷2÷R×180÷π: G=180-(E+M):S=√(Q＾2+(2×R×SinM)＾2-2×Q×2×R×SinM×COSG ◢J=Sin-1(2×R×SinM×SinG÷S)+F◢ GOTO 1⊿↙结束直线、缓和曲线、圆曲线坐标计算方法（ƒx-4800p）说明：W---W=0时计算直线段坐标；W=1时计算缓和曲线段坐标；W=2时计算圆曲线段；E---已知点的X0坐标；F---已知点的Y0坐标；Q---已知点的桩号；R---半径；A---缓和曲线参数；N---N=0时右偏，N=1时左偏；M---M=0时ZH(ZY或HY)为起点，M=1时HZ(YZ或YH) 为起点；J---已知的坐标方位角；I---计算点的桩号。
在CAD中画缓和曲线过程之欧阳治创编
CAD中画出切线长一、在三、运行程序：在命令行中输入hh回车四、选择两条切线，然后输入曲线半径如：2204.5回车五、输入缓和曲线长，如270，绘图完成！如图AOTOCAD基本命令集ADC,*ADCENTER（设计中心“Ctrl＋2”）CH,MO*PROPERTIES(修改特性“Ctrl＋1”)MA,*MATCHPROP （属性匹配）ST,*STYLE（文字样式）COL,*COLOR（设置颜色）LA,*LAYER（图层操作）LT,*LINETYPE（线形）LTS,*LTSCALE（线形比例）LW,*LWEIGHT（线宽）UN,*UNITS（图形单位）ATT,*ATTDEF（属性定义）ATE,*ATTEDIT（编辑属性）BO,*BOUNDARY（边界创建，包括创建闭合多段线和面域）AL,*ALIGN（对齐）EXIT,*QUIT（退出）EXP,*EXPORT（输出其它格式文件）IMP,*IMPORT（输入文件）OP,PR*OPTIONS（自定义CAD设置）PRINT,*PLOT （打印）PU,*PURGE（清除垃圾）R,*REDRAW（重新生成）REN,*RENAME（重命名）SN,*SNAP（捕捉栅格）DS,*DSETTINGS（设置极轴追踪）OS,*OSNAP（设置捕捉模式）PRE,*PREVIEW（打印预览）TO,*TOOLBAR（工具栏）V,*VIEW（命名视图）AA,*AREA（面积）DI,*DIST（距离）LI,*LIST（显示图形数据信息）2、绘图命令：PO,*POINT（点）L,*LINE（直线）XL,*XLINE（射线）PL,*PLINE（多段线）ML,*MLINE（多线）SPL,*SPLINE （样条曲线）POL,*POLYGON（正多边形）REC,*RECTANGLE（矩形）C,*CIRCLE(圆)A,*ARC(圆弧)DO,*DONUT（圆环）EL,*ELLIPSE（椭圆）REG,*REGION（面域）MT,*MTEXT（多行文本）T,*MTEXT（多行文本）B,*BLOCK（块定义）I,*INSERT （插入块）W,*WBLOCK（定义块文件）DIV,*DIVIDE（等分）H,*BHATCH（填充）3、修改命令：CO,*COPY（复制）MI,*MIRROR（镜像）AR,*ARRAY（阵列）O,*OFFSET （偏移）RO,*ROTATE（旋转）M,*MOVE（移动）E,DEL 键*ERASE（删除）X,*EXPLODE（分解）TR,*TRIM（修剪）EX,*EXTEND（延伸）S,*STRETCH（拉伸）LEN,*LENGTHEN（直线拉长）SC,*SCALE（比例缩放）BR,*BREAK（打断）CHA,*CHAMFER(倒角)F,*FILLET （倒圆角）PE,*PEDIT（多段线编辑）ED,*DDEDIT（修改文本）4、视窗缩放：P,*PAN（平移）Z＋空格＋空格,*实时缩放Z,*局部放大Z+P,*返回上一视图Z＋E,*显示全图5、尺寸标注：DLI,*DIMLINEAR（直线标注）DAL,*DIMALIGNED （对齐标注）DRA,*DIMRADIUS（半径标注）DDI,*DIMDIAMETER（直径标注）DAN,*DIMANGULAR（角度标注）DCE,*DIMCENTER（中心标注）DOR,*DIMORDINATE （点标注）TOL,*TOLERANCE（标注形位公差）LE,*QLEADER（快速引出标注）DBA,*DIMBASELINE（基线标注）DCO,*DIMCONTINUE（连续标注）D,*DIMSTYLE（标注样式）DED,*DIMEDIT（编辑标注）DOV,*DIMOVERRIDE(替换标注系统变量)（二）常用CTRL快捷键【CTRL】＋1*PROPERTIES(修改特性)【CTRL】＋2*ADCENTER（设计中心）【CTRL】＋O*OPEN（打开文件）【CTRL】＋N、M*NEW （新建文件）【CTRL】＋P*PRINT（打印文件）【CTRL】＋S*SAVE（保存文件）【CTRL】＋Z*UNDO（放弃）【CTRL】＋X*CUTCLIP（剪切）【CTRL】＋C*COPYCLIP（复制）【CTRL】＋V*PASTECLIP（粘贴）【CTRL】＋B*SNAP（栅格捕捉）【CTRL】＋F*OSNAP（对象捕捉）【CTRL】＋G*GRID （栅格）【CTRL】＋L*ORTHO（正交）【CTRL】＋W*（对象追踪）【CTRL】＋U*（极轴）（三）常用功能键【F1】*HELP（帮助）【F2】*（文本窗口）【F3】*OSNAP（对象捕捉）【F7】*GRIP（栅格）【F8】*ORTHO（正交）第17章布图、打印与图纸管理绘制好的建筑图样需要打印出来进行报批、存档、交流、指导施工，所以绘图的最后一步是打印图形。
fx-FD10_Pro 缓和曲线程序
f x-F D10_P r o缓和曲线程序"交点里程"C"X（交点）"U"Y（交点）"V"半径R"R"缓和曲线Ls1"S"方位角（直缓—交点）"A"偏角（交点）"D"左（负1）右（正1）"M(R+S^2/(24R))tan (D/2)+S/2-S^(3)/240R^2->T"切线"TC-T->I"直缓里程":IDispsB+S->J"缓圆里程":JDispsJ+piDR/180-S->H"圆缓里程":FDispsH+S->K"直缓里程":KDispsLbl 1"计算里程"P"左右（左正，右负）"L"前后（前正，后负）"QIf P<IThen"前直线"U+(C-P)cos (A+180dms)->XV+(C-P)sin (A+180dms)->YX+L*cos (A+90dms)+Qcos (A+180dms)->N Y+L*sin (A+90dms)+Qsin (A+180dms)->Z IfEndIf P>=I And P<=JThen"前缓和曲线"A+M*(30*(P-I)^2/(piRS))->O(P-I)-(P-I)^3/(90*R^2)->GU+Tcos (A+180dms)+Gcos (O)->XV+Tsin (A+180dms)+Gsin (O)->Y90dms*(P-I)^2/(piRS)->WX+Lcos (A+MW+90dms)+Qcos (A+MW)->N Y+Lsin (A+MW+90dms)+Qsin (A+MW)->Z IfEndIf P>J And P<HThen"圆曲线"A+M*90*(S+P-J)/(piR)->O2Rsin (90dms*(P-J)/(piR))->GU+Tcos (A+180dms)+(S-S^3/(90*R^2))*cos (A+M(30dms*S/(piR)))+Gcos (O)->XV+Tsin (A+180dms)+(S-S^3/(90*R^2))*sin (A+M(30dms*S/(piR)))+Gsin (O)->Y90*(P-J)/(piR)->WX+Lcos (A+MW+90dms)+Qcos (A+MW)->NY+Lsin (A+MW+90dms)+Qsin (A+MW)->ZIfEndIf P>=H And P<=KThen"后缓和曲线"A+MD+180-M(30*(P-K)^2)/(piRS)->O(K-P)-(K-P)^3/(90*R^2)->GU+Tcos (A+MD)+Gcos (O)->XV+Tsin (A+MD)+Gsin (O)->Y90dms*(P-K)^2/(piRS)->WX+Lcos (O+MW+90dms)+Qcos (A-MW)->NY+Lsin (O+MW+90dms)+Qsin (A+MD-MW)->ZIfEndIf P>KThen"后直线"U+(T+P-K)cos (A+MD)->XV+(T+P-K)sin (A+MD)->YX+L*cos (A+MD+90dms)+Qcos (A+MD)->N Y+L*sin (A+MD+90dms)+Qsin (A+MD)->Z IfEnd"计算里程X":XDisps"计算里程Y":YDisps"计算里程加X":NDisps"计算里程加Y":ZDisps"加里程"EIf E=0ThenReturnIfEndE+P->PGoto 1。
CASIO4800P计算器计算缓和曲线的公式
CASIO4800P计算器计算缓和曲线的公式为提高计算结果的准确性，提高工作效率和减轻计算的工作量，在实际应用中可以配合电子计算器使用，以下是CASIO4800P 计算器计算缓和曲线的公式：Lbl 0:{EG}:A “ X0 ”：B “ Y0 ”：C “ C0 ”：D “ 1/R1 ”：E “ 1/R2 ”：F “ DK1 ”：G “ DK2 ”Lbl 1:{HOR}:H “ DKi”:O “ DL”:R”DR”:H>G ＝＞Goto 2 ◣P= （E-D ）/Abs(G-F):Q= Abs(H-F):I=P*QJ=C+(I+2*D)*Q*90/ π◢M=C+(I/4+2*D)*Q*45/2 π :N=C+(3*I/4+2*D)*Q*135/2/π :K=C+(I/2+2*D)*Q*45/ πX=A+Q*(cos C+4*( cos M + cos N)+2* cos K+ cos J)/12 ◢Y=B+Q*(sinC+4*(sin M + sin N)+2* sin K+ sin J)/12 ◢Goto 1 ◣说明： A 为缓和曲线起点处的纵坐标（X 坐标）；B 为缓和曲线起点处的横坐标（Y 坐标）；C 为缓和曲线起点处的切线方位角；D 为缓和曲线起点处的曲率半径；E 为缓和曲线终点处的曲率半径；F 为缓和曲线起点处的里程；G 为缓和曲线终点处的里程；H 为缓和曲线中所要放样点处的里程；注意事项： D 和 E 值分别为该缓和曲线前后两段曲线元半径的倒数（即 1 / 半径），特别需要强调的是，当曲线右转的时候曲率半径输入时为正值，左转的时候输入时为负值，ZH 点的半径输“ 0 ”。
三、缓和曲线逐桩坐标计算公式应用利用以上方法计算出对应桩号的坐标值，与图纸给出的数值相比较，看两者是否一致，以达到对图纸审核的目的。
在施工过程中，利用此方法可以提高工作效率和精度，在设计图纸提供的点坐标不能满足实际要求时，可以计算出任意点的坐标值来解决实际问题，此计算方法在施工放样等道路测设中起到一定作用。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
fx-FD10_Pro 缓和曲线程序"交点里程"?C
"X（交点）"?U
"Y（交点）"?V
"半径R"?R
"缓和曲线Ls1"?S
"方位角（直缓—交点）"?A
"偏角（交点）"?D
"左（负1）右（正1）"?M
(R+S^2/(24R))tan (D/2)+S/2-S^(3)/240R^2->T "切线"?T
C-T->I
"直缓里程":IDisps
B+S->J
"缓圆里程":JDisps
J+piDR/180-S->H
"圆缓里程":FDisps
H+S->K
"直缓里程":KDisps
Lbl 1
"计算里程"?P
"左右（左正，右负）"?L
"前后（前正，后负）"?Q
If P<I
Then
"前直线"
U+(C-P)cos (A+180dms)->X
V+(C-P)sin (A+180dms)->Y
X+L*cos (A+90dms)+Qcos (A+180dms)->N Y+L*sin (A+90dms)+Qsin (A+180dms)->Z IfEnd
If P>=I And P<=J
Then
"前缓和曲线"
A+M*(30*(P-I)^2/(piRS))->O
(P-I)-(P-I)^3/(90*R^2)->G
U+Tcos (A+180dms)+Gcos (O)->X
V+Tsin (A+180dms)+Gsin (O)->Y
90dms*(P-I)^2/(piRS)->W
X+Lcos (A+MW+90dms)+Qcos (A+MW)->N Y+Lsin (A+MW+90dms)+Qsin (A+MW)->Z IfEnd
If P>J And P<H
Then
"圆曲线"
A+M*90*(S+P-J)/(piR)->O
2Rsin (90dms*(P-J)/(piR))->G
U+Tcos (A+180dms)+(S-S^3/(90*R^2))*cos (A+M(30dms*S/(piR)))+Gcos (O)->X
V+Tsin (A+180dms)+(S-S^3/(90*R^2))*sin (A+M(30dms*S/(piR)))+Gsin (O)->Y
90*(P-J)/(piR)->W
X+Lcos (A+MW+90dms)+Qcos (A+MW)->N
Y+Lsin (A+MW+90dms)+Qsin (A+MW)->Z
IfEnd
If P>=H And P<=K
Then
"后缓和曲线"
A+MD+180-M(30*(P-K)^2)/(piRS)->O
(K-P)-(K-P)^3/(90*R^2)->G
U+Tcos (A+MD)+Gcos (O)->X
V+Tsin (A+MD)+Gsin (O)->Y
90dms*(P-K)^2/(piRS)->W
X+Lcos (O+MW+90dms)+Qcos (A-MW)->N
Y+Lsin (O+MW+90dms)+Qsin (A+MD-MW)->Z
IfEnd
If P>K
Then
"后直线"
U+(T+P-K)cos (A+MD)->X
V+(T+P-K)sin (A+MD)->Y
X+L*cos (A+MD+90dms)+Qcos (A+MD)->N Y+L*sin (A+MD+90dms)+Qsin (A+MD)->Z IfEnd
"计算里程X":XDisps
"计算里程Y":YDisps
"计算里程加X":NDisps
"计算里程加Y":ZDisps
"加里程"?E
If E=0
Then
Return
IfEnd
E+P->P
Goto 1。