宏程序计算坐标 锁定(G54.1P1--G54.1P20)

宏程序计算坐标锁定讲解：#100=(G54-X/G55-X)

#101=75.

#102=20.27

#103=54.73

#104=(G54-Y/G55-Y)

#507=#100+#102(G54.1P7) #508=#100+#103(G54.1P8) #506=#508-#101(G54.1P6) #505=#507-#101(G54.1P5) #504=#506-#101(G54.1P4) #503=#505-#101(G54.1P3) #502=#504-#101(G54.1P2) #501=#503-#101(G54.1P1) #509=#507+#101(G54.1P9)

#510=#508+#101(G54.1P10)

#511=#509+#101(G54.1P11)

#512=#510+#101(G54.1P12)

G90G10L20P01X#501Y#104Z0.0 G90G10L20P02X#502Y#104Z0.0 G90G10L20P03X#503Y#104Z0.0 G90G10L20P04X#504Y#104Z0.0 G90G10L20P05X#505Y#104Z0.0 G90G10L20P06X#506Y#104Z0.0 G90G10L20P07X#507Y#104Z0.0 G90G10L20P08X#508Y#104Z0.0 G90G10L20P09X#509Y#104Z0.0 G90G10L20P10X#510Y#104Z0.0 G90G10L20P11X#511Y#104Z0.0 G90G10L20P12X#512Y#104Z0.0

M30

希望对各位友友有所帮助。

5800计算器程序下载

阅览室馆友我的图书馆 kaixin100 | | 分享

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）→Y 反算子程序SUB2 G-90→T (Y-V)cosT-(X-U)sin(T) →W Abs(W)→W:0→Z Lbl6：Prog "SUB1" T+QEW(C+WD) →L：(J-Y)cos（L）-(I-X)sin（L）→Z IF Abs（Z）<1E-6：Then0→Z:Prog "SUB1":(J-Y)÷sin（F）→Z:Else W+Z→W：Goto6:IfEnd 数据库子程序SUB0 Goto 1(线元可输入多条，分离式可在前多加一位，匝道一样。例：左幅为K129+500,右幅输线元参数里程为1129+500，其他不变，前面 1为任意数字，计算机便于区分) Lbl 1：IF S<线元终点里程：Then@@@→O(线元起点里程) ：@@@ →U(线元起点X坐标)：@@@→V(线元起点Y坐标)：@@@→G(线元起点计算方位角)：@@@→P(线元起点半径)：@@@→R(线元止点半径)：@@@→H(线元长度)：@@@→Q(线元左、右偏标志，左偏-1，右偏1，直线为0)：Return：IfEnd IF S<线元终点里程：Then@@@→O(线元起点里程) ：@@@ →U(线元起点X坐标)：@@@→V(线元起点Y坐标)：@@@→G线元(起点计算方位角)：@@@→P(线元起点半径)：@@@→R(线元止点半径)：@@@→H(线元长度)：@@@→Q(线元左、右偏标志，左偏-1，右偏1，直线为0)：Return：IfEnd 。。。。。。。。。。。。。。。。。。。。。。。。。。。 一程序功能 本程序由一个主程序(ZBJS)和3个子程——正算子程序(SUB1)、反 算子程序( SUB2) 、数据库子程序（SUB0）构成，可以根据曲线段——直线、圆曲线、缓和曲线（完整或非完整型）的线 元要素（起点坐标、起点里程、起点切线方位角、线元长度、起点曲 率半径、止点曲 率半径）及里程边距或坐标，对该曲线段范围内任意里程中边桩坐标 进行正反算。另 外也可以将本程序中核心算法部分的两个子程序移植到其它相关的 程序中，用于对曲 线任意里程中边桩坐标进行正反算。本程序也可以在CASIO fx-4500P计算器及CASIO fx-4850P计算器上运行。 二、使用说明

5800计算器全线坐标计算放样程序(修改第三版)

5800计算器全线坐标计算放样程序（修改第三版） 5800计算器全线坐标计算放样程序（修改版） “XLZBJSCX” ◢ LB1 0 ↙ CLS : FIX 4 : 30→DIM Z ↙ “XHS="?G(后视点X):"YHS="?L(后视点Y):"XZJ="?M(置镜点X):"YZJ="?N(置镜点Y)0l(G-M,L-N):"DH=":I(后视距)◢J<0=>J+360→J:"FH=":J→DMS◢(后视 方位角) LB1 1 ↙ “K=”?K ◢（计算里程） IF K<本段曲线终点里程 AND K≥上段曲线终点里程：THEN 本段终点里程→Z[1] : 上段曲线终点里程→Z[2] ：1→0 （注：左偏曲线输入-1→0,右偏曲线输入1→0）: 偏角→A：半径→R : 第一缓和曲线→Z[6] : 第二缓和曲线 →Z[7] : 交点X→B :交点Y→C : 小里程向交点方位角→E : 交点向大里程方位角→F : G0T0 2 : IFEND↙ …………（曲线段分段输入） 补充直线段输入如下 IF K<本段直线终点里程 AND K≥本段直线起点里程:THEN 1→0:本段直线终点里程→Z[2]:终点X→Z[16]:终点Y→Z[11]:方位角→E:G0T0 4:IFEND LB1 2 ↙（曲线要素计算） Z[6]/2- Z[6]^3/(240*R^2)+ Z[6]^5/(34560*R^4) →Z[8] ↙（M1） Z[7]/2- Z[6]^3/(240*R^2)+ Z[7]^5/(34560*R^4) →Z[9] ↙（M2） Z[6]^2/(24*R)- Z[6]^4/(2688*R^3) →Z[10] ↙（P1） Z[7]^2/(24*R)- Z[7]^4/(2688*R^3) →Z[11] ↙（P2） π*A*R/180+0.5*( Z[3]+ Z[2])→W ↙（曲线总长） 90* Z[6]/(R*π) →Z[14] ↙（第一缓和曲线总偏角） 90* Z[7]/(R*π) →Z[15] ↙（第二缓和曲线总偏角,可以省略） Z[8]＋（R+Z[10])TAN(A/2)-(Z[11]-Z[11] )/SIN A→Z[11]↙ (切线T1) Z[9]＋（R+Z[12])TAN(A/2)+(Z[10]-Z[12] )/SIN A→Z[12]↙ (切线T2) B+ Z[12]*C0S (E+180)→ Z[13] ↙（ZH点X） C+ Z[12]*SIN(E+180)→ Z[15] ↙（ZH点Y） Z[1]-S→Z[3] ↙ (ZH点里程) Z[3]+ Z[6]→Z[4] ↙ (HY点里程) Z[1]- Z[7]→Z[5] ↙ (YH点里程) G0T0 3 ↙ LB1 3 ↙(判断里程点与曲线关系) IF K≤Z[3] AND K> Z[2] : THEN G0T0 4 : IFEND ↙ IF K≤Z[4] AND K> Z[3] : THEN G0T0 5 : IFEND ↙ IF K≤Z[5] AND K> Z[4] : THEN G0T0 6 : IFEND ↙

CASIO fx-5800P实用工程测量程序

一、QXFY 辛甫森公式放样程序 1. “X0”? U：“Y0”?V 2. “XA”? A：“Y A”? B：“CA”? C：“1÷RA”?D：“1÷RB”?E： “KA”?F：“KB”? G 3. Lb1 1：“KI”?H：“JJ”?L：“Y+Z－”?R 4. If H>G Or H

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

通过逐桩坐标表推算曲线要素（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”的“交点法正算”表格中，效果图如下： 逐桩坐标表见（本文附件）下载地址附后！

公路测量卡西欧5800万能程序

一、前言本程序是《CASIO fx-5800P计算与道路坐标放样计算》中道路坐标放样计算程序的升级改进版本。原道路坐标放样计算程序只基于道路的单个基本型曲线，有效计算范围仅包括平曲线部分和前后的两条直线段，使用时需要输入平曲线设计参数，无坐标反算桩号功能。改进后的程序名称为：道路中边桩坐标放样正反算程序（全线贯通），增加了可实现全线贯通的数据库功能和坐标反算桩号功能，主要是： 1．使用道路平面数据库子程序，可将一段或若干段道路的交点法格式平面参数（可容易从直线、曲线及转角表中获得）以数据库子程序形式输入计算器，程序在计算时省却了输入原始数据的麻烦； 2．坐标正算方面，输入桩号即可进行道路的中、边桩坐标计算，若输入了测站坐标，还可同时计算全站仪极坐标放样数据（拨角和平距）； 3．坐标反算方面，输入平面坐标，即可计算对应的桩号和距中距离（含左右信息）； 4．对于存在断链的道路，可分段分别编写数据库子程序，然后在主程序中添加一个路段选择的功能即可实现（可参照立交匝道程序中匝道的选择）。程序的特点： 1．可进行中桩坐标的正、反算，程序代码简洁，便于阅读和改写； 2．主程序通过调用数据库子程序，省却了使用时输入平面参数的繁琐； 3．使用数据库子程序，换项目只需改写数据库子程序，程序通用性强。二、道路示例项目基本资料基本资料同《CASIO fx-5800P计算与道路坐标放样计算》第6章HY高速公路第2合同段（合同段起止桩号： K4+800~K9+600）。这里摘取直线、曲线及转角表资料如下.

.

. 三、程序代码 .

. .

. .

自由设站采集碎部点及坐标转换程序设计

假设坐标系到统一坐标系的简易转换原理及VB程序设计 王林 ﹙江西省水利规划设计院﹚ 摘要：主要介绍了外业碎部测量中在任意点位上设站进行数据采集，然后通过联测两个或者多个已知点作为公共点进行坐标转换的简易方法及相应坐标转换程序VB设计原理。 关键词：任意设站；数据采集；公共点；坐标转换；程序设计；Visual Basic 1 引言 在进行全数字化野外碎部测量作业中，我们通常采用的方法是在某个已知点上架设仪器，并利用另外一个已知点进行定向并检查精度后展开采集工作。这种常规测量方法前提是仪器必须架在已知点上且有一个能够通视的定向方位。然而在野外测量时，我们通常会遇到这样的情况：控制点不适宜架仪器；测区仅有两个控制点却互不通视；或者，当我们选中了一个合适的观测位置时，但该位置却没有控制点。比如在数字化地形图施测的过程中，有许多控制点受地形地貌等影响两两不能通视而造成无法完成定向；在某些需线路图面点位展绘的公路、水利工程横、纵断面测量中，在某个能完成很多条断面测量的的仪器架设位置上却没有控制点；在日常的城镇地籍测量的修、补测工作中，有许多控制点在道路中心架仪器将影响交通且不安全。故此时，利用常规方法将难以开展工作。那么，能否在测站点坐标未知的情况下任意架站进行测量呢？用本文介绍的坐标简易转换方法及设计程序便可以解决这个问题。 2 解决方案设计 在任意位置上设站后，我们可以随意设置测站点的坐标及任意一个方向来完成定向——此方法实际上就是建立了一个任意坐标系。然后再在实施测量过程中保证联测到任意两个或以上的已知控制点。那么，这两个或以上的控制点就有了任意坐标系和统一坐标系中的两套坐标数据，本文称之为“公共点”。从而在处理内业时，采用某些近似转换方法，利用这些公共点的两套坐标数据便克求得相对应的转换参数，从而将所有碎步点的任意坐标转换为统一坐标。在保证精度的情况下，还可以在第一个测站的基础上向下再发展若干个测站，在这些测站内只要联测任意两个或以上的公共点即可完成坐标转换（如图1）。 合乎

FX5800计算器公路全线坐标正、反算计算程序

5800计算器公路全线坐标正、反算计算程序FX5800全线贯通万能正、反算程序（一体化、超好用、短小、易懂） FX5800计算器的积分程序（正反算、全线贯通、新线路）终极版 ZHUCHENGXU主程序 "1.ZS,2.FS" ?→Q←┘输入1正算，输入2反算 “NEW=0,OLD≠0”?Z←┘ IfZ=0:Then“X0=”?A:“Y0=”?B:“C0=”?C:“1/R0=”?D:“1/RI=”?E:“SP=”?F:“EP=”?G:Ifend:Q=2=>Goto 2←┘ Lbl1 :“KM=,<0 Stop”?H:H<0=>Stop:“PJ=”?O:“PY=”?L←┘ LblZ:Z=1=> Prog“01”：Z=2=> Prog“02”←┘选择数据库文件，可增加 H- F→X:0.5(E-D)÷(G-F)→N←┘ C+(XD+NX2)*180÷π→P：P<0=>P+360→P：P>360=>P-360→P←┘- A+∫(cos(C+(XD+NX2)*180÷π),0,X)+Lcos(P+O)→U←┘ B+∫(sin(C+(XD+NX2)*180÷π),0,X)+Lsin(P+O)→V←┘ Q=2=>Goto4：Cls：Fix 3←┘ "Xn=":Locate4，1，U："Yn=": Locate5，2，V：“FWJ=”：PDMS◢ Norm 2：Cls：Goto1←┘ Lbl2:“XD=,<0,STOP”？R：R<0=>Stop:“YD=”？S←┘ “KMDG=”？H ：90→O:0→L：GotoZ←┘（H线路范围内的任意桩号） Lbl4:Pol（R-U，S-V）：J<0 => J+360→J←┘ Whileabs（Icos（J-P））≤0.001:P-J>180=> J+360→J： P-J<-180=> P+360→P:If P-J>0:then -I→L:else I→L :Ifend:Goto3: Whileend：H+Icos（J-P）→H:GotoZ←┘ Lbl3:Cls：Fix 3←┘

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

非对称缓和曲线坐标计算程序 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.wendangku.net/doc/7d9560845.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◢

卡西欧5800坐标计算程序(通俗易懂版)

卡西欧5800道路坐标测量程序（通俗易懂版） 主程序（自己给取个名吧） 2→Dimz “1.SZ＝﹥XY 2.XY＝﹥SZ”◢ “N=”?N If N=1:Then Goto 1:Else Goto 2:IfEnd Lbl 1 “S=”?S “Z=”?Z “J=”?T If S﹤0:Then Prog “SYL”:Else Prog “SYR”:IfEnd(可拿掉) 1÷P→C:(P-R) ÷(2HPR)→D:180÷∏→E:Abs(Abs(S)-O)→W:Prog “SUB1” “QJ=”:Z[1]◣DMS◢ “X=”:X◢ “Y=”:Y◢ Goto 1 Lbl 2

“S=”?S If S<0:Then Prog “SYL”:Else Prog “SYR”:IfEnd(可拿掉) 90→T 1÷P→C:(P-R) ÷(2HPR)→D:180÷∏→E “X=”?X “Y=”?Y X→I:Y→J Prog “SUB2” O+W→S（红色加粗加下画线为字母，常规为零） “S=”:S◢ Z→Z “Z=”:Z◢ Goto 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+F WD))+Asin(G+QEMW(C+MWD))) →Y G+QEW(C+WD)→Z[1]

线元法万能坐标计算程序

线元法万能坐标计算程序(适用于CASIO fx-9750GⅡ计算器) 论文https://www.wendangku.net/doc/7d9560845.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”↙（选择线路）

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

第一缓和曲线加圆曲线上任意点坐标计算程序：L1：U=U"Ｘ0"：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进行循环操作。

CASIO万能坐标计算程序

程序：MC W“1.JS 2.SZ”:W=1=>Z[2]=0:Goto 1 ΔW=2=> O“KOU LING”:O≠123456=>O= 0: “OUT” ◢Goto 5ΔO=0:Defm 42:Z[1]=0:Goto 0←┘ Lbi 0←┘ {ABCREFGU}:A“X0”:B“Y0”:C“F0”:R“R0”:E“RN”:F“D0”:G“LS”:U“G” ←┘ Z[Z[1]*8+3]=A:Z[Z[1]*8+4]=B:Z[Z[1]*8+5]=C:Z[Z[1]*8+6]=1÷R:Z[Z[1]*8+7]=1÷E:Z [Z[1]*8+8]=F: Z[Z[1]*8+9]=F+G: Z[Z[1]*8+10]=U←┘ A=0=> Z[2]=0:Goto 1ΔIsz Z[1]: Goto 0←┘ Lbi 1←┘ {DZ}:D：Z：Z[2]=0:Goto 2←┘ Lbi 2←┘ D≤Z[Z[2]*8+9]=>A=Z[Z[2]*8+3]:B=Z[Z[2]*8+4]: C =Z[Z[2]*8+5]:R=Z[2]*8+6]: E= Z[Z[2]*8+7]: F=Z[Z[2]*8+8]: G=Z[2]*8+9]: U=Z[Z[2]*8+10]: Goto3:ΔIsz Z[2]:Got o 2 Lbi 3←┘ P＝U（E-R）÷Abs（G-F）：Q＝Abs（D-F）：I＝PQ：J＝C+90 Q（I+2UR）/π：J<0=>J=J+360ΔM＝C+45 Q（I÷4+2UR）÷2π：N＝C+135Q（3I÷4+2UR）÷2π：K＝C+45Q（I÷2+ 2UR）÷π:L=C+45Q(I÷8+2UR) ÷4π: S=C+135Q(3I÷8+2 UR) ÷4π: T=C+225Q(5I÷8+2UR) ÷4π: H=C+315Q(7I÷8+2UR) ÷4π←┘ Lbi 4 X＝A+Q(Cos C+4（Cos L+ Cos S +Cos T+Cos H）+2(Cos M + Cos N+Cos K)+Cos J) ÷24+ZCos（J+90)←┘ Y＝B+Q(Sin C+4（Sin L + Sin S + Sin T+ Sin H）+2(Sin M + Sin N+ Sin K) + Sin J) ÷24 +ZSin（J+90)←┘ Z=0=>“X”:X:Pause 0: “Y” :Y◢Goto 1Δ Z<0=>“XL”:X:Pause 0: “YL”:Y◢Goto 1Δfx4850 Z>0=>“XR”:X:Pause 0: “YR”:Y ◢Goto 1 ←┘

线路中线和边线点位坐标的万能通用程序

1线路中线和边线点位坐标的万能通用程序 Lb1?: { E G }:A“X?”:B“Y?”:C“FWJ”:D“1/R-QD”: E“1/R-ZD”:F“QD-ZH”:G“ZD-ZH”： Lb1 1:{ H O }:H“JS-ZH”:O“JZ-JL”:H > G Goto 2 Δ Prog 1: X“X-JS”=X+Ocos(J+9?)▲Y“Y-JS”=Y+Osin(J+9?)▲Goto1Δ Lb1 2:L=H:H=G:“WARING>JS-FW”▲“SR…SUJU”▲ Prog 1: A=X:B=Y:D=E:F=G:C=J:H=L: Got o ?Δ 子程序1: P= (E-D)/ABS(G-F):Q=ABS(H-F):I=PQ： J=C+9?Q(I+2D)/π： M=C+45Q(I/8+D)/π: N=C+135Q(3I/8+D)/π K=C+45Q(I/2+2D)/π X=A+Q(cosC+4(cosM+cosN)+2cosK+cosJ)/12: Y=B+Q(sinC+4(sinM+sinN)+2sinK+sinJ)/12: 注释：A“X?”:B“Y?”:-起点的xy坐标 C“FWJ”:-起点的方位角 D“1/R-QD”:起点的 1/半径，如直线为1/e50 E“1/R-ZD”:终点的 1/半径，如半径100为1/100（如左转为负，右转为正）“QD-ZH”:G“ZD-ZH”：起点、终点的桩号 H“JS-ZH”:O“JZ-JL”:输入计算的桩号，距中距离、如大于计算范围则显示 “WARING>JS-FW”▲“SR…SUJU”▲只需继续输入下一点的终点的 1/半径和终点桩号即可连续计算下一线型。 X“X-JS”、y“y-JS”显示计算点的xy坐标

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

通过逐桩坐标计算曲线 要素 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 圆心位置单击鼠标左键，图示如下：

全站仪采集碎部点坐标注意事项

全站仪采集碎部点坐标注意事项 1.碎部点：碎部点是地球表面能控制地物、地貌走向、形状、起伏在平面、竖面上方向变化的特征点、关键点，如房子、道路的拐点，坡度变化点。 只要准确获取特征点的位置、高程，就能连成线、形成面、构成体，就能形象逼真、艺术美观的表达地表的地物、地貌，并以二维静志、三维静态和V R、A R技术动态直观地呈现在面前并身临其境。 2.统一标准和基准 冇规矩不成方圆，规范是作业的依据和指南，本实习依据《城市测量规范》（建标2009版）、《1：500、1:1000、1:2000地形图图式》（国标2007版） 采集、处理、编辑、存储、表达的现实世界必须在统一的时空基准下，空间基准就是我们采用坐标系统（首选C G C S2000国家大地坐标系）和高程系统（首选1985国家高程基准）。 3.控制点：我们这次实习用导线测量、水准测量、似水准测量方法，经采集、处理，获取控制点坐标、高程成果。 控制点标志和控制点坐标、高程是测图的基础，图根控制点是测图的根本，足够精度的控制点若密度不够可选用多种方法增补满足精度要求的测站点。 4.测站上的工作 ①这次实习中的角色：测站上的观测员和记录员，镜站上的草图员、司镜员。各司其职、各负其责。 ②碎部测量三步曲 第一步，测站设置：安置全站对中整平，建文件（组别加姓名第一个字母，如1D R R）、输入测站坐标高程、仪器高、编码。记录员记载。 第二步，后视定向（输入坐标、棱镜高），恢复坐标系并检查，检查测量坐标、高程和已知坐标、高程之差不超过3厘米，确保坐标系、高程基准恢复无误。记录员记载。 第三步，碎部测量，司镜、观测员、记录员按草图员的指挥，从测站出发由近到远（最远不得超过最大测距边长120米），按地性线、之字形、梅花瓣形、沿等高线等跑点方法轻松不废力、不重不遗漏，画图、立镜、测量、编点号和编码。 必须做到草图上的点号符号、全站仪里的点号编码与实地三一致。必须要按一边走、一边看、一边判、一边画、一边测、一边量的要求作业，方可达到清清楚楚、明明白白、不重不漏、齐全完整。 测站工作完成后，应进行归零检查。

坐标万能计算公式

万能坐标计算公式 X=起点x+(待求点桩号-起点桩号)*【0.1184634425*COS(起始方位角/180*3.14159265+起点曲率*(待求点桩号-起点桩号)*0.046910077+0.5*(终点曲率-起点曲率)/(终点桩号-起点桩号)*(待求点桩号-起点桩号)*(待求点桩号-起点桩号)*0.046910077^2)+0.2393143352*COS(起始方位角/180*3.14159265+起点曲率*(待求点桩号-起点桩号)*0.2307653449+0.5*(终点曲率-起点曲率)/(终点桩号-起点桩号)*(待求点桩号-起点桩号)*(待求点桩号-起点桩号)*0.2307653449^2)+0.2844444444*COS(起始方位角/180*3.14159265+起点曲率*(待求点桩号-起点桩号)*0.5+0.5*(终点曲率-起点曲率)/(终点桩号-起点桩号)*(待求点桩号-起点桩号)*(待求点桩号-起点桩号)*0.5^2)+0.2393143352*COS(起始方位角/180*3.14159265+起点曲率*(待求点桩号-起点桩号)*0.7692346551+0.5*(终点曲率-起点曲率)/(终点桩号-起点桩号)*(待求点桩号-起点桩号)*(待求点桩号-起点桩号)*0.7692346551^2)+0.1184634425*COS(起始方位角/180*3.14159265+起点曲率*(待求点桩号-起点桩号)*0.953089923+0.5*(终点曲率-起点曲率)/(终点桩号-起点桩号)*(待求点桩号-起点桩号)*(待求点桩号-起点桩号)*0.953089923^2))+边距*COS(偏角+起始方位角/180*3.14159265+起点曲率*(待求点桩号-起点桩号)+0.5*(终点曲率-起点曲率)/(终点桩号-起点桩号)*(待求点桩号-起点桩号)*(待求点桩号-起点桩号)】 Y=起点Y+(待求点桩号-起点桩号)*【0.1184634425*SIN(起始方位角/180*3.14159265+起点曲率*(待求点桩号-起点桩号)*0.046910077+0.5*(终点曲率-起点曲率)/(终点桩号-起点桩号)*(待求点桩号-起点桩号)*(待求点桩号-起点桩号)*0.046910077^2)+0.2393143352*SIN(起始方位角/180*3.14159265+起点曲率*(待求点桩号-起点桩号)*0.2307653449+0.5*(终点曲率-起点曲率)/(终点桩号-起点桩号)*(待求点桩号-起点桩号)*(待求点桩号-起点桩号)*0.2307653449^2)+0.2844444444*SIN(起始方位角/180*3.14159265+起点曲率*(待求点桩号-起点桩号)*0.5+0.5*(终点曲率-起点曲率)/(终点桩号-起点桩号)*(待求点桩号-起点桩号)*(待求点桩号-起点桩号)*0.5^2)+0.2393143352*SIN(起始方位角/180*3.14159265+起点曲率*(待求点桩号-起点桩号)*0.7692346551+0.5*(终点曲率-起点曲率)/(终点桩号-起点桩号)*(待求点桩号-起点桩号)*(待求点桩号-起点桩号)*0.7692346551^2)+0.1184634425*SIN(起始方位角/180*3.14159265+起点曲率*(待求点桩号-起点桩号)*0.953089923+0.5*(终点曲率-起点曲率)/(终点桩号-起点桩号)*(待求点桩号-起点桩号)*(待求点桩号-起点桩号)*0.953089923^2))+边距*SIN(偏角+起始方位角/180*3.14159265+起点曲率*(待求点桩号-起点桩号)+0.5*(终点曲率-起点曲率)/(终点桩号-起点桩号)*(待求点桩号-起点桩号)*(待求点桩号-起点桩号)】 切线方位角A=起始方位角+(终点曲率*(待求点桩号-起点桩号) +0.5*(终点曲率-起点曲率)/(终点桩号-起点桩号)*(待求点桩号-起点桩号) ^2)*180/3.14159265

一般圆曲线计算程序(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 VBA编写测量坐标计算程序

教你如何通过Excel VBA编写测量坐标计算程序 发布日期： 摘要：认识VBA、理解VBA，并利用Office Excel VBA编写测量坐标计算程序。 关键词：Excel VBA程序坐标编写 了解：VBA是什么？简单的说就是一种自动化语言，它可以使常用的程序自动化,可以创建自定义的解决方案。可以用Excel的宏语言来使Excel自动化运行等……Microsoft让它开发出来的应用程序共享一种通用的自动化语言——Visual Basic For Application(V BA)，可以认为VBA是非常流行的应用程序开发语言Visual Basic的子集，事实上VBA 是VB应用程序的版本，尽管存在有些不同VBA和VB在结构上仍然十分相似。如果你已经了解VB会发现学习VBA非常快。相应的学完VBA会给学习VB打下坚实的基础。 理由：选择Excel VBA编程的理由是因为它的计算功能非常强大，是现今任何编程计算器无法逾越的。它运用范围广，计算速度快，计算精度高，合理化显示等。或许很多测量人员对Excel VBA还有些陌生，主要是大家寄托于计算器、电脑、手机PDA等系列软件使用。Excel VBA对于大多数测量人员而没有系统学过计算机语言程序设计的人群来讲有一定含糊，不过只要有基本数学知识、测量常识和逻辑理解的人，都能通过Excel VBA编写设计出称心如意的测量程序。 目标：基于Excel VBA的测量坐标计算程序的设计目标是将繁琐计算过程转入到计算机中，利用程序语言的重复性原理，在计算机中可将坐标计算得出更精确的结果，使坐标计算更加可靠。最终目标是让用户可以通过Excel VBA自行完成坐标计算程序设计。 认识：学习VBA到底需要什么基础和了解些什么？ 学习VBA需要认识英文字母、一般的单词（如：函数所用的过程）、数学基础知识、测量常识、逻辑性思维即可。 在VBA中需要了解VBA的过程、变量、属性、方法、事件、语句等。 Excel VBA程序可以分为“录制宏、自定义函数”，由于录制宏编写计算类程序它限制了计算涵式过程，而无法达到自定义数据直接运算的目的，所以大家可以通过按钮式点击进行自定义函数过程（还可以通过窗体定义过程）。 基本常识：