圆曲线程序
4850放线程序只对S型、对称和不对称缓和曲线、圆曲线可用!!!
CZB(测站准备)I=Z[1]：J=Z[2]：X=Z[3]：Y=Z[4]Lb1 1:{VW}:V”YG”:W”HC”V>10=>GOTO 1△Lb1 2:{IJXY}:I”XC”:J”YC”:X”HSX”:Y”HSX”Z[1]=I:Z[2]=J:Z[3]=X:Z[4]=YPROG”FWJ”“A”:J▲“D”:I▲FWJ（方位角计算）POL（X-I，Y-J）：J〈0=>J=J+360FX ALL(全线放线)Lb1 1:Z=Z[5]:{Z}:Z”FX Z”:Z[5]=ZFixm:Z<Z[6] =>PROG”JD ALL”: ≠>Z>N =>PROG”JD ALL”△△Z[8]=0：PROG“JKCG”：E=Z[7]：{E}：E“Z-Y+”：Z[7]=EPROG“ZB”：PROG“FWJ”：“A”：J->DMS▲“D”:I▲Lb1 2:X=0:Y=1.3:{XY}:X”HV”:Y”JG”“CD HH”V+W+X-Y▲ZB”坐标计算“M=Z[17]：N=Z[19]：H=Z[21]：Z>N-H=>L=N-Z:T=Z[15]:K=H: ≠>L=Z-M:T=Z[13]: K=S: △K=0=>GOTO 1△A=(L^2/2RK)r（弧度转化为度）X=L-L^5/40R^2K^2Y=L^3/6RK-L^7/336R^3K^3Lb1 1:Z>M+S=>Z≤N-H=>A=（（L-K/2）/R）r：X=Q+R Sin A:Y=P+R(1-Cos A) △△L<0=>Y=0:A=0:X=L△POL(T-X,Y)Z>N-H=>J=180-J-Abs U:A=ＡbsU-A△X=B+Rec(-I,F-JO(字母))Y=C+JX=X+Rec(E,F+AO(字母)+90):Y=Y+J;I=Z[1]:J=Z[2]:”X”:X▲“Y”:Y▲PQXJS（平曲线计算）O(字母)=U/Abs U:U=Abs U:K=S:PROG”Q1”P=X:Q=Y:I=JK=H:PROG”Q1”Z[13]=(R+X-(R+P)Cos u)/Sin u+QZ[15]=(R+P-(R+X)Cos u)/Sin u+YL=S+H+(Uπ/180-I-J)RM=D-Z[13]：N=M+LJKCG（加宽超高计算）M=Z[17]：N=Z[19]：H=Z[21]：Z>N-H=>L=N-Z: ≠>L=Z-M △R>600=>I=-2(路弓横坡): ≠>I=2(最小超高值)：R〈390=>I=3……(一直到把所有要求输完) △△……(有几个=> 就有几个△)R>250=>X=0(加宽值): ≠>X=0.8：R〈200=>X=1……(一直到把所有要求输完) △△……(有几个=> 就有几个△)K=S:T=HK+T=0=>K=1:T=1:≠>KT≠0=>GOTO 1: ≠>K=1: ≠>T=1 △△△Lb1 1:Z>N-H=>Y=XL/T:J=(I+2)L/T-2:≠> Y=XL/K:J=(I+2)L/K-2△Y<0=>Y=0:J=-2△J>I=>Y=X:J=I△O(字母)<0=>”ZJK”:Y▲△“CG PD”:J▲Z[8] ≠0=> E=Z[7]：{E}：E“Z-Y+”：Z[7]=E:E=Abs E:I=0.01EJ:J<2=>J=-0.02E: ≠>J =-0.01EJ△O(字母)<0=>H=I:I=J:J=H△Z[7]>0=>”ZH”Z[25]+J▲≠>”HZ”:Z[25]+I▲JD ALL（平曲线）N=43433（起点桩号）I=23232.3232:J=4343433.433(起点坐标)X=22322.323:Y=434322.242(交点坐标)D=54435.899（交点桩号）U=-63(度)32…23“（左偏角）R=323.121S=35（缓和曲线长度1）:H=50（缓和曲线长度2）PROG“QX2”：Z〈N=>GOTO 2△X=23322.323:Y=424322.242(交点坐标)D=55435.899（交点桩号）U=33(度)32…23“（右偏角）R=323.121S=35（缓和曲线长度1）:H=50（缓和曲线长度2）PROG“QX2”：Z〈N=>GOTO 2△……Lb1 2PQXYS(平曲线要素)“A”：U-〉DMS▲{DRSH}：D“JD”：R：S“LS1”H“LS2”：Z[21]=H：PROG“PQXJS”“HZ“：Z[17]=M▲“HZ“：Z[19]=N▲Q1（平曲线计算子程序）X=K^2/24R-K^4/2384R^3Y=K/2-K^3/240R^2J=K/2RQ2(JD ALL子程序)Z[6]=N：B=X：C=Y：PROG“FWJ”：F=J：PROG“PQXJS”I=B：J=C：Z[23]=D：Z[1 7]=M：Z[19]=N：Z[21]=HSQX ALL（竖曲线）Z>49020(起点桩号) =>GOTO A △Lb1 1:D=45100(交点桩号):J=-6.289(第1个纵坡):H=528.88D=45330:I=-6.289(第2个纵坡):H=434.43:T（竖曲线半劲）=5000：PROG”SQ 2”:Z <N=>GOTO 2△D=46546:I=3.232:H=323:T=4000：PROG”SQ 2”:Z<N=>GOTO 2△……(到曲线资料完)Lb1 2SQ2（SQ ALL子程序）Z[26]=N:X=0.01(J-I):L=Abs（绝对值） TX/2:Z[14]=D-L:N=D+L:Z[16]=N:Z[18]=D: Z[20]=H:Z[22]=T:Z[24]=-X/Abs X:Z[28]=J:Z[30]=I:J=ISQJS(竖曲线计算)I=Z[30]:J=Z[28]:T=Z[22]:X=Z[24]:D=Z[18]:H=Z[20]:M=Z[14]:N=Z[16]Z《M=>X=0: ≠>Z≥N=>X=0△△Z>D=>L=H+0.01(Z-D)I+X(N-Z)^2/2T≠> L=H+0.01(D-Z)J+X(Z-M)^2/2TGCJS（全线高程计算）Z=Z[5]：{Z}：Z“JSZ”：Fixm:Z>Z[16] =>PRONG”SQX ALL”: ≠>Z〈Z[26] =>PRO NG”SQX ALL” △△Z[8]=1：PROG“SQXJS”：Z[25]=LZ<Z[6] =>PROG”JD ALL”: ≠>Z>N =>PROG”JD ALL”△△PROG“JKCG”。
第六章(4) 曲线测设
（2）坐标计算
xi R sin i
yi R(1 cosi )
i
Li
•180
R
（3）测设方法？ 优点：各点测设相互独立，不产生误差积累 缺点：检核条件少
4、极坐标法 根据仪器点和待测点的坐标，计算距离和方位角，
然后直接测设的方法，是目前应用最广泛的方法。 5、RTK法（坐标转换）
二、复曲线测设 两条或两条以上半径不同的同向圆曲线组成的曲线称为复 曲线。 切基线法 JD1～JD2为切基线，GQ为主副曲线的公切点
8.7 103 mm
4．圆曲线参数方程 坐标系同前：
xi R sin i m yi R(1 cosi ) P
式中：i
180
R
(li
l0 ) 0
0
l0 2R
β、m、p为缓和曲线参数
若αi以弧度表示，并顾及
0
l0 2R
，则有：
i
li
l0 R
0
li
l0 R
l0 2R
li
0.5l0 R
(2n
l 2n2
0
1)!(2 R) 2 n1
(4n
3)
［例］已知某曲线设计时选配的圆曲线半径R = 200 m，
缓和曲线长l0 = 70 m，若n=2试按上式估算坐标计算的截 断误差。
[解]
R3 x
705 4!4004
1000 9
3.0 101 mm
R3 y
706 5!4005
1000 11
DK126+891.92
（三）主点放样 步骤： （1）仪器安于JD点，瞄准线路前进方向的后方，沿视线方向 量切线长T，即得ZY点 （2）同理瞄准前进方向，在视线上量T可得YZ点
交点法线路平曲线坐标计算 [新方法]
![交点法线路平曲线坐标计算 [新方法]](https://img.taocdn.com/s3/m/4eaa9513964bcf84b9d57bf7.png)
线路线路工程工程工程[[交点法交点法]]平曲线坐标计算[新方法]作者作者：：刘宗远 联系方式QQ ：63453673 2013年10月[简述]：在网上看了很多网友的线路交点法计算程序，平曲线小坐标大多采用的是切线支距法切线支距法切线支距法。
经本人结合线路工程的施工特点和相关资料，总结归纳出一套全新的全新的全新的线路坐标编程线路坐标编程线路坐标编程解算方法解算方法解算方法（弦线偏弦线偏角支距法角支距法——————也叫极坐标法也叫极坐标法也叫极坐标法）。
计算精度满足线路主线要求。
第一部分第一部分：：基本公式基本公式一、圆曲线圆曲线：：1、偏角：2、弦长：式中： —偏角—弧长所对应的圆心角—待求点到zy 点的距离 二、缓和曲线缓和曲线：： 1、切线角：(1)缓和曲线上任意一点切线角:(2)曲线上任一点偏角：(3)弦切角：(hy(yh)点处弦线与切线的交角)2、弦长：22590Lsr l l c i ××−= 式中：zh ki l −= 缓和曲线一点到zh 点的距离 —前（或后）缓和曲线总长第二部分第二部分：：程序分步公式程序分步公式一、交点参数计算：（非对称缓和曲线型）1、内移值P ：前缓和曲线内移值：341212688241R L R L P S s −= 后缓和曲线内移值：342222688242RL R L P S S −= 2、切线增长值q ：前缓和曲线切增值：231124021R L L q s s −=后缓和曲线切增值：232224022RL L q s s −= 3、切线角β：前缓和曲线切线角： R L S 1901=β 后缓和曲线切线角： RL s 2902=β 4、切线长T ：前切线长：ααsin 2112tan)1(1p p q P R T −−++=后切线长：ααsin 2122tan )2(2p p q P R T −+++=5、曲线总长：)(5.018021S S L L RL +×+=πα二、主点计算主点计算：：1、桩号计算桩号计算：：ZH=交点桩号－T1 HZ=ZH+L HY=ZH+L S1 YH=HZ-L S22、坐标计算坐标计算：：1）ZH 点坐标点坐标：： 方位角：F 前=前直线方位角前直线方位角（或前切线方位角） X zh =X J D －T 1×cosF 前 Y zh =Y J D －T 1×sinF 前2）HZ 点坐标点坐标：：方位角：F 后=F 前+ξα(交点转角) 注：ξ—交点转角偏向符，左偏-1 右偏+1 X hz =X J D +T 2×cosF 后 Y hz =Y J D +T 2×sinF 后3）HY 点坐标点坐标：：前缓曲线终点偏角：前缓曲线终点弦长：212511901S S S L r L L C ××−=方位角：F=F 前+ξδ0 (缓曲线终点偏角) X hy =X zh +C 1×cosF Y hy =Y zh +C 1×sinF 4）HY 点坐标点坐标：：后缓曲线终点偏角：后缓曲线终点弦长：222522902S S S L r L L C ××−=方位角：F=F 后+180－ξδ0 (缓曲线终点偏角) X yh =X hz +C 2×cosF Y yh =Y hz +C 2×sinF三、各线元段坐标计算 1、前直线段 Ki<ZH待求点到ZH 点的距离：Li=Ki-ZH方位角：F 前=前直线方位角（或前切线方位角） X=X ZH +Li ×cosF 前 Y=Y ZH +Li ×sinF 前2、前缓曲线段前缓曲线段 ZH ZH ≤Ki ≤HY HY待求点到ZH 点的距离：Li=Ki-ZH前缓曲线任意点偏角：1230S L R Li ××=πδ前缓曲线任意点弦长：212590S ii L r L L Ci ××−=中桩弦线弦线弦线方位角：F 中=F 前+ξδ 注：ξ—交点转角偏向符，左偏-1 右偏+1 中桩切线切线切线方位角：F 切=F 中+2 δ—缓曲线偏角 X=X zh +C i ×cosF 中+B×cos(F 切+θ) 注：θ—中线与中桩至边桩连线的夹角 Y=Y zh +C i ×sinF 中+B×sin(F 切+θ) B—中桩至边桩的距离3、圆曲线段HY HY<Ki<<Ki<<Ki<YH YH YH待求点到HY 点的距离：Li=Ki-HY 圆曲线任意点弦长：2243rL L Ci i i ×−= 前缓曲终点切线角：RL S 1901=β 圆曲线偏角RLi×=πδ90 中桩弦线弦线弦线方位角：F 中=F 前+ξ(+)中桩切线切线切线方位角：F 切= F 前+ξ(+2) 注：圆曲线偏角为圆心角的一半X=X HY +C i ×cosF 中+B×cos(F 切+θ) 注：θ—中线与中桩至边桩连线的夹角 Y=Y HY +C i ×sinF 中+B×sin(F 切+θ) B—中桩至边桩的距离 4、后缓曲线段后缓曲线段 YH YH ≤Ki ≤HZ待求点到HZ 点的距离：Li= ZH －Ki 后缓曲线任意点偏角：2230S L R Li ××=πδ后缓曲线任意点弦长：222590S ii L r L L Ci ××−=中桩弦线弦线弦线方位角：F 中=F 后+180－ξδ 注： ξ—交点转角偏向符，左偏-1 右偏+1 中桩切线切线切线方位角：F 切=F 中－2 δ—缓曲线偏角 X=X HZ +C i ×cosF 中－B×cos(F 切+θ) 注：θ—中线与中桩至边桩连线的夹角 Y=Y HZ +C i ×sinF 中－B×sin(F 切+θ) B—中桩至边桩的距离 5、后直线段后直线段 Ki>HZ Ki>HZ Ki>HZ待求点到HZ 点的距离：Li=H Z－Ki 方位角：F 后= F 前+ξα(交点转角) 注：ξ—交点转角偏向符，左偏-1 右偏+1 X=X HZ +Li ×cosF 后 Y=Y HZ +Li ×sinF 后工程实例工程实例表一表一 直曲表直曲表逐桩坐标表桩坐标表第三部分第三部分 [TI [TI 计算器计算器]]线路综合线路综合程序代码程序代码程序代码（（坐标计算部分坐标计算部分））程序显示界面：一、主程序代码程序子程序二、坐标正算坐标正算子交点数据库子程序三、交点数据库子程序数据库子程序四、桩号桩位显示字符转换子程序 线元段、、桩位显示字符转换子程序桩号、、线元段。
工程测量数据处理系统V50使用手册
路线辅助设计本程序适用于路线平曲线的单交点平曲线、切基线平曲线、复曲线、S型曲线、凸型曲线、卵型曲线的设计。
单交点平曲线如图所示，只设一个JD的平曲线称单交点平曲线。
平曲线由前缓和曲线LS1、中间圆曲线LY、后缓和曲线LS2、构成。
当LS1= LS2 =LS，即前后缓和曲线等长时，称对称基本型平曲线，否则称非对称型平曲线。
确定圆曲线半径和缓和曲线长是平曲线设计的主要任务。
考虑地形、地物、设计标准及线形协调要求，半径R和缓和曲线长LS值根据不同情况可分别由外距E、切线长T及曲线上任意一点的支距t0 、y0求得。
本软件的单交点平曲线设计提供由外距控制、切线长控制、支距进行曲线设计。
切换到软件的路线辅助设计模块，选择单交点平曲线，启动设计对话框如图，程序提供两种方式：先拟定缓和曲线长和满足线形协调要求。
切基线平曲线当路线交点因地形、地物等障碍影响在实地无法钉设时，可选择两个辅助交点JD a、JD b，设置一条基线边，来代替一个交点敷设曲线，称为双交点平曲线。
若所定半径使平曲线恰好与基线边相切，即构成图2-8所示的切基线平曲线。
切换到软件的路线辅助设计模块，选择切基线平曲线，启动设计对话框如图，程序提供两种方式：先拟定缓和曲线长和满足线形协调要求。
在相应的编辑框内录入数据，选择计算方式，按计算按钮即可。
计算成果在“输出结果”栏显示，如果需要输出到外部文件，请按“输出”按纽，直接输出到文本文件。
复曲线切基线平曲线可视作前后两个非对称基本型平曲线首尾连接而成，当两个非对称平曲线半径不相等时，即构成图2所示的复曲线。
测设时一般由设计人员先拟定约束控制较严一端的圆曲线半径RA，求算另一端圆曲线半径RB。
切换到软件的路线辅助设计模块，选择复曲线，启动设计对话框如图2-13。
软件提供前圆曲线半径可否调整选项，如果前圆半径可调整请在<前圆半径可调整>选项按钮打上勾。
计算前请输入相应的已知数据，按<计算>按钮。
公路圆曲线中、边桩坐标及放样计算 (全新版)
明：
⑴本表专门为圆曲线中、边桩坐标及放样计算而设计，只需输入转点的里程桩号、坐标及 计算。路线右转时R、转角输入正值，当路线左转时，R、转角输入负值。
⑵在有浅黄底色的单元格内输入数据，其它颜色的单元格为计算结果显示区，不能输入数
⑶方位角有三种值均可使用，第一种有正角，第二种为度、分、秒，秒的计算有误差，约
显示区，不能输入数据。
秒的计算有误差，约为0.2秒。
并删除不用数据等才可打印，可缩小比例。
用先删除后输入方法。
用说明”。
断面线与路线的夹角，见下图。当等于 90 度时，
。当不等于90度时，为斜交跨线构筑物边桩坐标。
为07年3月前，就可以不要注册了。
为边桩或正交跨线构筑物边桩坐标。当不等于90度时，
前进方向
P1(XP1,YP1) T W 公路中线 P0(XP0,YP0) T P2(XP2,YP2)Z 桥涵轴线 高速公路跨线建筑物轴线平面图
用时系统时间改为07年3月前，就可
的里程桩号、坐标及转角，圆曲线半径R，直线起点的坐标、桩打印前需进行值与数据格式复制并删除不用数据等才
O 4 R YZ 圆直 R P 转角α 2 1 直线起点 ZY 直圆 3 QZ JD
⑸输入数据直接覆盖原有数据，不用先删除后输入方法 详見“高等级公路测量计算程序使用说明”。
⑹交角 W( 度 ) 系指前进方向左侧横断面线与路线的夹
任务24缓和曲线加圆曲线测设学习指南
任务2.4 缓和曲线加圆曲线测设学习指南一、概述项目2：线路中线测量学习单元任务2.4 缓和曲线加圆曲线测设学时讲课6h，实作（课内8h,课外28h)学习目标通过案例教学使学生学会缓和曲线加圆曲线测设的程序、内容及实施；能利用现有的测量仪器设备组织实施缓和曲线加圆曲线测设主要内容描述线路通常是由直线元、缓和曲线元、圆曲线元组成，本任务主要学习由直线、缓和曲线和圆曲线组合的直线-缓和曲线-圆曲线-缓和曲线-直线的形式、曲线要素计算、主点里程推算、逐桩坐标计算及测设。
教学参考资料 ①虚拟导线法缓和曲线加圆曲线逐桩坐标计算讲义；②坐标变换法缓和曲线加圆曲线逐桩坐标计算讲义；③中线测设中方向和距离改化问题讲义；④《工程测量概论》西安地图出版社 李孟山主编；⑤《工程测量规范》；⑥《铁路工程测量规范》 TB 10101-2009 J961-2009 中国铁道出版社出版。
项目保障条件 1、教学条件要求①多媒体教室；②缓和曲线加圆曲线测设PPT；③《高速铁路测量规范》；④《**高速铁路线路平面设计资料）；2、实训条件①（ppm22,2+''±）全站仪6台；③2公里线路测量实训场。
学习重点与难点 1.学习重点：①虚拟导线法计算缓和曲线加圆曲线逐桩坐标；②坐标变换法计算缓和曲线加圆曲线逐桩坐标；③缓和曲线加圆曲线测设；④中线测设中方向和距离改化。
2.学习难点：①虚拟导线法计算缓和曲线加圆曲线逐桩坐标；②坐标变换法计算缓和曲线加圆曲线逐桩坐标；教学方法建议 引导文法、头脑风暴法、讨论法、任务驱动教学法成果评定：根据学生测量成果的精度评定成绩，占50%。
学生自评：学生根据自己在项目实施过程中的作用及表现进行自评，占10%。
小组互评：根据工作表现，发挥的作用，协作精神等小组成员互评，占15%。
考核标准教师评价：根据考勤、学习态度、吃苦精神、协作精神，职业道德等进行评定；根据项目实施过程每个环节及结果经进行评定；根据实习报告质量进行评定；综合以上评价，占25%。
CASIOfx-4500PA计算器程序和操作
786635957WOSHIchunzi1314CASIOfx-4500PA计算器程序和操作一、水准测量高程计算程序1、程序名：H-（1）第一行：L1 lbl 0 第二行：L2 Z：A：｛BK｝第三行：L3 H=Z＋A－B◢第四行：L4 V=K-H ◢第五行：L5 Goto 02、操作步骤①开机：按AC键：②呼出文件名：按FILE键，显示H-（1）文件名为止：③按EXE键，显示Z？，输入水准点BM后视点高程：如129.919；④按EXE键，显示A？，输入后视水准尺读数：如1.633；⑤按EXE键，显示B？，输入前视水准尺读数：如4.186；⑥按EXE键，显示H=127.366，此结果是K3＋300中桩地面髙程；⑦按EXE键，显示K？，输入K3＋300中桩设计高程127.032；⑧按EXE键，显示V=K-H，-0.334此结果是K3＋300中桩挖出数据；⑨按EXE键，显示B？，连续算下去……（－挖；＋填）。
二、坐标反算程序①1、程序名；1ZBFS第一行：L1 AB：Fixm：｛CD｝第二行：L2 Pol(C-A，D-B）◢第三行: L3 W<0 =〉W=W+360第四行：L4 lntW＋0.01lnt（）＋0.006 Frac（60 Frac W）◢2、操作步骤①开机：按AC键：②呼出文件名：按FILE键，显示1ZBFS文件名为止：③按EXE键，显示A？，输入第一点x坐标：如363.567（也可当测站）；④按EXE键，显示B？，输入第一点y坐标：如814.454（也可当测站）；⑤按EXE键，显示C？，输入第二点x坐标：如406.260 （也可作后视点）；⑥按EXE键，显示D？，输入第二点y坐标：如1029.145（也可作后视点）；⑦按EXE键，显示Pol(C-A，D-B）：218.89476为两点间距离；⑧按EXE键，显示lntW＋0.01lnt（60 Frac W）＋0.006 Frac（60 Frac W）78.45108两点方位角；(即是78°45′11″)三、坐标正算程序1、程序名；2ZBZS第一行：L1 AB：Lbl5：｛ST｝第二行：L2 C=A＋Rce（S，T）◢第三行：L3 D=B＋W◢第四行：L4 Goto52、操作步骤①开机：按AC键：②呼出文件名：按FILE键，显示2ZBZS文件名为止：③按EXE键，显示A？，输入第一点x坐标：如363.567；④按EXE键，显示B？，输入第一点y坐标：如814.454；⑤按EXE键，显示S？，输入两点间距离：如218.89476；⑥按EXE键，显示T？，输入两点方位角：如78°45′10.8″；⑦按EXE键，显示C=A＋Rce（S，T），为第二点x坐标：如406.260；⑧按EXE键，显示D=B＋W，为第二点y坐标：如1029.14499；四、坐标反算程序②1、程序名；ZF第一行：L1 Lbl 0第二行：L2 A：B：｛CD｝：C≤0 G=〉oto2第三行：L3 X=C－A第四行：L4 Y=D－B第五行：L5 S=Pol（X，Y）◢第六行：L6 T=W第七行：L7 T＜0=〉第八行：L8 T=W ◢第九行：L9 Goto 0第十行：L10 Lbl 1第十一行：L11 T″T″=360＋T◢第十二行：L12 Goto 0第十三行：L3 lbl 2第十四行：L14 ｛AB｝第十五行：L15 Goto 02、操作步骤①开机：按AC键：②呼出文件名：按FILE键，显示ZF文件名为止：③按EXE键，显示A？，输入第一点x坐标：如363.567 ；④按EXE键，显示B？，输入第一点y坐标：如814.454；⑤按EXE键，显示C？，输入第二点x坐标：如354.618；⑥按EXE键，显示D？，输入第二点y坐标：如553.341；⑦按EXE键，显示Pol(C-A，D-B）S=Pol（X，Y）：261.2663为两点间距离；⑧按EXE键，显示T=268.0371接着按SHIFT °′″键显T=268°2′13.55″为两点的方位角；⑨按EXE键，显示C？，输入下一点x值；⑩重复以上操作方法（略）五、线路直线段点坐标计算程序(1) ㈠本可计算前切线YZ至ZY点(或后切1、程序名；Z-X,Y(1) 线ZY至YZ)间直线上任点中、边桩坐标。
铁路圆曲线要素计算程序设计
铁路圆曲线要素计算程序设计
要设计一个计算铁路圆曲线要素的程序，可以按以下步骤进行设计：
1. 确定输入要素：
- 初始点：曲线起点的坐标或里程
- 终点：曲线终点的坐标或里程
- 曲线半径：圆曲线半径
- 速度限制：曲线上的速度限制，可以根据需要选择是否加入
2. 确定输出要素：
- 曲线长度
- 运行速度表
- 中点坐标或里程
- 曲线的几何元素（切线长、长外矢量等）
3. 编写计算曲线长度的函数：
- 使用两点间的距离公式计算初始点和终点之间的直线距离 - 使用圆弧的长度公式计算曲线长度
4. 编写计算运行速度表的函数（可选）：
- 根据速度限制计算曲线上各点的速度限制
- 可以采用规定的速度限制表，或者根据某种规则计算速度限制
5. 编写计算中点坐标或里程的函数：
- 使用初始点和终点的坐标或里程计算曲线的中点坐标或里程
- 使用初始点和终点的坐标计算切线方向，然后计算中点的坐标
6. 编写计算几何元素的函数：
- 利用曲线半径和切线长公式计算切线长
- 利用切线长和圆曲线半径公式计算长外矢量
7. 设计主程序：
- 获取用户输入的初始点、终点、曲线半径和速度限制
- 调用计算曲线长度的函数，将结果保存
- 调用计算运行速度表的函数，将结果保存（可选）
- 调用计算中点坐标或里程的函数，将结果保存
- 调用计算几何元素的函数，将结果保存
- 输出计算结果
以上是一个简单的程序设计框架，具体的实现可以根据实际情况进行适当调整和优化。
CASIO+FX-5800P+综合曲线坐标计算程序(正确)2010.1.17
圆曲线坐标计算交点桩号YK20+734.498；N=2889769.961；E=527002.305 ；方位角314'24'58.3' 转角27'19'31.4' 切线长度T1= 814.345 ；T2= 814.347 ；半径R=3000 ；曲线长度LS1：170；LC=1260.752；LS2= 170 曲线总长=1600.752 求ZH,HY,QZ,YH,HZ以及圆心点的坐标。
1、A？输入转(偏)角；左转为负，右转为正。
转角27'19'31.4'2、R？输入曲线半径。
30003、LS？输入缓和曲线长度。
1704、JD（DK）？输入交点里程桩号。
20734.498结果显示T = 814.347 W=87.776 L=1600.754 ZH=19920.151;HY=20090.151; QZ=20720.528; YH=21350.905; HZ=21520.9055、X（JD）？输入本交点X坐标。
2889769.9616、Y（JD）？输入本交点Y坐标。
527002.3057、FWJ？输入直缓(ZH)点切线方位角。
314'24'58.3'8、J？输入0程序计算中桩，输入1程序计算边桩。
09、Z？输入里程桩号。
ZH=19920.151FWJ:314.416 X=2889200.028 Y= 527583.973完（FWJ:314.416=314'24'57.6' ）ZH(2889200.026 527583.975) HY(2889320.140 527463. 682)QZ(2889816.373 527076.808) YH(2890382.383 526801.950)HZ(2890543.311 526747.167)例如2:JD15:4013872.8781;456031.1661 JD16:4015349.321;451808.075ZH:75+137.901 ay:16.45.49.69 R=9000 缓和曲线长：490 T=1571.257 JD(DK) =76709.158 FWJ=289-16-12.85 给我算一下74+400;75+300;75+800;76+500左中线坐标。
缩短轨及配轨计算程序(最新)
说明：设计依据：3、缩短轨的数量及其配置原则：计算出整个曲线的总缩短量后，选用缩短量为k的缩短轨，即可求出整个曲线上所需的缩短轨根数N : N=Δl Z /k N值不能大于外轨线上铺设的标准轨根数N O ,否则应改用缩短量更大的缩短轨。
考虑到曲线和圆曲线的缩短量计算不同，故需要分段计算。
（1）第一缓和曲线（ZH～HY):将坐标原点置于ZH点，则任一接头处内轨累计缩短量计算如下：Δl ＝1500l 2/（2RL O ）（mm） 式中：l－第一缓和曲线上任一钢轨接头至缓和曲线起点（ZH）的距离（m ）；R-圆曲线半径（m）；LO-缓和曲线全长（m）。
（2）圆曲线（HY～YH）：坐标原点仍在ZH 点，则任一接头处内轨累计缩短量为：Δl ＝1500l O /(2R)+1500l /R （mm）式中：l -圆曲线上钢轨接头距离圆曲线起点（HY）的距离（m）。
（3）第二缓和曲线（HY～HZ):将坐标原点置于缓和曲线的终点（），算出每个钢轨接头的内轨缩短量，在由总缩短量减去该值，则得该钢轨接头至缓和曲线起点的内轨累计缩短量为：Δl ＝Δl z－1500l 2/(2R l O ) （mm） 式中：Δlz－曲线总的缩短量（m）； l－第二缓和曲线上任一钢轨至HZ点的曲线长（m）。
这样，即可从曲线起点开始，计算每个接头的对应的累计缩短量，当由于曲线内侧铺设缩短轨而产生的实际累计缩短量小于累计缩短量，且其差值大于所用缩短轨缩短量的一半时，就该在该处布置一个缩短轨。
每个接头计算的累计缩短量与实际的累计缩短量之差即为接头错开量。
3、单位：中铁十三局工程集团公司襄渝铁路二线工程指挥部4、请把它的缺点反馈给我，把它的优点介绍给需要它的人！5、只需要在红色区域内填写即可，根据实际情况，如果计算内容，在表格内不完全显示，请继续往下复制表格即可。
1、铁路曲线地段外股轨线比内股线长，为了保证钢轨接头采用对接方式，内股钢轨宜采用厂制缩短轨，为此需进行缩短轨计算。
圆曲线的详细测设
2.1圆曲线要素计算在JD1点置经纬仪，以一个测回测定转折角 ，计算路线偏角 。设计圆曲线的半径R=50m，按下列公式计算圆曲线元素（切线长T、曲线长L、外失距E、切曲差D），
(1-0)
(1-1)
(1-2)
D＝２Ｔ－Ｌ(1-3)
用安置于JD1点的经纬仪先后瞄准ZD1，ZD2定出方向，用钢尺在该方向上测设且切线长T，定出圆曲线的起点（直圆点）ZY和圆曲线的终点（圆直点）YZ，打下木桩，重新测设一次，在木桩顶上标出ZY 和YZ的精确位置。
学 号：08300486
专 业 班 级：工程测量与监理384403
指 导 教 师：张晓雅
摘 要
本文阐述了在公路、铁路的路线圆曲线测设中，一般是在测设出曲线各主点后，随之在直圆点或圆直点进行圆曲线详细测设。其中施工测量是整个施工进程和每一施工工序中的首要工作，其内容主要是建立平面控制网和高程系统，测定线路关键点，细部点的测设，中线（线路轴线），对圆曲线进行施工放样测量，并在施工进程中进行相关的测量等，以确保施工质量和施工过程的安全。本文通过仪器安置不同地方进行多种圆曲线测设，提出了偏角法、切线支距法和全站仪法详细测设圆曲线的方法，对圆曲线上各点进行测设。
ZY K4+776.716 K5 123.284
+L/2 164.348 - K5 +17.872
QZ K4+941.064 YZ 105.412
+L/2 164.384
YZ K5+105.412
主点坐标计算：
由上表已知JD2坐标及坐标方位角，可求出ZY点坐标
=9719.009+173.284cos316015、50、、=9844.212
一般圆曲线计算程序(5800P)
一般圆曲线计算程序(5800P)（五）圆曲线坐标计算程序(xx-03-2519:27:05)转载▼标签：杂谈五、圆曲线坐标计算程序：1、Deg:Fix32、Lbl 0:3、“K0=”?K:?X:?Y:?A:?R4、“L=-1,R=+1”：?G5、“ZS=0，FS≠0”：?S6、S≠0 =＞Goto17、“Ki”?Z8、90(Z-K)（πR）→B9、2R sin B→D10、“Xi=”:X+Dcos (A+GB)→P◢11、“Yi=”:Y+Dsin (A+GB)→Q◢12、A+180G(Z-K)（πR）→O13、“ZBJ”?E14、“XiL=”:P+Ecos(O-90)◢15、“YiL=”:Q+Esin(O-90)◢16、“YBJ”?F17、“XiR=”:P+Fcos(O+90)◢18、“YiR=”:Q+Fsin(O+90)◢19、 Goto 020、 Lbl121、“XC”?U:“YC”?V22．X+Rcos(A+90G)→M23．Y+Rsin(A+90G)→N24、Pol(U-M,V-N)→H25、J＜0 =＞J+360→J26、“PJ=”:R-H→L◢27、“XCCZ=”:M+Rcos(J)→T◢28、“YCCZ=”:N+Rsin(J)→W◢29 、Pol(T-X,W-Y)→Z30、“CZZH=”: K+sin-1(Z2R)πR90◢31、 Goto 0说明：1、设置小数保留三位。
2、程序03、赋值起点桩号K0，赋值起点坐标X、Y，赋值半径R,赋值起点走向方位角A。
4、赋值曲线转向，左转为-1，右转为+1。
5、选择正算S=0，或反算S≠0、6、如果S≠0，进入反算程序。
7、正算程序：输入所求桩号Ki。
8、计算弦切角B。
9、计算弦长D。
10、计算中桩坐标Xi并显示。
11、计算中桩坐标Yi并显示。
12、计算i点走向方位角O。
13、输入左边桩距中桩的距离E。
14、计算左边桩坐标XiL并显示。
15、计算左边桩坐标YiL并显示。
卡西欧4800坐标计算程序
QL（坐标反算）Lbi 0:C“X0”:D“Y0”:{XY}:X“X2”Y“Y2”:(X-C)=O=>Goto 1:≠Lbi 1:W“Q”=0◢Goto 0Lbi 2:Prog“FWJ”Fix 4W“Q”=IntW+0.01Int(60FracW)+0.006Frac(60FracW) ◢NormT“L”= ((X-C)2+(Y-D)2)◢Goto 0说明：（已知两点坐标，反算方位角及两点间的距离）先按FILE键，光标选择QL，按EXE运行。
输入：X0? 测站点（或起算点）X轴坐标，按EXEY0? 测站点（或起算点）Y轴坐标，按EXEX2? 后视点（或方向点）X轴坐标，按EXEY2? 后视点（或方向点）Y轴坐标，按EXE显示： Q 方位角（如：125.0325即表示125。
03’25”）,按EXE L 两点间距离再按EXE进行循环运算，重复输入X2？、Y2?否则按AC键退出。
XY(坐标正算)Lbi 0:C“X0”:D“Y0”:{WM}:W“Q”M“L”:X=C+McosW◢Y=D+MsinW◢Goto 0说明：（已知一点坐标、方位角、距离，求另一点坐标）先按FILE键，光标选择XY，按EXE运行。
输入：X0? 测站点（或起算点）X轴坐标，按EXE Y0? 测站点（或起算点）Y轴坐标，按EXE Q? 已知方位角，按EXEL? 两点间距离，按EXE显示：X 所求点X轴坐标，按EXEY 所求点Y轴坐标，按EXE再按EXE进行循环运算，重复输入Q? 、L?否则按AC键退出。
ZX（直线坐标计算）Lbi 0:G“QD”：A“QDX”: B“QDY”:Q“Q”:{L,K}:Prog“ZZ”:Goto 0说明：（计算直线段任意里程桩号坐标）先按FILE键，光标选择XY，按EXE运行。
输入：QD? 直线段起点里程，按EXEQDX? 起点X轴坐标，按EXEQDY? 起点Y轴坐标，按EXEQ? 已知方位角，按EXEL? 所求点里程，按EXEK? 所求点距中线的宽度（左负右正），按EXE显示：X 所求点X轴坐标，按EXEY 所求点Y轴坐标，再按EXE进行循环运算，重复输入L? 、K?否则按AC键退出。
道路工程测量(圆曲线缓和曲线计算)
内容：理解线路勘测设计阶段的主要测量工作（初测控制测量、带状地形图测绘、中线测设和纵横断面测量）；掌握路线交点、转点、转角、里程桩的概念和测设方法；掌握圆曲线的要素计算和主点测设方法；掌握圆曲线的切线支距法和偏角法的计算公式和测设方法；了解虚交的概念和处理方法；掌握缓和曲线的要素计算和主点测设方法；理解缓和曲线的切线支距法和偏角法的计算公式和测设方法；掌握路线纵断面的基平、中平测量和横断面测量方；了解全站仪中线测设和断面测量方法。
重点：圆曲线、缓和曲线的要素计算和主点测设方法；切线支距法和偏角法的计算公式和测设方法；路线纵断面的基平、中平测量和横断面测量方法难点：缓和曲线的要素计算和主点测设方法；缓和曲线的切线支距法和偏角法的计算公式和测设方法。
§ 9.1 交点转点转角及里程桩的测设一、道路工程测量概述分为：路线勘测设计测量 (route reconnaissance and design survey) 和道路施工测量 (road construction survey) 。
（一）勘测设计测量 (route reconnaissance and design survey)分为：初测 (preliminary survey) 和定测 (location survey)1、初测内容：控制测量 (control survey) 、测带状地形图 (topographical map of a zone) 和纵断面图 (profile) 、收集沿线地质水文资料、作纸上定线或现场定线，编制比较方案，为初步设计提供依据。
2、定测内容：在选定设计方案的路线上进行路线中线测量 (center line survey) 、测纵断面图 (profile) 、横断面图 (cross-section profile) 及桥涵、路线交叉、沿线设施、环境保护等测量和资料调查，为施工图设计提供资料。
（二）道路施工测量 (road construction survey)按照设计图纸恢复道路中线、测设路基边桩和竖曲线、工程竣工验收测量。
卡西欧5800程序使用说明
“SBJS”坐标计算程序
此说明适用于有对称完整的缓和曲线，圆曲线
“X0”后视点X坐标，
“Y0”后视点Y坐标，
“X1”测站点X坐标，
“Y1”测站点Y坐标，
“ANGLE”测站点坐标方位角，
“DIST”测站点到后视点的距离，
“KJD”交点桩号
“XJD”交点X坐标，“YJD”交点Y坐标
“FWJ”方位角，“O”转角，“FH”左转为-1，右转为1
“A1”第一个缓和曲线的缓和参数，“R”第一个缓和曲线的半径
“A2”第二个缓和曲线的缓和参数，
“T1、T2”第一、二切线长，
“K”放样点桩号，“DD1”距中桩的距离（左边为正数，右边为负数），“JJ1”与路线方向的右夹角（90度时为0，95度时为5度，85度时为-5度）
“DD2，JJ2”全部输0，
“X2，Y2”所求点的坐标，“ANGLE”测站点于所求点的方位角，“DIST”测站点到所求点的距离。
“SJGC”计算路面标高的程序
“KJD”交点桩号，
“HJD”交点桩号的高程，
“I1、I2”前、后纵坡值（这个值最好自己算，多保留几位小数，图纸上的数据只保留了三位小数，使用图纸的数据可能计算出来的标高有差异），
“R”竖曲线半径，
“K”所求桩号，
“DD”距中桩的距离（方向是与路线方向成90度角的，计算中桩时输0），
“HP”横坡值（边桩比中桩高时输正数，边桩比中桩低时输负数），“HZ”所求点中桩高程，
“HB”所求点边桩高程。
fx4800编程计算器程序二
6. 圆曲线段 文件名：YQX (COMP) 程式： L”K0”:O”X0”:P”Y0”:W”ALF”: Lbl 1:{K}: J=(-1)^N (K-L)÷R×180÷π:D=2Rsin((-1)^N J÷2): X”XZ”=O+Dcos(W+J÷2) ◢ Y”YZ”=P+Dsin(W+J÷2) ◢ {B}:S”XL”=X-B”LL”cos(W+J+Q) ◢ T”YL”=Y-Bsin(W+J+Q) ◢ {C}:U”XR”=X+C”LR”cos(W+J+Q) ◢ V”YR”=Y+Csin(W+J+Q) ◢ Goto 1 注：若没有直接 HY 点方位角，则 ALFHY=ALFZH±Ls/2/R×180/π,(左转-，右转 +)。
3.缓和曲线曲线要素： 程序步骤： B=0°1718.87′﹡L/R◢ X=L-L＾3/40/ R2◢ Y=L2/6/ R◢ P=Y-R(1-cos B◢ Q= X-Rsin B◢ T=(R+P)tan(A/2)+Q◢ E=(R+P)(cos(A/2))-1-R◢ Z= R(A-2B)л/180+2L◢ J=2T-Z◢ D=X-Y/tan B 操作过程： HQQXYS→EXE→输入 L 值（即缓和曲线总长）→EXE→输入 R 值（即圆曲线半径） →EXE→得β角度→EXE→得 Xh 值→EXE→得 Yh 值→EXE→得 P 值→EXE→得 Q 值 →EXE→输入 A 角（例 125°31′23.25″）→EXE→得 T 值→EXE→得 E 值→EXE →得 Z 值→EXE→得 J 值→EXE→得 D 值 注：此程序可循环计算。
卡西欧计算器公路隧道圆曲线正反算及隧道超欠挖计算程序
CASIO fx5800卡西欧计算器公路隧道圆曲线正反算及隧道超欠挖计算程序活动代码N Z+已经用到Z[9]1-ZFS(主程序)Z[3]→N：“X（CZD）=”?N：N→Z[3]：Z[4]→N：“Y（CZD）=”?N：N→Z[4]：零→ZLbl 1: “K=”?S：Prog “SJK9-PQX”：Abs(S-O) → W：Prog "ZCX9-ZS"Lbl 2:If Z[3]=零: Then 零→I: 零→J:Else Pol(X-Z[3],X-Z[4]):IfEndIf Z≠零: Then Goto 3:IfEndCls:Locate1,1,"X="：Locate4,1,X:Locate1,2,"Y="：Locate4,2,Y:Locate1,3,"S="：Locate4,3,I:Locate1,4,"F="：Locate4,4,Jº◢ClsLbl 4:“P=”?Z 输入0时返回从新输入桩号计算中桩坐标,输入-5或5.表示输入的左边5米或者右边5米的边桩坐标.输入360反算.输入-360时,隧道超欠挖If Z=零: Then Goto 1:Else If Z=360 or Z=-360: Then Z→Z[5]:0→Z:Goto 5:IfEnd:IfEndZ[6]+QEZ[9](C+Z[9]D)+90→ F：Z[7]+Zcos(F)→ X：Z[8]+Zsin(F)→ YGoto 2Lbl 3F-90→F:S→ K:Prog“SJK9-SQX”Cls:Locate1,1,"PJ="：Locate4,1,Z:Locate1,2,"F="：Locate4,2,Jº:Locate1,3,"S="：Locate4,3,I:Locate1,4,"H="：Locate4,4,H◢Cls:Locate1,1,"K="：Locate4,1,S:Locate1,2,"X="：Locate4,2,X:Locate1,3,"Y="：Locate4,3,Y:Locate1,4,"H="：Locate4,4,H◢ClsGoto 4Lbl 5:“X=”?X：If X=零: Then Goto 1:IfEnd“Y=”？Y:Prog“SJK9-PQX”：X→ I：Y→ J：Prog "ZCX9-FS"：O+W→S:“K="：Locate4,4,S:"P="：Locate4,4,Z◢If Z[5]=-360: Then S→ K:Prog“SJK9-SQX”：“H=”：H◢Prog“SJK9-CQW”◢Goto 5SJK9-PQX（子程序名-平面线形数据库）If S ≥85000（线元起点里程）:Then 202º6’21.88”→G（线元起点方位角）86575.422→O （线元起点里程）：3660093.259→U（线元起点X坐标）：499712.202→V（线元起点Y坐标）：800→P（线元起点曲率半径）：800→R（线元终点曲率半径）：301.61 →H（线元长度）：1 →Q （线元左右偏标志：左-1右1）：IfEndIf S ≥86877.032:Then 221º59’57.15”→G87097.032→O：3659688.163→U：499391.684→V：650→P：650→R：341.443 →H：-1 →Q：IfEnd……SJK9-SQX（子程序名-竖数据库）87161.55变坡起点里程→Z[1]：87558.45变坡终点里程→Z[2]：If S≥Z[1]And S＜Z[2]：Then 87360变坡点里程→O：1135.57变坡点高度→G：-0.023小里程坡度→B：-0.014大里程坡度→A：44100半径→R：Prog“ZCX9-GC”:Return:IfEndZ[2]→Z[1]：87961.55→Z[2]If S≥Z[1]And S＜Z[2]：Then 87760→O：1129.97→G：-0.014→B：-0.018→A：100775→R：Prog“ZCX9-GC”:Return:IfEnd(注：如整条线只有一个纵坡比喻为2﹪，那么程序应为If S＜终点里程And S≥起点里程：Then 0.02→A：0.02→B：起点里程→O：起点高程→G：1×1045→R：Prog“ZCX9-GC”:IfEndSJK9-CQW (子程序名-隧道数据库)这个暂时不用管,不用输入“H1=”?F:”P=”?ZIf F-H＞5.845:Then √((Abs (Z))2+(F-H-0.45)2 )-7.45→W: IfEnd:If F-H≤5.845 And F-H＞-1.169: Then √((Abs (Z)-1)2+( Abs (F-H-1.5)) 2)-6→W :IfEnd: If F-H≤-1.169: Then √((Abs (Z)) 2+(H-F+14.05) 2)-16.5→W: IfEnd:…“+CQ,-CQ=”: WZCX9-ZS(正算子程序)1÷P→ C：(P-R)÷(2HPR) → D：180÷π→ E：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))) → XV+W(Asin G+ QEKW(C+KWD))+Bsin(G+QELW(C+LWD))+Bsin(G+QEFW(C+FWD))+ Asin(G+QEMW(C+MWD))) → Y：G→Z[6]：X→Z[7]：Y→Z[8]：W→Z[9]：ZCX9-FS(反算子程序)G-90→T：Abs((Y-V)cos(T)-(X-U)sin（T）) → W：零→ Z：Lbl 0：Prog "ZCX9-ZS"：T+QEW(C+WD) →L：(J-Y)cos(L)-(I-X)sin(L) → Z：If Abs(Z)<1E-6(注：此处1E-6可输入0.000001)：then Goto1：Else W+Z → W：Goto 0：IfEndLbl 1：零→ Z：Prog "ZCX9-ZS"：(J-Y)÷sin(F)→ ZZCX9-GC（高程子程序）O-S→L:A-B→W:Abs(R*W÷2) →T:O-T→M:O+T→PIf S≤M:ThenG-L*B→H:Goto5:Else If S≤O:Then Goto3:Else If S≤P:Then Goto4:IfEnd: IfEnd: IfEndLbi3If W＞O：Then G+(M-S)2÷2÷R-L*B→H:Goto5: Else If W＜O: Then G-(M-S)2÷2÷R-L*B→H:Goto5: IfEnd: IfEndLbi4If W＞O：Then G+( S-P)2÷2÷R-L*A→H:Goto5: Else If W＜O: Then G-( S-P)2÷2÷R-L*A→H:Goto5: IfEnd: IfEndLbi5H→H: Return说明：所有程序名,不同线路，只需改动SJK9-PQX，SJK9-SQX，SJK9-CQW三个子程序里的内容，其它不变。
直线、圆曲线程序清单
直线、圆曲线程序清单（一）直线：X=cos W(Z－Q)+O▲Y= sin W(Z－Q)+P▲A= cos (W－T)×L+X▲B=sin (W－T)×L+Y▲C= cos (W+180－T)×M+X▲D= sin (W+180－T)×M+Y▲说明：W——直线坐标方位角Z——所求桩号Q——起点桩号O——起点桩号中桩X坐标X——所求桩号中桩X坐标P——起点桩号中桩Y坐标Y——所求桩号中桩Y坐标T——与直线相交的角度L——左边桩任意距离A——左边桩L距离的X坐标B——左边桩L距离的Y坐标M——右边桩任意距离C——右边桩M距离的X坐标D——右边桩M距离的Y坐标（二）圆曲线：X= cos（U+K（90（Z－Q）÷（πR）））（2R sin（90（Z－Q）÷（πR）））+ O▲Y= sin（U+K（90（Z－Q）÷（πR）））（2R sin（90（Z－Q）÷（πR）））+ P▲W= U+2K（90（Z－Q）÷（πR））▲A= cos (W－T)×L+X▲B=sin (W－T)×L+Y▲C= cos (W+180－T)×M+X▲D= sin (W+180－T)×M+Y▲说明： U——圆曲线坐标方位角K——圆曲线左转为负，右转为正Z——所求桩号Q——起点桩号R——半径O——起点桩号中桩X坐标X——所求桩号中桩X坐标P——起点桩号中桩Y坐标Y——所求桩号中桩Y坐标W——圆曲线方位角（不改变）T——与圆曲线相交的角度L——左边桩任意距离A——左边桩L距离的X坐标B——左边桩L距离的Y坐标M——右边桩任意距离C——右边桩M距离的X坐标D——右边桩M距离的Y坐标程序到此进入再循还。
缓和曲线程序清单程序内容：R：S"LS"Q"ZH":A"FANGWEIJIAO":E"JDX0":F"JDY0":P"JIAJIAO"T"TH"=(Abs R+S2÷(24 Abs R))tan(P÷2)＋S÷2－S^3÷（240R2）:U"LH"=（P－180S÷Abs R÷π）πAbs R÷180＋2S:L≤Q＋S=>Goto 1:≠=> Goto 2Lb1 1｛L,K,D｝B=（L－Q）2×180÷（6 Abs RSπ）:C=L－Q－（L－Q）^5÷（90 R2 S2）:R≥0=>O=A ＋B: M=A＋3B: ≠=> O =A－B: M=A－3B:△X=E＋T cos（A＋180）＋CcosO▲Y=F＋T sin（A＋180）＋C sin O▲K≥0=> G"X1"=X＋Dcos（M＋90）▲H"Y1"=Y＋D sin（M＋90）▲≠=> G"X1"=X＋Dcos（M－90）▲H"Y1"=Y＋D sin（M－90）▲Goto 1: △Lb1 2L≥Q＋U－S=> Goto 4: ≠=>Goto 3:Lb1 3:｛LKD｝B=90（L－Q－S）÷（πAbs R）:C=2Abs R sinB:R≥0=>N=A＋S2×180÷（6Abs RSπ）:V=A＋S2×180÷（2Abs RSπ）: O=V＋B：M=V＋2B：≠=>N=A－S2×180÷（6Abs RSπ）:V=A－S2×180÷（2Abs RSπ）:O=V－B：M=V－2B：△ X=E＋Tcos （A＋180）＋（S－S^5÷（90R2S2））cosN＋C cosO▲Y=F＋Tsin（A＋180）＋（S－S^5÷（90R2S2））sinN＋Csin O▲K≥0=> G"X1"=X＋Dcos（M＋90）▲H"Y1"=Y＋D sin（M＋90）▲≠=> G"X1"=X＋Dcos（M－90）▲H"Y1"=Y＋D sin（M－90）▲Goto 3: △Lb1 4｛LKD｝B=180（L－U－Q）2÷（6Abs RSπ）:C=（U＋Q－L）－（U＋Q－L）^5÷（90R2S2）:R≤0=>W=A－P:O=W＋B＋180:M=W＋180＋3B:≠=>W=A＋P:O= W－B＋180:M= W－3B＋180: △ X=E＋Tcos W＋CcosO▲Y=F＋T sin W＋C sin O▲K＜0=> G"X1"=X＋Dcos（M＋90）▲H"Y1"=Y＋D sin（M＋90）▲≠=> G"X1"=X＋Dcos（M－90）▲H"Y1"=Y＋D sin（M－90）▲Goto 4说明：R ——半径为负缓和曲线向左转，为正向右转LS ——缓和曲线长度ZH ——直缓点桩号FANGWEIJIAO ——方位角JDX0 ——交点X坐标JDY0 ——交点Y坐标JIAJIAO ——夹角（转向角）L ——所求桩号L ——所求桩号（重复出现同上）X ——所求桩号中桩X坐标Y ——所求桩号中桩Y坐标K ——曲线左右边选择：值负为左边，正为右边D ——边桩到中桩的距离X1 ——边桩X坐标Y1 ——边桩Y坐标。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
圆曲线求桩号和曲线内外距离
YQXFY
LbI 0
A”X1”:B ”Y1” :C”X2” :D”Y2” :E”R”:F”Q”:｛V｝：V”XZ”｛W｝：W”YZ”:U”QH”
POI((C－A)，(D－B))：G=J 求起点至交点方位角
H=tan(Abs F÷2)×E 求T长值
K=Rec(H,(G＋180))+C:L=J+D 圆切点坐标
M= Rec(E,(G+90×（F÷Abs F）))+K：O=J+L 圆心点坐标
P= POI((V－M),(W－O)):Q=J 求任意测点至圆心点距离和方位角
POI((K－M),(L－O)):Z=J 切点与圆中心点方位角
R=Abs(Q－Z) 求被测点与半径夹角
A[27]= POI((V－A),(W－B)):B[28]=J 求被测点与起点的距离和方位角
S=Cos（G -B[28])×A[27] 求被测点的桩号
L[38]= U－H＋E×R×0.001745
S <U－H＝＞CotOA ：≠＞L[38]≤U－H＋E×Abs F×0.001745＝＞CotO B：≠＞L[38]≥U－H＋E×Abs F×0.001745＝＞CotO C：
LbI A
C[29]=Sin（G -B[28])×A[27] 求第一直线段的边距左+，右—
D[30]”ZWH”=Cos(Abs（G -B[28])）×A[27] ◢求每直线段的桩号
T”LR1”= C[29]◢求每直线段的边距左+，右—
Goto 0
LbI B
D[30]”ZWH0”= R×E×0.0017453292+U－H◢求圆曲线内测点的桩号
T”LR0”= P －E◢左+，右—
Goto 0
LbI C
E[31]= Rec(1000,(G＋F))＋C: F[32]=J+D 求第二直线1000米处的坐标
POI（（C－E[31]）,(D－F[32])）: G[33]=J 求交点与1000米处的方位角
H[34]=POI（（V－E[31]）,(W－F[32])）: K[37]=J 求被测点与1000米处的方位角
D[30]”ZWH”=(U－H)＋(E×F×0.01745)＋(1000-H)－Cos(Abs (K[37]－G[33]))×H[34]◢
T”LR2”＝Sin(K[37]－G[33])×H[34] ◢
Goto 0
说明：
A”X1”：B ”Y1”点直线起点坐示
C ”X2” :D”Y2”点交点坐标
E”R”半径
F”Q”偏转角
｛V｝：V”XZ”｛W｝：W”YZ”被测点坐标
U”QH”交点桩号。