元法在油气井井壁稳定计算中的应用

线元法线路坐标正反算程序

经苦心钻研，奋战多日，终于编写出了代码短，速度快，精度高，功能全的线路坐标正反算程序，欢迎试用并提出宝贵意见。 功能简介及特点： 1、选用高斯-勒让德公式作计算内核，保证精度，模块化设计，便于扩充功能。 2、线元数据可自动从数据库调用，也可手工输入。 3、可管理多条线路，如里程不在线路或线元范围，将警告里程偏大、偏小。 4、边桩计算设计为导线式递推方式，可用于由一个中桩推出结构物所有角点坐标。 5、反算实现了智能化操作，只需输入线路号（或手工输线元资料）、坐标，不需近似里程，即可自动从起点向后开始试算出里程、位置，如对算出里程、位置表示怀疑，还可以让计算器从终点起再向前试算下一个可能的位置（匝道、回头曲线同一坐标可能会有一个以上结果）。第三次及以后试算才要求输入近似里程。 6、程序代码规范简洁，便于阅读、理解。 完整程序清单: ZFS %正反算主程序 B=.1739274226:C=.5-B: Lbl 1:U"0 ZS 1 FS"=0=>Prog "ZS": ≠>U=1=>Prog"FS":≠>Goto 1

ZS %正算子程序 {K}:Prog"ZZ":I=0:{I}:I"L"≠0=>"Prog"WY":≠>Prog"ZB" FS %反算子程序 {KVW}:V"XC"W"YC":Lbl 2:Prog "ZZ":I=V-S:J=W-T:Pol(I,J: J=J-F:K=K+Rec(I,J:AbsI<1m=>Prog"WZ":≠>Goto 2Δ M=0:{M}:M"0 NEXT"=0=>U=U+1:Goto 2:≠>U=1 ZZ %高斯法中桩子程序(4节点) Prog"XL":M=K-L:O=(P-R)÷2PQR: D=.0694318442:E=.3300094782:F=1:G=1-E:H=1-D: I=5:Lbl 1:C[I]=A+MrC[I](1÷P+OMC[I]:Dsz I:Goto 1: S=X+M(BcosD+CcosE+CcosG+BcosH: T=Y+M(BsinD+CsinE+CsinG+BsinH WY %外移点计算子程序 Lbl 1:J=90:{J}:J=F+J"<":F=J:S=S+Rec(I,J:T=T+J: Prog"ZB":I=0:{I}:I"L"≠0=>Goto 1 WZ %位置显示子程序 "KJ":K:Pause 1:J◢ ZB %坐标显示子程序 "XY":S:Pause 1:T◢ YC %异常处理子程序 U=1=>K=L:U=2Δ U=3=>K=M:U=4Δ

线元法简介

线元法万能曲线正反算简介 我的线元法是把线形分为直线和曲线，直线就不用说了，起止点桩号，坐标和方位角就可以算了；曲线最基本的组合：是由一段缓和曲线+一段圆曲线组成，任意复杂的曲线都可以分解成缓和曲线+圆曲线或者其中之一就可以。 分析最复杂的曲线可以看到: 一般复杂线形由Ls1 ,R1,Ls2, R2组成，相邻的Ls1+R1,一般满足A*A=Ls1*R1,这就是一个线元法单元，即使不满足也可以作为一个线元： 当Ls1= Ls2，且R1= R2时，为单曲线 当Ls1≠ Ls2，或者R1≠R2时，为复合曲线 当Ls1= Ls2=0时，线性为圆曲线， 当圆曲线长度为0时，线性为缓和曲线+缓和曲线， 当A*A≠Ls1*R1时，为卵形曲线，需要计算虚拟起点坐标 综合以上线形，本程序正反算计算全部可以处理。结合目前流行的线元法，本程序也可以，分为缓和曲线和圆曲线录入，方法是一样的，所不同的是起点要注意，复杂曲线，是两边向中间定义数据库，缓和曲线永远是ZH点或HZ点为起点。 曲线要素说明（有9个）： 1、起点桩号：（一般为ZH点或HZ点，或ZY点或YZ点，或者卵形公切点GQ） 2~3、起点坐标：（X，Y） 4、起点方位角：FWJ 114°15′24.33″写成：114.152433 5、线性特征：直线，左偏，右偏；三个选一个 6、终点桩号：如果起点为ZH点，终点一边为YH点，QZ点，HY点，都可以，一般为YH点，缓和曲线+圆曲线。如果缓和曲线Ls=0，就是YZ点；大小不一定按路线顺序，如果起点为HZ点，终点根据缓和曲线+圆曲线的特点，和上个线元对接上就可以了。 7、缓和曲线长度Ls： 8、圆曲线半径R: 9、回旋参数A: 一般满足A*A=Ls1*R1，不满足条件的是卵形曲线。 可以处理任意数量断链。 操作流程：1、先编辑线元数据，保存后推出。 2、如果有线元断链的输以下线元断链数据 3、打开线元万能曲线计算单点计算就可以了。 目前，已有一个例子文件在里面，在安装文件目录下“ \dmfx4.0\demo\左线”，有个CAD文件，里面有校核数据，可以看到本软件处理的逐桩表和要素表，可以验证软件的数据，任意数据坐标反算可以得到桩号和距中，任意输入桩号和距中可以正算得坐标。 授权版用户，可以通过运行交点文件编辑，保存后，退出；打开线元法数据编辑，浏览正在使用的主项目文件，就可以看到一个线元数据，点击这个文件确定，保存退出。就完成交点法数据转换线元法数据过程。

线元法万能坐标计算程序

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

交点法线元法坐标计算

3、交点法、线元法坐标计算 坐标计算是根据图纸中“直线及曲线转角一览表”提供的数据计算道路中桩坐标，然后和图纸提供的“逐桩坐标表”比对，如果一样则说明输入平曲线参数输入正确，可以计算边桩坐标和其他结构物坐标了；如果中桩坐标不一样，一般是平曲线参数输入有误，需要重新检查输入，另一种结果是图纸有错，这种情况少见，但不代表没有。“直线及曲线转角一览表”和“逐桩坐标表”见附件1、附件2。 线元法是以路线的起点坐标、方位角、起终点桩号等节点元素来计算出要求的坐标；交点法是以路线的交点要素和路线的主要要素来求得坐标。 ①交点法 交点：路线的转折点，路线改变方向是相邻两直线的延长线相交的点。用JD表示， 有些图 纸上用 IP表示。 看下图： 交 点是针对曲线的（包含圆曲线和缓和曲线），一段曲线就有一个交点。交点参数有：坐标（X,Y）、交点桩号、转角值、圆曲线半径R、缓和曲线长度。 教学提供软件（轻松测量、双心软件、测量工具）交点法曲线要素输入说明： 1、QD起点坐标： 起点坐标必须在直线段上，或填写前一交点的坐标。

2、JD交点曲线要素： （1）交点桩号 （2）交点坐标（X,Y） （3）曲线半径R 始点的话，起始里程有时候需要校正，当然，并不是每个图纸给出的起点里程都需要校正，大多数图纸的起点里程已经被设计院校正过，我们输入平曲线的时候需要验证一下。如果我们按照图纸给出的起点里程输入，发现后面的交点里程都和图纸相差一个相同的值，这就表明我们输入的起点里程需要校正。 起始点里程正常输入，第二、三个交点输入完成后，检查第二个交点的切线长和交点

里程是否和图纸一样，如果切线长正确，交点里程不正确，说明起点里程需要校正，将第二个交点的里程与正确里程的差值，应用到起点里程中，从而使第二个交点里程和后面交点的里程与图纸吻合。 注意：交点法计算坐标适用的平曲线为对称或不对称缓和曲线、圆曲线。对于非普通的三单元曲线，交点法不适用。非普通的三单曲线例如下页的JD18及JD19处的平曲线， 的输入是否正确，有的图纸给的方位角数据较少，需要每隔几个线元才能检验方位角。

如何确定人的本命卦

如何确定人的本命卦 六十四卦中的任何一卦，都由六个爻组成，下三爻和上三爻，也就是由上下两部分组成，下部三爻形成的卦就是下卦，上部三爻形成的卦就是上卦。对应一个人的姓名来说，此人的“姓”可以抽象演算出下卦，“名”可以抽象演算出上卦。由此上下组合，形成本命卦。 以人为研究对象的分子式的确定： 以姓为分母，名字为分子。 具体演算方法如下： 第一步确定下卦： 计算一个人姓氏的笔画数，当笔画数小于等于8时，笔画数本身就是最终的分母。当笔画数大于8时，除以8，如果能够被整除，分母则为8，如果笔画数不能被８整除则其余数为分母。这个分母就是下卦。 当遇到复姓或多字姓氏时，则把姓氏中每个字的笔画数加在一起合计，作为姓的笔画数，按照上述方法计算确定出下卦的具体数字，也就是下卦。 第二步确定上卦： 计算一个人名字的笔画数，不论名字由几个汉字组成，将这几个汉字的笔画数求和。当总笔画数小于等于8的时侯，笔画总数就是最终的分子。当总笔画数大于8时，则除以8，如果能够被整除则分子就为8，当总笔画数不能被８整除时，其余数就为分子。这个分子就是上卦。 读法：先读上卦，再读下卦。如读数字则先读下卦后读上卦。（在此可参考分数读法）下面举例说明。 例如：张三。姓“张”，为7画，名“三”，为3画，那么他的本命卦为3/7，在《伏羲先天六十四卦方圆图》的圆图中对应的位置就是七三旅卦。注：下卦是由下往上数，上卦是由右往左数，从而确定了张三这个人在方圆图中的定位。例二：谢霆锋。姓“谢”，为12画，超过了8画，所以减去8得4，确定其下卦为4；再来看上卦，名“霆锋”，为26画，超过了8，所以减三次8最后得2，确定其上卦为2，那么谢霆锋的本命卦为2/4，在方圆图中的位置就是四二随卦。

公路坐标计算公式

一、缓和曲线上的点坐标计算 已知：①缓和曲线上任一点离ZH点的长度：l ②圆曲线的半径：R ③缓和曲线的长度：l0 ④转向角系数：K(1或－1) ⑤过ZH点的切线方位角：α ⑥点ZH的坐标：x Z，y Z 计算过程： 说明：当曲线为左转向时，K=1，为右转向时，K=-1，公式中n的取值如下： 当计算第二缓和曲线上的点坐标时，则： l为到点HZ的长度

α为过点HZ的切线方位角再加上180°K值与计算第一缓和曲线时相反 x Z，y Z为点HZ的坐标 切线角计算公式： 二、圆曲线上的点坐标计算 已知：①圆曲线上任一点离ZH点的长度：l ②圆曲线的半径：R ③缓和曲线的长度：l0 ④转向角系数：K(1或－1) ⑤过ZH点的切线方位角：α ⑥点ZH的坐标：x Z，y Z 计算过程：

说明：当曲线为左转向时，K=1，为右转向时，K=-1，公式中n的取值如下： 当只知道HZ点的坐标时，则： l为到点HZ的长度 α为过点HZ的切线方位角再加上180° K值与知道ZH点坐标时相反 x Z，y Z为点HZ的坐标 三、曲线要素计算公式

公式中各符号说明： l——任意点到起点的曲线长度（或缓曲上任意点到缓曲起点的长度）l1——第一缓和曲线长度 l2——第二缓和曲线长度 l0——对应的缓和曲线长度 R——圆曲线半径 R1——曲线起点处的半径 R2——曲线终点处的半径

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

东西四命速算表

东四命与西四命算法(房屋风水说)于2011-03-10 20:05发表情感随笔 东四命与西四命算法(附图) 阳宅按八卦原理可分为“乾、兑、离、震、巽、坎、艮、坤”等八种宅形，可回纳为“东四宅”和“西四宅”两大类；人同样也被分为八种命形，也可回纳为“东四命”和“西四命”两大类。每种屋子又分为八个方位，布有“生气、伏位、延年、天医”四吉星位，以及“祸害、五鬼、六煞、尽命”四凶星位等八种不同质地的气场。 “四吉星”：生气——财运大好，身体健康，活力充沛。延年——财运很好，延年益寿，身体健康。天医——财运不错，疾病痊愈，朱紫相扶。伏位——财运小吉，运气中等，健康如常。“四凶星”：尽命——财运极差，多病损寿，凶则死亡。五鬼——破财连连，健康甚差，轻易招鬼。六煞——财运不好，灾祸连连，身体多病。祸害——财难积聚，官灾是非，争执被骗。 “东四宅”以东、东南、北、南为四吉位，以东北、西北、西、西南为四凶位；而“西四宅”却刚相反，以东北、西北、西、西南为四吉位，以东、东南、北、南为四凶位。那么，东、西四命不同类型人的主要生活区，若选择在与自己命属相同、相生、相辅的地方就好，否则就不好，不是生病就会出大事。具体比方说：1998年生的人，是西南方位坤土气场，属于“西四命”，就应该选择“西四宅”居住，而且床位要展在适合本人住的屋子的东北、西北、西、西南四吉星位，这样就能健康、长寿、安稳、运气好，否则情况就会相反喽。 计算男命公式：（100—出生年份）÷9 计算女命公式：（出生年份—4）÷9 通过以上两个公式的计算，即可以得出自己的命卦是属东四命还是西四命；计算方法如下：通过以上两个公式，可以获得一个余数，如没有余数或除尽则视为9，上述公式所说的出生年份，是仅取个位数与十位数，例如1976年出生的人，便以76代进公式内，1978年出生的人，则以78代进公式。 例如：一九七五年出生的男性，其计算方法如下： （100—75）÷9=25÷9=2余数为7，商数是2，余数是7，七数属对冬故其人为兑卦，即即兑宅。 例如：一九八五年出生的女性，其计算方法如下： （85—4）÷9=81÷9=0，商数是9，余数为0，则余数视为9，九数属离，故其人为离卦，即离宅。 注：余数所属的卦象，视为该人的命卦，下面分别将各数所属列出如下： 一属坎；二属坤；三属震；四属巽；六属乾；七属对痘八属艮；九属离。余数是五的男性视为坤，女性则视为艮。 五行所属为：震属阳木；巽属阴木；离属阴火；坎属阳水；乾属阳金；兑属阴金；艮属阳土；坤属阴土。 了解了五行所属后也就知道了八个方位的所属： 东四：震、巽、坎、离 1、东方属震,故其五行属木; 2、东南方属巽，五行属木； 3、北方属坎，五行属水；4南方属离，五行属火。 西四：艮、坤、兑、乾

Excel电子表格计算公式使用方法25条公式技巧总结

Excel电子表格计算公式使用方法25条公式技巧总结 对于Excel表格计算公式的方法实在太多，今天就整理了一个公式大全需要对有需要的朋友有些帮助。 1、两列数据查找相同值对应的位置 =MATCH(B1,A:A，0) 2、已知公式得结果 定义名称=EVALUATE(Sheet1!C1) 已知结果得公式 定义名称=GET.CELL(6,Sheet1!C1) 3、强制换行

用Alt+Enter 4、超过15位数字输入 这个问题问的人太多了，也收起来吧。一、单元格设置为文本;二、在输入数字前先输入' 5、如果隐藏了B列，如果让它显示出来？ 选中A到C列，点击右键，取消隐藏 选中A到C列，双击选中任一列宽线或改变任一列宽 将鼠标移到到AC列之间，等鼠标变为双竖线时拖动之。 6、EXCEL中行列互换 复制，选择性粘贴，选中转置，确定即可

7、Excel是怎么加密的 （1）、保存时可以的另存为>>右上角的"工具">>常规>>设置 （2）、工具>>选项>>安全性 8、关于COUNTIF COUNTIF函数只能有一个条件，如大于90，为=COUNTIF(A1:A10,">=90") 介于80与90之间需用减，为=COUNTIF(A1:A10,">80")-COUNTIF(A1:A10,">90") 9、根据身份证号提取出生日期 （1）、 =IF(LEN(A1)=18,DATE(MID(A1,7,4),MID(A1,11,2),MID(A1,13,2)),IF(LEN(A1)=15,DATE (MID(A1,7,2),MID(A1,9,2),MID(A1,11,2)),"错误身份证号"))

交点法与线元法

本人一直以来想找一个交点法与线元法相结合的坐标正反算程序，在网上找了很久很久，没能找到一个较为满意的，有幸在测量空间看到大歪哥的《Casio5800交点法程序》与《线元法（积木法）匝道坐标正反算放样程序》，根据歪哥意见“需要的自行修改结合XY框架自己修改为数据库反算程序等”，本人不才，采用最笨的办法将两个程序综合了一下，使之能既能进行交点法正反算，又能进行线元法正反算。在此特别感谢大歪哥！将程序发上来，愿与大家一同交流学习欢迎大家吐口水，只要能进步就行！ 程序由一个主程序ZBZFS和8个子程序（JS、XY-A、XY-B、JDYS、1、2、3、4）构成，运行时只需运行主程序即可！ 本程序适用于单交点对称型、不对称型、无缓和曲线单圆曲线型一个交点范围内（含交点前后有直线段时）的曲线要素核对和坐标正反算，手工输入要素，对设计图纸的“直线、曲线转角表”中交点数据进行复核验证，并能对单一线元进行坐标正反算。 1主程序名：ZBZFS（功能：进入计算主程序） 65→Dimz↙ Deg:Fix 3↙ ＂1.JD ZFS 2. ZHADAO ZFS＂? I: I→Z[61]: ＂1.ZHONG SHU JS 2. JS＂? I↙ If I=1: Then Goto1: Else Goto2:IfEnd↙ LbI 1 :If Z[61]=1: Then Prog＂JDYS＂:Else Cls:＂K0＂?A:＂KN＂?L :＂X0＂?U :＂Y0＂?V :＂F0＂?W :＂R0＂?P :＂RN＂?Q:＂ZX:-1,+1,0＂?G:IfEnd↙ LbI 2 :Prog＂JS＂ 2子程序名：JS（功能：选择正算或反算模式） Cls:＂XC＂?H:＂YC＂?Z↙ Cls:＂1.ZS 2.FS＂? I: I=2=>Goto 3↙ LbI 1 : Cls: If Z[61]=1: Then＂JD ZS KX+XXX＂?K :Prog＂4＂: Else ＂ZHADAO ZS KX+XXX＂?K :IfEnd↙ LbI 2: Cls:90→B: Cls:＂RJ Or 0 To K＂?B:B=0 =>Goto 1:＂Z＂?T↙ Prog ＂XY-A＂↙ X+Tcos(M+B)→X↙ Y+Tsin(M+B)→Y↙ 360Frac((M+360)÷360→M↙ Pol(X-H,Y-Z : 360Frac((J+360)÷360→J↙ 2→O: Prog ＂XY-B＂:Goto 2↙ LbI 3 : Cls: If Z[61]=1: Then＂JD FS KN+＂?K:＂X＂?C:＂Y＂?D:Prog＂4＂:Else Cls: ＂ZHADAO FS＂:＂X＂?C:＂Y＂?D:IfEnd↙ LbI 4 :Prog ＂XY-A＂↙ (D-Y)sin(M)+(C-X)cos(M)→H↙ If Abs(H)＞X10-3 :Then K+H→K:Goto 4:IfEnd↙ (D-Y)÷cos(M)→T↙ 3→O: Prog ＂XY-B＂:Goto 3↙ 3子程序名：XY-A（功能：坐标计算程序） 5→N: G(Q-1-P-1)÷Abs（L-A）→F: Abs（K-A）÷N→R: 90R÷π→S:

5800线元法程序

1. 主程序 Lbl 4："1.SZ => XY"："2.XY => SZ"：？N：？S：Prog“SUB0”↙ 1÷P→C: (P-R)÷(2HPR) →D:180÷∏→E:N=1 => Goto1：Goto2↙ Lbl 1:? Z：Abs(S-O) →W：Prog "SUB1"："XS="：X◢ "YS="：Y◢F-90→F：“FS=”：F▲DMS◢：Goto4↙ Lbl 2：？X：？Y：X→I：Y→J：Prog“SUB2”：O+W→S：“S=”：S◢“Z=”：Z◢Goto4↙ 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）→Y 2. 反算子程序(SUB2) G-90→T：Abs((Y-V)cosT-(X-U)sinT) →W：0→Z：Lbl 0：Prog "SUB1"： T+QEW(C+WD) →L：(J-Y)cos（L）-(I-X)sin（L）→Z：Abs（Z）<1E-6=>Goto1：W=W+Z：Goto 0←┘Lbl 1：Z=0：Prog "SUB1"：(J-Y)÷sin（F）→Z SUB0 数据库子程序 Goto1↙同时保存多个曲线时的指针 Lbl 1：IF S<***（线元终点里程）:Then***→G（线元起点方位角）:***→O（线元起点里程）:***→U（线元起点X）:***→V（线元起点Y）:***→P（线元起点曲率半径）:***→R（线元终点曲率半径）: ***→H（线元起点至终点长度）：0或1、-1→Q：Return:IfEnd↙ Lbl 1：IF S<***（线元终点里程）:Then***→G（线元起点方位角）:***→O（线元起点里程）:***→U（线元起点X）:***→V（线元起点Y）:***→P（线元起点曲率半径）:***→R（线元终点曲率半径）: ***→H（线元起点至终点长度）：0或1、-1→Q：Return:IfEnd ……………………….. 为了便于解读，每增加一个线元增加一行语句，每增加一条曲线增加一个Lbl，每增加一个工程增加一个文件。 三、使用说明 1、规定 (1) 以道路中线的前进方向（即里程增大的方向）区分左右；当线元往左偏时，

线元法

5800 计算程序 主程序 QXJS Fix 3:Deg:Lbl 4:“1.SZ=>XY”:“2.XY=>SZ”:? Q Lbl 4: “LICHENG= ” ?S:Prog“SUB0” ↙ Lbl 0:If Q=1:Then Goto1:IfEnd IfQ=2:ThenGoto2:IfEnd ↙ Lbl 1:”-B,0,B=”? Z: “J J右交角=”?G:Prog“SUB1”: Fix 4:Cls “X=”:N →N ◢“X=”: Locate3,1,N◢ “Y=”:E →E ◢“Y=”: Locate3,1,E◢ Prog“JI”:Goto4 “QXFWJ=”:F →F:F ▲ DMS ◢ Goto4 ↙ Lbl 2: “X=”? B: “Y=”? C:B→N: C→E:Prog“SUB2”: “LICHENG=”:S◢ “OUT JL=”:Z◢ Goto4 ↙ 说明： Q: 代表正反算，其中 1 为正算， 2 为反算； S: 代表里程； Z ：代表偏移距离； G ：代表偏移角度（以线路前进方向为 X 方向，顺时针转为正； N ： X 坐标； E ： Y 坐标； F ：切线方位角； JI Clstat Pol(N-G,-E-H):Cls If S<0:Then J+360→Y:Ease J→Y:Ifend “F W J=”:Y▲ DMS ◢黄色为计算机程序

SUB0 ( 数据库 ) Goto1 ↙ Lbl 1 IF S<157687.528:THEN 2884169.2517→U:471475.6573→V:157547.528→O:98 ° 32 ′ 43.08 ″ →A:140→L:10^45→P:10000→R: Return:IfEnd ↙ IF S<163781.879:THEN 2883008.7030→U:477458.2815→V:163641.879→O:101 ° 6 ′ 4.08 ″ →A:140→L:10^45→P:10000→R: Return:IfEnd ↙ IF S<164195.661:THEN 2882981.4268→U:477595.5984→V:163781.879→O:101 ° 30 ′ 7.93 ″ →A:413.7833→L:10000→P:10000→R: Return:IfEnd ↙ IF S<164335.661:THEN 2882890.5519→U:477999.2492→V:164195.6623→O:103 ° 52 ′ 22.82 ″ →A:140→L:10000→P:10^45→R: Return:IfEnd ↙ IF S<171831.142:THEN 2882856.3502→U:478135.0069→V:164335.6623→O:104 ° 16 ′ 26.67 ″ 说明： S ：里程；157547.528→O 为线元终点里程； 2884169.2517→U 为线元起点 X 坐标；471475.6573→V 为线元起点 Y 坐标；98 ° 32 ′ 43.08 ″ →A 线元起点切线方位角；0^45→P 线元起点半径（左转为负右转为正）；10000→R 线元终点半径（左转为负右转为正） SUB1 正算子程序 0.5 （1÷R-1÷P）÷L→D:S-O→X ↙ U+∫(cos(A+(X÷P+DX2)×180÷π,0,X)→N ↙ V+∫( sin(A+(X÷P+DX2)×180÷π,0,X)→E ↙ A+(X÷P+DX2)×180÷π→F ↙ N+Zcos(F+G) →N:E+Zsin(F+G) →E Return SUB2 反算子程序 Lbl 1:0→Z ：1→Q ：Prog“SUB0”: 0.5 （1÷R-1÷P ）÷L→D:S-O→X ↙ U+∫(cos(A+(X÷P+DX2)×180÷π,0,X)→N ↙ V+∫( sin(A+(X÷P+DX2)×180÷π,0,X)→E ↙ A+(X÷P+DX2)×180÷π→F ↙ N+Zcos(F+90) →N:E+Zsin(F+90) →E : Pol(N-B+10^(-46), E-C+10^(-46)):Isin(F-90-J) →W:S+W→S ↙

交点法和线元法曲线要素输入简介

测量坐标计算程序V5 输入简介 本程序运用Office Excel 软件VBE标准模块编写，其功能基本全面集成了以往所更新的Excel程序，程序适用于公路、铁路等线路坐标计算，程序主要包括（交点法、线元法、直线坐标正反算，竖曲线计算，平面控制网“导线、高程”平差，隧道超欠挖，超高加宽，测量工具箱等，还可以全自动生成卡西欧5800、9750程序数据库，其中包括：隧道超欠挖、交点法、线元法、竖曲线一系列数据库），已知数据输入明确，操作简单易懂，是工程测量人员的好帮手！ 交点法曲线要素输入简介 一、适用平曲线类型 交点法计算坐标适用的平曲线为对称或不对称缓和曲线、圆曲线。 注意：对于非普通的三单元曲线，本程序交点法不适用。非普通的三单元曲线 体现在本程序中的《直线、曲线及转角表》内，点击“生成要素”之后，计算 值与设计图纸《直线、曲线及转角表》上的切线长和曲线主点位置等不一致， 此时只能采用线元法进行坐标计算。 例如：下表的JD18及JD19处的平曲线，经本程序交点法计算之后发现，为非普通的三单元曲线，交点法不适用该类曲线的坐标计算，故只能采用线元法进行坐标计算。

二、交点法曲线要素输入说明 本程序交点法输入的要素有7个（程序不限制输入行数）： 1、QD起点坐标： 起点坐标必须在直线段上，或填写前一交点的坐标。 2、JD交点曲线要素： （1）交点桩号K，注意：当起始平曲线上的ZH点（缓和曲线）或ZY点（圆曲线）的桩号为负数时，交点桩号K统一加上100000（即增加100Km），以避免坐标正算时出现桩号计算范围错误（但是，线元法计算坐标时可以输入负坐标，坐标正算与反算都不会出现错误）。 （2）交点桩号（X,Y） （3）曲线半径R （4）第一缓和曲线长度LS1,若为0,输入0,不能为空。 （5）第二缓和曲线长度LS2,若为0,输入0,不能为空。 3、ZD终点坐标： 终点坐标也必须在直线段上，或填写后一交点的坐标。 三、操作流程： 1、根据设计图纸《直线、曲线及转角表》输入第一个交点坐标，作为QD起点坐标。 2、依次输入各交点的曲线要素。 3、输入最后一个交点坐标，作为ZD终点坐标。 4、点击“点击进入直曲表”，然后点击“生成要素”，根据计算的转角值、曲线要素、曲线主点位置、直线长度及方向与设计图纸《直线、曲线及转角表》上的设计值进行核对，看各要素输入是否正确。 注意：交点法与线元法在计算坐标时，线元法可能存在mm毫米 级以内的计算误差，坐标计算值与设计值也可能存在mm毫米级以内

择日--_年月日时紫白计算办法

年紫白（入中）计算办法 年紫白（入中）计算办法：公元年份减1的9余数的合十数。如2010年，2+1－1＝2，10－2＝8，所以2010年入中紫白为8；又如1998年，1+9+9+8-1＝（8），10-8＝2，所以1998年入中紫白为2；（计算技巧，满9舍弃，逢0计9）。另外，有很多流派会用到命卦，男命命卦即年入中紫白，女命命卦计算办法为公元年份加4的9余数。（9余数即除以9所产生的余数，余数为0时0即为9 月紫白（入中）的计算方法（原创） 月紫白（入中）的计算方法（原创） 月紫白（入中）的计算方法（知道年紫白入中） 1.设年紫白（入中）为“年”，月数为“月”； 2.则月紫白（入中）的计算方法为：（3年－3－月）÷9所得的余数（余数≤0时，余数加 9）； 3.如2010年9月，年为8，月为9，月紫白（入中）的计算方法为：（3×8－3－9）÷9＝ 1……3，所以如2010年9月月紫白（入中）为3 日紫白（入中）的计算方法（原创） 日紫白（入中）的计算方法（原创） 日紫白（入中）的计算方法 1.冬至至立春末日：日干支序数÷9所得余数（除尽时余数为9）； 2.雨水至清明末日：（日干支序数+6）÷9所得余数（除尽时余数为9）； 3.雨水至清明末日：（日干支序数+3）÷9所得余数（除尽时余数为9）； 4.夏至至立秋末日：日干支序数÷9所得余数（除尽时余数为9）的合十数； 5.处暑至寒露末日：（日干支序数+6）÷9所得余数（除尽时余数为9）的合十数； 6.霜降至大雪末日：（日干支序数+3）÷9所得余数（除尽时余数为9）的合十数； 日干支序数的计算方法： 时紫白（入中）计算办法（原创） 时紫白（入中）计算办法（原创） 由日紫白推算时紫白（入中）计算办法（原创） 设时辰序数（以下简称“时”）：子1、丑2……亥12，日紫白简称“日” 则：1.冬至后时紫白（入中）＝（3日－3+时）÷9所得余数（余数＜0时加9）； ? ?? ???2.夏至后时紫白（入中）＝（3日+1－时）÷9所得余数（余数＜0时加9）；

9860线元法隧道测量(坐标正反计算、高程)计算程序

CASIO 9860G SD线元法隧道三维（坐标正反计算、高程）计算程序 1. A（此为主程序） Lbl 0：〝1.LC=>XY〝：〝2.XY=>LC〝：〝3.ZHZL=>GC〝：〝PB=>V=1,2,3〞？→V： If V=1：Then GOTO 1 ：IfEnd ：If V=2：Then GOTO 2 ：IfEnd ： If V=3：Then GOTO 3 ：Else GOTO 0 ：IfEnd：Lbl 3：〝ZH=H〝？→H ：〝SDZF=Z〝？→Z：Prog〝ZGCZCX〝：GOTO 0：Lbl 1 ：〝ZH=L〝？→L： If L>173000 And L<174661.96：Then GOTO 4 ：Else GOTO 0 ：IfEnd ： Lbl 4：L→L：〝SDZF=Q〝？→Q：〝XLZJ,-Z+Y=Q〝：Q+0.125→Q： Prog 〝ZBQXYS〝：〝JSJD=J〝：90→J▲Prog 〝ZSZB〝： 〝X=〝：X ▲ 〝Y=〝：Y▲〝FWJ=O〝：O▼DMS▲ L→H：Q-0.125→Z：Prog 〝ZGCZCX〝：GOTO 0： Lbl 2：〝XO=M〝?→M：〝YO=R〝?→R：173300→L： If M>3845505.273 And M<3846506.099 And R>499371.832 And R<500352.224 ：Then GOTO 5：Else GOTO 2： IfEnd ：Lbl 5：0→Q：0→J： Prog 〝ZBFS〝：〝LC=L〝：L ▲〝JL=Q〝：Q▲ 〝SDZJ，-Z+Y=Q〝：Q-0.125→Q ▲ L→H：Q→Z：Prog 〝ZGCZCX〝：GOTO 0 2.正算坐标ZBZS ( L-S ) / 4→H：90/π→F：HHF（1/T-1/I）/（K-S）→U：2HF/ I→D：C+4D+16 U→Ｏ： O+J→P ：C+ D+ U→E：C+2D+4U→W：C+3D+9U→G： A+AbsH/3*(cosC+4(cosG+cosE)+2cosW+cosO)+Qcos P→X ： B+AbsH/3*(sinC+4(sinG+sinE)+2sinW+sinO)+Qsin P→Y 3.反算坐标：ZBFS Lbl 0：Prog 〝ZBQXYS〝：Prog 〝ZBZS〝：O-90→Z：(R-Y)cosZ-(M-X) sinZ→P ：L+P→L：If Abs P≥0.001：Then GOTO 0 ：Else GOTO 1：IfEnd ： Lbl 1： (R-Y)cosO-(M-X) sinO→Q 4. 曲线元要素数据库：ZBQXYS

线元法参数计算程序(自编)

在网上寻找计算线元法需要的参数的5800程序找了很久没找到，后来索性自己更具《详解用线元法计算公路中线坐标》中的公式自己编了个5800程序。 为了区分字母O和数字0（字母O染红了的） Fix 3：14→DimZ Lbl 0 "1(YP),-1(ZP)="?→Z[14]:"QD(KM)="?A（右偏输入1，左偏输入-1）"LS="?B（线元长度） "QD(QL)="?C（起点曲率，半径的倒数，直线输入1/1045趋近于0）"ZD(QL)="?D（终点曲率） "QD(X)="?E（起点X坐标） "ZD(Y)="?F（起点Y坐标） "QD(FWJ)="?G（起点方位角） 0.1184634425→R:0.2393143352→Z[11]:0.2844444444→Z[12]:0.0469100770→S:0.2307653449→T: 0.953089923→W:0.769234655→V:0.5→U:0.2393143352→K:0.1184634425→O Z[14]=1=?Goto 1：Z[14]=-1=?Goto 3 Lbl 1 D-C→Z G+(D+C)90B÷∏→H Goto 2 Lbl 3

-D-C→Z G+(-C-D)90B÷∏→H Goto 2 Lbl 2 Rcos((G∏+180CSB+90ZBS2)÷∏)→Z[1]:Z[11]cos((G∏+180CTB+90ZBT2)÷∏)→Z[2]:Z[12]cos((G∏+180CBU+90ZBU2)÷∏)→Z[3]:Kcos((G∏+180CBV+90ZBV2)÷∏)→Z[4]:O cos((G∏+180CBW+90ZBW2)÷∏)→Z[5]:Rsin((G∏+180CBS+90ZBS2)÷∏)→Z[6]:Z[11]sin((G∏+180CBT+90ZBT2)÷∏)→Z[7]:Z[12]sin((G∏+180CBU+90ZBU2)÷∏)→Z[8]:Ksin((G∏+180CBV+90ZBV2)÷∏)→Z[9]:O sin((G∏+180CBW+90ZBW2)÷∏)→Z[10] E+B(Z[1]+ Z[2]+ Z[3]+ Z[4]+ Z[5]) →Z[13] F+B(Z[6]+ Z[7]+ Z[8]+ Z[9]+ Z[10]) →N Cls “ZDX=”:Locate 5,1,Z[13]: Locate 1,2,”ZDY=”: Locate5,2,N: Locate1,3,”F=”: Locate4,3,H o: Locate1,4,”ZDK=”: Locate5,4,(A+B)◢ Cls Goto 0 ZDX=待求点的X坐标 ZDY=待求点的Y坐标

积分公式计算的线元法测量计算器程序

请使用WORD的Times New Roman字体，若使用其它字体，字母O与数字0是区别不出的.切记切记! 积分公式计算的线元法CASIO4850计算器程序 第十版 1 (主程序)(使用时请运行这个) L1 L2 “4”△ L3 “2”△ L4 “2”△ L5 U=7=> D=0:V=0△ L6U=8=>{M}: PSW:D=(B+M“01”: Q=W+S√(1-M2)△ L8 “4”△ L9 9”△ L10 △9”△ L11”:△“10” L12 “8”“5” △ L13 √(S2-I2 ◢ √(I2+J)◢ △ 1:U=7=> 10”: “6”“8” “5”6”“8”: V≤0=>V=V+180: ≠>V=V-180: △ △ L15 U<5=>Q=Q+B: 10（子程序）（为共用计算中桩/加转角/用正算计算边桩/反算/显示的过程） L1 “F”:U=11=>R=0:△6”“8” : “5” 9 （子程序）（为点垂桩垂距/涵交桩交角的共同运行部分） L1 7”8”≠> Q=Q+I:“8”: “OK”: Q: Pause 0:I: Pause 0: J=J-R:J>180=>J=-J+180:△ “11”: △△“4” 7 （子程序）（两点斜直线交点部分） (主程序独立运行) L1(E-F): Pause 0:O=E(Y-P)+S 5 (子程序)( 显示部分) L1 F (子程序) (中桩计算部分)

L1π/180+CI+I2(Z-C)/2/J:T=E+(Aπ /180+CX+X(Z-C)/2/J),0,I,4):K= F+(Aπ/180+CX+X2(Z-C)/2/J),0,I,4):Q>G =>R=R+π:π F2 (子程序) (中桩计算部分)(使用时把F2改为F;同时把F改为F1)(这个子程序计算速度快,但在缓曲长到2或3百米且半径小到6或7十米时,计算误差有几厘米) L1 L1 I=Q-H L2 J= (Z-C)I÷(G-H) L3 Z[1]=A+90(J÷8+2C)(I÷8)÷π L4 Z[2]=A+90(J÷4+2C)(I÷4)÷π L5 Z[3]=A+90(3J÷8+2C)(3I÷8)÷π L6 Z[4]=A+90(J÷2+2C)(I÷2)÷π L7 Z[5]=A+90(5J÷8+2C)(5I÷8)÷π L8 Z[6]=A+90(6J÷8+2C)(6I÷8)÷π L9 Z[7]=A+90(7J÷8+2C)(7I÷8)÷π L10 R=A+90(J+2C) I÷π L11 ÷24 L12 24 8(子程序) (座标反算部分) (也可作为座标反算主程序独立运行,方位角按显示) L1△ 6(子程序) (边桩和座标正算计算部分) (也可作为座标正算主程序独立运行) L1 2(子程序) (推算开挖/填筑桩部分) {平原微丘一般推算1-2次,山岭重丘一般4-5次,能达到5厘米以内的精度,看你的熟练程度} L1{SWPB}：I=S-W◢ L2◢ 3(导线点数据库)(数据库中的数字请按你所在公路的数据替换) L1 Y=21=>Y=36640.666:O=65111.666△ L2 ……(省略号表示类同上行, 并非真在程序中输入省略号. 注意: 第一个Y为导线点编号, 第二个Y为导线点X座标,O为导线点Y座标, 数据库中的数字请按你所在公路的数据替换. 但注意: 导线点编号必须没字母也没小数;导线点X座标则必须有小数,若刚好没有小数,请加上0.0001并不影响精度) 4(平曲线数据库) (数据库中的数字请按你所在公路的数据替换) L1 Q≤444.978=>H=374.978:E=36771.643:F=64929.942:A=151°29′38″:C=0:

教你如何推算男女的命卦

教你如何推算男女的命卦 利用风水给人算命以2000年为界，分为两种算法：1生于2000平的人男性的计算公式：（100一出生末尾两位数）÷9，所得分数配合后天八卦顺序，就可得知命卦。如合数为5，为坤卦。如生于1972年的男性，（100一72）÷9=28÷9=3……1，余数为1，1为坎，所以该男性的命卦为坎卦，属于东四命。女性的计算公式：（出生年末尾两位数+5）÷9，所得余数配合后天八卦顺序，就可得知命卦，如余数为5，为艮卦。如生于1976年的女性，（76+5）÷9=81÷9=9，没有余数，直接取9为数，9为离，所以该女性的命卦为离卦，属东四命。2出生于2000年后的人男性计算公式：（99一出生年末尾两位数）÷9，所得余数配合后天八卦顺序，就可得命卦，如余数为5，为坤卦。如出生于2008年的男性，（99一08）÷9二91÷9=10……1，余数为1，1为坎，该男性的命卦为坎卦，属东四命。女性计算公式：（出生年末尾两位+6）÷9，所得余数配合后天八卦顺序，得知该命卦。如余数为5，为艮卦。如生于2008年的女性，（08+6）÷9=14÷9=1……5，余数为5，5为艮卦，所以该女性的命卦为艮卦，属于西四命。在八宅吉凶图中，内为八宫，外为九星，根据八宫九星的阴阳五行属性，就推演出住宅的生克关系。如阳星在阳宫，阴星在阴宫，就是宫星相同，没有生克；如果阳

星在阴宫，阴星在阳宫，就宫星相克。根据五行属性，如果宫位属性相克星，为内克外，吉凶参半；如是星的属性克宿，为外克内，主凶。一的阳被克，不利于男人，阴被克，不利女人，具体的不利的对象，需视八宫所对应的人扬而定，主伤中男，兑宫受克，主伤少女；巽宫受克，主伤中女。（如果有感兴趣的朋友欢迎点赞、转发、收藏，严禁抄袭，侵权必究！）