CASIO5800YFX圆弧线坐标计算程序

CASIO5800YFX圆弧线坐标计算程序
CASIO5800YFX圆弧线坐标计算程序

[原创] CASIO fx-5800P YFX圆弧线坐标计算程序

说明:该程序适用于计算器 CASIO fx-5800P,针对圆弧线线形设计,可计算公路交叉口圆弧线线路中、边桩坐标、切线方位角及斜交。

1、K? 输入起点桩号

2、X? 输入起点坐标X

3、Y? 输入起点坐标Y

4、R? 输入曲线半径

5、FQ? 输入起点方位角

6、FZ? 输入止点方位角

主程序名:YFX

Deg:Fix 3:10→DimZ↙(基本设置)

"K"?Z:"X"?U:"Y"?V:"R"?R:"FQ"?F:"FZ"?H↙(曲线要素)

H-F→Z[1]:If Z[1]<0:Then -1→Z[6]:Else 1→Z[6]:IfEnd↙(转角)

Abs(Z[1])→Z[1]↙(赋值)

R×tan(Z[1]÷2)→T↙(切线长)

R×Z[1]×π÷180→L↙(曲线长)

R×(1÷cos(Z[1]÷2)-1)→E↙(外失距)

Z+L÷2→Z[7]↙(曲中里程)

Z+L→Z[8]↙(圆直里程)

Cls:"T=":Locate 3,1,T:"L=":Locate 3,2,L:"E=":Locate 3,3,E◢(显示)Cls:"ZY=":Locate 4,1,Z:"QZ=":Locate 4,2,Z[7]:"YZ=":Locate 4,3,Z[8]◢(显示)Lb1 1↙

Lbl A↙

"JK"?K↙(计算里程)

If K≤0:Then Goto A:IfEnd↙(当K≤0时,则返回至K)

"PJ"?I↙(计算偏距)

"PA"?J↙(计算偏角)

K-Z→M↙(计算点距直圆点间距)

M÷R×180÷π→N↙(计算点圆心角)

R×sin(N)→Z[5]↙(xi)

R×(1-cos(N))→P↙(yi)

√(Z[5]^2+P^2)→Z[9]↙(弦长)

tan-1(P÷Z[5])→S↙(偏角)

F+N×Z[6]→Z[4]↙(计算点切线方位角)

U+Z[9]×cos(F+S×Z[6])+I×cos(Z[4]+J)→X↙(计算结果坐标X)

V+Z[9]×sin(F+S×Z[6])+I×sin(Z[4]+J)→Y↙(计算结果坐标Y)

If Z[4]>360:Then Z[4]-360→Z[4]:Else If Z[4]<0:Then Z[4]+360→Z[4]:IfEnd:IfEnd Cls:"F=":Locate 3,1,Z[4]°:"X=":Locate 3,2,X:"Y=":Locate 3,3,Y◢

Goto 1↙

注:

1、◢为显示指令。

2、√为根号。

3、↙为回车(EXE)标识。

4、()括号内为程序说明,无需输入。

计算参数:

1、K? 0 (起点桩号)

2、X? 685.312 (起点坐标X)

3、Y? 1165.147 (起点坐标Y)

4、R? 50 (曲线半径)

5、FQ? 45°(起点方位角)

6、FZ? 135°(止点方位角)

7、T= 50 (计算结果:切线长T)

8、L= 78.54 (计算结果:曲线长L)

9、E= 20.711 (计算结果:外失距E)

10、ZY= 00.00 (计算结果:直圆桩号ZY)

11、QZ= 39.27 (计算结果:曲中桩号QZ)

12、YZ= 78.54 (计算结果:圆直桩号YZ)

13、JK? 39.27 (输入待求点桩号)

14、PJ? 0 (输入计算偏距)

15、PA? 0 (输入计算偏角,正交为90°)

16、F= 90°00ˊ00.38″(计算结果:切线方位角F)

17、X= 699.957 (计算结果:坐标X)

18、Y= 1200.502 (计算结果:坐标Y)

CASIO fx-5800P ——若有疑问请咨询邮件:ceo@https://www.360docs.net/doc/c24254231.html,

计算图示

本程序由【陈超】编著:版权归作者所有——更多程序请访问:https://www.360docs.net/doc/c24254231.html,

曲线段任意点坐标计算及放样程序

曲线任意点坐标计算及放样程序 不对称缓和曲线平面坐标计算程序 R“R”S“L1”U“L2”W“W”P“F”回车 A=90S/R∏:B=90U/R∏:C=S2/24R: D=U2/24R:E=S/2-S∧3/240R2:F=U/2-U∧3/240R2:F=U/2-U∧3/240R2:Q“T1”=E+(R+C)Tan(AbsW/2)+(D-C)/SinAbsW▲ K“T2”=F+(R+C)Tan(AbsW/2)-(D-C)/TanAbsW▲ O“L”=(AbsW-A-B)R∏/180+S+U▲ A=Z[1]-Q▲ B=A+S▲ E=A+O-U▲ F=A+O▲ G=Z[2]+QCos(P+180)▲ H=Z[3]+QSin(P+180)▲ I=Z[2]+Kcos(P+W) ▲ J=Z[3]+Ksin(P+W) ▲ M”X0”N”Y0”:Prog”A”:Prog”D” ▲ Lb1O:{ZDT}:Z”Z”:Lb10:Z≤A=>Goto1:≠=>Z>A=>Z≤B=>L=Z-A:K=RS:GotoY:≠=>Z>B=>Z≤E=>L=S:K=RS:GotoY:≠=>E>E=>Z≤F=>L=F-E:K=RU:GotoY:≠=>Z>F=>C=Z-F:Goto8△回车 Lb1 1:C=A-Z:X=G+Ccos(P+180):Y=H+Csin(P+180):V=P:Goto9△回车 Lb1 Y:K=0=>V=P:X=G:Y=H:Goto 6:≠=>X=L-L∧5/40K2+L∧9/3456K∧4-L∧13/599040K∧6:Y=L∧3/6K-L∧7/336K∧3+L∧11/42240K∧5-L∧15/9676800K∧7:C=√(X2+Y2): V=90L2/∏R:Q=Tan-1(Y/X):W<0=>Q=-Q:V=-V:GotoB△回车 Lb1 B:Z>A=>Z≤E=>Goto5:≠=>Z>E=>Z≤F=>Goto7△回车 Lb1 5:X=G+Ccos(P+Q):Y=H+Csin(P+Q):V=P+V回车 Z>A=>Z≤B=>Goto 9:≠=>Z>B=>Z≤E=>Goto6△回车 Lb1 6:L=Z-B:Q=90L/∏R:C=2RsinQ 回车 W<0=>Q=-Q:Goto E△回车 Lb1 E:X=X+Ccos(V+Q):Y=Csin(V+Q)+Y:V=V+2Q:Goto 9△回车 Lb1 7:X=I+Ccos(P+W+180-Q):Y=J+Csin(P+W+180-Q):V=P+W-V:Goto 9△回车 Lb1 8:X=I+Ccos(P+W):Y=J+Csin(P+W):V=P+W回车 Lb1 9 :X=X+Dcos(V+T):“X=“:Pause 0: Y=Y+Dsin(V+T)▲

5800简单全线坐标计算程序

5800全线任意坐标计算程序 1. 正算主程序(ZHCX) (不运行) 8→DimZ 1÷P→Z[4 ]:(P-R)÷(2HPR)→D: 180÷π→E “Z=”?Z:”YJJ=”?A:Abs(S-O)→W 0.26→Z[1 ]: 0.74→B: 0.02→K: 0.82→Z[3 ]: 1-Z[3 ]→F:1-K→Z[2 ] U+W(Z[1 ]cos(G+QEKW(Z[4 ]+KWD))+Bcos(G+Z[3 ]QEW(Z[4 ]+ Z[3 ]WD))+Bcos(G+QEFW (Z[4 ]+FWD))+ Z[1 ]cos(G+ Z[2 ]QEW(Z[4 ]+ Z[2 ]WD)))→X: V+W(Z[1 ] sin (G+QEKW(Z[4 ]+KWD))+B sin(G+ Z[3 ]QEW(Z[4 ]+ Z[3 ]WD))+B sin(G+QEFW (Z[4 ]+FWD))+ Z[1 ] sin(G+ Z[2 ]QEW(Z[4 ]+ Z[2 ]WD)))→Y: G+QEW(Z[4 ]+WD)→F:X+Zcos(F+A)→X:Y+Zsin(F+A)→Y:If F≧360:Then F-360→F:IfEnd ”X=”:X→X◢ ”Y=”:Y→Y◢ If F﹤0:Then F+360→F:IfEnd ”QX FWJ=”:F▼DMS◢ “C=1=>XX: C=2=>XZ”: ”C=”?C: ”QHJU=”?L: If C=1:Then Goto 1:Else Goto 2: IfEnd 可以计算斜交斜做或斜交正做的桥涵坐标 Lbi 1 X+L cos(F)→X:Y+Lsin(F)→Y: Goto 3 Lbi 2 X+L cos(F+A-90)→X:Y+Lsin(F+A-90)→Y: Goto 3 Lbi 3 “QH-X=”: X →X◢ “QH-Y=”: Y →Y◢ Prog “FY” 2 . 参数子程序(直接运行) M(主线) 一条线路一个名称 “S=”?S If S≦线元终点:Then 线元起点X值→U: 线元起点Y值→V:线元起点切线方位角→G:线元起点桩号→O:线元长度→H:线元起点半径→P:线元终点半径→R:(左偏-1,或右偏 1)→Q:Goto 1:IfEnd … … If S≦线元终点:Then 线元起点X值→U: 线元起点Y值→V:线元起点切线方位角→G:线元起点桩号→O:线元长度→H:线元起点半径→P:线元终点半径→R:(左偏-1,或右偏 1)→Q:Goto 1:IfEnd Lbi 1 Prog “ZBJS” 3. 放样程序(FY)(不运行) “X0=”?M:“Y0=”?N Pol((X-M, Y-N)

道路坐标计算公式

曲线坐标计算 1、曲线要素计算 (1)缓和曲线常数计算 内移距R l 24/p 2 s = 切垂距 23 s 240/2/m R l l s -= 缓和曲线角R l R l s s πβ/902/0??== (2)曲线要素计算 切线长 m R T ++=2/tan )p (α 曲线长 ?+=?-+=180/]180/)2([20απβαπR l R l L s s 外矢距 R R E -+=)]2/cos(/)p [(0α 切曲差 L T q -=2 2、主要点的里程推算

s s s S l YH HZ )/22l -(L QZ YH )/22l -(L HY QZ l +=+=+=+=-=ZH HY T JD ZH 检核: HZ T JD =-+q 3、方位角计算 根据已知JD1和JD2的坐标计算出 21JD JD -α 偏角βαα±=--211JD JD JD ZH ?±-=-18011JD ZH ZH JD αα 4、计算直线中桩坐标 (1)计算ZH 点坐标: ZH JD JD ZH ZH JD JD ZH T y y T x x --?+=?+=1111sin cos αα (2)计算HZ 点坐标: 2 11211cos cos JD JD JD HZ JD JD JD HZ T y y T x x --?+=?+=αα (3)计算直线上任意点中桩坐标 待求点到JD1的距离为i L 2 112 11sin cos -JD JD i JD i JD JD i JD i i L y y L x x HZ T L --?+=?+=+=αα里程 待求点里程 5、计算缓和曲线中桩坐标 (1)第一缓和曲线上任意点中桩坐标 在切线坐标系中的坐标为: s i s i Rl l y Rl l l x 6/)(40/3 25=-= ZH 到所求点方位角:

通过逐桩坐标计算曲线要素

通过逐桩坐标表推算曲线要素(CAD篇) 摘要:现在从事工程行业的都流行使用AutoCAD进行绘制图形,为了更好的利用这个绘图工具来绘制线路曲线要素,本文将讲解如何通过设计院提供的逐桩坐标表推算未知曲线要素。 关键词:AutoCAD 技巧曲线要素 说明:AutoCAD已经成为国际上广为流行的绘图工具。具有良好的用户界面,通过交互 菜单或命令行方式便可以进行各种操作。它的多文档设计环境,让非计算机专业人员也能很快地学会使用。在不断实践的过程中更好地掌握它的各种应用和开发技巧,从而不断提高工作效率。 如何提高CAD速率? 通常在开始绘图的时候一些人由于对工具命令不熟悉直接使用工具栏等查找命令,这样对制图的效率会大打折扣从而导致绘图的速率缓慢,提高制图的方法需要掌握CAD的快捷命令,孰能生巧的记住,然后择优选用其中的一些常用的绘图命令,把繁琐的长命令转化为简单的命令使用,其次需要多练习绘图的方式与方法才会提高绘图水平。 推算原理: 通过逐桩坐标表(含曲线五大桩)然后利用Excel生成展点命令在AutoCAD中进行坐标展点,再通过工具或命令绘制进行查询曲线长、切线长、外失距、交点坐标、交点里程、曲线半径、方位角、转角等。 准备工作: 1、逐桩坐标表X、Y(含曲线五大桩) 2、AutoCAD绘图软件 演示版本为:AutoCAD 2007 示例文件:某高速铁路逐桩坐标表 演示范围:DK07+586.707~DK12+126.03(由于该交点属于大转角则演示明显)

操作流程:坐标展点→绘制半径→绘制切线长→查询方位角→查询转角→查询交点坐标→查询交点里程→查询外失距→绘制缓和曲线。(请注意逐桩坐标表中所提供的ZH、HY、QZ、YH、HZ等说明) 准备操作如下: 1、打开“逐桩坐标表”并复制(里程桩号、坐标X、坐标Y)数据到“曲线坐标计算程序VBA 4.6”的“交点法正算”表格中,效果图如下: 逐桩坐标表见(本文附件)下载地址附后!

线元法万能坐标计算程序

线元法万能坐标计算程序(适用于CASIO fx-9750GⅡ计算器) 论文https://www.360docs.net/doc/c24254231.html,/:本论文仅供学习交流使用,本站仅作合理转载,原作者可来邮要求删除论 文。 摘要:我国公路建设事业正处于一个高速发展的时期,在公路工程施工过程中,施工技术人员经常要使用全站仪、水准仪进行施工放样、高程测量,在测量过程中,手工计算速度慢,失误率高,工作效率极低。利用CASIO fx-9750GⅡ编程函数计算器强大的内存(可诸存63000个字符)和编程功能,编写各种计算程序,能够在2秒钟内计算出施工放样、桩点坐标等施工过程中的各项数据资料,同时也使我们有更多的时间去挑战更富有创造性的工作。 关键词:坐标放线线元测量程序 1、前言 本程序采用Gauss-Legendre(高斯-勒让德)五节点公式作内核,计算速度(太约2秒)适中,计算精度很高。在此之前,本人曾用过以下公式作内核:①积分公式simpson法②双重循环复化高斯2节点③高斯-勒让德3节点④求和公式复化simpson法⑤双重循环复化simpson法⑥高斯-勒让德4节点,⑦高斯-勒让德5节点,经过测试③计算最快,⑦代码稍长但计算速度只比③⑥稍慢,精度最高,可满足线元长小于1/2πD 的所有线形的精度要求。⑦作内核分别计算圆曲线长1/4πD、1/2πD、3/4πD、πD处的精度,1/4πD时偏差为0.001mm,1/2πD时偏差为0.55m m,3/4πD时偏差为31.63mm,πD时偏差为968mm,偏差按半径倍数增大,如线元长大于1/2πD(1/2圆周长)时,可将其拆分二个或多个线元单位,以确计算保精度。 2、程序特点 事先将所有的平曲线交点的线元要素诸存到计算器内,测量时只输桩号、边距等程序会自动寻找各类要素,一气呵成地完成施工测量任务,中途不需人工转换各类要素数据,本程序可诸存几百条线路的要素数据,计算时可按需选择线路编号进行测量。测量时不需查阅及携带图纸,仅一台CASIO fx-9750GⅡ编程函数计算器即可。 本程序含一个主程序:3XYF,五个子程序:GL(公式内核)、QD(线路选择)、XL(线路要素判断)、GF(坐标反算)、File 1 (要素存放的串列工作簿)。可以根据曲线段——直线、圆曲线、缓和曲线(完整或非完整型)的线元要素(起点坐标、起点里程、起点切线方位角、终点里程、起点曲率半径、止点曲率半径)及里程边距或坐标,对该线元段范围内任意里程中边桩坐标进行正反算。 3、计算公式及原理 如图:BC 间为一曲线元,曲线元上任一点的曲率随至B 点的弧长作线性变化。设起点B 的曲率为KA ,终点C 的曲率为KB ,R 为曲线半径。±表示曲线元的偏向,当曲线元左偏时取负号,当曲线元右偏时取正号,直线段以1的45次方代替(即半径无穷大)。 式中:αΑ=起始方位角l =p 点到B的距离lS=曲线总长αp=p 点切线方位角 R1=R5=0.118463442528095 ,R2 = R4 = 0.239314335249683 , R3 = 0.28444444444444 V1=1-V5= 0.046910070 ,V 2= 1-V4 = 1 0.2307653449 V3= 0.5 利用上面公式及CASIO fx-9750GⅡ编程函数计算器可编写下列计算程序。 4、程序清单 (1)、3XYF(主程序) "1→XY2→FS"?→V:V=1=>Goto 1:V=2=>Goto 2↙(选择计算功能) Lbl 1:File 1:”XLn”?→S:Prog “QD”↙(选择线路)

坐标计算公式

坐标计算公式 1.坐标正算 用坐标正算计算测点X、Y坐标值(注意,全站仪测得的边长分水平距与斜距,坐标正算公式用的是水平距) 测点高程=测站高程+高差 坐标正算,就是根据直线的边长、坐标方位角和一个端点的坐标,计算直线另一个端点的坐标的工作。 编辑本段计算实例 实例1,设直线AB的边长DAB和一个端点A的坐标XA、YA为已知,则直线另一个端点B的坐标为: XB=XA+ΔXAB (5.1) YB=YA+ΔYAB (5.2) 式中,ΔXAB、ΔYAB称为坐标增量,也就是直线两端点A、B的坐标值之差。 根据三角函数,可写出坐标增量的计算公式为: ΔXAB=DAB·cosαAB (5.3) ΔYAB=DAB·sinαAB (5.4) 式中ΔX、ΔY的符号取决于方位角α所在的象限。 实例2. 已知直线B1的边长为125.36m,坐标方位角为211°07′53〃,其中一个端点B 的坐标为(1536.86 ,837.54),求直线另一个端点1的坐标X1,Y1。 解: 先代入公式(5.3)、(5.4),求出直线B1的坐标增量:ΔXB1=DB1·CosαB1=125.36×cos211°07′53〃=-107.31m ΔYB1=DB1·sinαB1=125.36×sin211°07′53〃〃=-64.81m 然后代入公式(5.1)、(5.2),求出直线另一端点1的坐标: X1=XB+ΔXB1=1536.86-107.31=1429.55m Y1=YB+ΔYB1=837.54-64.81=772.73m 坐标增量计算也常使用小型计算器计算,而且非常简单。如使用fx140等类型的计算器,可使用功能转换键INV和极坐标与直角坐标换算键P→R以及x←→y键。按键顺序为: D INV P→R α=显示ΔX X←→y 显示ΔY。 如上例,按125.36 INV P→R 211°07′53〃=显示-107.31(ΔXB1); 按x←→y 显示-64.81(ΔYB1) 追问 能不能再来一个简单的实例全数字的,不用公式代替, 参考资料:https://www.360docs.net/doc/c24254231.html,/view/3880277.htm

fx-4800P缓和曲线和圆曲线坐标正反算程序(正确版)

缓和曲线和圆曲线坐标正反算程序主程序“TYQXJS” Lb1 0↙→(EXE) {NUVOGHPRQ}:“1.SZ=>XY”: “2.xy=>SZ”: N:U“QDX”:V“QDY”:O“QDLC”:G“FWJ”: H“LS”:P“RO”:R“RN”:Q“ZP=-1,YP=+1,ZZ=0” :C=1÷P:D=(P-R)÷(2HPR):E=180÷π:N=1=>Goto 1:≠=>Goto 2◣↙Lb1 1:{SZ}:SZ:W= Abs(S-O): Prog“1”: X“XS”=X◢ Y“YS”=Y◢ F“FS”=F-90◢ Goto 3↙ Lb1 2:{XY}:XY:I=X:J=Y: Prog“2”:S“S”=O+W◢ Z“Z”=Z◢ Goto 3↙ Lb1 3↙ {DE}:E“QX-JJ,Z-1,Y+1”:D“BZ-JL”↙ F=F+E↙ X=X+D Cos F◢ Y=Y+D Sin F◢ {DE}:D“BZ-JJ”:E“JJ,Z-1,Y+1”↙ F=F+E↙

X=X+D Cos F◢ Y=Y+D Sin F◢ Goto 0 子程序1:“1” A=0.1739274226:B=0.3260725774:K=0.0694318442:L=0.3300094782:F=1 -L:M=1-K:X=U+W(ACos(G+QEKW(C+KWD))+BCos(G+QELW(C+LWD))+BCos(G+Q EFW(C+FWD))+ACos(G+QEMW(C+MWD))):Y=V+W(ASin(G+QEKW(C+KWD))+BSin (G+QELW(C+LWD))+BSin(G+QEFW(C+FWD))+ASin(G+QEMW(C+MWD))):F=G+QE W(C+WD)+90:X=X+Z Cos F:Y=Y+Z Sin F 子程序2: “2” T=G-90:W=Abs((Y-V)Cos T-(X-U)Sin T):Z=0: Lb1 0:Prog“1”:L=T+QEW(C+WD):Z=(J-Y)Cos L-(I-X)Sin L:Abs Z<1E-6=>Goto 1: ≠=>W=W+Z:Goto 0◣↙(E为:4800P键盘的EXE键) Lb1 1:Z=0Prog“1”:Z=(J-Y)÷Sin F◣ 注:第一缓和曲线起点半径输入无穷大(10 45),终点输入圆曲线半径;第二缓和曲线起点半径输入圆曲线半径,终点半径输入无穷大(10 45);圆曲线输入给出的起点和终点半径;直线段则都输入无穷大(10 45)。 其中起点切线方位角用此程序计算。 ◣(代替空心) 坐标正算 程序“ZBZS” Lb1 0↙ X“HSX”:Y“HSY”:U“CZX”:V“CZY”↙ X-U≥0=>Goto 1: ≠=>Goto 2◣↙

坐标自动计算表格

K18+000-K20+934.86(1075m) 桩号偏距X(m)Y(m)方位角高程1808002961525.733487467.350137.72801651 1808502961529.688487470.409737.72801651 1809002961533.642487473.469237.72801651 1809502961537.597487476.528837.72801651 1810002961541.551487479.588437.72801651 1810502961545.506487482.64837.72801651 1811002961549.461487485.707537.72801651 1811502961553.415487488.767137.72801651 1812002961557.37487491.826737.72801651 1812502961561.325487494.886237.72801651 1813002961565.279487497.945837.72801651 1813502961569.234487501.005437.72801651 1814002961573.188487504.064937.72801651 1814502961577.143487507.124537.72801651 1815002961581.098487510.184137.72801651 1815502961585.052487513.243637.72801651 1816002961589.007487516.303237.72801651 1816502961592.962487519.362837.72801651 1817002961596.916487522.422437.72801651 1817502961600.871487525.481937.72801651 1818002961604.825487528.541537.72801651 1818502961608.78487531.601137.72801651 1819002961612.735487534.660637.72801651 1819502961616.689487537.720237.72801651 1820002961620.644487540.779837.72801651 1820502961624.599487543.839337.72801651 1821002961628.553487546.898937.72801651 1821502961632.508487549.958537.72801651 1822002961636.462487553.01837.72801651 1822502961640.417487556.077637.72801651 1823002961644.372487559.137237.72801651 1823502961648.326487562.196837.72801651 第 1 页,共 23 页

非对称缓和曲线坐标计算程序

非对称缓和曲线坐标计算程序 CASIO fx-4800P QXZB曲线坐标计算 CASIO4800 QXZB可计算不等缓和曲线、圆曲线上的任意中、边桩坐标: 该程序适用于计算器 CASIO fx-4800P,可计算与线路中心成任意夹角的缓和曲线、圆曲线中、边桩坐标及待测点方位角和距离。 1、DK(JD)?输入交点桩号 2、X(JD)?输入交点坐标X 3、Y(JD)?输入交点坐标Y 4、T1?输入第一切线长(如果只有一条切线两者都输入一致) 5、T2?输入第二切线长(如果只有一条切线两者都输入一致) 6、FWJ?输入直线方位角(ZH→JD) 7、A?输入转角:左转为负,右转为正 8、R?输入圆曲线半径 9、LS1?输入第一缓和曲线长(如果只有一条缓和曲线两者都输入一致) 10、LY?输入圆曲线长(L-LS1-LS2) 11、LS2?输入第二缓和曲线长(如果只有一条缓和曲线两者都输入一致) 12、X(ZJD)?输入置镜点坐标X 13、Y(ZJD)?输入置镜点坐标Y 14、JSDK?输入前视点里程 15、PL?输入偏距 16、PA?输入偏角 程序下载地址: https://www.360docs.net/doc/c24254231.html,/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◢

缓和曲线上任意点坐标计算程序

第一缓和曲线加圆曲线上任意点坐标计算程序:L1:U=U"X0":V=V"Y0":F"FANG"=F:E=E"LEFT-1":LbI 0 L2:{B}:{D}:{P} L3:L=AbS(B-A"ZHD") L 4: L5:X=L-LX Y5/(40R2S2) L6:Y= LX Y3/(6RS)- LX Y7/(336RX Y3SX Y3):G=90L2/(∏RS) L GOtO 2 7: L8:LbI 1 L9:L=L-S L10:O=90S/(∏R)+90L/(∏R) L11:M=2(Rsin(90L/∏/R)) L12:X=S-SX Y3/(40R2)+Mcos O L13:Y=S2/(6R)+MsinO:G=90S/(∏R)+180L/(∏R) L GOtO 2 14: L15:LbI 2 L16:W=tan-1(Y/X):Q=√(X2+Y2) L 17: L E=1=>G=-G 18: L19:X[1]=U+Qcos(F+W)+Dcos(F+G+P)◢ L20:Y[1]=V+Qsin(W+F)+Dsin(F+G+P)◢ L21:GOtO 0

注、○1、XO—为起点X坐标 EXE ○2、YO—为起点Y坐标 EXE ○3、F?—方位角 EXE ○4、LEFT-1?—左偏取1右偏取0 EXE ○5、B?—所求坐标点里程(起点输0时为到起点长度)EXE ○6、ZHD?—为直缓点里程或直圆点里程(起点可以输0)EXE ○7、S?—缓和曲线长、圆曲线时输为0 EXE ○8、R?—半径EXE ○9、D?—中桩到边桩长度EXE ○10、P?—左右方向与中线切线交角、法线方向时左-90右+90 EXE ○11、上述每一步输完后必须确认、结果显示字后转到B进行循环操作。

坐标计算方法

已知:①缓和曲线上任一点离ZH点的长度:l ②圆曲线的半径:R ③缓和曲线的长度:l0 ④转向角系数:K(1或-1) ⑤过ZH点的切线方位角:α ⑥点ZH的坐标:xZ,yZ 计算过程: 说明:当曲线为左转向时,K=1,为右转向时,K=-1,公式中n的取值如下: 当计算第二缓和曲线上的点坐标时,则: l为到点HZ的长度 α为过点HZ的切线方位角再加上180° K值与计算第一缓和曲线时相反 xZ,yZ为点HZ的坐标 切线角计算公式:

已知:①圆曲线上任一点离ZH点的长度:l ②圆曲线的半径:R ③缓和曲线的长度:l0 ④转向角系数:K(1或-1) ⑤过ZH点的切线方位角:α ⑥点ZH的坐标:xZ,yZ 计算过程: 说明:当曲线为左转向时,K=1,为右转向时,K=-1,公式中n的取值如下: 当只知道HZ点的坐标时,则: l为到点HZ的长度 α为过点HZ的切线方位角再加上180° K值与知道ZH点坐标时相反

xZ,yZ为点HZ的坐标 三、曲线要素计算公式 公式中各符号说明: l——任意点到起点的曲线长度(或缓曲上任意点到缓曲起点的长度)l1——第一缓和曲线长度 l2——第二缓和曲线长度 l0——对应的缓和曲线长度 R——圆曲线半径 R1——曲线起点处的半径 R2——曲线终点处的半径

P1——曲线起点处的曲率 P2——曲线终点处的曲率 α——曲线转角值 四、竖曲线上高程计算 已知:①第一坡度:i1(上坡为“+”,下坡为“-”) ②第二坡度:i2(上坡为“+”,下坡为“-”) ③变坡点桩号:SZ ④变坡点高程:HZ ⑤竖曲线的切线长度:T ⑥待求点桩号:S 计算过程: 五、超高缓和过渡段的横坡计算

卡西欧FX5800线路曲线坐标计算程序

卡西欧FX5800---辛普森公式(万能公式) 复化辛普森公式 1.Lbl 0:“XA=”?A:“YA=”?B: “CA=”?C:“1/RA=”?D:“1/RB=”?E:“DKA=”?F:“DKB=”?G 2.Lbl 1:“DKI=”?H:“DL=”?O:“DR=”?R:IF H>G:THEN Goto0 IFEND 3.(E-D)/Abs(G-F)→P:Abs(H-F) →Q: P×Q→I:D+I→T 4.C+(I+2D)×Q×90/π→J 5. C+(I/4+2D)Q×45/(2π) →M: C+(3I/4+2D)Q×135/(2π) →N 6. C+(I/2+2D)Q×45/π→K 7. A+Q(cosC+4(cosM+cosN)+2cosK+cosJ)/12 →X 8.B+Q(sinC+4(sinM+sinN)+2sinK+sinJ)/12 →Y 9.”FW=”:J▲DMS ▲ 10. “X=”:X▲ 11. “Y=”:Y▲ 12.“XL=”: X+Ocos(J-90) →U ▲ 13.“YL=”: Y+Osin(J-90) →V▲

14.“XR=”:X+Rcos(J+90)→ W▲ 15.“YR=”:Y+Rsin(J+90)→ Z▲ 16.Goto 1 程序结束 程序说明: A- 曲线元起点A的坐标; B- 曲线元起点B的坐标; C- 曲线元起点A的切线坐标方位角; F- 曲线元起点A的里程; G- 曲线元起点B的里程; H- 曲线上待求点i的里程; D- 曲线元起点A的曲率; E- 曲线元终点B的曲率; XL-左边线点位X坐标; YL-左边线点位Y坐标; XR-右边线点位X坐标; YR-右边线点位Y坐标; X- 中线点位纵坐标; Y- 中线点位横坐标; DL-左边线距中线平距; DR-右边线距中线平距; 该程序需要输入的数据为: (1).曲线元起点A的坐标及切线坐标方位角,计算器上用“XA”,“YA”,“CA”显示; (2).曲线元起点A和B的曲率,计算器上用I÷RA,I÷RB显示(曲线左偏时取“-”); (3).曲线元起点A和终点B的里程,计算器上用“DKA”,“DKB”显示;(4).输入待求点里程和该点距左右的水平距离,计算器上用“DKI”,“DL”,“DR”显示; 每算完一个待求点的中线及边线坐标,程序又让输入下一点的“DKI”,“DL”,“DR” 当输入的“DKI”大于“DKB”时,此时输入下一个曲线元起点的曲率和里程,即可计算下一个曲线中线及边线点位坐标。 使用该程序应注意事项; 该程序以前进方向为有意识,不可倒退计算;缓和段和圆曲线段应分开计算在计算圆曲线时应记下缓和 曲线尾的坐标方位角即“J”的角度;在计算第一段缓和曲线时曲率“1÷RA”输入0;在计算第二段缓和曲 线时“1÷RB” 输入0 。 (5)第一个0为零。

卡西欧fx-5800P直线圆曲线坐标正反算程序

[精] fx 5800 直线圆曲线坐标正反算程序 (2010-07-01 21:50:11) 标签: 杂谈 直线计算程序 0→I:0→J:”X 0”?D:”Y0”?E:”X1”?B:”Y1”?C:Pol(B-D,C-E):J→A:If A<0: Then A+360→A:Else A→A:IfEnd:Lbl 0:?O:?S:If O≠0:Then Goto 1:IfEnd: D+Scos(A) →X:”X=”:X◢ E+Ssin(A) →Y:”Y=”:Y◢ Goto 0:Lbl 1:D+Scos(A)+Ocos(A+90) →X:”X=”:X◢ E+Ssin(A)+Osin(A+90) →Y:”Y=”:Y◢ Goto 0 输入程序时注意区别字母O与数字0 程序运行时符号说明 X0? Y0?分别输入直线起点的XY坐标值 X1? Y1?分别输入直线终点的XY坐标值 O? 输入边桩与中桩的距离(左边桩为负值,右边桩为正值),如计算中桩坐标输入0 S? 输入所求点到直线起点的距离 圆曲线计算程序 0→I:0→J: ”X0”?C:”Y0”?D:”X1”?E:”Y1”?F:?R:”L:-1 R:1”?N:”ZY”?W:Lbl 0:”LN”?T: T-W→O:Pol(E-C,F-D):I→S:J→A: If A<0:Then A+360→A:Else A→A:IfEnd: sin-1(S÷(2R)) →K:2∏RK÷180→L:180O÷(2∏R) →G:(2R)sin(G) →H:C+Hcos(A-KN+GN) →X:”X=”:X◢ D+Hsin(A-KN+GN) →Y:”Y=”:Y◢ R-0.5√(4R2-H2) →Q:”Q=”:Q◢ “S=”?V:If V=0:Then Goto 0:IfEnd:”L:-90 R:90”?U:X+Vcos(A-KN+2GN+U) →X:”X=”:X◢ Y+Vsin(A-KN+2GN+U) →Y:”Y=”:Y◢ Goto 0 输入程序时注意区别字母O与数字0 程序运行时符号说明 X0? Y0?分别输入直线起点的XY坐标值 X1? Y1?分别输入直线终点的XY坐标值 R? 输入圆曲线半径 L:-1 R:1?圆曲线向左转弯时输入-1,向右转弯时输入1 ZY? 输入起点桩号

通过逐桩坐标计算曲线要素完整版

通过逐桩坐标计算曲线 要素 HEN system office room 【HEN16H-HENS2AHENS8Q8-HENH1688】

通过逐桩坐标表推算曲线要素(CAD篇) 摘要:现在从事工程行业的都流行使用AutoCAD进行绘制图形,为了更好的利用这个绘图工具来绘制线路曲线要素,本文将讲解如何通过设计院提供的逐桩坐标表推算未知曲线要素。 关键词:AutoCAD技巧曲线要素 说明:AutoCAD已经成为国际上广为流行的绘图工具。具有良好的用户界面,通过交互菜单或命令行方式便可以进行各种操作。它的多文档设计环境,让非计算机专业人员也能很快地学会使用。在不断实践的过程中更好地掌握它的各种应用和开发技巧,从而不断提高工作效率。 如何提高CAD速率? 通常在开始绘图的时候一些人由于对工具命令不熟悉直接使用工具栏等查找命令,这样对制图的效率会大打折扣从而导致绘图的速率缓慢,提高制图的方法需要掌握CAD的快捷命令,孰能生巧的记住,然后择优选用其中的一些常用的绘图命令,把繁琐的长命令转化为简单的命令使用,其次需要多练习绘图的方式与方法才会提高绘图水平。 推算原理: 通过逐桩坐标表(含曲线五大桩)然后利用生成展点命令在AutoCAD中进行坐标展点,再通过工具或命令绘制进行查询曲线长、切线长、外失距、交点坐标、交点里程、曲线半径、方位角、转角等。 准备工作: 1、逐桩坐标表X、Y(含曲线五大桩) 2、AutoCAD绘图软件 演示版本为:AutoCAD 2007

示例文件:某高速铁路逐桩坐标表 演示范围:DK07+~DK12+(由于该交点属于大转角则演示明显) 操作流程:坐标展点→绘制半径→绘制切线长→查询→查询转角→查询交点坐标→查询交点里程→查询外失距→绘制缓和曲线。(请注意逐桩坐标表中所提供的ZH、HY、QZ、YH、HZ等说明) 准备操作如下: 1、打开“逐桩坐标表”并复制(里程桩号、坐标X、坐标Y)数据到“曲线坐标计算程序VBA ”的“交点法正算”表格中,效果图如下: 逐桩坐标表见(本文附件)下载地址附后! 2、在“曲线坐标计算程序VBA ”的“交点法正算”表中“点击生成展点”然后点击“复制数据”按钮,再打开AutoCAD在命令行中输入pline按回车键,并在命令行上点击鼠标右键选择“粘贴”,图示如下: 3、展点完毕后删除起始点那根长线段(该线段属于展点命令的起始端位置,该线段无用可以直接删除),然后在命令行中输入zoom按回车键再选择E按回车键,图示如下: 绘图操作准备: 1、基本设置:点击AutoCAD顶部工具栏中的“格式”→“标注样式”(或 输入命令d)→“修改”→主单位精度选择“”→角度标注:单位格式选择“度/分/秒”,精度选择“0d’””→确定→设为当前。 2、在命令行中输入:se按回车键,然后弹出草图设置面板→选择“全部清除”→在“圆心”上面打勾→确定。 绘制曲线半径: 半径:在圆中,连接圆心和圆上任意一点的线段叫做圆的半径。 先找到HY 位置,点击顶部工具栏中的“绘图”→“圆弧”→“三点”然后在HY 圆心位置单击鼠标左键,图示如下:

测量坐标计算

一、坐标正反算: 数学数轴X (横轴)Y (竖轴) 测量数轴Y (横轴)X (竖轴),测量计算中以测量竖轴判断象限,象限以顺时针排列。 正算cos AB B A AB X X D α?=+ sin AB B A AB Y Y D α=+? 直圆点里程ZY=JD-T 圆直点里程YZ=ZY+L 曲中点里程QZ=YZ-L/2 R>300m 时,曲线上20m 定一个桩,R<200m 时,曲线上100m 定一个桩。 l i 为曲线点至ZY (或YZ )的曲线长 i 点与ZY 点在曲线上夹角 i 180= i l R απ?

i 点与ZY 点在X 上变化 sin i i x R α= i 点与ZY 点在Y 上变化 () 1cos i i y R α=- 2.缓和曲线和圆曲线相对坐标计算 0缓和曲线长 001802l R βπ=? 24 003-242688l l p R R =3002 2240l l m R =- 00018036l R βδπ ==? 切线支距法

缓和曲线: 59 2244 00403456l l x l R l R l =-+ 3711 3355 000 -633642240l l l y Rl R l R l =+ 圆曲线:00002290180180==2l l l l l l R R R ?βπππ ---?=?+? () 特别提示:此处线路转向±与其他情况正好相反! 3、已知两坐标系纵轴夹角计算 X 0、Y 0为施工坐标原点,α为两坐标系纵轴夹角 0cos sin p p X X x y αα=+- 0cos sin p p Y Y y x αα=+-

坐标计算公式

坐标计算公式 一、计算公式 1、圆曲线坐标计算公式β=180°/π×L/R (L= βπ R/180°)弧长公式β为圆心角 △X=sinβ×R △Y=(1-cosβ)×R C= 弦长 X=X1+cos (α ± β/2)×C Y=Y1+sin (α ± β/2)×C β代表偏角,(既弧上任一点所对的圆心角)。β/2是所谓的偏角(弦长与切线的夹角)△X、 △Y代表增量值。 X、Y代表准备求的坐标。 X1、Y1代表起算点坐标值。 α代表起算点的方位角。 R 代表曲线半径 2、缓和曲线坐标计算公式 β= L2/2RLS ×180°/π C= L - L5/90R2LS2 X=X1+cos (α ± β/3)×C Y=Y1+sin (α ± β/3)×C L代表起算点到准备算的距离。 LS代表缓和曲线总长。 X1、Y1代表起算点坐标值。 3、直线坐标计算公式

X=X1+cosα×L Y=Y1+sinα×L X1、Y1代表起算点坐标值 α代表直线段方位角。 L代表起算点到准备算的距离。 4、左右边桩计算方法 X边=X中+cos(α±90°)×L Y边=Y中+sin(α±90°)×L 在计算左右边桩时,先求出中桩坐 标,在用此公式求左右边桩。如果 在线路方向左侧用中桩方位角减去 90°,线路右侧加90°,乘以准备算 的左右宽度。 二、例题解析 例题:直线坐标计算方法 α(方位角)=18°21′47″ DK184+714.029 求DK186+421.02里程坐标X1=84817.831 Y1=352.177 起始里程解:根据公式X=X1+cosα×L X=84817.831+COS18°21′47″×(86421.02—84714.029)=86437.901 Y=Y1+sinα×L Y=352.177+sin18°21′47″×(86421.02—84714.029)=889.943 求 DK186+421.02里程左右边桩,左侧3.75m,右侧7.05m. 解:根据公式线路左侧计算:

一般圆曲线计算程序(5800P)

一般圆曲线计算程序(5800P) (五)圆曲线坐标计算程序(xx-03-2519:27:05)转载▼标签:杂谈 五、圆曲线坐标计算程序:1、Deg:Fix 32、Lbl 0:3、“K0=”?K:?X:?Y:?A:?R4、“L=- 1,R=+1”:?G5、“ZS=0,FS≠0”:?S6、S≠0 =>Goto 17、“Ki”?Z8、90(Z-K)(πR)→B9、2R sin B→D 10、“Xi=”:X+Dcos (A+GB)→P◢ 11、“Yi=”:Y+Dsin (A+GB)→Q◢ 12、A+180G(Z-K)(πR)→O 13、“ZBJ”?E 14、“XiL=”:P+Ecos(O-90)◢ 15、“YiL=”:Q+Esin(O-90)◢ 16、“YBJ”?F 17、“XiR=”:P+Fcos(O+90)◢ 18、“YiR=”:Q+Fsin(O+90)◢ 19、 Goto 0 20、 Lbl1 21、 “XC”?U:“YC”?V22.X+Rcos(A+90G)→M23.Y+Rsin(A+90G)→N 24、Pol(U-M,V-N)→H

25、J<0 =>J+360→J 26、“PJ=”:R-H→L◢ 27、“XCCZ=”:M+Rcos(J)→T◢ 28、“YCCZ=”:N+Rsin(J)→W◢29 、Pol(T-X,W-Y)→Z 30、“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并显示。 16、输入右边桩距中桩的距离F。 17、计算右边桩坐标XiR并显示。 18、计算右边桩坐标YiR并显示。 19、到程序0。 20、反算程序1。 21、输入测量坐标X

曲线坐标计算程序

曲线坐标计算程序

曲线坐标计算程序 关键词: 曲线坐标计算 EXCEL编程坐标曲线坐标实例 摘要: 利用EXCEL强大的函数功能通过曲线坐标计算的知识编制成曲线计算坐标的计算程序。简单的输入曲线的里程桩号,通过坐标旋转、平移结合可以快速的计算完成与线路成任意角度的曲线上各中桩、边桩以及任意点坐标的计算。 1、概述 一般计算圆曲线可用坐标正算直接进行计算,具体思路和求解步骤,这里不再阐述。若计算带有缓和曲线的圆曲线时,将测量中所学的支距法与坐标旋转、平移结合在一起,利用EXCEL表中强大的函数自动计算功能,准确快速的完成对缓和曲线的坐标计算。比一般的手工计算快10~20倍,比CAD绘图计算快5~10倍。并可以应用来指导工程施工、施工放样、审核图纸等工作。 2、计算过程分段 在计算带有缓和曲线的圆曲线或圆曲线时,只要输入待求点的里程,程序将会自动会计算线路中桩的坐标、与中桩有一定夹角、距离的边桩坐标,与边桩中心线任意夹角的垂直桩基坐标。若要计算其他的距离和夹角的坐标,相应的修改待求点里程、夹角和距离。 2.1、程序初始化:

输入每个曲线所对应交点的半径、缓和曲线长、线路转角、连续三交点的里程和坐标、交点连线的坐标方位角,顺便计算出各个曲线要素以及曲线各主点的里程。 2.2、初直线H Z i-1~ZH i段: (1)X ZHi-1和Y ZHi-1的计算 X ZHi-1= X JDi-1+T i-1×cos(A i-1,i) Y ZHi-1= Y JDi-1+ T i-1×sin(A i-1,i) 其中:T i-1——JD i-1曲线的切线长; A i-1,i——JD i-1与JD i直线的坐标方位角; X JDi-1、Y JDi-1——JD i-1的坐标; X ZHi-1、Y ZHi-1——JD i-1对应的ZH点坐标。 (2)中桩计算公式: X中=L A×cos(A i-1,i)+ X ZHi-1 Y中= L A× sin(A i-1,i)+ Y ZHi-1 其中:L A——待求点与ZH i的里程差; A i-1,i——JD i-1与JD i直线的坐标方位角; X中、Y中——待求点里程的中桩坐标; 其余符号同上。 (3)边桩计算公式: X边=L A’×cosα’+ X中 Y边= L A’×sinα’+ Y中

相关文档
最新文档