精简5800三维程序

精简5800三维程序

正反算选择程序：ZS-FS
Deg:
“1LZ＝＞XY，2XY＝＞LZ”？U： //正反算选择，正算选1，反算选2
If U=1: ThenProg”ZS-XH”:IfEnd:             //进入正算循环主程序
IfU=2:Then Prog”FS-XH”:IfEnd:              //进入反算循环主程序

正算循环主体程序ZS-XH
“QX=1,QX=2“？U：                           //选择线路
Lbi0:”L（=0=>stop:)”?L:L=0=>stop:                //输入桩号
Porg”ZS-XH-1“：Goto0:IfEnd:             //运行正算循环子程序

正算循环子程序ZS-XH-1
U=1=>Prog”HUO-DA-XIAN”: //进入平面线路选择程序对线路线元进行选择
（P-R）/（2HPR）→D：
L-O→O: OD→D:
1/P→C：

U=1=>Prog”X2”

（P-R）/（2HPR）→D：

L-O→O: OD→D:

1/P→C：

U=1=>Prog”GC1”

U=2=>Prog”GC2”
Prog”GC”: //进入高程部分提取中桩高程

:Prog”ZS-XS”: //进入正算显示程序，提取正算三维结果

正算显示ZS-XS
FIX4:“FWJ=”：locate6,4,Int(Q)+0.01Int(60Frac(Q))+0.006Frac(60Frac(Q)): FIX3：
“Xp=”: locate6,4,X                          //显示中线X坐标
“Yp=”: locate6,4,Y                               //显示中线Y坐标
“Gp=”: locate6,4, I   ◢                            //显示中桩高程
90-àW:”ANGLE”?W:”BIANZHU”?Z

:X+Zcos(Q+W) →G: //计算出边桩X坐标
Y+ZSin(Q+W) →M: //计算出边桩Y坐标

I-0.015ZàO 0.015为设计横坡

“B-X”: locate6,4,G                              //显示边桩X坐标
“B-Y”: locate6,4, M                           //显示边桩Y坐标
“B-GC”: locate6,4,O◢                                   //显示边桩高程

反算循环主体程序FS-XH
0→Z:“1àU: “QX=1,QX=2“？U：                          //选择线路    1～N
Lbi0：
“L”？L：“Xc=”？T：“Yc=”？S：            //输入起算假定桩号，实测X Y
Prog”GL-FS”:                                /进入公路反算程序
Prog”FS-XS”:                                //进入反算显示程序
Goto0:

反算显示FS-XS
“L”： locate6,4,L //显示计算里程
“Z”： locate6,4,J //显示计算边距

中桩高程计算程序GC
If I-A＜0:Then1→H:IfEnd:                       //开口向上部分赋值
IfI-A=0:ThenGoto1: IfEnd:                       //无竖曲线部分赋值
IfI-A＞0:Then-1→H:IfEnd:                         //开口向下时赋值
(L-C)I+K+(L-C)^2/(2E)H→I：                     //计算得出竖曲线部分中桩高程
Goto2:Lbi1:
K+(L-C)I→I:                                   //计算得出无竖曲线部分中桩高程
Lbi2:

一号线路高程GC1；

If L≤96563.333;该段止点里程：Then（前坡例0。01）-.0033→I：（后坡例-0。034）.0013→A：（竖曲线半径）10000→E：（（起点高程）63..377→K：（起点桩号）96516.667→C：止点桩号96563.333→D：Return:Ifend

If L≤96579.931;该段止点里程：Then（前坡例0。01）.0013→I：（后坡例-0。034）.0013→A：（竖曲线半径）63..33→K：（起点桩号）96563.333→C：止点桩号96579.931→D：Return:Ifend

If L≤96620.069;该段止点里程：Then（前坡例0。01）.0013→I：（后坡例-0。034）-.0009→A：（竖曲线半径）18000→E：（（起点高程）63..352→K：（起点桩号）96579.931→C：止点桩号96620.069→D：Return:Ifend

直线段不需要输入半径,直线段的前后坡度I等于A,输入本坡值

公路反算程序GL-FS
Do:U=1=>Porg”HUO-DA-XIAN”:

U=2=>Porg”X2”

（P-R）/（2HPR）→D：

L-O→O: OD→D:

1/P→C：
Porg”GL-ZS”:                            //进入公路正算4节点程序
T-X→I:S-Y→J:                          //试算点与测点X，Y距离差
Pol(I,J):J-Q→J:                               //方位角转换为接近试算点到测点的值：
Rec(I,J):                                     //计算出X差和Y差（X里程，J边）
L+I→L：                                 //修改后的里程
Abs(I) →I:                               //修改值的绝对值
LpWhile I＞0.001:                            //小于一毫米通过，大于一毫米循环计算

坐标正算程序GL-ZS
.1739274226→I:.3260725774→J:
.0694318442→K:.3300094782→E :                 //四节点法计算系数录入
1-E→F：1-K→M：
Q+KrO(C+KD) →K:                    //数据库要用X、Y、Q作为起点坐标方位角
Q+ErO(C+ED) →E:                //r是弧度,输入方法FUNCTION 选5
Q+FrO(C+FD) →F:
Q+MrO(C+MD) →M:
X+O(ICos(K)+JCos(E)+JCos(F)+ICos(M)) →X:   //计算出X坐标
Y+O(ISin(K)+JSin(E)+JSin(F)+ISin(M)) →Y:      //计算出Y坐标
Q+Or(C+D) →Q：                            //计算出算点方位角,O是字母,r是弧度:

（数据库）活大线HUO-DA-XIAN
线路起点里程→A：线路终点里程→B：
If L≤96560.28第一线元止点里程：Then 起点X坐标3078.7→X：起点Y坐标4410.649→Y：
起点半径（左-，右+）-10^45→P：止点半径（左-，右+）-151.5→R：本线元长度50→H：
线元起点桩号96510.28→O：起点方位角309d46’9.09”m→Q：Return:IfEnd:
If L≤96580.2第一线元止点里程：Then 起点X坐标3108.487→X：起点Y坐标4370.567→Y：
起点半径（左-，右+）-151.5→P：止点半径（左-，右+）-151.5→R：本线元长度69.92→H：
线元起点桩号96560.28→O：起点方位角300d18’54.36”m→Q：Return:IfEnd:

If L≤96630.2第一线元止点里程：Then 起点X坐标3117.384→X：起点Y坐标4352.76→Y：
起点半径（左-，右+）-151.1→P：止点半径（左-，右+）-10^45→R：本线元长度50→H：
线元起点桩号96580.2→O：起点方位角292d46’53.61”m→Q：Return:IfEnd:

If L≤第二线元止点里程：。。。。。。Return:

平曲线：JDX；3117.5478，JDY；4363.971，交点桩号：96571.01，偏角-26d26’24.02”,r=151.5,LH=50,T=60.728,L=119.912

上一交点：DX；3044.3539，JDY；4451.9174，交点桩号：96457.43，偏角-20d11’48.53”,r=206,LH=35,T=54.228,L=107.615

纵曲线;R=10000,T=23.333,E=0.027,I=-.0033,A=.0013.KJD=96540

下一纵曲线；;R=18000,T=20.069，E=0.011,I=.0013,A=-.0009.KJD=96600

精简5800三维程序相关推荐

精简5800三维程序]
精简5800三维程序正反算选择程序:ZS-FS Deg: "1LZ＝>XY,2XY＝>LZ"?U: //正反算选择,正算选1, ...
Win11预装软件怎么卸载？Win11如何精简预装应用程序
有很多朋友已经学会了使用U盘启动盘进入PE系统里操作重装系统,大家也越来越有自己的想法,不希望Win11电脑里安装那么多没有用的软件,很多Win11预装的应用程序其实可以删除卸载掉,不影响系统的使用. ...
三维程序/游戏制作基本常识
flash3d初学者都是从flash或平面绘制转型的,对三维方面的常识的确理解甚少,即使是天天玩三维游戏的人.虽然这些信息对一些三维经验丰富的朋友是简单的不能再简单的东西,但写这一篇对某一些新上手的朋 ...
世界编程大赛冠军用汇编语言所写的三维程序
世界编程大赛冠军用汇编语言所写的程序这个程序是97年Mekka '97 4K Intro比赛的一等奖作品,汇编语言所写.整个程序全长4095字节,其中包含133字节的自解压程序(类RAR压缩 ...
彩虹云任务极致精简版--PHPcron程序
简介: 核心代码取自彩虹云任务阉割版,并经过极致阉割.二开,只留下简单核心,取名PHPcron,代码压缩包仅2~3kb,解压后也就两个文件,总共20kb,数据库改用纯sqlite,也有mysql版懒得 ...
西门子PORTAL精简屏下载程序后很多参数无数据，显示####
公司有几台型号相同的热压机,当时厂家给我的备份程序里,PLC的备份程序和设备目前使用的是一致的,但是HMI没有全部及时更新,只有一台是最新的. 现在设备已经使用了两年多了,领导要求优化程序以适应生产需 ...
python 3d游戏记录路径_基于osg的python三维程序开发（五）------沿路径运动
在上一节中, 我们演示了如何更新节点的状态, 这是动画的基本的技巧. 这一小节里,我们看一个稍微复杂一点的例子------让物体沿着固定的路径运动. 在osg 中,使得物体沿着固定路径运动, 会用到几 ...
5800计算器公路三维全能程序
5800计算器公路三维全能程序.(丢掉图纸轻松测量)说明清晰! 各位,我的9860程序记忆编写完毕,跟这个程序功能差不多,但是更好用,加入了隧道计算功能,能计算超欠挖,渐变隧道,不限制圆心数目,程序 ...
精简系统绝对不可删除的应用程序
本文将给大家介绍精简系统绝对不可删除的应用程序,希望大家在删除应用的时候不要删错了. Andoird有很多需要精简的应用程序,因为日常需要无必要,精简可以更省电,更流畅,而且可以腾出更多的可用空间,这 ...

精简5800三维程序

精简5800三维程序相关推荐

最新文章

热门文章