利用Gauss-Legendre 5点通用公式计算线路中边桩坐标并计算放样数据

.正算主程序  GSZS
10→DimZ
"X0"?I："Y0"?S："K0" ?O："F0"?G："KN"?H："R0"?P："RN"?R：”Q(-Z  +Y)”?Q
(P-R)÷(2(H-O)PR) →D
?K:”L(-Z  +Y)”?L :”ANG(YJJ)”?M
Abs(K-O) →J：Prog"SUB1":F-M→M:Cls
”FWJ=”:M ►DMS◢
”X=”:X ◢
”Y=”:Y◢

2. 反算主程序 GSFS
10→DimZ
?X:?Y：X→Z[2]：Y→Z[3] =
"X0"?I："Y0"?S："K0" ?O："F0"?G："KN"?H："R0"?P："RN"?R：”Q(-Z +Y)”?Q
(P-R)÷(2(H-O)PR)→D
Abs((Y-S)cos(G-90)－(X-I)sin(G-90))→J
0→L：”M(YJJ)”?M
Lbl 0：Prog "SUB1"
G-90+QJ(1÷P+JD)×180÷π→Z[5]
(Z[3]-Y)cos(Z[5])-(Z[2]-X)sin(Z[5]) →L
If Abs(L)<1E-6:Then Goto1：Else J+L→J：Goto 0: IfEnd
Lbl 1：0→L：Prog "SUB1"：(Z[3]-Y)÷sin(F)→L
O+J→K:Cls
”K=”:K◢
”L=”:L◢

3. 正算子程序(SUB1)
0.1184634425→A:0.2393143352→B
0.2844444444→Z[4]: 0.0469100770→C
0.2307653449→E:0.5→Z[1]
G+QCJ(1÷P+CJD)×180÷π→Z[6]
G+QEJ(1÷P+EJD)×180÷π→Z[7]
G+QZ[1]J(1÷P+Z[1]JD)×180÷π→Z[8]
G+Q(1-E)J(1÷P+(1-E)JD)×180÷π→Z[9]
G+Q(1-C)J(1÷P+(1-C)JD)×180÷π→Z[10]
Acos(Z[6])→X
X+Bcos(Z[7])→X
X+Z[4]cos(Z[8)→X
X+Bcos(Z[9])→X
X+Acos(Z[10])→X
I+JX→X
Asin(Z[6])→Y
Y+Bsin(Z[7])→Y
Y+Z[4]sin(Z[8])→Y
Y+ Bsin(Z[9])→Y
Y+ Asin(Z[10])→Y
S+JY→Y G+QJ(1/P+JD)*180/π+M→F
X+Lcos(F)→X
Y+Lsin(F)→Y

这个程序非常的好，是我师傅教我们用的，但是我转换成5800之后，缺个数据库和主程序联系，以前是组合程序，希望各位同行帮我解决这个问题！这个程序就这么用非常好！

说明：
一、程序功能及原理
1.功能说明：
本程序由两个主程序——正算主程序(GSZS)、反算主程序(GSFS)和两个子程——正算子程序(SUB1)、线元数据库(DAT-M)构成，可以根据曲线段——直线、圆曲线、缓和曲线（完整或非完整型）的线元要素（起点坐标、起点里程、起点切线方位角、终点里程、起点曲率半径、止点曲率半径）及里程边距或坐标，对该曲线段范围内任意里程中边桩坐标进行正反算。本程序可以在CASIO fx-4800P计算器及 CASIO fx-4850P计算器上运行。由于加入了数据库(DAT-M)，可实现坐标正反算的全线贯通。
组合程序5可实现M线的正算贯通，组合程序7可实现M线的反算贯通，组合程序6可实现坐标计算到放样一体化。
2．计算原理：
利用Gauss-Legendre 5点通用公式计算线路中边桩坐标并计算放样数据。
利用待求点至线元起点切线作垂线，逐次迭代趋近原理反算里程及边距。

二、使用说明
1、规定
      (1) 以道路中线的前进方向（即里程增大的方向）区分左右；当线元往左偏时， Q=-1；当线元往右偏时，Q=1；当线元为直线时，Q=0。
      (2) 当所求点位于中线时，L=0；当位于中线左侧时，L取负值；当位于中线右侧时，L取正值。
      (3) 当线元为直线时，其起点、止点的曲率半径为无穷大，以10的45次代替。
    (4) 当线元为圆曲线时，无论其起点、止点与什么线元相接，其曲率半径均等于圆弧的半径。
(5) 当线元为完整缓和曲线时，起点与直线相接时，曲率半径为无穷大，以10的45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半径为无穷大，以10的45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。
       (6) 当线元为非完整缓和曲线时，起点与直线相接时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。
(7)曲线元要素数据库（DAT-M）可根据线型不同分为各个线元段输入到DAT-M中，即分为直线段、缓和曲线、圆曲线等。
(8)正算时可仅输入里程和边距及右交角可实现全线计算，但反算时只能通过首先输入里程K值读取数据库DAT-M，计算器自动将里程K所在线元数据赋给反算主程序GSFS进行试算，试算出的里程和边距须带入正算主程序GSZS中计算坐标，若坐标吻合则反算正确。
2、输入与显示说明
   （1）输入部分：
X0 ？线元起点的X坐标
     Y0 ？线元起点的Y坐标
     K0 ？线元起点里程
     F0 ？线元起点切线方位角
     KN ？线元终点里程
     R0 ？线元起点曲率半径
     RN ？线元止点曲率半径
     Q ？  线元左右偏标志(左偏Q=-1，右偏Q=1，直线段Q=0)
      K ？正算时所求点的里程
      L ？  正算时所求点距中线的边距(左侧取负值，右侧取正值，在中线上取零)
   ANG？正算边桩时左右边桩连线与线路中线的右交角
X ？反算时所求点的X坐标
       Y ？反算时所求点的Y坐标
    M ?  斜交右角

利用Gauss-Legendre 5点通用公式计算线路中边桩坐标并计算放样数据相关推荐

对称复曲线（直线、缓曲、圆曲、缓曲、直线）中边桩坐标计算
该程式主要适用于对称复曲线(直线.缓曲.圆曲.缓曲.直线)中边桩坐标计算,单次半算范围为前一交点HZ点到后一交点ZH点. E"JDK" F"JDX" G&quo ...
阶乘的计算java_java中四种阶乘的计算
package com.zf.s2;//创建一个包 import java.math.BigInteger;//导入类 import java.util.ArrayList; import java. ...
java8时间间隔计算_Java8中Instant和LocalDate来计算时间或者日期间隔
/** * java.time.Instant * java.time.Duration * Instant 默认使用UTC时区:2019-01-24T14:01:32.258Z * mongo中的时 ...
python中and怎么计算_Python中 and，or 的计算规则
一.纯 and 和 or 语句 1. 在纯and语句中,如果每一个表达式都不是假的话,那么返回最后一个,因为需要一直匹配直到最后一个.如果有一个是假,那么返回假 2. 在纯or语句中,只要有一个表达式 ...
python计算文件中字母出现次数_python – 计算文本文件中字母的频率
使用collections.Counter(): from collections import Counter with open(file) as f: c = Counter() for x i ...
线路测量通用公式的推导及编程
wyqzm网友: 问几个问题1.点到中线的垂距计算公式是怎么推导出来的,就是那个S＝(XA-XB)SIN....我怎么也看不明白这是一个什么样的公式?别笑话哦! 2.假如一条线路有很多的曲线组合,怎么 ...
知识图谱中的余弦相似度计算
从谷歌最早提出知识图谱的概念后,知识图谱的火爆从美国一路烧到了国内,近几年知识图谱技术在国内已经得到了飞速的发展,我们对知识图谱的概念及应用都不再陌生.大家可以看到知识图谱技术的应用出现在越来越多的垂 ...
简单的MapReduce项目，计算文件中单词出现的次数
简单的MapReduce项目,计算文件中单词出现的次数计算文件中单词出现的次数,试题如下图 1.创建读取单词的文件tast,内容如下: hadoop core map reduce hiv hba ...
PHP数组函数 count (计算数组中的元素数目)
在PHP中,数组函数 count () 用来计算数组中的元素数目. 函数语法: count ( mixed $array_or_countable [, int $mode = COUNT_N ...

利用Gauss-Legendre 5点通用公式计算线路中边桩坐标并计算放样数据

利用Gauss-Legendre 5点通用公式计算线路中边桩坐标并计算放样数据相关推荐

最新文章

热门文章