fx-FD10_Pro 缓和曲线程序

实验四 第一缓和曲线道路中边桩编程和计算一、实验目的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--。

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中画缓和曲线,首先复制本文☆后面的源程序保存至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中画出切线长一、在三、运行程序：在命令行中输入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章布图、打印与图纸管理绘制好的建筑图样需要打印出来进行报批、存档、交流、指导施工，所以绘图的最后一步是打印图形。

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 计算器计算缓和曲线的公式：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.AXISTRAN:坐标轴转换当坐标轴移动或转动时的坐标计算。

到顶部2.R-TRIG：水平距离.高度计算计算斜边对应的水平距离和垂直距离（高度）。

3.PYTHAGOR：勾股定理使用勾股定理计算直角三角形的斜边。

到顶部4.COORD：坐标正算由已知点和距离、方位角计算待求点的坐标。

5.ANGLE：坐标反算由已知两点坐标计算两点间距离、方位角。

到顶部6.TRAVERSE：导线计算用导线计算，计算一个待求点的坐标和方位角。

到顶部7.INVERSE：反算已知导线上3个连续点，反算距离、转角和方位角。

8.DECENTER：偏心测量在偏心测量中计算偏心角和距离。

到顶部9.MID-ORD：圆曲线弦曲差计算计算圆曲线的弦曲差。

到顶部10.S-CURVE：单圆曲线计算圆曲线的参数要素。

到顶部11.CL-CURVE：缓和曲线计算缓和曲线的参数要素。

12.V-CURVE：竖曲线计算竖曲线的长度。

到顶部13.FORWARD：前方交会法由已知两点和观测角计算一个待求点的坐标。

14.BACKWARD：后方交会法由到两个已知点的距离计算一个待求点的坐标。

到顶部15.INTSEC1：交点坐标（已知三点&一个方向）由已知三点和一条直线的方位角计算两条直线的交点。

16.INTSEC2：交点坐标（已知四点）由已知四点坐标计算两条直线的交点。

到顶部17.V-LINE：垂足坐标和垂距计算由直线外一已知点计算到已知直线的距离和垂足。

到顶部18.TRIANGLE：三角形面积计算由三个点的坐标计算三角形的面积。

到顶部19.QUADRANG：四边形面积计算由四个点的坐标计算四边形的面积。

到顶部20.HERON：海伦公式由三角形三边长度计算三角形的面积。

到顶部21.STADIA：斜距计算使用斜距计算水平距离和相对高差。

缓和曲线测设程序（PC1500机）
林端楷
【期刊名称】《桂林冶金地质学院学报》
【年(卷),期】1993(013)003
【摘要】1 偏角法偏角法测设曲线广泛应用于线路测量中,计算公式多,使用表格繁杂,容易出错,还需另一个人检查。

应用微机则很简单,易掌握不出错。

笔者在圆曲线测设编程(1985年)基础上,编制了缓和曲线实用程序。

其使用简单方便,启动程序后,只需输入已知数据偏角α,圆曲线半径R,缓和曲线长l,转角点里程,圆曲线桩距S。

【总页数】2页(P321-322)
【作者】林端楷
【作者单位】无
【正文语种】中文
【中图分类】TB22
【相关文献】
1.平面带缓和曲线的圆曲线高效测设方法的探究 [J], 邓绍云
2.带缓和曲线同向复曲线第二圆曲线半径的计算及曲线的测设 [J], 金向农
3.修建哈双公路桥中两段圆曲线间缓和曲线的计算与测设方法 [J], 乔培海;崔香萍
4.缓和曲线程序设计与详细测设 [J], 苏立国;陈守财
5.带缓和曲线的复曲线第二圆曲线半径的计算及曲线的测设 [J], 金向农
因版权原因，仅展示原文概要，查看原文内容请购买。

非对称缓和曲线坐标计算程序CASIO fx-4800P QXZB曲线坐标计算CASIO4800 QXZB可计算不等缓和曲线、圆曲线上的任意中、边桩坐标：该程序适用于计算器 CASIO fx-4800P，可计算与线路中心成任意夹角的缓和曲线、圆曲线中、边桩坐标及待测点方位角和距离。

1、DK(JD)？输入交点桩号2、X(JD)？输入交点坐标X3、Y(JD)？输入交点坐标Y4、T1？输入第一切线长(如果只有一条切线两者都输入一致)5、T2？输入第二切线长(如果只有一条切线两者都输入一致)6、FWJ？输入直线方位角(ZH→JD)7、A？输入转角：左转为负，右转为正8、R？输入圆曲线半径9、LS1？输入第一缓和曲线长(如果只有一条缓和曲线两者都输入一致)10、LY？输入圆曲线长(L-LS1-LS2)11、LS2？输入第二缓和曲线长(如果只有一条缓和曲线两者都输入一致)12、X(ZJD)？输入置镜点坐标X13、Y(ZJD)？输入置镜点坐标Y14、JSDK？输入前视点里程15、PL？输入偏距16、PA？输入偏角程序下载地址：/blog/post/QXZB-4800.html评价答案好:18不好:1原创:18非原创:0菲メ帆ぅ回答采纳率:52.8% 2010-06-02 17:37满意答案好评率：57%（for Casio-fx4850）扩展变量操作（15个）：Defm 15←┚ ( O为字母、0为数字)J-PQX (平面数据输入，自行切换到J-JSMS)Defm 15←┚A“JD” B“JDX” C“JDY” F“FWJ” O“A0：Z-，Y+” RE“LS1” K“LS2”：E<1=>E=1E-9⊿K<1=>K=1E-9⊿Z[1]=EE÷24R-E∧4÷2688RRR:Z[2]=E÷2-EEE÷240RR:X=(EE-KK)÷24R÷sin Abs O :“T1=”:Z[3]=(R+Z[1])tan(Abs O÷2)+Z[2]-X◢“T2=”:Z[4]=(R+KK÷24R-K∧4÷2688RRR)tan(Abs O ÷2)+K÷2-KKK÷240RR+X◢“L=”:L=Abs OπR÷180+(E+K)÷2◢J=tan-1((R+Z[1])÷(Z[3]-Z[2]):“E=”:X=(R+Z[1])÷sin J-R◢X=A-Z[3]:Y=X+E:E<1=>“ZY=”:X◢≠=> “ZH=”:X◢“HY=”:Y◢⊿ “QZ=”:Y =X+(L-K-E)÷2+E◢Y=X+L-K:X=X+L:K<1=> “YZ=”:X◢≠=> “YH=”:Y◢“HZ=”:X◢⊿Prog“J-JSMS” ←┚J-JSMS（放样模式主程序）“1-ZS, FY,3-FS”: Lb1 0:{Z}: Z“MS”≤2=>Goto 1: ≠=> Z≤4=> Goto2⊿⊿←┚Lb1 1 :Q“X-YIQI”S“Y-YIQI”T“X-HOUSI”U“Y-HOUSI”:{PDW}:P“F=”D“BZ=”W“BJ=”: Prog“JP”: Prog“FY”: Goto 1←┚Lb1 2 :{XYW}:XYW“BJ”: Prog“JF”: “P=”: P◢“BZ=”: D◢JP（平曲线正算子程序）Fixm←┚Lb1 1 :J=F:X= B-Z[3]cos F :Y= C-Z[3]sin F :G=E←┚P≤A-Z[3]=>I=A-Z[3]-P:M=-I:N=0:H=F+W:Goto 5←┚≠=>P≤A-Z[3]+E=>I=P-A+Z[3]:H=90II÷REπ:O<0=>H=-H⊿H=H+W+F:Goto 3←┚≠=>P≤A-Z[3]+L-K=>I=P-A+Z[3]-E:Goto 4: ≠=>Goto 2⊿⊿←┚Lb1 2 :X= B+Z[4]cos(F+O :Y= C+Z[4]sin(F+O :J=F+O+180:G=K←┚P≤A-Z[3]+L=>I=A-Z[3]+L-P:H=90II÷RKπ:O>0=>H=-H⊿H=H+J+W+180:Goto 3 ←┚≠=>I=P-A+Z[3]-L:M=-I:N=0:H=J+W+180:Goto 5 ←┚Lb1 3 :M=I-I∧5÷40RRGG:N=III÷6GR-I∧7÷336RRRGGG:Goto 5 ←┚Lb1 4 :H=(E+2I)×90÷πR:M=R sin H+Z[2]:N=R(1-cos H)+Z[1]:O<0=>H=-H⊿H=J+H+W: Goto 5←┚Lb1 5 :P≤A-Z[3]+L-K=> O<0=>N=-N⊿≠=>O>0=>N=-N⊿⊿Goto 6←┚Lb1 6 :X =X+M cos J-N sin J+D cos H:Y =Y+M sin J+N cos J+D sin H“X=”: X ◢“Y=”: Y ◢JF（平曲线反算子程序）Fixm←┚U=X:V=Y:D=0:J=F-W:P=A+(Y-C)cos J-(X-B)sin J←┚Lb1 1:Prog“JP”:J=H-180:I=(V-Y)cos J-(U-X)sin J:Abs I<1E-4=>Goto 2:≠=>P=P+I:Goto 1⊿←┚Lb2: D=(V-Y)÷sinHFY(放样计算子程序)Pol(T-Q,U-S):“HOUSI D=”:I◢J<0=>J=J+360⊿J>360=>J=J-360⊿“HOUSI J=”:J→DMS◢Pol(X-Q,Y-S):“I=”:I◢J<0=>J=J+360⊿J>360=>J=J-360⊿“J=”:J→DMS◢一、程序简介本套程序是共有2个主程序，3个子程序。

利用CASIO编程计算器进行直线与缓和曲线交点坐标的精确
计算
高振玲
【期刊名称】《兰州工业学院学报》
【年(卷),期】2012(019)002
【摘要】由于缓和曲线的曲率半径是逐渐变化的,无法得到其上点位坐标的准确计算公式,以往都是用级数展开进行近似计算,计算公式比较繁琐,计算结果的精度也不够高.利用CASIO编程计算器的定积分功能,能够计算出缓和曲线上点位坐标的精确数值,然后利用逐渐趋近法,可完成直线与缓和曲线交点坐标的精确解算.
【总页数】4页(P33-36)
【作者】高振玲
【作者单位】兰州城市建设学校,甘肃兰州730046
【正文语种】中文
【中图分类】U212.24
【相关文献】
1.利用CASIO编程计算器进行两个平面坐标系间的转换计算 [J], 孙芳琳
2.利用CASIO编程计算器的积分功能进行缓和曲线上点位坐标的精确计算 [J], 何宇鑫
3.求解直线与缓和曲线交点坐标的一种新方法 [J], 沈兆洪
4.直线与缓和曲线交点坐标的迭代解法 [J], 张国忠
5.利用CASIO编程计算器进行圆曲线与缓和曲线交点坐标的精确计算 [J], 高振玲;马俊福
因版权原因，仅展示原文概要，查看原文内容请购买。

CASIO-fx5800测量程序任意平曲线极坐标与直角坐标放样,求中桩和边桩（偏距）ZJD-X ——置镜点X ?ZJD-Y ——置镜点Y ?HSD-X ——后视点X ?HSD-Y ——后视点Y ?ZH-X ——直缓点X ?ZH-Y ——直缓点Y ?ZH-DK ——直缓点里程？ZH-JD ——直缓点至交点的方位角（切线方位角）？LO ——缓和曲线长？R ——半径？Z:!:Y(1:2:3) ——输入1表示左偏，2表示中桩（不偏），3表示右偏。

Z-m ——提示输入左偏距？Y-m ——提示输入右偏距？A ——转向角a ？（交点转向角？）(1)ZUO ZHUAN,(2)YOU ZHUAN ——曲线1为左转，2为右转？左转右转概念为 ZH~HY（直缓点到缓圆点判定的）输入1表示右转曲线，2表示左转曲线，左右转曲线的判定需依照A点——B点的顺序，例如一条右转曲线的ZH点到HY点，输入时，咱们以ZH点为A点，HY点为B点，那么，曲线为右转，若是以HY点为A点，ZH点为B点，那么曲线为左转。

X= ——待求点X坐标Y= ——待求点Y坐标HSJL ——置镜点到后视点的距离HSFWJ ——后视方位角S= ——前视距离°°°——前视方位角主程序：1CLFY （测量放样）Prog”A”』Lb1 9』Prog”B”』Prog”D”』Prog”E”』Goto 9』子程序“A”4→DimZ:”ZJD-X”?C:”ZJD-Y”?D:”HSD-X”?E:”HSD-Y”?F:”ZH-X:”?G:”ZH-Y”?H:”ZH-DK”?K:”ZH-JD FWJ°”?W:”LO”?N:”R”?R:”A°”?A:“(1)ZUO ZHUAN,(2)YOU ZHUAN”?U』(N/2)-(N3/(240R2))→M』 N2/(24R)→P』 90×N/(∏R)→Z[2]』 (R+P)×tan(A/2)+M→T』∏RA/180+N→L』子程序“B”“DK”?V:”Z:!:Y(1:2:3)”?Q』 V-K→S』If S≤0:then Goto 1:ifEnd』 If S≤N:then Goto 2:ifEnd』If S≤L-N:then Goto 3:ifEnd』 If S≤L:then Goto 4:ifEnd』If S＞L:then Goto 5:ifEnd』 Lb1 1』 W+180→B』 Rec(-S,B)』 G+I→X』H+J→Y』 0×Z[1]→Z[1]』 Prog”H”: Prog”E”: Prog”B”』Lb1 2』 S-S5/(40R2N2)→X』 S3/(6RN)→Y』 S2/(2RN)×180/∏→Z[1]』Pol(X,Y)』tan-1(Y/X)→J』 Goto 0』 Lb1 3』180×(S-N)/(∏R)+Z[2]→Z[1]』 Rsin(Z[1])+M→X』 R(1-cos(Z[1]))+P→Y』Pol(X,Y)』 tan-1(Y/X)→J』 Goto 0』 Lb1 4』A-(3((L-S)2/(6RN)×180/∏))→Z[1] 』 (L-S)-(L-S)5/(40R2N2)→X』(L-S)3/(6RN)→Y』 Pol(X,Y)』 tan-1(Y/X)→J』 J+90-A→J:if J＜0:thenJ×-1→J:ifEnd』 T+cos(A)×T→X』 sin(A)×T→Y』X-sin(J)×I→X』 Y-cos(J)×I→Y』 if X=0:then 90→J:ifEnd』Pol(X,Y)』 tan-1(Y/X)→J』 if J＜0:then 180-J→J:ifEnd』 Goto 0』Lb1 5 』 T+cos(A)((S-L)+T)→X』 sin(A)(T+(S-L))→Y』Pol(X,Y)』 tan-1(Y/X)→J』 A×1→Z[1]』 Lb1 0子程序“D“If U=1:then Goto 2:ifEnd』 If U=2:then Goto 3:ifEnd』Lb1 2』 W-J→B』 Rec(I,B)』 I+G→X』 J+H→Y』 Prog”H” Goto 1』Lb1 3』 W+J→B』 Rec(I,B)』 I+G→X』 J+H→Y』 Prog”H” Goto 1』Lb1 1』子程序“E“Pol(E-C,F-D)』 if J＜0:then J+360→J:ifEnd』“X=”:X◢』“Y=”:Y◢“HSJL S=”:I◢“HSFWJ A°=”:J►DMS◢Pol(X-C,Y-D)』 if J＜0:then J+360→J:ifEnd』“S=”:I◢“°°°”:J►DMS◢子程序“H“If Q=1:then Goto 1:ifEnd』If Q=3:then Goto 2:ifEnd』If Q=2:then Goto 3:ifEnd』Lb1 1』 W-Z[1]-90→Z』“Z-m”?O』 Rec(O,Z)』 X+I→X』 Y+J→Y』Goto 3』 Lb1 2 W-Z[1]+90→Z』“Y-m”?O』 Rec(O,Z)』 X+I→X』 Y+J→Y』Lb1 3坐标反算：Lb1 1』“1X=”?B:”1Y=”?C:”2X=”?D:”2Y=”?E』Pol(D-B,E-C) 』if J＜0:then J+360→J:ifEnd』“HD=”:I◢“FWJ A°”:J►DMS◢Goto 1坐标正算:Lb1 1』“X0=”?B:”Y0=”?C:”FWJ A°=”?F:”HD=”?L 』B+cos(F)×L →X:”X=”:X◢C+sin(F)×L →Y:”Y=”:Y◢Goto 1。

（枫）曲线任意里程中边桩坐标正反算(CASIO fx-5800P计算器)程序1.主程序(ZHUCHENXU)"1.SZ → XY，2.XY → SZ "？N：”LC=”?O: “X0=”?U:”Y0=”?V:”N0=”?G:”LS=”?H:”R1=”?P:”R2=”?R:?Q: 1÷P→C：(P-R)÷(2HPR) →D：180÷π→E:If N=1:Then Goto1:IfEnd:If N=2:The nGoto2:IfEndLbl 1 ：?S：?Z: Abs(S-O)→W：Prog "SUB1"："XS=”:X→X◢"YS=”:Y→Y◢"T=”:(F-90) →F◢Goto 1 Lbl 2：?X: X→I：?Y: Y→J： Prog "SUB2"： "S=":(O+W) →S◢"Z="Z→Z◢Goto 22. 正算子程序(SUB1)0.1739274226 →A：0.3260725774→B：0.0694318442→K：0.3300094782→L： 1-L →F： 1-K→M：U+W(Acos(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD))+Bcos(G+QEFW (C+FWD))+Acos(G+QEMW(C+MWD))) →X：V+W(Asin(G+QEKW(C+KWD))+Bsin(G+QELW(C+LWD))+Bsin(G+QEFW(C+FWD))+Asin(G+QEMW(C+MWD))) →Y：G+QEW(C+WD)+90→F： X+Zcos(F)→X： Y+Zsin(F)→Y3. 反算子程序(SUB2)G-90 →T： Abs((Y-V))cos(T)-(X-U)sin(T)) →W：0→Z：Lbl 0：Prog "SUB1"： T+QEW(C+WD) →L：(J-Y)cos(L)-(I-X)sin(L)→Z：If Abs(Z)<10^-6:Then Goto1：Else W+Z→W：Goto 0: IfEndLbl 1：0→Z：Prog "SUB1"： (J-Y)÷sin(F)→Z1.主程序(ZHUCHENXU)"1.SZ → XY，2.XY → SZ "？N：”LC=”?O: “X0=”?U:”Y0=”?V:”N0=”?G:”LS=”?H:”R1=”?P:”R2=”?R:?Q: 1÷P→C：(P-R)÷(2HPR) →D：180÷π→E:If N=1:Then Goto1:IfEnd:If N=2:The nGoto2:IfEndLbl 1 ：?S：?Z: Abs(S-O)→W：Prog "SUB1"："XS=”:X→X◢"YS=”:Y→Y◢"T=”:(F-90) →F◢Goto 1 Lbl 2：?X: X→I：?Y: Y→J： Prog "SUB2"： "S=":(O+W) →S◢"Z=":Z→Z◢"H="(S-383)*(-0.0119)+2 91.46◢Goto 2 (红色字体为李子湾隧道内轨定高程计算)2. 正算子程序(SUB1)0.1739274226 →A：0.3260725774→B：0.0694318442→K：0.3300094782→L： 1-L →F： 1-K→M：U+W(Acos(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD))+Bcos(G+QEFW (C+FWD))+Acos(G+QEMW(C+MWD))) →X：V+W(Asin(G+QEKW(C+KWD))+Bsin(G+QELW(C+LWD))+Bsin(G+QEFW(C+FWD))+Asin(G+QEMW(C+MWD))) →Y：G+QEW(C+WD)+90→F： X+Zcos(F)→X： Y+Zsin(F)→Y3. 反算子程序(SUB2)G-90 →T： Abs((Y-V))cos(T)-(X-U)sin(T)) →W：0→Z：Lbl 0：Prog "SUB1"： T+QEW(C+WD) →L：(J-Y)cos(L)-(I-X)sin(L)→Z：If Abs(Z)<10^-6:Then Goto1：Else W+Z→W：Goto 0: IfEndLbl 1：0→Z：Prog "SUB1"： (J-Y)÷sin(F)→Z超欠挖程序（USB3）H-0.5→H:If H≤H:Then Goto1:IfEnd: H-1→H :If H≤H:Then Goto2:IfEnd: H-1.5→H: If H≤H:Then Goto3:IfEnd:H-2→H: If H≤H: Then Goto4 IfEnd: H-2.5→H : If H≤H:Then Goto5:IfEnd: H-3→H :If H≤H:Then Goto6:IfEnd:H-4→H :If H≤H:Then Goto7:IfEnd: H-5→H: If H≤H-5:Then Goto8: IfEnd: H-6→H : If H≤H:Then Goto9:IfEnd:H-7→H :If H≤H-7:Then Goto10:IfEnd: H-8→H :If H ≤H:Then Goto11:IfEnd: H-9→H : If H≤H:Then Goto12:IfEnd:Lbl 1 :“ZL=”:1.84-Z ◢“YL=”:1.84-Z ◢Lbl 2 :“ZL=”:1.84-Z ◢“YL=”:1.84-Z ◢Lbl 3 :“ZL=”:1.84-Z ◢“YL=”:1.84-Z ◢Lbl 4 :“ZL=”:1.84-Z ◢“YL=”:1.84-Z ◢Lbl 5 :”ZL=”:1.84-Z ◢“YL=”:1.84-Z ◢Lbl 6 :“ZL=”:1.84-Z ◢“YL=”:1.84-Z ◢Lbl 7 :“ZL=”:1.84-Z ◢“YL=”:1.84-Z ◢Lbl 8 :“ZL=”:1.84-Z ◢“YL=”:1.84-Z ◢Lbl 9 :“ZL=”:1.84-Z ◢“YL=”:1.84-Z ◢Lbl 10 :“ZL=”:1.84-Z ◢“YL=”:1.84-Z ◢Lbl 11 :“ZL=”:1.84-Z ◢“YL=”:1.84-Z ◢Lbl 12 :“ZL=”:1.84-Z ◢“YL=”:1.84-Z ◢。