5800计算器公路三维全能程序.(丢掉图纸轻松测量)说明清晰!

各位,我的9860程序记忆编写完毕,跟这个程序功能差不多,但是更好用,加入了隧道

计算功能,能计算超欠挖,渐变隧道,不限制圆心数目程序说明书在

正在上传…重新上传取消http://u.115.com/file/t09b50dfe6
下载,有兴趣的朋友可以找我
本程序比较复杂.测量原理不是很明白的朋友慎用
请大家经常关注程序B-H的更新
2009,5,10日修改见超高子程序B-H黄色部分,另超高数据库增加在超高缓和段输入超高为

公路外侧超高说明
2009,5,8日正反算选择程序:ZS-FS 更改小错,详见紫色修改内容
2009,4,30日更改如下:把原来的4个子程序分解成5个子程序,解决了一个大的竖曲线不

能包含几个超高变化段,另外程序内也有两处改变请看红色区域.
本程序经过综合考虑5800的设计缺陷,计算速度较慢故只使用高斯四节点法为计算内

核.支持多条线路正反算,中桩,边桩高程计算,超高计算,超高缓和计算,加宽计算,加宽缓和计

算,边坡开口线计算,挡土墙坡脚线计算,考虑了中间绿化带的影响,适用与国家高速公路至

乡村四级公路计算和放样,路基路面工程可以直接得出中边桩的设计三维坐标,去掉加宽

和超高影响的计算困难,边坡和坡脚线计算可直接在边坡上提取坐标带入程序,

,得出更改边距并显示修改偏差后的坐标.反算速度明显提高,只需要3秒.程序无错,可放

心输入,另本程序可以增加隧道超欠挖计算子程序,非常方便,因为每个隧道的断面数据不

一样,所以在此没有明确写出,有需要的可以联系我.本人QQ76805071,只为交友.
计算器主程序:ZHU-CHENG-XU
Lbi0:“1,ZS=FS,2ZS,3FS,4XY=>SG,5。。。。。。。”?U:
U=1=>Prog”ZS-FS”:  进入公路三维程序
U=2=>Porg”ZS”:    进入坐标正算程序
U=3=>Porg”FS”:    进入坐标反算程序
U=4=>Porg”XY =>SG”:   进入大地坐标转施工坐标程序
…………Goto0:
 
说明:计算器总的主程序,进入选择各种分支计算程序。1为公路三维计算,2为普通正算,

3为普通反算,4为大地坐标转施工坐标。。。。。。。。选择错误重新选择。此程序可

以不用输入,只为给大家一个思路,可以把计算器所有程序集中到一个主程序内管理.

公路三维部分

正反算选择程序:ZS-FS
Deg:              //设置角度模式
20→DimZ:                    //扩展变量            
“1LZ=>XY,2XY=>LZ,3BIANPO-FY”?U: //正反算选择,正算选1,反算选2,坡口

坡脚选3
If U=1: ThenProg”ZS-XH”:IfEnd:             //进入正算循环主程序
IfU=2:Then Prog”FS-XH”:IfEnd:              //进入反算循环主程序
IfU=3:ThenProg”BP-FY”:IfEnd:         //进入边坡开挖主程序
正算循环主体程序ZS-XH
“1PT-2SJ”?W:                         //普通计算和设计边距计算选择
“XL-XZ“?U:                           //选择线路   1~N
If W=1: Then                               //运行普通计算模式 边踞自由输入
Lbi0:”L=”?L:”Z=”?Z:                  //输入桩号和边距
Porg”ZS-XH-1“:Goto0:IfEnd:             //运行正算循环子程序
If W=2:Then                               //运行设计计算模式 边距按设计输入
Lbi1:”L=”? L:                            //输入桩号
Porg”0。5LUKUAN”:               //录入公路加宽后,左右侧设计边距
Porg”ZS-XH-1“:Goto0:IfEnd:    //运行正算循环子程序

正算循环子程序ZS-XH-1
Prog”PM-XL-XZ”:                      //进入平面线路选择程序对线路线元进行选择
Prog”CHAOXIAN-CL”:                    //里程超限处理
Prog”GL-ZS”:                          //进入坐标正算程序
Prog”GL-BZ-ZS”:                        //进入公路边桩正算程序
Prog”GC-XL-XZ”:                      //进入高程线路选择程序对线路线元进行选择
Prog”GC”:                             //进入高程部分提取中桩高程
Prog"CG-XL-XZ":                         //进入超高数据库提取超高数据
If W=1:ThenProg”B-H”:             //普通计算时进入边桩高程部分提取边桩高程
ElseZ[3] →Z: Porg“B-H”://按设计计算时候代入减去半边绿化带后的路基边距,提取边

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

反算循环主体程序FS-XH
0→Z:“XL-XZ”?U:                         //选择线路    1~N
Lbi0:
“L”?L:“X=”?T:“Y=”?S:            //输入起算假定桩号,实测X Y
Prog”GL-FS”:                                /进入公路反算程序
Prog”FS-XS”:                                //进入反算显示程序
Goto0:
坐标正算程序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是弧度:
边桩坐标计算程序GL-BZ-ZS:
"XJ"?→A:X+Zcos(Q+A) →G:                              //计算出边桩X坐标
Y+ZSin(Q+A) →M:                              //计算出边桩Y坐标

公路反算程序GL-FS
Do:Porg”PM-XL-XZ”:                         //进入平面线路选择程序
Porg”CHAOXIAN-CL”:                       //里程超限处理程序
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:                            //小于一毫米通过,大于一毫米循环计算

中桩高程计算程序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:

边桩高程计算程序B-H
(L-C)/(D-C)→P:                            //计算点占本线元长比例
3P^(2^(S))-2P^(3^(S)) →P:                        //计算得线性和高次抛物线系数
F+P(T-F)→E:                                //初步计算计算点横坡
If V=1:Then If N= -1:Then                          //直线和直缓,缓直,曲线左偏时
If Z<0:Then-E→E:
IfE>Z[4]:ThenZ[4]→E: IfEnd :                //计算左侧时,横坡大于一般横坡取一般横坡
I+Abs(Z)E→O: IfEnd :                                 //左侧高程
IfZ>0:Then I+ZF→O:IfEnd: Ifend:                                //右侧高程得数
If N=1:Then IfZ<0:Then I+Abs(Z)E→O:IfEnd:      //曲线右偏时,左侧高程得得
IfZ>0:Then-E→E:If E>Z[4]:Then Z[4]→E:IfEnd    //右侧高程横坡大于一般横坡,取一

般横坡
I+ZE→O:IfEnd: IfEnd: IfEnd:                       //右侧高程得数
IfV=2:ThenIf Z>0:Then I+ZE→O:IfEnd://圆曲线全超高和S曲线超高渐变部分右侧高程

得数
IfZ<0:ThenI-Abs(Z)E→O:IfEnd:IfEnd: // 圆曲线全超高和S曲线超高渐变部分左侧高程

得数

设计标准路面宽度子程序  CHANG-SHU
12→Z[1]:                         //录入12米为路面半宽度,根据设计修改
1.5→Z[2]:                        //录入1.5米为绿化带半宽,根据设计修改,无绿化带输入0
-0.02 →Z[4]:                      //录入-0。02为公路一般横坡,根据设计修改
//           注:在以中轴线旋转的超高不考虑绿化带影响的,在常数程序中,绿化带修改为

0
路面宽度子程序  0。5LUKUAN
”Z-1,Y+1”?V:        //左右边桩选择
Porg”CHANG-SHU”:              //设置标准路面半宽
If V=1:Then Porg”GL-JK”:  //右侧时,进入加宽子程序
Z[1]+Z→Z:           //计算右册正确公路半宽,
Z-Z[2] →Z[3]:IfEnd://计算右侧减去半边绿化带时计算边桩高程时用的边距
IfV=-1: Then Porg”GL-JK”:  //左侧时,进入加宽子程序
-Z[1]-Z→Z:          //计算左册正确公路半宽
Z+Z[2] → Z[3]:IfEnd:  //计算左侧减去半边绿化带时计算边桩高程时用的边距            
公路加宽子程序GL-JK
前点加宽里程A,加宽止点里程B,“加宽缓和段全长C,止点加宽宽度D
本加宽程序欠缺S缓和曲线加宽程序,因为没有遇到过,所以暂时空缺
Porg“JK-XL-XZ”:               //进入加宽数据库线路选择程序
If D=1:Then(4((L-A)/(B-A))^3-3*((L-A)/(B-A))^4)*C→Z:IfEnd:
// 从小到大加宽
If D=2:Then (4(((B-A)-(L-A))/(B-A))^3-3*(((B-A)-(L-A))/(B-A))^4)*C→Z:IfEnd:
//从大到小加宽,以上两式为参考公式,可根据图纸更改公式
IfD=3:ThenZ=Z:IfEnd:                 //圆曲线加宽直一样时
IfZ≠0:then”JK=”:Z◢:IfEnd:        //存在加宽值时显示加宽值

正算显示ZS-XS
“FWJ”:Q◢                                    //显示计算里程方位角
“ZHONG-X”:X◢                                //显示中线X坐标
“ZHONG-Y”: Y◢                               //显示中线Y坐标
“ZHONG-GC”:I◢                               //显示中桩高程
“B-X”:G◢                                     //显示边桩X坐标
“B-Y”: M◢                                  //显示边桩Y坐标
“B-GC”:O◢                                   //显示边桩高程

反算显示FS-XS
“L”:L◢                                      //显示计算里程        
“Z”:J◢                                       //显示计算边距

里程超限CHAOXIAN-CL
If L<A:Then “L-<<<”;Stop:IfEnd:        //小于本路线最小里程提示,退出程序
If L>B: Then”L+>>>”:Stop:IfEnd:            //大于本路线最大里程提示,退出程序

边坡放样程序BP-FY
“XL-XZ“?U:              //线路选择
”S-L”?L:”X=”?T:”Y=”?S:  //输入试算桩号和测点X,Y.
T→Z[10]:S→Z[11]:
Porg”PM-XL-XZ”:           //对平面线路进行选择
Porg”GL-FS“:               //进入反算程序,反算测点里程偏距。              
If J>0:Then”-----YOU----“◢       //显示计算边坡为公路右侧
Else”-----ZUO----“◢Ifend:     //显示计算边坡为公路左侧
Porg”0.5lukuan”:              //进入设计边距程序
Porg”GC-XL-XZ”:              //高程线路选择
Porg”GC”:                    //对中桩高程进行计算
Porg"CG-XL-XZ"                 //进入超高数据库提取超高数据
Z[3] →Z:                    //录入减去半个隔离带加上加宽值后的边距
Porg”B-H”:                   //计算该里程边桩高程
Abs(Z)+Z[2] →Z:                //录入设计绿化带
Z[10]→X:Z[11]→Y: //坐标变量转换,抛弃中线点XY坐标,以第一测点XY为后步

起算数据
Porg”BP-XL-XZ”:              //进入边坡数据库,提取要素.
“1,2,3,4-BP”?T :    //选择所计算的边坡坡段
Porg”BP-FY-1”:             //进入边坡计算子程序1程序
边坡计算子程序1  BP–FY-1
O+CB+EF→A:   //计算出边坡底线高程
Abs(Z)+B+D+E→W:    //计算中线点距离边坡底线距离  
Abs(J)-W→D :              //试测点到起坡点平距
VH→C:             //马道高差
0→B:                //设置边坡底线平距为0
If T=1:              //计算第一段边坡
Then Porg”BP-FY-2”:IfEnd:         //进入计算子程序2
A+G+C→A:         //第二段边坡底线高程
H+GK→B:          //第二段边坡底距离第一段起线平距
IfT=2:Then               //进入计算第二段边坡
M→G:N→K:        //第二段边坡数据变成子程序计算的第一边坡数据
Porg”BP-FY-2“:IfEnd:     //进入计算子程序2
A+M+C→A:       //第三段边坡底线高程
B+H+MN→B        //第三段边坡底距离第一段起线平距
IfT=3:Then               //进入计算第三段边坡
I→G:P→K:       //第三段边坡数据变成子程序计算的第一边坡数据
Porg”BP-FY-2”:IfEnd:     //进入计算子程序2
A+I+C→A:          //第四段边坡底线高程
B+H+IP→B:        //第四段边坡底距离第一段起线平距
IfT=4:Then               //进入计算第四段边坡
R→G:S→K:        //第四段边坡数据变成子程序计算的第一边坡数据
Porg”BP-FY-2”:IfEnd:     //进入计算子程序2

边坡计算子程序3  BP-FY-3
If G<0:Then Return:IfEnd:
IfN<A:           //如果测点高程小于该层边坡底线高程
Then“++++,SHANG-TIAO”:A-N◢ //显示坡度错误,不在本坡段,上几米再次测量或

计算低层边坡
Porg"BP-FY":IfEnd:      //返回程序重新找点
If N>(A+G):        //如果测点高程大于该段边坡定部高程
Then”----,XIATIAO”: N-A-G◢//显示高程错误,不在本坡段,应在上面坡段,应忘上

调整
Porg: BP-FY”: IfEnd:   //返回主程序

边坡计算子程序2 BP-FY-2  
“GC=”?N:                   //输入测点高程

Porg”BP-FY-3”:                  //判断测点是否低于该坡段最低高程
Abs(N-A)*K+B-D→E :           //计算出正确偏差
If Abs(E)≤0.05:Then                //如果测点误差5厘米以内表示成功
”CHENG-GONG,WUCHA=”:E◢    //成功后,显示测点误差
Prog”BP-FY”:IfEnd:           //返回主程序测下个断面
IfJ>0:ThenE→Z:               //右侧录入误差
Else -E →Z: Z→Z[10]:           //左侧录入误差
IfEnd:                                
Porg”GL-BZ-ZS”:               //计算下一点坐标
“X=”:G◢“Y”:M◢           //显示下一点坐标,进行放样
G→X:M→Y:                //录入XY坐标,进行下次计算
“GC=”N:                     //输入测点高程    
Abs(N-A)*K+B-(D+E)→C:             //计算出正确偏差
If Abs(C)≤0.05:Then                //如果测点误差5厘米以内表示成功
”CHENG-GONG,WUCHA=”:C◢    //成功后,显示测点误差
Prog”BP-FY”:IfEnd:           //返回主程序测下个断面
CE/(E-C) →F:                  //由上次两点误差推算第三点
IfJ>0:ThenF→Z: //右侧录入误差
Else -F→Z: IfEnd:               // 左侧录入误差                  
Porg”GL-BZ-ZS”:               //进行下一点坐标计算
“X=”:G◢“Y=”:M◢           //显示下一点坐标,进行放样
G→T:M→S:                //录入XY坐标,进行下次计算
“NONO” :        //本循环未计算出正确点
Porg”BP-FY”:       //,使用计算出的坐标,进入下个循环,程序自动把此坐标带入下个

循环
备注:如果有更多的坡级,大家可以使用增加变量.完全满足大家边坡放样需求
数据库部分
1平曲线数据库

平面线路选择程序PM-XL-XZ
U=1=>Prog”HUO-DA-XIAN”:                     //进入假定线路活大线。
U=2=>Prog”X2”:                             //进入路线2
U=3=>prog”X3”:                              //进入路线3
(P-R)/(2HPR)→D:
L-OO:                                    //正算程序需要补充部分
OD→D:                                      
1/P→C:                                    
(数据库)活大线HUO-DA-XIAN                    
线路起点里程→A:线路终点里程→B:
If L≤第一线元止点里程:Then 起点X坐标→X:起点Y坐标→Y:
起点半径(左-,右+)→P:止点半径(左-,右+)→R:本线元长度→H:
线元起点桩号→O:起点方位角→Q:Return:IfEnd:
If L≤第二线元止点里程:。。。 。。。Return:
  。。。  。。。

二号线路X2

三号线路X3

2,高程数据库部分

说明:输入部分:L为计算里程,C为起点里程,,I为纵向前坡坡度,A为纵向后坡坡度

,E为半径, K为起点高程,
高程线路选择程序GC-XL-XZ        
U=1=>Prog”GC1”:                           //进入线路高程1
U=2=>Prog”GC2”:                            //进入线路高程2
U=3=>Prog”GC3”:                            /进入线路高程3

一号线路高程GC1
If L≤该段止点里程:Then(前坡  例0。01)→I:(后坡  例-0。034)→A:(竖曲线半径

)→E:((起点高程)→K:(起点桩号)→C:止点桩号→D:Return:Ifend;
… …

直线段不需要输入半径,直线段的前后坡度I等于E,输入本坡值,
二号线路高程GC2

三号线路高程GC3

3超高数据库
IfU=1:ThenPorg”CG1”:IfEnd:                   //进入线路1
IfU=2;ThenPorg”CG2”:IfEnd:                   //进入线路2
IfU=3:ThenProg”CG3”:IfEnd:                   //进入线路3
超高线路选者程序CG-XL-XZ
N为曲线左右偏区别符号(左-1,右+1),F为起点横坡,T为止点横坡,S为线性渐变和

高次渐变的判断要素,取0为线性,取1为高次。V为一般段超高缓和段与全超高和卵

型插入缓和段判断要素。直线一般超高缓和段输入1,全超高和S超高缓和段输入2,显

示部分:重要约定,在超高缓和段输入超高为公路外侧超高,在全超高平曲线和卵型曲线

插入缓和段中,前横坡F和后横坡T都输入右侧横坡。

超高数据库1 CG1
-0.02→F:-0.02→T:        //录入直线部分一般超高,数据根据设计调整
0→S:1→V:           //录入直线部分计算性质,数据根据设计调整
1→N:      //1→N:数据不调整,输入以上几段后,直线超高不变段可

不再输入数据.
                 
If L≥该段起点里程 And L≤该段止点里程:Then(不超高和超高缓和段输入1,单圆曲

线全超高和S超高缓和段输入2) →V:(平曲线左右偏区别符号,超高缓和段才输入 

左-1,右+1)→N:(超高方式选择,0为线性,取1为高次)→S:(起点横坡 例

-0。02,根据设计值更改)→F:(止点横坡例+0.03,根据设计值更改)→T:

起点桩号→C:止点桩号→D:Return:Ifend;
... ...

超高数据库2  CG2

超高数据库3  CG3

4,加宽数据库

加宽线路选择程序 JK-XL-XZ
IfU=1:ThenPorg”JK1”:IfEnd:                   //进入线路1
IfU=2;ThenPorg”JK2”:IfEnd:                   //进入线路2
IfU=3:ThenProg”JK3”:IfEnd:                   //进入线路3
:…….

加宽数据库 JK1
A为加宽前里程,B为加宽止点里程,C最大加宽点加宽宽度,D加宽趋势(从前往后输入

1从后往前输入2 ,全加宽输入3)  Z全加宽宽度(注明,不加宽部分不需要录入数据库,加宽

缓和段不输入Z,全加宽不输入C)
1号线路JK1
0→Z:                          //录入不加宽部分加宽值为0,此句必须输
IfV=(公路左侧-1,公路右侧+1): Then L≥此段起点 And L≤此段终点:Then 加宽前里程→

A

:加宽段止点里程→B:最大加宽点加宽宽度→C:加宽趋势(由小到大1,由大到小2)→D:IfEnd:            //此段为加宽缓和段的格式
IfV=(公路左侧-1,公路右侧+1): Then L≥此段起点 And L≤此段终点:Then 加宽前里程→

A:加宽段止点里程→B:最大加宽点加宽宽度→C:加宽趋势3→D:加宽宽度→ZIfEnd:

//此段为全加宽段的格式

2号线路JK2

3号线路JK3

。。。 。。。

5,边坡数据库

边坡线路选择程序 BP-XL-XZ
IfU=1ThenPorg"BP1":IfEnd:                     //进入线路1
IfU=2ThenPorg"BP2":IfEnd:                     //进入线路2
IfU=3ThenProg"BP3":IfEnd:                     //进入线路3
.........

路肩宽度B 路肩坡度C 边沟宽度D、平台宽度E 平台坡度F  马道宽H 马道坡度 V

(马道坡度向边坡侧仰为-,向公路侧仰为正)1级边坡高度G1级别边坡坡度K  2级边坡

高度M  2级边坡坡度N  3级边坡高度I  3级边坡坡度P  4级边坡高度R  4级边坡坡度 S

边坡数据库1 BP1
If J≥(或≤区分路基左右)0:Then If  L(里程)<终点桩号 And L>起点桩号:Then
"1~N":                 //录入本线元边坡级数,在使用时候可以看到本段边坡级数,而选择计算

边坡层
路肩宽度→B:路肩坡度→C:边沟宽度→D:平台宽度→E:平台坡度→F:马道宽度→H:
马道坡度→V:1级边坡高度→G:1级别边坡坡度→K : 2级边坡高度→M:  2级边坡坡

度→N : 3级边坡高度I:  3级边坡坡度P:  4级边坡高度R:  4级边坡坡度:Return:

IfEnd:IfEnd:  //约定:所有边坡度正负符号向中线内侧倾斜为+,向外侧倾斜为-。有几层边

坡就录入多少边坡数据,只有一层边坡时可不录入马道高宽数据

边坡数据库2 BP2

边坡数据库3 BP3

使用说明:

进入常数子程序更改设计常数
根据数据库说明编写数据库
一,坐标正算方法

普通计算
1,进入主程序ZHU-CHENG-XU
2,选择使用程序,根据大家录入的代码,本程序,选择1
3,选择坐标1,正算,2,反算,3边坡放样,选择1
4,1为普通计算或者2设计计算 选者1,选者1
5,线路选择 1~N,根据计算路线编号进行选者
6,输入计算里程
7,输入计算边距,左-,右正
8,显示计算点方位角,显示计算点中桩XY,显示中桩高程,显示边桩XY,显示边桩高

设计计算
1,进入主程序ZHU-CHENG-XU
2,选择使用程序,根据大家录入的代码,本程序,选择1
3,选择坐标1,正算,2,反算,3边坡放样,选择1
4,1为普通计算或者2设计计算 选者1,选者2
5,线路选择 1~N,根据计算路线编号进行选者
6,输入计算里程
7,输入计算左边桩或者右边桩  左侧输入-1,右侧输入+1
8,显示计算点方位角,显示计算点中桩XY,显示中桩高程,显示边桩XY,显示边桩高

二,坐标反算方法

1,进入主程序ZHU-CHENG-XU
2,选择使用程序,根据大家录入的代码,本程序,选择1
3,选择坐标1,正算,2,反算,3边坡放样,选择2
4,线路选择 1~N,根据计算路线编号进行选者
5,输入试算点里程L  可输入任意里程,数据库有数据就好,离真实坐标越近越快
6,输入测点X,Y
7,显示测点里程和边距

三,边坡开口放样与坡脚放样
1,进入主程序ZHU-CHENG-XU
2,选择使用程序,根据大家录入的代码,本程序,选择1
3,选择坐标1,正算,2,反算,3边坡放样,选择3
4,输入试算点里程
5,输入山坡上第一测点X,Y,Z
6,显示本边坡级数,选者计算坡级,如测点高程不在本坡级,程序会提示上多少米或者

下多少米重新找点测量。
6,如测点平距误差小于设定值5cm,显示成功语句并自动转换到下个断面从第4步开始,

如误差过大自动计算修改值,显示下一点坐标,
7,输入第二测点高程
8,如测点平距误差小于设定值5cm,显示成功语句并自动转换到下个断面从第4步开始,

如误差过大自动计算修改值,显示下一点坐标,
8,输入第三测点高程
9,如测点平距误差小于设定值5cm,显示成功语句并自动转换到下个断面从第4步开始,

如误差过大自动计算修改值,显示下一点坐标,
10如果以上三点均未找到边坡开口线,程序显示下一点坐标,并显示NONO,并返回第4

部,试算点坐标和XY部分不需要修改,只需要如实输入第四测点高程,再次开始循环计

算。

谢谢发贴:+387 分 【测量空间】celiang.net[0

查看楼主其它文章  <<返回

→ 回复内容      只查看楼主与本人回复

沙发:'罗...

09-4-21 11:49

顶....幸苦了

2 楼:'执着

09-4-21 11:50

编的不错,值得研究

3 楼:'就是

09-4-21 12:7

看看

4 楼:'一直在路上

09-4-21 12:14

这个文件名中的=号怎么输入??

5 楼:'随风

09-4-21 12:19

谢谢楼主共享

6 楼:zhuyi98 楼主

09-4-21 12:23

文件名的=已经改为-,书写错误,谢谢指正

7 楼:'小小徐

09-4-21 12:24

评:+8 分

这么长呀,哎呀///要输到计算器都不知道要输到何时呀,有没有可以简短一点的呀,直接可以计算中桩及边桩的程序呀。

有发一份给我一下。邮箱:281350135@qq.com
发到邮箱xxz.888@163.com也行,谢谢了

8 楼:zhuyi98 楼主

09-4-21 12:26

编写此程序目的是为了录入数据库以后可以丢掉图纸,所以必须保证程序的完整性!

9 楼:'花满楼

09-4-21 14:34

评:+10 分

确实有点长。

10 楼:zhuyi98 楼主

09-4-21 14:49

不长能算这么全吗?呵呵!~~只要录入计算器,以后就什么都简单了

11 楼:zhuyi98 楼主

09-4-21 15:42

估计我的正反算程序比别人的正反算多一些,目的减少计算时间!很多人用的5800反算速度大于10秒,这个程序只要3秒,

采用信天翁李工的思路,向李工致敬

12 楼:'学习

09-4-21 16:35

我还是想搞交点法的程序,输入的数据要少的多呀
线元法计算精确,算匝道可以,如果进行长线路计算,还是交点法要好点啊
像楼主表示衷心感谢!!!

13 楼:zhuyi98 楼主

09-4-21 17:6

各有所好!

14 楼:'中铁大桥局测绘公司

09-4-21 18:23

应该这么说,对于复杂的线型来说,线元法是有优势的,可以说是万能,当然,录入的数据多,占的内存大,是一大局限性,这点与

交点法程序不可比拟.交点法程序对于基本线型的计算来说,当然有先天的优越性.不过.对于不等缓和曲线,及非完整缓和曲线,

甚至是双交点,有两个半径R1和R2,以及线型中产生L1,L2,L3的不同长度缓曲的复曲线来说,目前为止还没有很好的解决办法.

当然,对于用交点法计算非完整缓和曲线还是有方法的.需在主程序 中录入一个虚拟补足缓和曲线长度的子程序,这个问题也

就解决了.
楼主的程序很全面,但个人认为还可以继续优化.愿共同进步!!!!!!!!!谢谢.

15 楼:zhuyi98 楼主

09-4-21 19:28

谢谢!~所有的程序都可以优化,我这个当然也可以优化,不过个人认为我这个的空间已经不大了

16 楼:木头人

09-4-21 20:2

给楼主顶一下

17 楼:zhangyumin

09-4-21 20:42

顶上

18 楼:'中铁大桥局测绘公司

09-4-21 20:49

请问楼主的QQ号或EAIL是多少.

19 楼:'373071043

09-4-21 20:50

评:+10 分

顶上

20 楼:'广东粤西市政

09-4-21 21:33

很好的程序

21 楼:chenyue

09-4-21 21:52

楼主,我只有个4850,以上程序有没有4850适用的,劳驾发一件给我,67718369@qq.com

22 楼:zhuyi98 楼主

09-4-21 22:44

QQ号说明部分有,再写次76805071,没用过4850

23 楼:'新手

09-4-22 9:22

楼主:可否将程序改成9860???

24 楼:zhuyi98 楼主

09-4-22 10:56

没用过9860,不好意思

25 楼:'262720525

09-4-22 14:12

评:+8 分

辛苦了,顶

26 楼:mgysqf

09-4-22 22:48

评:+10 分

27 楼:'一江春水

09-4-23 11:31

评:+10 分

有人用过有用吗,

28 楼:zhuyi98 楼主

09-4-23 12:37

我现在已经在实际运用这个程序了!谢谢大家的奖分!

29 楼:'20

09-4-23 16:0

能不能弄个全是程序的,别弄那么多文字啊。都不知道那些是要输入,那些不需要输入的。

30 楼:zhuyi98 楼主

09-4-23 18:11

说明很详细,只要懂计算器的都明白

31 楼:'高兴

09-4-23 22:50

好东西!!

32 楼:zhuyi98 楼主

09-4-23 23:14

既然是好东西,你为什么不给我加分??

对了,提醒大家,每个工程的加宽公式都可能不一样,算出来也许不是一样的,请大家不要盲目用我的程序,加宽公式不一样时,请大家修改

33 楼:zhuyi98 楼主

09-4-24 11:43

程序已经完全检查了一次,修改了几个输入错误,大家放心输入,有问题,随时和我QQ取得联系

34 楼:'你好

09-4-24 12:33

请教:
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:  
KrO  ErO  FrO  MrO 怎么输啊??
还有K: //数据的  冒号还用输吗

35 楼:zhuyi98 楼主

09-4-24 13:59

比如KrO,K和O是字母,r是弧度制符号,输入方法上面已经给出  //这个符号是我用来区分说明和程序的间隔符号不输入

,别的要输入

36 楼:'一直在路上

09-4-24 17:20

支持楼主一下,辛苦啦

37 楼:zhuyi98 楼主

09-4-24 18:21

准备写个万能隧道超欠挖程序,还没思路................

39 楼:赵济汉

09-4-24 20:7

评:+10 分

好全面的程序,顶

40 楼:zxm2175

09-4-24 20:9

评:+6 分

写的不错,我好好借鉴

41 楼:'测量人

09-4-24 21:53

评:+10 分

这程序的出世,真是测量人员的福音!

42 楼:zhuyi98 楼主

09-4-24 22:41

测量人员的福音,我看倒不见得,估计多帮CASIO公司多销售了几台垃圾倒是真的,呵呵!

43 楼:谷之壳

09-4-24 23:9

42楼:zhuyi98
说得好~~哈哈

44 楼:'山西

09-4-24 23:37

好端端的测量人,都被卡西欧收买啦,哈哈

45 楼:'浪子测量人

09-4-25 12:45

评:+10 分

辛苦了楼主,这样好的程序发在网上能与我们测量人人员共同分想,我觉得总体这个程序还可以,同时我觉得正算时

只能计算正交边距的坐标,反算我觉得还是有点杂,能否简化一下,提个建议可否只要输入左右线、实测的坐标值,就可得里程和边距。
  谢谢楼主可否发一份关于隧道测量的程序给我,我的邮箱是 (yu2006.1208@163.com)

46 楼:zhuyi98 楼主

09-4-25 13:44

正交斜交很好解决,谢谢你的意见,已经有朋友给我说了,我会马上修改成计算斜距,但是反算部分不能改了,因为我这个反算

之所以搞这么复杂,是为了弥补5800计算器的设计缺陷,它的计算速率很慢,只能先粗算有精算.来保证计算速率.程序分为普通计

算和设计计算两个计算方式,进入设计计算,输入-1或者+1就可以得到真实的左右侧设计坐标和高程(其中里面包含了加宽和超高),

至于你说的输入XY就得到实际里程和边距,这个是程序的反算基础部分,没有问题
希望大家踊跃提出意见!我过段时间有精力了就增加一个交点法,和万能隧道超欠挖程序.

47 楼:zhuyi98 楼主

09-4-25 13:56

等大家熟悉这个程序以后,我回陆续增加一些功能,比如在反算计算当中,可以计算该点的设计高程,从而计算出该点的超

欠挖.一步一步来,最后搞出的程序希望能在所有工程任意点反算计算后得出该点的真实超欠挖

48 楼:'小陈

09-4-25 14:23

评:+10 分

这程序还可以!在楼主的指导下!都能正常运行了!随然程序长了点!好用就行!测量本来就是辛苦的工作

49 楼:'兵哥

09-4-25 16:0

评:+10 分

确实很辛苦 这段时间没有白费 成了这么大的成果 我很欣慰 也很高兴 祝贺你!

50 楼:cjk0830

09-4-25 17:1

谢谢楼主,辛苦了!我试试看!

51 楼:'yong

09-4-26 17:49

评:+10 分

谢谢楼主

52 楼:'freedrom

09-4-26 18:43

能发一份给我吗?

53 楼:zhuyi98 楼主

09-4-27 13:39

程序是完整的,自己复制就可以了,不过要随时注意程序的更新,在录入数据库后,要试算和设计图对比,小心输入错误.

谨慎操作

55 楼:'随便

09-4-27 17:55

评:+8 分

这个程序从说明上看是太好了,我也试试,先谢谢楼主了

56 楼:'赵学军

09-4-27 21:53

谢谢兄弟了,谢谢我们的朱兄弟!

57 楼:'南京测量

09-4-27 22:46

评:-10 分

谢谢朱怡兄弟的无私奉献!

58 楼:'南京测量

09-4-27 22:48

评:+10 分

咋的啦怎么是-10呀!

59 楼:'南京测量

09-4-27 22:50

评:+10 分

是谁在我10字前加个负号呀!颜色文字

60 楼:zhuyi98 楼主

09-4-28 15:20

南京测量
呵呵,谢谢大哥加分!!~

61 楼:'一江春水

09-4-28 18:4

评:+6 分

万分期待楼主把边坡放样程序完善好

62 楼:伯爵F

09-4-28 19:31

感谢楼主无私的奉献,我才学测量,想问下你,这个程序是否需要将图纸上的数据储存到计算器里面啊?

63 楼:伯爵F

09-4-28 19:33

评:+10 分

怎么给你加不上分啊?

64 楼:'一刀

09-4-28 21:6

楼主,我用这个程序,在反算时速度很慢,在增大了GL-FS中的V值后,速度变快了,请问V的详细含义,能随意更改吗?有变化范围吗?谢谢!

65 楼:'一刀

09-4-28 21:9

评:+10 分

谢谢楼主共享,幸苦了。

66 楼:'一刀

09-4-28 21:11

评:+10 分

谢谢楼主共享,幸苦了。

67 楼:'学徒

09-4-29 9:3

评:+10 分

感谢楼主,我才买了个5800,正愁不知道用。原有程序好像没你这个好,还没输过程序,先照你的输,看能不能成功!

感谢了

69 楼:zhuyi98 楼主

09-5-4 13:27

一江春水   边坡部分已经解决,程序已经完整     伯爵F  根据数据库说明录入所有数据   一刀  本程序采用信天翁李工反算

原理,为渐进反算,当差距很大时用2节点核心计算,差距缩小到一定值用4节点精算,4节点比2节点速度要慢很多.谢谢大家对

本程序的关注度

70 楼:zhuyi98 楼主

09-4-29 13:46

学徒  5800自带的程序我已经全部清除,只要你认真按照程序输入,是不会错的,如有问题即时和我取得联系

71 楼:zhuyi98 楼主

09-4-29 15:45

计算器使用说明已经录入,红色部分.请大家按说明使用!谢谢

73 楼:'艳梅

09-4-29 13:55

谢谢!期盼的出来了

74 楼:zhuyi98 楼主

09-4-29 14:39

因为本人马上出去干活,没时间整理斜交高程计算,这个有点复杂,有时间就整理,如果使用出错,绝对是输入有问题,

请仔细核查!

75 楼:zhuyi98 楼主

09-4-29 14:21

在深圳搞地铁的朋友联系我,谢谢,我准备去那

77 楼:'一江春水

09-4-29 18:59

评:+10 分

楼主真执着啊,精神可嘉,辛苦了!我一定要好好输入计算器,不枉楼主一片苦心,顶!

78 楼:'a

09-4-29 21:13

辛苦了

79 楼:'甜天

09-4-29 21:32

评:+10 分

狠好我顶

80 楼:'W

09-4-30 23:56

好感人!

81 楼:王玉泉

09-5-1 16:47

我看了,也不知道结果如何,不敢盲目采用,以后再说吧,程序太长,条理不清,没有层次。

82 楼:'笑看风云

09-5-2 11:39

评:+10 分

老同学祝贺你搞定了,奖励你10分!!!颜色文字

83 楼:lajibawang

09-5-2 19:11

评:+10 分

相当全面的计算程序了

85 楼:yuyanliang

09-5-3 13:44

我手机坏了加不了分,不好意思,辛苦了,

86 楼:'焦双禄

09-5-3 14:22

评:+8 分

楼主真执着啊,精神可嘉,辛苦了!我一定要好好输入计算器,不枉楼主一片苦心,顶!

87 楼:花无意

09-5-4 10:34

评:+10 分

我把楼主的程序坐标部分编写完成,能运算,但是就是正算不能算斜交,多少有点遗憾,不知道楼主能不能修改下

88 楼:zhuyi98 楼主

09-5-4 12:23

斜交很好解决,你们用习惯了,我会增加一些功能进去的

89 楼:zhuyi98 楼主

09-5-4 13:2

王玉泉
我看了,也不知道结果如何,不敢盲目采用,以后再说吧,程序太长,条理不清,没有层次。

你的那个"再次发表自己创建的4800计算器编程程序完美版"
沙发:'geergirl 09-4-28 22:9 回
其实俺说啊,你再改也出不了原作者的圈圈,呵呵呵!
2 楼:'celiangxiaozi 09-4-28 22:31 回  
其实俺说啊,你再改也出不了原作者的圈圈,呵呵呵!hehehehe
3 楼:zhuyi98 09-4-29 15:54 回 修 删  
其实俺说啊,你再改也出不了原作者的圈圈,呵呵呵!
4 楼:'AD 09-4-30 10:26 回  
源程序确实是个好程序,但是你也改不了什么还称是完美版?数据库都没有?

你这个程序基本上是复制的yshf的原稿,我对你的评价是合理的,不要因为说了真话就来我这捣乱.

90 楼:'yss

09-5-5 10:57

评:+2 分

坐标正算程序GL-ZS
.1739274226→I:.3260725774→J:
.0694318442→K:.3300094782→E :                 //四节点法计算系数录入
请问楼主四节点法计算系数录入这个数据是什么意思呀,没有搞懂哟,是0.1739274226→I:0.3260725774→J:
0.0694318442→K:0.3300094782→E 吗?这是一个固定系数吗

91 楼:zhuyi98 楼主

09-5-5 12:21

是的,高斯四节点系数

92 楼:过路人

09-5-5 17:19

看了看编得不错尤其欣赏反算段,5800计算器用积分公式在反算上缺陷很大,太慢了。边坡放样程序有些死板,当开口线在斜坡上时还是要不停得移动棱镜,不停得输标高计算边距啊。还不如手动计算边距。不过不拿图纸想躲懒还是可以用得。

93 楼:'路过

09-5-5 17:38

数据库里面的起点方位角,指的是线元的起点切线方位角吗?

94 楼:zhuyi98 楼主

09-5-5 18:21

过路人   反算部分,是用的信天翁李工的思路,感谢李工!边坡只能搞成这样了,只拿计算器不看图纸,嘿嘿.偷懒
路过     是的!

95 楼:'yss

09-5-5 22:6

顶楼主感谢楼主

96 楼:'宏利

09-5-5 23:46

评:+10 分

我给你顶起!!!我给你顶起

97 楼:'无敌、测量新手

09-5-6 2:20

评:+10 分

今天我在人家的空间里边已经把你这个程序给下下来了,但晚上看了你的这个程序确实有更新,谢谢,先顶一下!
但我觉得程序里边的O和0还是有点不好区分,虽然有的地方你把它加粗了,但个人认为还是会引起部分同行的误解!!!
再次感谢楼主!!!

98 楼:zhuyi98 楼主

09-5-6 11:9

无敌 测量新手  你把程序复制到Word 更改字体 Times New Roman ,O和0就好区分了

99 楼:梁燊

09-5-6 16:52

昨天晚上刚听到朋友说了这个网站。今天就来看了,没想到真的是来对了,刚买了个5800,感谢楼主的程序分享。

100 楼:'无敌、测量新手

09-5-6 21:29

评:+10 分

谢谢,我已经看到了!太多了,还没有录入完成。

101 楼:'学习中成长

09-5-7 2:18

评:+8 分

谢谢楼主的贡献!先学习下看

102 楼:45512606

09-5-7 15:56

楼主:我是刚毕业的学生,从事测量工作现在干的是桥梁,不知道这个程序是否可以使用,感觉好多呀不过很全面呀,我顶

。能给我发过来一份这样的程序呀,我的邮箱是zangyang.2004@163.com 谢谢了

103 楼:'余日仁

09-5-7 23:9

评:+10 分

请问 楼主                   Deg:    
这个语句怎么输入计算器

104 楼:'余日仁

09-5-7 23:13

评:+10 分

请问 楼主                   Deg:    
这个语句怎么输入计算器

105 楼:yuyanliang

09-5-7 23:29

谢谢楼主的奉献,世界上不管怎么说还是我好人多的,明天去网上下载回来慢慢研究,楼主让我感觉世界充满温馨,

手机坏了不能加分,见谅,有什么情况我在麻烦你吧,再次感谢,

106 楼:bb351508

09-5-8 10:18

楼主你好:请问一下程序段中的”BIANPO-XH”:在循环程序中未见,是否是BP-FY??谢谢,运行3时出错
正反算选择程序:ZS-FS
Deg:              //设置角度模式
20→DimZ:                    //扩展变量            
“1LZ=>XY,2XY=>LZ,3BIANPO-FY”?U: //正反算选择,正算选1,反算选2,坡口坡脚选3
If U=1: ThenProg”ZS-XH”:IfEnd:             //进入正算循环主程序
IfU=2:Then Prog”FS-XH”:IfEnd:              //进入反算循环主程序
IfU=3:ThenProg”BIANPO-XH”:IfEnd:         //进入边坡开挖主程序

108 楼:zhuyi98 楼主

09-5-8 12:24

bb351508   是的,书写错误,谢谢指正IfU=3:ThenProg”BIANPO-XH”:IfEnd:   更改为Porg"BP-FY":

109 楼:zhuyi98 楼主

09-5-8 12:27

余日仁     Deg:  先按SHIFT  再按上面的MODE 选择3

110 楼:qjh

09-5-8 16:56

在GL-ZS和GL-FS里好像都没涉及到曲线半径呀

111 楼:bb351508

09-5-8 17:43

110楼:qjh
呵呵,请仔细看数据库

112 楼:bb351508

09-5-8 17:49

108楼:zhuyi98
楼主客气了,已经很值得晚辈们学习研究了!!向你致敬!

113 楼:bb351508

09-5-9 8:13

请楼主在多检查一遍,其中还有几处小问题,并无他他意,请楼主不要介意!都是一些小问题,我怕有些新人不会理解!

配道列题就完美了!

114 楼:qjh

09-5-9 11:56

111楼:bb351508
在数据库里是有曲线半径,但是在GL-ZS和GL-FS里好像都没涉及到呀,有些不明白,还要请你指导一下

118 楼:zhuyi98 楼主

09-5-10 7:1

平面线路选择程序PM-XL-XZ
半径放到了这里面

119 楼:zhuyi98 楼主

09-5-10 7:45

请大家注意更新,因为前段时间帮朋友们搞的路政工程没注意到缓和段超高有个小错,不好意思

120 楼:'晴思雨

09-5-10 10:47

评:+8 分

先顶了,以后会用到的,

121 楼:西六环测量

09-5-10 17:17

精典中的精华
   顶!

122 楼:'122123994

09-5-10 19:57

评:+10 分

能不能搞是QQ邮箱里,包括遂道的,谢了,QQ122123994

123 楼:jrxtian

09-5-12 11:38

评:+10 分

我是个新手,刚学会4800编程,却停产买不上了,5800一点都不会,这个程序不错,谢谢分享。能不能发个隧道的给我。

QQ:124102375邮箱:jrxtian@163.com

124 楼:zhuyi98 楼主

09-5-12 18:20

会一个计算器编程,就很容易掌握另外一个计算器。我的程序在上面,直接录入没有错

125 楼:feng1028

09-5-13 9:36

评:+10 分

感谢楼主的诚实和无私

126 楼:feng1028

09-5-13 9:49

能配给例子就完美了

127 楼:lxmf1

09-5-13 13:30

请教下楼主:“平台”与“马道”区别在哪?
似乎我还没接触过马道。。。。。

128 楼:'zhuyi98

09-5-13 20:21

就是碎落台

129 楼:lxmf1

09-5-14 20:43

评:+6 分

你好楼主,中桩高程计算程序GC 里面Lbi2后面没内容,是什么意思?

Goto2:Lbi1:
K+(L-C)I→I:                                   //计算得出无竖曲线部分中桩高程
Lbi2:

130 楼:zhuyi98 楼主

09-5-14 23:53

这个是没内容,直接进入下个程序

131 楼:zl1986828

09-5-15 7:50

评:+6 分

踩!

132 楼:'XYZ

09-5-15 13:56

不就是个计算器程序,是丢不掉图纸的!楼主。

133 楼:zhuyi98 楼主

09-5-15 23:36

只有桥梁涵洞等结构物这个程序不能附带,但是,可以另建小程序把结构物的坐标放在计算器里

134 楼:bb351508

09-5-17 9:29

如果没有超高加宽怎么处理呢?

135 楼:hmingsong

09-5-17 10:23

B-H里面  IfZ>0:Then-E→E:If E>Z[4]:Then Z[4]→E:IfEnd    后面没有:是书写错误还是本身就不带:   ? 平面数据库里面

起点和终点半径左负右正是怎么区别呢 是不是右转全部输入正数左转全部输入负数,直线段落半径无穷大还是输入0  ?

136 楼:'小左

09-5-17 19:40

评:+10 分

我是个新手
去年买了5800这个计算器现在还没有把程序搞清楚,我按照程序书上的程序输如后都无法正常运行,请问楼主是不是要先怎么

设置啊?
  不过谢谢你楼主,我会好好像你和同行学习,我也给你顶上

137 楼:'小左

09-5-17 21:21

楼主你好!
  请问你可以在你的程序旁边附上个具体的例题吗?
  我哦个新手,谢谢!

138 楼:'小左

09-5-17 21:21

评:+10 分

楼主你好!
  请问你可以在你的程序旁边附上个具体的例题吗?
  我哦个新手,谢谢!

139 楼:'小左

09-5-17 21:21

评:+10 分

楼主你好!
  请问你可以在你的程序旁边附上个具体的例题吗?
  我哦个新手,谢谢!

140 楼:zhuyi98 楼主

09-5-18 23:57

hmingsong  程序无错,你没看明白
bb351508   无超高加宽时候需要建立一个超高程序库,S录入1

141 楼:'偶遇

09-5-20 23:0

评:+10 分

谢谢。。。楼主的无私奉献。。。我今天刚买了一个4850的计算器。。不过价位有点吓人哦,600多啊心疼死我了。

。我以前用的是YESF的程序,真是感谢他了,帮了我不少的忙。不过我的计算器前段时间掉了。现在主要是桥梁,多种线性

主要是以缓和曲线为主,在电脑里程序大部分程序只能计算中桩坐标,在缓和曲线上只能计算中桩。。。量大。。请问楼主有没有

小软件一次性计算的。。。谢谢QQ275801521!

142 楼:'梅兰

09-5-21 12:51

评:+10 分

你真是太有才了,令人敬佩!

143 楼:zhuyi98 楼主

09-5-21 20:41

比我厉害的多的是

144 楼:'sunyouke

09-5-22 14:20

评:+10 分

楼主你好 我刚买了个5800里面带了本书里面的缓和曲线程序 有一段不太明白向你请教Deg:Fix 4:FreqOn:31→DimZ  中的

FreqOn 是什么意思?On怎么输入

145 楼:'55265112

09-5-22 14:41

评:+10 分

我是个新手
看不怎么懂
不过看了大家的留言应该是好的,顶一下

146 楼:'55265112

09-5-22 14:53

评:+10 分

楼主能不能发一个到我的QQ邮箱,打算按部就班的输入计算器

147 楼:stonewzx

09-5-22 15:6

评:+10 分

例题有个真就完美了。说实话。我是新手有些东西部理解

148 楼:'毕业生

09-5-22 16:15

评:+10 分

敬佩!

149 楼:'sunyouke

09-5-22 22:24

楼主什么时候上线呢!~
我都过来及次了!~有些事想请教你
我 邮箱a0708116178@163.com

150 楼:zhuyi98 楼主

09-5-24 9:51

sunyouke 不好意思,我也没搞清楚那个意思,我的计算器刚买来的时候程序就清空了,书了没看过

有问题请在这里留言,程序是没有问题的

151 楼:'小思

09-5-25 21:56

期待楼主早日把程序改成9860

152 楼:'wtfg005

09-5-27 16:39

评:+2 分

楼主客气了,已经很值得晚辈们学习研究了!!向你致敬!

153 楼:'li

09-5-28 9:3

我好喜欢这程序,只是还未弄懂怎样输入,我天天都看上好几次

154 楼:'观测

09-5-28 9:6

好程序!

155 楼:'DF

09-5-28 9:9

顶!

156 楼:'DF

09-5-28 10:2

评:+10 分

忘记加分了

157 楼:'S

09-5-28 10:3

评:+10 分

你真的好伟大!

158 楼:jrxtian

09-5-28 11:32

评:+10 分

支持楼主,5800确实不怎么样,速度太慢。请教一下If D=1:Then(4((L-A)/(B-A))^3-3*((L-A)/(B-A))^4)*C→Z:IfEnd中*

怎么输入,是什么意思?
数据库)活大线HUO-DA-XIAN                    
线路起点里程→A:线路终点里程→B:
If L≤第一线元止点里程:Then 起点X坐标→X:起点Y坐标→Y:
起点半径(左-,右+)→P:止点半径(左-,右+)→R:本线元长度→H:
线元起点桩号→O:起点方位角→Q:Return:IfEnd:
If L≤第二线元止点里程:。。。 。。。Return:
  。。。  。。。
这个数据库如何建立?是否要把缓和曲线和圆曲线分开输入,他们共用
此程序吗?

159 楼:zhuyi98 楼主

09-5-28 15:26

jrxtian  *是乘号

这个数据库如何建立?是否要把缓和曲线和圆曲线分开输入,他们共用
此程序吗? 是的.

160 楼:wfk_08

09-5-30 7:18

谢谢楼主的程序,我已输入并能使用了,真是非常感谢!
在ZS-XS里面是否加上:If Q>360:Then Q-360→Q:IfThend:“FWJ”:Q◢                           什么时候能把斜交的计算公布出来,

非常期待,或者能把构造物的计算小程序公布出来也可。

161 楼:'李清

09-5-30 12:44

评:+10 分

觉得这程序好完美,每天都必看,我是新手,还示弄明白怎样使用,楼主,这程序当工作时是以问答形式输入主要数据的吗?

162 楼:'jhjk

09-5-30 21:27

评:+10 分

ghj

163 楼:'zyc

09-6-1 8:20

评:+10 分

编写的不错!桥和结构物的希望考虑编写进去。

164 楼:'NYQ

09-6-1 13:46

你太有才了,楼主

165 楼:'NYQ

09-6-1 13:47

看了是很好,下了,

166 楼:zhuyi98 楼主

09-6-2 17:58

wfk_08
不需要
不能写了,5800内存太小,你一个标段的数据都输不完的....

167 楼:'yuyanliang

09-6-3 16:48

If L≤271.559:Then(-7.485→I:+0.43→A:740→E:123.47→K:0→C:271.559→D:Return:Ifend;
… …

168 楼:'yuyanliang

09-6-3 16:53

这样输入应该不错不 但是不知道怎么算出来的高程不对

169 楼:zhuyi98 楼主

09-6-3 18:5

'yuyanliang

程序无错,如果你输入无错,那就是你起算数据的原因

170 楼:'什么也没有

09-6-3 20:9

评:+10 分

好程序能发给我一个吗?带例题的好吗?我邮箱sxhjzcl@163.com

171 楼:yuyanliang

09-6-6 12:32

谢谢搂主,正算和高程现在运行正常,反算不能运行,到V大于10冒号处出错,去掉冒号能运行但是出现超线情况,在

次谢谢搂主的巨大贡献,用着你的程序我现在不想用别的了,期待搂主的解答

172 楼:'路桥

09-6-6 15:6

请问一下楼主有没有5800计算器单独的坐标正算程序谢谢

173 楼:zhuyi98 楼主

09-6-6 17:59

yuyanliang
反算程序做了适当修改,原来用两个节点互换,速度加快了点,但是出现了有些点不能算出的问题.
而你所说V大于10出错,估计是你自己录入错误

174 楼:yuyanliang

09-6-7 11:55

楼主你好现在程序运行正常,万分感谢,期待你的放样程序,谢谢

175 楼:'新人

09-6-8 9:11

评:+10 分

楼主发一份到我邮箱fang570520@163.com谢谢了,本人在网吧上,不好下

176 楼:yuyanliang

09-6-8 14:58

好程序值得天天看,

177 楼:ljt122781

09-6-8 23:30

178 楼:yuyanliang

09-6-9 15:10

期待

179 楼:'小弟

09-6-10 10:56

评:+6 分

楼主qq好多

180 楼:'世无尘

09-6-10 17:32

评:+10 分

好东西,好好像你学学,还得多请教朱哥

181 楼:yuyanliang

09-6-10 18:58

我天天来学习,没空就手机来看

182 楼:'测量人

09-6-10 21:49

评:+10 分

感谢楼主无私共享!

183 楼:lb351508

09-6-11 8:11

成功了的举一下手!!想请教!!!!

184 楼:lb351508

09-6-11 9:38

JK1数据库程序中的"加宽前里程-A"具体是指哪项数据~??
谢谢楼住

185 楼:'hua

09-6-11 13:46

评:+10 分

值得学习,无私奉献!!!

186 楼:yuyanliang

09-6-11 19:25

真的需要放样程序,等待完美,搂主什么时候有空加放样的呀,等待,谢谢,期待,

187 楼:'qj

09-6-13 23:20

第二缓和曲线,计算的数据左右是相反的?请教,曲线要素怎么输入,谢谢。

188 楼:zhuyi98 楼主

09-6-14 20:18

这段时间经历不够,没有及时给大家回复,不好意思,程序放样部分,暂时不会考虑,我的计算器里面已经有了,因为你们

刚接触这个程序就搞得太复杂,对你们不好。

lb351508  加宽起点里程

'qj  本程序分分段线元法计算,不存在第一条缓和曲线和第二条缓和曲线,直线也作为半径很大的曲线看待

189 楼:yuyanliang

09-6-14 20:26

搂主,现在我等着用你的放样部分,谢谢

190 楼:'qj

09-6-14 21:9

谢楼主,回复。

191 楼:lb351508

09-6-15 8:52

评:+10 分

谢谢!

192 楼:yuyanliang

09-6-15 20:0

楼主,你什么时间有空呀,帮忙把放样功能加进去呀 ,真的急用,谢谢

193 楼:'胡

09-6-15 21:3

评:+8 分

楼主  什么是线元法啊?  我要怎么把线路的曲线元素算成此程序能运用的啊?能有个例题就好了。

194 楼:'爱拼才会赢

09-6-15 21:14

评:+10 分

你是个会动脑筋的人值得鼓励,请教一下高手,我是刚买的5800P计算器不会用,以前都是用4800编程,以前的程序也好

用可以输入桩号就算全线的中边桩,但怎样把它转换到5800计算器内,我对5800计算器一点都不懂请多多指教呀

195 楼:'胡

09-6-15 21:14

评:+6 分

请问楼主qq是多少?

196 楼:'hub

09-6-15 21:35

评:+6 分

楼主  请教一下
起点半径(左-,右+)→P:止点半径(左-,右+)→R:本线元长度→H:
线元起点桩号→O:起点方位角→Q:Return:IfEnd:
  要怎么把线路的元素什么直线曲线转换了输进去?   谢谢!

197 楼:'m

09-6-16 8:11

各位高手  5800中的FrepOn在哪里可以找得到啊   我在程序里只找到Frep  知道的麻烦说下啊

198 楼:'张应万

09-6-16 9:35

199 楼:'ZHANF

09-6-16 9:39

177楼:ljt122781
你这是什么啊

200 楼:yuyanliang

09-6-16 13:5

楼主,什么时间来呀,期待

201 楼:'王钰

09-6-16 14:36

评:+10 分

感谢楼主,一直找不到好的程序,

202 楼:zhuyi98 楼主

09-6-16 16:45

yuyanliang
你要什么放样程序

203 楼:zhuyi98 楼主

09-6-16 17:18

过段时间我也整个手机软件出来,嘿嘿

204 楼:'±0.000

09-6-16 17:23

评:+10 分

我下载下来研究看看。辛苦啦!

205 楼:邓利祥

09-6-16 18:2

评:+8 分

楼主,你好!我是一名刚从事测量工作的小伙。几天前买了个5800计算器正愁没程序,今天有幸看到你的硕果,为我解决了

一大难题,小弟在此表示感谢。
不过中间有写不懂的地方:比如
“1LZ=>XY,2XY=>LZ,3BIANPO-FY”?U: //正反算选择,正算选1,反算选2,坡口坡脚选3
If U=1: ThenProg”ZS-XH”:IfEnd:             //进入正算循环主程序
IfU=2:Then Prog”FS-XH”:IfEnd:              //进入反算循环主程序
IfU=3:ThenProg”BP-FY”:IfEnd:         //进入边坡开挖主程序
是连续着输进计算器还是每输完一行按下EXE再输入下一行。通俗的讲就是按四行输入还是一行输入。

206 楼:'刘小丽

09-6-17 0:58

评:+10 分

谢谢楼主

207 楼:zhuyi98 楼主

09-6-17 10:8

不需要回车,直接输入

208 楼:'朱丽敏

09-6-17 12:50

评:+10 分

这程序看似繁杂,细看弄懂后就知其功能的强大与好处,愿测友们花点心思,

209 楼:yuyanliang

09-6-17 12:52

搂主,你好,我就是想要坐标放样程序呀,加测站进去,可以算测站到你程序算出来的中边或任意坐标点的角度和距离,

谢谢搂主,

210 楼:zhuyi98 楼主

09-6-17 15:16

yuyanliang哦,我的计算器里面已经有这个功能了,增加了个控制点数据库,但是我没时间整理电子版,过段时间再说,不好意思

211 楼:'崔??

09-6-17 17:31

评:+10 分

好!顶上去

212 楼:yuyanliang

09-6-17 20:1

谢谢楼主的回复,那等你有时间加了,谢谢楼主,我会天天来关注的,谢谢,我手机上网,随时可以看,谢谢楼主,

213 楼:yuyanliang

09-6-18 13:4

各位测友,这个程序确实好用,期待楼主早点完善程序,小弟已经正常运行了,

214 楼:'测量的

09-6-18 19:59

评:+10 分

楼主 你好 程序反算可以执行 但正算不能 是什么原因呀

215 楼:zhuyi98 楼主

09-6-18 20:4

'测量的  自己输入错误,别人都可以用了

216 楼:'测量的

09-6-18 20:14

楼主 是我程序输入错误 还是数据库的错呢

217 楼:yuyanliang

09-6-18 22:52

大家不要把数据库输错,应该都能正常运行的呀,期待搂主完善,

218 楼:'我顶

09-6-19 7:54

我顶顶顶

219 楼:zhuyi98 楼主

09-6-19 12:4

你出错了按方向键,不就晓得了

220 楼:'独饮月

09-6-19 17:4

评:+10 分

楼主好!我有好多问题啊。我是新手。
If U=1: ThenProg”ZS-XH”:IfEnd:            
IfU=2:Then Prog”FS-XH”:IfEnd
中ThenProg与Then Prog 是不是同一个? 如果是ThenProg 在哪里能找到?
还有ThenGoto 在哪里能找到
If D=1:Then(4((L-A)/(B-A))^3-3*((L-A)/(B-A))^4)*C→Z:IfEnd: 这里面的“/”是不是可以用除号代替?“^”这个小东西在哪找??

221 楼:'独饮月

09-6-19 17:14

评:+10 分

额! 我还有个问题。Lbi0 这个  我怎么只能找到Lbl 呢 是不是一样的?

222 楼:lb351508

09-6-20 11:5

2.3.4级边坡的马道宽度不用输入吗!?

223 楼:lb351508

09-6-22 11:7

请问:
所有边坡度正负符号向中线内侧倾斜为+,向外侧倾斜为-。
是否是填方为+,挖方为-?

程序还有几处错误,请楼主改正,谢谢你的程序!

224 楼:yuyanliang

09-6-22 12:21

楼主什么时候加放样程序进去呀,谢谢

225 楼:zhuyi98 楼主

09-6-22 18:3

lb351508  错误在哪

226 楼:yuyanliang

09-6-22 19:43

楼主,你什么时间有空呀,麻烦你了

227 楼:'梅

09-6-22 23:33

请问楼主,这个Lbi0:“1,ZS=FS,2ZS,3FS,4XY=>SG,5。。。。。。。”?U:怎样输入呢

228 楼:lb351508

09-6-23 10:28

1.IfV=(公路左侧-1,公路右侧+1): Then L≤此段起点 And L≥此段终点---是否是反了??
2.“1,2,3,4-BP”T     //选择所计算的边坡坡段         ------此句是否要把T显示输入??
3.无超高加宽应该怎么加超高程序库?加在哪里?怎么加?原来的数据库要怎么改?
  谢谢!

229 楼:lb351508

09-6-23 11:11

填方边坡怎么输入!?

230 楼:'小燕

09-6-23 17:51

评:+10 分

不愧是一个好程序!对于新手来说,是有点不知怎样输入,要是楼主能帮一下这就更好了

231 楼:yuyanliang

09-6-23 19:55

楼主,最近很忙吧,测友们要是自己正确输入和正确输入数据库应该都能运行,不过先要熟悉程序

232 楼:'许昌梅

09-6-25 23:31

评:+10 分

加放样程序进去就十分完美了

233 楼:'yjf

09-6-27 18:9

请问各位高手,把5800这条语句改为4850的语句是什么?谢谢啊For 1→G To N:F+2((2G-1)I÷N÷2+2P)×(2G-A)H×45÷N÷

π→T:M+4Cos(T)→M:O+4Sin(T)→O:F+(G×I÷N+2P)H×G×90÷N÷π→T:M+2Cos(T)→M:O+2Sin(T)→O:NEXT

234 楼:yuyanliang

09-6-27 21:33

搂主好久不来了哦

235 楼:'兰

09-6-27 22:2

好挂住楼主啊

236 楼:'莫问

09-6-29 11:46

哪位能告诉我,5800中 ;号怎么输入,谢谢

237 楼:'徐建

09-6-29 13:28

评:+10 分

楼主,缓和曲线要分段输入数据库吗,ZH  HY  QZ   YH   HZ  在数据库输入的时候,是不是是要分成4段

238 楼:'匪夷所思

09-6-30 23:32

评:+10 分

饿滴神啊!!!这这程序太庞大了吧,有没有稍微简便点的呀,咋眼一看,头都昏了,输入时如果那里有点错误!!!

不知我有没有耐心把他输完。不过还是得感谢楼主!我看头都昏了,可想你编的辛苦啊!顶

239 楼:'莫问

09-7-1 17:36

评:+10 分

各位高手,本程序在坐标正算普通计算时,边距输正时,边桩高程与中桩高程一样的,是哪里出错了,我的路线是没加宽

没超高的。

240 楼:yuyanliang

09-7-2 9:17

搂主,好久不来了,有空把放样功能加进去,让其完美,期待

241 楼:'影

09-7-3 16:37

评:+10 分

请问5800里面“=>”怎么输入啊,谢谢

242 楼:yuyanliang

09-7-4 10:51

楼主,好久不来看看了,哪位高手能加一个测站进去,万分感谢

243 楼:zhuyi98 楼主

09-7-5 17:54

测站不难,我已经编好了,这段时间有点累了,有时间就搞进去,说真的,功能太强大了,你们搞不清东南西北的

244 楼:qrping2006

09-7-6 11:6

xiexie楼主的分享

245 楼:yuyanliang

09-7-6 13:26

谢谢搂主,就是感觉太强大,所以一直期待,这个程序是我见到最好最强大的,每天必看,谢谢搂主

246 楼:yuyanliang

09-7-6 22:23

评:+10 分

楼主  太厉害了   太谢谢了

247 楼:yuyanliang

09-7-7 20:17

楼主,我又来了,呵呵,努力学习,像楼主致敬,

248 楼:yuyanliang

09-7-9 19:3

楼主,今天学习了

249 楼:yuyanliang

09-7-12 13:21

楼主,最近很忙吧,

250 楼:yuyanliang

09-7-15 22:45

难道就我一个人在等着

251 楼:'WGS

09-7-16 13:28

我也在等着

252 楼:yuyanliang

09-7-17 13:6

楼主,什么时间完善呀

253 楼:yufeng987

09-7-17 18:29

期待你加测站的程序、

254 楼:yuyanliang

09-7-17 22:25

搂主,看来还有好多人等着哦,辛苦搂主了哦,楼上的现在在运行这个程序没,多上这里来讨论呀,

255 楼:'chenxl

09-7-18 10:8

评:+8 分

师傅:最近有没有更新啊,因为我正在使用你的成果,太谢谢你咯,为我们测量人做出这么大的贡献,我代表全体测量人

向你致敬

256 楼:'chenxl

09-7-18 10:17

评:+10 分

自看到你这个程序问世以后,我一直在研究,在关注,花了很多功夫在上面,算坐标没问题,可算高程不对劲啊,就是搞

不懂我在哪个方面输错了,是否有人故意在上面改动呢,不得而知,最好帮我发个邮件过来(1035666454.QQ.COM),麻烦了

,谢谢!

257 楼:'zsz

09-7-18 16:51

评:+10 分

太强大了,楼主辛苦了,有没有5800曲线带隧道断面的程序啊 !!
    有的话麻烦发给我一个,谢谢!我的邮箱xbxmb1984@163.com

258 楼:'zsz

09-7-18 17:3

评:+10 分

163邮箱进不去了,QQ341835954

259 楼:yuyanliang

09-7-18 22:54

搂主,期待

260 楼:w176348225

09-7-19 10:38

已经录入完成,在实践使用了    程序很好AO   感激

261 楼:'bjbkj

09-7-19 15:56

fghcvhgvhgcvghvhgvhvhjn

262 楼:'浩子

09-7-19 16:48

评:+10 分

谢谢

263 楼:'chenxl

09-7-19 23:38

评:+10 分

朱师傅:晚上好,在这里听他们把你的程序输入后都能使用了,而我花了很多功夫在此程序上面了,都搞不完善,心里更着

急啊,都怨自己笨,哎,能否再指点下啊,算出来的高程不不不对啊,谢谢

264 楼:zlblf

09-7-20 12:19

正在上传…重新上传取消 楼主辛苦了,有没有5800曲线带隧道断面的程序啊 !!
有的话麻烦发给我一个,谢谢!我的邮箱zlb760619@163.com

265 楼:'陈GG

09-7-21 1:25

顶~!

266 楼:'shiyuejun

09-7-21 21:39

评:+10 分

功能齐全,是个好程序

267 楼:'shiyuejun

09-7-21 21:44

全国的技术员都不要给徐州市恒鑫路桥干,他们是诈骗的。

268 楼:yuyanliang

09-7-21 22:20

楼主呀我又来了,好程序值得期待

269 楼:qiantongguo521

09-7-22 19:22

顶下,好东东`~~~

270 楼:qiantongguo521

09-7-22 19:23

楼主,能不能给发邮箱一份`~~谢谢~~邮箱qiantongguo521@163.com

271 楼:'支持

09-7-27 17:5

评:+10 分

隧道测量,永远支持那些无私奉献的人。

272 楼:huaihuai152406

09-7-28 23:42

评:+10 分

真是不容易~~请楼主  再发点心思把隧道断面超欠挖的程序传上来~~小弟跪谢啦

273 楼:251818214

09-7-30 13:4

评:-10 分

请问楼主
有不有大地坐标测量
关于隧道测量的程序

274 楼:'一刀

09-7-31 18:43

期待9860程序

275 楼:'一阵风

09-8-1 10:23

辛苦了

276 楼:yuyanliang

09-8-1 11:17

楼主好久不来了

277 楼:'三好学生

09-8-1 21:10

楼主  你好~

我目前针对的是三级公路全部是圆曲线+直线~设计图纸的曲线要素只给出了交点桩号的交点坐标~半径 切线 外距 等
并没有给出圆曲线的起点坐标和切线方位角  
所以在编写下面的时候我就进行不了了   请问有什么办法解决? 谢谢了楼主了~
(数据库)活大线HUO-DA-XIAN                    
线路起点里程→A:线路终点里程→B:
If L≤第一线元止点里程:Then 起点X坐标→X:起点Y坐标→Y:
起点半径(左-,右+)→P:止点半径(左-,右+)→R:本线元长度→H:
线元起点桩号→O:起点方位角→Q:Return:IfEnd:
If L≤第二线元止点里程:。。。 。。。Return:

278 楼:zhuyi98 楼主

09-8-3 14:48

两交点之间方位角即是单交点第一线元切线角,缓和曲线,圆曲线,直线都是线元。

279 楼:'三好学生

09-8-3 17:16

这个倒是明白~~那么还是不知道线元起点坐标 还是要手算吗?~

谢谢楼主

280 楼:wcl3260

09-8-3 22:23

评:+10 分

程序中的
起点半径(左-,右+)→P:止点半径(左-,右+)→R:
那直线段起点半径是输“0”还是“10的45次方”
请教楼主

281 楼:zhuyi98 楼主

09-8-4 11:31

输入10的46次方

282 楼:'山东

09-8-4 12:10

直线段 和缓和曲线  起点半径 和 止点半径要怎么输入啊

283 楼:'侠客

09-8-4 13:51

评:-8 分

辛苦了,愿意认识你

284 楼:zhuyi98 楼主

09-8-4 13:52

直线起点止点都是10的46次方,缓和曲线ZH到HY 是10的46次方---圆曲线半径,缓和曲线YH到HZ是圆曲线半径-

--10的46次方。园曲线部分就是圆曲线的半径

285 楼:yaochong

09-8-4 14:11

评:+8 分

看起来是很完美,但是我下载下来却怎么也不会用,请老师指教一下,是怎么使用的,我联系过你几次你都没有回信息,

我的QQ:727262381

286 楼:'山东

09-8-4 17:35

谢谢楼主

287 楼:'江西

09-8-4 20:10

平面线路选择程序PM-XL-XZ
U=1=>Prog”HUO-DA-XIAN”:                     //进入假定线路活大线。
U=2=>Prog”X2”:                             //进入路线2
U=3=>prog”X3”:                              //进入路线3
(P-R)/(2HPR)→D:
L-OO:                                    //正算程序需要补充部分
OD→D:                                      
1/P→C:                                    
怎么总是在 (P-R)/(2HPR)→D处 闪~ 麻烦楼主 或者成功的朋友的看看吧

288 楼:'覃

09-8-6 20:2

(L-C)I+K+(L-C)^2/(2E)H→I:                     //计算得出竖曲线部分中桩高程

中的(L-C)^2/(2E)H
是(L-C)^(2/(2E)H)还是别的表达方式?
计算器里
^(是连一起的
  
还有:平曲线数据库是不是一个交点内的缓和曲线和圆曲线做一个数据库程序啊

289 楼:烂心

09-8-6 20:26

今天中央新闻联播重点报道了测量工作

8-6  晚,大慨3分多钟!

发扬测量精神。
测量精神是什么呢?吃苦耐劳,严谨,努力求新
大家提下!

我为测量感到自豪!

290 楼:happh2006

09-8-7 11:0

本人非常佩服楼主的无私奉献精神啊,建议吧程序再精简一下,毕竟多数功能是用不上啊

291 楼:happh2006

09-8-7 11:41

评:+10 分

大力支持楼主的行为

292 楼:'刘勇

09-8-8 18:47

评:+10 分

我入测量这行,偶到此处,看来楼主费了不少心思,辛苦了,顶一个。有机会向楼主多多学习。

293 楼:'刘勇

09-8-8 18:50

评:+10 分

楼主,强烈希望你配一个实例说明。顶一个!期待中!

294 楼:'武汉

09-8-8 21:45

有正在用这个程序的朋友吗?除了楼主外~

295 楼:yuyanliang

09-8-9 15:43

楼主不管了

296 楼:'河北

09-8-9 19:0

坐标正算程序GL-ZS
X+O(ICos(K)+JCos(E)+JCos(F)+ICos(M)) →X:   //计算出X坐标
Y+O(ISin(K)+JSin(E)+JSin(F)+ISin(M)) →Y:      //计算出Y坐标
总是在这里闪。不能继续运行。计算器里面还有其他的程序。会有影响吗?

297 楼:chenghuanqiao

09-8-9 20:56

很不错的程序  下载使用一下 看看怎么样  先谢了啊

298 楼:'河北

09-8-10 15:25

请问下 我进入 GL-ZS  和  PM-XL-XZ   老是出现 math error  是什么原因阿? 光标出现在)后面~

299 楼:zhuyi98 楼主

09-8-11 18:32

'河北,请说清楚,怎么总在这里闪?没明白。你仔细核对下,是你输入问题

300 楼:yuyanliang

09-8-12 22:1

楼主,这一等就三个月了,呵呵

301 楼:'建水

09-8-13 18:7

评:+10 分

楼主真是行家,编的那么长,我是个新手,能否给我发两个5800P的程序,①大地坐标转施工坐标的程序②遂洞圆弯道测

量的程序,先谢谢了,我的QQ邮箱是810552300

302 楼:张富元

09-8-15 15:55

评:+10 分

很好的程序,多谢了,我现在用是4850的程序,等买了5800一定试一下.

303 楼:'江西

09-8-17 23:20

期待楼主 把测站点编进去哦~  呵呵

304 楼:'江西打工仔

09-8-19 11:50

评:+10 分

以前都是用的4800,4850,还没用过5800,不知道程序该如何转换。现在可以学习一下,多谢楼主。

305 楼:'江西打工仔

09-8-19 14:1

评:+10 分

有没有简单一点的程序啊,比如单独一条直线或圆曲线的。谢谢了。我的qq是277011457.

306 楼:张富元

09-9-2 9:41

评:+10 分

已经买了5800计算器,花了三百元.用了两天的时间把程序输完了,但数据库部分还没有输,有些东西还是搞不太明白,如果楼主

有时间,能加一份实例的数据库就好.

307 楼:坏小子

09-8-20 19:58

很不错的程序  下载使用一下 看看怎么样  先谢了啊

308 楼:lyk2009

09-8-21 13:52

评:+10 分

程序很好,条理很清晰,功能的确很强,有斜交就更完美了!

310 楼:zhuyi98 楼主

09-8-21 23:37

各位朋友,我这几天心情不好,所以没有及时回复大家的信息,我父亲在老家见义勇为扑灭了加油站的火情,结脚受伤了,

比较严重,伤了十来天了,加油站一直不给个说话,而且连电话都不打一个慰问。哎。。。。难受,我现在工地上很忙,又回

不去。。。。。着急啊

311 楼:zhuyi98 楼主

09-8-21 23:45

火情是他们给装载明火的三轮车加油,违反安全操作疏忽大意引起的。而他们好象一点责任都没有,我也不要他们赔偿多少

钱,至少一句感谢的话要说吧。很难受,现在只能借助网络的力量,朋友在家乡把这个事情发到了当地的网络上,请大家一起

发出正义的声音帮我声讨,正在上传…重新上传取消http://www.445600.com/ 再进入唐崖杂谈,再进入(他的行为是否属于见意勇为) 这个帖子里,

请大家帮帮我,感谢

313 楼:'shiyuejun

09-8-22 20:23

zhuyi98,很同情你父亲的伤情,现在只有自己先拿钱用最好的药治疗。

314 楼:'江西

09-8-22 20:27

声援楼主

315 楼:'枫之恋

09-8-23 8:56

声援楼主

316 楼:'枫之恋

09-8-23 9:1

程序我看了几遍还是不懂,有的地方是否被改了。盼楼主给予帮助!335351677QQ.COM谢谢

317 楼:xingzyhou

09-8-27 16:58

楼主,你的程序很强大,,就是不知道你的定维变量和赵老师的程序有冲突吗?很想要你的超高,加宽部分,和边坡放样程

序。

318 楼:xingzyhou

09-8-27 17:3

评:+8 分

楼主,你的qq怎么老是加不上,很想请教你程序这方面的问题啊!

326 楼:'大斌

09-8-29 15:37

还不熟悉5800程序!有些还真不懂~~~~~~~~~~~
加好友!!多多指教~~~~~~~~~~~~~~~~~~

328 楼:'shiyuejun

09-8-29 21:47

有5800交点法的请发到邮箱shiyuejun009@163.com 好吗

329 楼:'张春一

09-8-30 9:24

评:+2 分

请发给我一份   楼主    422637525@qq.com  谢谢

331 楼:liyuan

09-8-30 23:6

楼主:是不是把数据库都弄份例子出来,让我们新手也能用啊~~~老是输不对.....如果在正算结束后我想进入反算,但是没有连接,

是不是可以在结尾那里加个连接呀!!这样比较方便不用老要退出来!!!期待楼主能弄个例子出来让我们参考^-^

332 楼:songyanwen

09-8-31 12:26

评:+10 分

太感谢了  我现在正学习5800程序  自己不会编写  只能学习别人的了  但好多都不适用  现在看到这个程序太好了   我回去

试  希望能好用   狂顶

333 楼:张富元

09-9-2 10:21

请问楼主,高程数据库输入时,段落怎么分的呢?也就是说止点里程是怎么确定啊?是以变坡点来分段还是以没有竖曲线部分的

任意点分段啊?想了几天了,也没有个头绪,请指教啊,现在已经输到这里,进行不下去了!

334 楼:张富元

09-9-2 11:5

刚刚又看了一下,感觉有点头绪了,应该是以竖曲线的起终点分段吧。段无竖曲线部分的后坡是不是不用输入了?还有一个事

想请教一下,是不是每个Ifdnd后面都要输入:(冒号)啊?

335 楼:xingzyhou

09-9-4 18:33

后破要输入,不然不能判定I-A到底为0还是1还是-1

336 楼:'qingkong1330

09-9-8 2:39

反算部分很经典,值得学习,楼主聪明啊

337 楼:'流星

09-9-9 23:8

评:+10 分

楼主编的很经典

338 楼:'xingzyhou

09-9-11 9:7

评:+10 分

我的能算了,多谢楼主了,稍微改了下,开挖线,坡脚线都能放了。

339 楼:'123

09-9-12 20:32

338楼:xingzyhou
能把改的发下吗?

340 楼:liyuan

09-9-14 18:53

楼主
我每次反算运行到这里都不得   Pol(I,J):J-Q→J:          //方位角转换为接近试算点到测点的
是不是这句有错误啊,是什么原因
我只算得了个中桩坐标,距中都算不了,其它都是错的,能不能附个例子来看啊,楼主.....

341 楼:lilin5663

09-9-15 13:18

评:+10 分

呵呵,正在输入程序,头昏眼花中,感谢楼主,有问题了再提问。

342 楼:'测量人

09-9-15 13:30

评:+10 分

楼主能不能给我传一个到我邮箱最好能有实例,因为我是亲手什么也不懂。邮箱pengbiao19872002@yahoo.com

343 楼:'留心

09-9-16 11:3

评:+10 分

支持一下楼主

344 楼:'人生如梦

09-9-16 18:30

338 楼:'xingzyhou 09-9-11 9:7 回 评:+10 分
我的能算了,多谢楼主了,稍微改了下,开挖线,坡脚线都能放了。                                                                                                                                                                                  能把你的那份程序发

给我吗?我输好了但算不了,不知什么原因。万分感谢!QQ:1264532779       交个朋友。

345 楼:xingzyhou

09-9-16 21:33

我的在计算器里,发给你是不可能的了。和楼主没差别,你的要是坐标都算不了,是你输入有问题了。

346 楼:'346

09-9-17 11:19

评:+10 分

这个程序可以用的,我一直在用,输了一部分,只是用了他的放样部分

347 楼:xhr330938612

09-9-17 15:51

顶死    感谢作者!!   一点一滴的辛苦``~!! 测量小徐一定会请教你的

348 楼:sd984205

09-9-17 18:6

我还没用,不过是我见的最全的了,看大家说都能用,我先谢了

349 楼:sd984205

09-9-18 0:19

评:+10 分

马上要用了,先给楼主加分再说

350 楼:'叶涛

09-9-18 17:22

评:+10 分

12→Z[1]:                        
1.5→Z[2]:                      
-0.02 →Z[4]:   中的                [1]: 怎么输入啊

351 楼:普通人

09-9-18 20:30

回350楼:

[ = ALPHA + ln
] = ALPHA + x▓

352 楼:'大宾

09-9-18 22:45

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:  
我输了楼主的程序
运行后箭标老在JCos(E)+JCos(F)之间闪,出现Math eeror!
怎么解决啊?

353 楼:'叶涛

09-9-19 21:3

线元半径怎么弄啊

354 楼:'叶涛

09-9-19 21:17

一号线路高程GC1
If L≤该段止点里程:Then(前坡  例0。01)→I:(后坡  例-0。034)→A:(竖曲线半径)→E:((起点高程)→K:(

起点桩号)→C:止点桩号→D:Return:Ifend;
… …

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

355 楼:'聿之

09-9-20 19:20

评:+10 分

!颜色文字楼主写的不错!我可以用了

356 楼:'不知道

09-9-24 14:52

评:+10 分

我看不懂

357 楼:'光辉

09-9-25 9:20

评:+8 分

程序较好,就是计算的时候数据库中间点数据的先计算出来才能输吗?

358 楼:'光辉

09-9-25 16:8

评:+10 分

请问左右线不一样超高、加宽数据库怎么建立

359 楼:wdp671663877

09-9-25 23:24

楼主好久没解答我们的问题了;
请问在普通计算时候老是出错查找原因光标停在
边桩高程计算程序B-H中的IfZ<0:ThenI-Abs(Z)E→O:IfEnd:IfEndI: // 圆曲线全超高和S曲线超高渐变部分左侧高程得数
中的I位置(I为便于说明而添加上去的实际上我输入时候是按照你上面的输入的)

360 楼:wdp671663877

09-9-25 23:49

如果没有超高加宽怎么处理呢?!!!!请知道的兄弟指点下

361 楼:wdp671663877

09-9-25 23:51

正在上传…重新上传取消

362 楼:'春雪

09-9-26 10:24

评:+8 分

你好我现在用的是4850计算器请问你有这个计算器的程序么?小弟在此感谢了。我的邮箱是zangyang.2004@163.com

363 楼:'df

09-9-27 20:54

评:+10 分

efres

364 楼:'唐山测量

09-9-27 22:34

评:+10 分

真的好用吗?

365 楼:tyxiayu

09-9-27 23:4

评:+10 分

正在上传…重新上传取消

366 楼:'967483

09-9-28 8:38

14楼:中铁大桥局测绘公司
能不能帮我改下交点法程序..我的不能计算不对称

367 楼:'大宾

09-9-28 12:59

评:+10 分

边桩坐标计算程序GL-BZ-ZS:
"XJ"?→A:X+Zcos(Q+A) →G:                              //计算出边桩X坐标
Y+ZSin(Q+A) →M:                              //计算出边桩Y坐标
请问楼主其中的 "XJ"输入的是什么?

368 楼:'xingzyhou

09-9-28 15:34

楼上的,,xj输入的是边桩的夹角,建议不要用A变量,不然会和后面的边坡放样程序里的A有冲突,我自己是见过这样

的情况,不知道有遇到过这事的没有,我直接改了个扩展变量,所有的程序都能运行了。。

369 楼:'xingzyhou

09-9-28 15:36

回367楼的朋友
交点法非对称的5800程序本空间里有,都是不错的,只是不能反算。

370 楼:zhuyi98 楼主

09-9-28 19:30

'xingzyhou  不错,斜交角度增量改为A是和边坡放样程序有冲突,我前段时间管理4个标段,没有用那个边坡程序,因为

据库的空间不够用,就随便搞的个A,呵呵!

371 楼:'大宾

09-9-28 21:44

评:+10 分

谢谢 'xingzyhou
我输了楼主的程序,算直线时坐标是正确的,但是算圆曲线时误差很大,请问是什么原因啊?

372 楼:'xingzyhou

09-9-29 17:6

楼上的,你的误差大,肯定是你输入有误了,程序没输错的话,自己对对数据库把

373 楼:fjl_666888

09-9-30 13:40

评:+10 分

楼主的程序功能确实很强大,感谢你的无私奉献!在工地搞测量的人中,像你这样高智力、高水平而又肯于共享自己成果的实

在太少了,最常见的就是那种墨守成规、循规蹈矩、低效率测量、稍有所得即沾沾自喜、秘而不宣的。
马上要过节了,祝你节日快乐!并期待着你对程序的充实和更新!

374 楼:521huangxp

09-9-30 14:37

评:+10 分

很好很强大

375 楼:'大宾

09-9-30 23:52

评:+10 分

请问我的数据库输入是否有问题:
已知:交点10 交点坐标:X=3223633.732Y=488074.6219 交点桩号:LK15+203.225 转角值:13°32′20.2″(Y) 圆曲半径:

6000 切线长度:712.214 曲线长度:1417.794 外距:42.123 校正值:6.634 圆曲线起点:LK14+491.011 圆曲线中点:

LK15+199.908 圆曲线终点:LK15+908.805

交点11 交点坐标:X=3223648.622Y=486108.7319 交点桩号:LK17+162.537 转角值:22°32′43.8″(Z) 圆曲半径:4200

切线长度:837.166 曲线长度:1652.671 外距:82.621校正值:21.66 圆曲线起点:LK16+325.372 圆曲线中点:LK17+151.707

圆曲线终点:LK17+978.043

交点10与11之间的直线段长:416.5665 交点间距:1965.946 计算方位角:270°26′02.3″

交点12 交点坐标:X=3222965.835=484428.1991 交点桩号:LK18+954.820转角值:11°06′04.3″(Y) 圆曲半径:4500 切线长

度:437.312曲线长度:871.8864 外距:21.199校正值:2.738 圆曲线起点:LK18+517.508 圆曲线中点:LK18+953.452 圆曲

线终点:LK19+389.395

交点11与12之间的直线段长:539.4652 交点间距:1813.943 计算方位角:247°53′18.5″

活大线HUO-DA-XIAN                    
线路起点里程→A:线路终点里程→B:
If L≤第一线元止点里程:Then 起点X坐标→X:起点Y坐标→Y:
起点半径(左-,右+)→P:止点半径(左-,右+)→R:本线元长度→H:
线元起点桩号→O:起点方位角→Q:Return:IfEnd:
其中的线元起点方位角是不是两交点之间的计算方位角?例如:交点11的圆曲线起点方位角是270°26′02.3″,交点12的圆曲线

起点方位角是247°53′18.5″,其它的请楼主以本例示范一下!
拜谢!

376 楼:happh2006

09-10-2 11:44

本人非常佩服楼主的无私奉献精神啊,
希望在日看到楼主修改后的9860程序

377 楼:柳离

09-10-3 11:9

你好 ,程序比较好,希望楼主有好的测量程发到我邮箱里面,邮箱地址xinzhe8521@yahoo.com.cn QQ:454251083  希望多

多指点

378 楼:220926

09-10-3 11:17

评:+10 分

第一次用5800~~~~很多看不懂,但还是要谢谢楼主

379 楼:'对测量失望的人

09-10-4 17:52

本来看到你说的话 觉得你人还不错想交流交流一下。哪知道一加你QQ 给别人的回答一看你这个懂一点点东西就很骄傲。。说实话 测量就一个几个字就解决了那就是简单的连小孩子都会去测量 还编这么多鬼东西在这个网站  简直2个字浪费。

380 楼:雪域

09-10-4 18:19

谢谢楼主,向楼主学习!楼主有桥梁和隧道方面的程序吗,望不吝赐教。谢谢
0622qzt@163.com

381 楼:wangxinwang

09-10-4 19:34

c v

382 楼:wangxinwang

09-10-4 19:35

c v

383 楼:wangxinwang

09-10-4 19:35

c v

384 楼:'龙行

09-10-5 23:13

真行啊,谢谢了

385 楼:'Kiss→who

09-10-8 14:4

评:+6 分

!我先输看看,不懂的我再Q你了楼主

386 楼:220926

09-10-9 11:4

楼主:你那中桩高程计算程序GC
(L-C)I+K+(L-C)^2/(2E)H→I: 里面^这个符号是4850里的吧  5800没这个符号啊
      还有Deg:      //设置角度模式  也没啊

387 楼:'南京测量

09-10-11 11:15

评:+10 分

向楼主致敬,

388 楼:'ych

09-10-13 18:38

评:+10 分

ok!
看不懂但是我相信大家都发表了那么多的好评我相信一定是好的。

389 楼:'ymbn

09-10-13 20:29

评:+10 分

xiexie

390 楼:'lzb

09-10-16 10:51

评:+10 分

谢谢分享

391 楼:'444099624

09-10-17 16:4

评:+10 分

hao好。。。。的确好

392 楼:'溜溜

09-10-22 0:20

在潜水学习中,向楼主致敬

393 楼:'流浪智能

09-10-22 23:25

好程序,试一下看,如果能再加构造物就完美了

394 楼:'测量员

09-10-23 20:10

评:+8 分

你好~!对于你的程序, 我看了别人的评论。应该很好,我才进入测量的脚步,对这还不是很聊了,我很希望大家能够帮

哈我,我的QQ85325664
愿意帮我请加我QQ
谢谢了
我现在也正准备买计算器
以后还望大家多多教导

395 楼:'湖南怀化路桥

09-10-25 20:47

我刚刚入门很多都不懂
,,楼主建议从哪部分开始呢》

396 楼:明315

09-10-26 21:42

评:+10 分

计算器对于我们搞一线的来说 只是一个提高工作效率的工具
这个程序确实太好了
可是这个程序太大了
如果需要全面的话可以利用手机上的wm 或别的操作系统上支持的软件
我还是太懒了  有需要纬地外业手簿的可以联系我   qq13989801 传给大家  
运行系统大于wm5.0以上的系统
集设计 放样于一身的pcc软件 地形数据可以自动导入到cad格式

397 楼:'同行

09-10-29 16:18

“1=>SJK1 , 2=>SJK2 , 3=>SJK3 ”?M↙
IfM=1:ThenProg “SJK1”:IfEnd ↙      进入第一条线路
IfM=2:ThenProg “SJK2”:IfEnd ↙      进入第二条线路
IfM=3:ThenProg “SJK3”:IfEnd ↙      进入第三条线路

我这样写的竖曲线调入子程序命令为何不运行呢?请高手们指教。谢谢!!

398 楼:xkllfyd

09-10-29 17:3

M=1=>Prog “SJK1”:      
M=2=>Prog “SJK2”:    
M=3=>Prog “SJK3”:

399 楼:'同行

09-10-29 20:14

谢谢398 楼:xkllfyd  有您的帮助我的问题解决了。

400 楼:'赵库

09-10-29 20:28

评:+10 分

小弟初来乍到,希望楼主和大家多多给予帮助,希望楼主给我的邮箱发一份完整的,谢谢,ku04123@126.com,再次谢谢啦!

401 楼:shetao6586334

09-10-31 15:10

Lbi0:“1,ZS=FS,2ZS,3FS,4XY=>SG,5。。。。。。。”?U:
U=1=>Prog”ZS-FS”:  进入公路三维程序
U=2=>Porg”ZS”:    进入坐标正算程序
U=3=>Porg”FS”:    进入坐标反算程序
U=4=>Porg”XY =>SG”:   进入大地坐标转施工坐标程序
…………Goto0:
.......要输入吗??
是什么意思啊??

402 楼:fjl_666888

10-1-13 8:38

很长时间不见楼主了?有很多地方弄不明白,最好按你的程序画一份横断面图作为附件正在上传…重新上传取消 颜色文字,横坡、路肩、

边坡、马道、超高加宽等都详细标注一下,就很直观了。
大家都在急切盼望你的新程序!

403 楼:biaoneng.x

09-11-1 13:5

谢谢,顶

404 楼:'李鸿江

09-11-1 16:50

评:+10 分

他妈的我们朱总就是厉害的像个个卵形,我们98确实不错

405 楼:yyoo66

09-11-5 19:6

什么 时候加放样程序上去啊???期待中。。。。。。。。

406 楼:'1234

09-11-5 21:32

边桩坐标计算程序GL-BZ-ZS:
"XJ"?→A:X+Zcos(Q+A) →G:                              //计算出边桩X坐标
Y+ZSin(Q+A) →M:  
    
这个变量要怎么改 ???

407 楼:'啊凡提

09-11-6 11:27

评:+10 分

这套程序感觉好可以,还没输,等输好了看看是不是很好用!

408 楼:'啊凡提

09-11-6 12:2

请问一下正反算选择程序:
ZS-FS
Deg:              //设置角度模式
20→DimZ:                    //扩展变量  
中的"Dim"   怎么输入

409 楼:beenieman

09-11-6 15:32

评:+10 分

楼主帮我看一下我的5800程序,谢谢。这程序是我从4850改编过来的。程序目前存在的问题是:计算结果没有错但运行几

次后就出现Ne ERROR这个错误。请帮我看一下是要怎么改才不会呢。再次感谢以下为程序内容:
程序名称“LO”
C→E:D-Z→T:P≠0  => Goto 3 : R≠0  => Goto 2 : R=0  => Goto 1
Lbi 1:C→V: Goto 4:Lbi 2:90T÷(πR) →V:Abs(2Rsin(Abs(V))) →T:C+V→C:C+V→V: Goto 4:Lbi 3:If  P<0:Then -P→W:

W-T→T:Else 0→W:IfEnd
Abs(RP) →U: T+Q→T:If  Q≠0:Then  T→W:Q→T:IfEnd
If R>0:Then  C-90Q2÷(πU) →C:Else  C+90Q2÷(πU) →C:IfEnd
Abs(W-T)-Abs(W5-T5) ÷(40U2)+Abs(W9-T9) ÷(3456U4)- Abs(W13-T13) ÷(599040U6) →G:if  G=0:Then  G+0.00001→G :

ifEnd:Abs(W3-T3) ÷(6U)-Abs(W7-T7) ÷(336U3)+ Abs(W11-T11) ÷(42240U5) - Abs(W15-T15) ÷(9676800U7)→H:if  H=0:

Then H+0.00001→H:ifEnd
tan-1(H÷G) →V:P<0  => 90W2÷(πU)-V→V:T→L: (G2+H2)1/2→T:R<0  => -V→V: C+V→C: Q≠0 =>0→L:If R<0:Then

C-V- Abs(90(W2-T2) ÷(πU)) →V:Else C-V+Abs(90(W2-T2) ÷(πU)) →V:IfEnd
Lbi 4:A+Tcos(C)+Ocos(V+90) →X: B+Tsin(C)+Osin(V+90) →Y:E→C
“X=”:X▲
“Y=”:Y▲
Prog “ZF”

程序名称“LX”
1→J: “D=”?D: “O=”?O:Lbi  0:If  D≤Z[J+9]:Then  Z[J]→A: Z[J+1] →B:Z[J+2]→Z:Z[J+3]→C:Z[J+4]→R :

Z[J+5]→P:Z[J+6]→Q:Else  J+7→J:Goto  0:IfEnd:Prog “LO”

程序名称“ZF”
Pol(M-X,N-Y):Cls
J+180→F: “ZL=”:I▲
“F=”:F◆DMS▲
Lbl 0:“S=”?S:I-S→T:“T=”:T▲
Prog “LX”

410 楼:'12345

09-11-6 16:19

边桩坐标计算程序GL-BZ-ZS:
"XJ"?→A:X+Zcos(Q+A) →G:                              //计算出边桩X坐标
Y+ZSin(Q+A) →M:  
    
这个变量A要怎么改 ???

411 楼:'876554738

09-11-6 17:19

评:+8 分

支持!

412 楼:'qq200872285

09-11-7 19:47

超级路桥测量群,75229690欢迎大家加入

413 楼:阿尔及利亚

09-11-8 7:7

交点法
1、[7.JDFY]  主程序
Lbl 0¿
"ZH”?Q¿              提示输入桩号
Prog”8.JDSJ” ¿             运行数据库”8.JDSJ”
“JL”?W¿              提示输入距中桩距离
Goto 1¿              跳转到标记1
Lbl 1¿
R=0ÞGoto 3¿             如果圆曲线为0直接进入标记3
Abs(B) πR÷180-(L+M) ÷2→G¿          计算圆曲线长
M→S:1→Z¿             将M(LS1)值赋予S以计算p2和q2
Lbl 2¿
S2÷24÷R-S^(4)÷2688÷R^(3) →P:S÷2-S^(3)÷240÷R2→O¿     计算内移值和切线增值
If Z=1:Then 0→Z:L→S:P→U:O→V:Goto2:IfEnd¿      将p2和q2分别存入U、V并计算p1和q1
(R+U-(R+P)cos(Abs(B)))÷sin(Abs(B))+O→T¿       计算第一切线长T(T1)
(R+P-(R+U)cos(Abs(B)))÷sin(Abs(B))+V→S¿       计算第一切线长S(T2)
F-T→D¿              计算直缓点(ZH)桩号
Q≤DÞGoto 3¿             计算里程小于直缓进入标记3
If Q≤D+L:Then Q-D→J:L→U:Goto 4:IfEnd¿       计算桩号在第一缓和段进入标记4
If Q≤D+L+G:Then 1→J:Goto 5:IfEnd¿        计算桩号在圆曲线内进入标记5
If Q≤D+M+L+G:Then Q-D-L-M-G→J:M→U:Goto 4:IfEnd¿    计算桩号在第二缓和段进入标记4
Q>D+M+L+GÞGoto 0¿           计算桩号超出缓直点后重新开始计算
Lbl 3¿
N+(Q-F)cos(A)→X¿            计算ZH点前桩号的X坐标
E+(Q-F)sin(A)→Y¿            计算ZH点前桩号的X坐标
A+C→S¿              计算ZH点前桩号的法线方位角
Goto 9¿
Lbl 4¿
RU→K
J-J^(5)÷40÷K2+J^(9)÷3456÷K^(4)→H¿        计算缓和段切线横支距
J^(3)÷6÷K-J^(7)÷336K^(3)+J^(11)÷42240÷K^(5)→I ¿      计算缓和段切线纵支距
J=Q-DÞGoto 6¿            如果桩号在第一缓和段进入标记6
Goto 7¿              如果桩号在第二缓和段进入标记7
Lbl 5¿
90(2Q-2D-L)÷π÷R→U¿           计算圆曲线段到HZ点的切线横支距
Rsin(U)+O→H: R(1-cos(U))+P →I ¿         计算圆曲线段到HZ点的切线纵支距
Lbl 6¿
If B<0:Then -I→I:IfEnd¿           如果曲线左偏则为纵支距为负
N-Tcos(A)+Hcos(A)-Isin(A)→X¿          计算第一缓和段的X坐标
E-Tcos(A)+Hsin(A)+Icos(A)→Y¿          计算第一缓和段的Y坐标
Goto 8¿
Lbl 7¿
If B>0:Then -I→I:IfEnd¿
N+Scos(A+B)+Hcos(A+B)-Isin(A+B)→X¿        计算第二缓和段的X坐标
E+Ssin(A+B)+Hsin(A+B)+Icos(A+B)→Y¿        计算第二缓和段的Y坐标
Lbl 8¿
R→U¿
If B<0:Then -R→U:IfEnd¿ 
If J=Q-D:Then C+A+90J2÷π÷U÷L→S:IfEnd¿       计算第一缓和段的法线方位角
If J=Q-D-L-M-G:Then C+A+B-90J2÷π÷U÷M→S:IfEnd¿     计算第二缓和段的法线方位角
If J=1:Then C+A+180(Q-D-L÷2)÷π÷U→S:IfEnd¿      计算圆曲线段的法线方位角
Lbl 9¿
X+Wcos(S)→X:Y+Wsin(S)→Y¿          计算边桩坐标
“X=“:X◢
“Y=“:Y◢
Goto 0
2、[8.JDSJ]  数据子程序
Q>760.808ÞGoto 1¿ 
Q<0ÞGoto 1¿
If Q≤760.808:Then 7147.931→N:6983.659→E:710.265→F:254°49°42.8°→A:38°38°06.6°→B:95→R:40→L:40→M:
Goto 3:IfEnd¿
Lbl 1¿
“JD”?F:”JDX”?N:”JDY”?E:”FWJ”?A:”PJ”: ?R:”LS1”?L:”LS2”?M:”R.Ang”?C ¿
Lbl 2¿
90→C¿
Lbl 3

程序中各变量涵义
JD ── 交点桩号
JDX ── 交点X坐标
JDY ── 交点Y坐标
FWJ ── 起如方位角
PJ ──偏角,左-右+
R ── 圆曲线半径
LS1 ── 第一缓和曲线长
LS2 ── 第二缓和曲线长
R.Ang── 边桩和线路切线的右夹角
谁帮我看下这个交点法的为什么算的坐标不对 哪个公式用错了?

414 楼:shetao6586334

09-11-8 9:33

我输了这个程序怎么不能用???/

415 楼:'1234

09-11-8 11:23

边桩坐标计算程序GL-BZ-ZS:
"XJ"?→A:X+Zcos(Q+A) →G:                              //计算出边桩X坐标
Y+ZSin(Q+A) →M:  
    
这个变量A要怎么改 ???

416 楼:lives2000

09-11-9 13:35

在5800中主程序和子程序是一起写还是分开来写啊.

417 楼:'520

09-11-9 13:53

评:+10 分

很好!测量人就这样,多学多交流

418 楼:'1234

09-11-9 17:0

边桩坐标计算程序GL-BZ-ZS:
"XJ"?→A:X+Zcos(Q+A) →G:                              //计算出边桩X坐标
Y+ZSin(Q+A) →M:  
    
这个变量A要怎么改 ???

419 楼:'狼图腾

09-11-10 11:19

评:+10 分

大哥就是太多了!怕不能用到时候我就吐血啦~!!!看了那么多的留言觉得应该可以用的~!老大可不可以发个(5800的

任意曲线坐标正反算程序)啊~!!急要~!!我QQ765039521狼图腾~!!!谢谢啊·!!!

420 楼:'狼图腾

09-11-10 11:19

大哥就是太多了!怕不能用到时候我就吐血啦~!!!看了那么多的留言觉得应该可以用的~!老大可不可以发个(5800的

任意曲线坐标正反算程序)啊~!!急要~!!我QQ765039521狼图腾~!!!谢谢啊·!!!

421 楼:'狼图腾

09-11-10 11:20

评:+10 分

大哥就是太多了!怕不能用到时候我就吐血啦~!!!看了那么多的留言觉得应该可以用的~!老大可不可以发个(5800的任

意曲线中边桩坐标正反算程序)啊~!!急要~!!我QQ765039521狼图腾~!!!谢谢啊·!!!

422 楼:'新手

09-11-11 8:53

(L-C)I+K+(L-C)^2/(2E)H→I:中的^2/编程的时候是不是会出现括号。。还有斜杠计算机里在那里。。找不到。。是不是直接

按除号就可以代表吗

423 楼:'新手

09-11-11 9:4

IfZ>0:Then-E→E:If E>Z[4]:Then Z[4]→E:IfEnd   这后面是不是把冒号给弄不见了啊。。请问一下有没有冒号的啊

424 楼:'测量

09-11-11 16:14

75229690欢迎加入测量高级群

425 楼:'地铁001

09-11-11 17:38

楼主在深圳地铁几号线哈,哪标。。

426 楼:'地铁001

09-11-11 17:42

评:+10 分

!0!

427 楼:'天涯海角

09-11-12 14:54

看得出你是测量高手

428 楼:'学徒小子

09-11-12 20:31

评:+10 分

请问是不是“计算器主程序:ZHU-CHENG-XU”和“正算循环子程序ZS-XH-1”是写在一个程序还是主程序和子程序分开写了。

429 楼:'000

09-11-12 23:42

边桩坐标计算程序GL-BZ-ZS:
"XJ"?→A:X+Zcos(Q+A) →G:                              //计算出边桩X坐标
Y+ZSin(Q+A) →M:  
    
这个变量A要怎么改 ???

430 楼:'yhq2008

09-11-13 7:45

评:+4 分

粗看了一下,程序边坡放样部份好像只有挖方坡顶线放样而没有填方坡脚线放样功能。不知是否?

431 楼:'xingzyhou

09-11-15 13:8

422楼:新手
不错,,就是除号

432 楼:'xingzyhou

09-11-15 13:10

429楼:000
随便换个就是了,只要不是前面变量出现过的,,我的就是用的Z【86】,,你可以自己换个别的。

433 楼:'xinshou

09-11-17 20:0

评:+10 分

你太强拉

434 楼:'十指冰凉

09-11-22 22:7

评:+8 分

很佩服楼主,不过对于我来说太复杂了``
何必全部拢到一起.我觉得测量上只要一个能计算中桩跟边桩的就可以了,其他的越简单越好`

435 楼:fjl_666888

09-11-25 21:28

413楼:阿尔及利亚
这是一个计算曲线及其前段直线中边桩坐标的程序,似乎被人为改动过,错误在:
“E-Tcos(A)+Hsin(A)+Icos(A)→Y¿”这不是一个很好的程序。

436 楼:'闽-测量员

09-11-26 11:19

评:+10 分

楼主您好,请问要在反算中求出高程,反算程序应如何补充?谢谢

437 楼:'闽-测量员

09-11-26 11:22

评:+10 分

再次请问楼主,正反时"XJ"指的是相交角吧,输入不是90度,是否也能计算呢?

438 楼:'xingzyhou

09-11-26 13:25

437楼:闽-测量员
可以输入任意角度

439 楼:'测工

09-11-26 19:44

评:+10 分

先下试试,很全,很辛苦,谢谢

440 楼:'闽-测量员

09-11-27 12:46

评:+10 分

一号线路高程GC1
If L≤该段止点里程:Then(前坡  例0。01)→I:(后坡  例-0。034)→A:(竖曲线半径)→E:((起点高程)→K:

(起点桩号)→C:止点桩号→D:Return:Ifend;…
直线段不需要输入半径,直线段的前后坡度I等于E,输入本坡值,
"该段止点里程"指的是第一线元的止点里程吗?还有最后一句话怎么理解,望论坛内高手指点!

441 楼:'闽-测量员

09-11-27 12:54

评:+10 分

哪位大哥,有完整的曲线要素表(含高程),有的话可以发到66610300@qq.com吗?楼主的程序,我已经输好了,绝对能用,请大家

放心输入!

442 楼:'测工

09-11-27 17:56

颜色文字这个程序很实用,但不足的一点就是内容太多了,输入有点费时间。能在简化一下更好。谢谢!

443 楼:'xingzyhou

09-11-28 17:47

不多能好用吗?年输入都怕费时间,,劝你也别做这行了

444 楼:'闽-测量员

09-11-28 20:59

评:+10 分

反算桩号并求出高程,反算程序应如何补充?论坛内的高手,谁能指点一下,谢谢~!

445 楼:'闽-测量员

09-11-28 21:0

评:+10 分

反算桩号并求出高程,反算程序应如何补充?论坛内的高手,谁能指点一下,谢谢~!

446 楼:wanguanxx

09-12-2 10:3

评:+10 分

很好的程序啊,功能强大

447 楼:gdqy-lwx

09-12-2 11:31

楼主太厉害了。。学习了。。我个人认为没这必要全部录入计算机里,监理会说,图纸都不带,想干什么!!呵呵,有时

候带个图纸出去工地也不错的。大家根据自己的需要,可以截取其中的来用。

448 楼:'孙涛

09-12-3 14:26

评:+8 分

楼主你能加我QQ吗?523690607  想和你学习学习     特别是坐标反算的

449 楼:'孙涛

09-12-3 14:26

评:+8 分

楼主你能加我QQ吗?523690607  想和你学习学习     特别是坐标反算的

450 楼:'123

09-12-7 0:43

评:+10 分

程序直接按行输入就行了吗

451 楼:'五一

09-12-8 21:13

能把E500程序转换成5800吗?

452 楼:'五一

09-12-8 21:13

能把E500程序转换成5800吗?

453 楼:'五一

09-12-8 21:13

能把E500程序转换成5800吗?

454 楼:'五一

09-12-8 21:13

能把E500程序转换成5800吗?

455 楼:'五一

09-12-8 21:14

评:+10 分

能把E500程序转换成5800吗?

456 楼:'五一

09-12-8 21:14

评:+10 分

能把E500程序转换成5800吗?

457 楼:'yinhu8558

09-12-16 18:2

评:+10 分

提高了5800的反算速度,是个好思路
好象不能自动判断平曲线线元?
开口线放样中不能自动判断台阶?
把边坡数据固化有方便的地方,但也有缺限,切向边坡超欠挖用得很广,如:挡墙模板检查(一般有10%收坡),桥墩切向收

坡模板检查,隧道洞门两侧台阶等,可以说,是用得最广的了,固化后,用的就有限了。至少应设现场随时可调的口子。
用得多的还有法向边坡超欠挖(如桥台法向收坡模板),隧道超欠挖等
我自当总工后,有两年没有亲自操作了,看到和自己思路相仿的程序,还是第一次,比我的精炼一些,有前途,希再接再厉,

搞出最好的程序来

458 楼:'史梦汝

09-12-17 15:39

评:+10 分

放一个算例进去更好些啊,大家在验算程序上会很清楚。

459 楼:'当代人

09-12-17 20:39

谢谢楼主.请问下这个"DimZ"这个怎么样输?

460 楼:'星期天

09-12-18 0:46

评:+10 分

楼主,刚分了5800,你的程序好,先加分再研究,有几个问题:加宽部分没有看得太明白,边坡数据库中if J≥(或≤区分路基左右)没有

看得太明白,请指教

461 楼:'星期天

09-12-18 0:46

评:+10 分

楼主,刚分了5800,你的程序好,先加分再研究,有几个问题:加宽部分没有看得太明白,边坡数据库中if J≥(或≤区分路基左右)没有

看得太明白,请指教

462 楼:'漂流人

09-12-18 13:25

评:+6 分

能不能发一份隧道超欠挖放样程序给我啊。728510072@qq.com

463 楼:张富元

09-12-20 17:51

楼主很久不来了啊!

464 楼:'枫叶

09-12-22 15:50

请问!曲线超高线性渐变和高次渐变怎么判断,S

465 楼:'yinhu8558

09-12-22 20:38

评:+10 分

信天公李工的思路在哪里可以找到?

466 楼:108223976lj

09-12-23 13:39

请问程序中的*号怎么输??

467 楼:'四弟

09-12-23 16:36

466楼:108223976lj
*这是乘号!

468 楼:测量初级

09-12-26 11:17

请问谁有没有超高的独立程序能否给小弟一份啊!谢谢你们了!

469 楼:zhuyi98 楼主

09-12-28 10:4

不好意思各位,最近没时间解答各位的问题,有时间了一定慢慢全部回复

470 楼:wangshitai

09-12-28 15:34

有没有隧洞测量程序?谢谢!!!

471 楼:'小杨

09-12-29 14:57

各位大哥,小弟初来咋到。5800从没有用过,也不会编写程序。忘哥哥能给一个5800隧道测量程序。QQ号码43683125

472 楼:'00

09-12-31 14:17

直线程序

Deg:FreqOn:Clrstat:Fix6行符号
100→DimZ换行符号
“X”?A换行符号
“Y”?B换行符号
“FWJ” ?C换行符号
“QD ZH” ?D换行符号
LbI 0:“ZH” ?→List X[1] 换行符号
List X[1]- D→E换行符号
A+Ecos(C) →List Y [1] 换行符号
B+Esin(C) →List Freq[1] 换行符号
“X”: List Y [1] 显示符号
“Y”: List Freq[1] 显示符号
“K”:?F换行符号
展现的是直线程序,大家可以试试
有各种程序,诚信要的请联系839022416。

473 楼:'僵月

10-1-7 21:40

评:+10 分

我还是不知道怎么输
哈哈哈

474 楼:代天

10-1-8 9:49

评:+10 分

谢谢楼主共享,幸苦了。我顶!

475 楼:glcl123

10-1-10 19:52

楼主,配道例题那就更好了

476 楼:'永乐

10-1-18 10:46

评:+10 分

幸苦了。我顶!

477 楼:'永乐

10-1-18 10:50

我空我再好好的研究下,谢谢了
兄弟,你真无私

478 楼:'lzbgo

10-1-18 21:16

评:+10 分

谢谢分享

479 楼:'FREEZE

10-1-19 22:2

评:+10 分

我输了你的程序
但是高程部分的算出来的结果是错误的
我复核的一下也没输错呀,
还有那个反算的
平面线路选择程序PM-XL-XZ
U=1=>Prog”HUO-DA-XIAN”:                     //进入假定线路活大线。
U=2=>Prog”X2”:                             //进入路线2
U=3=>prog”X3”:                              //进入路线3
P-R/2HPR→D(就是这个地方过不去,反算的)
L-OO:                                    //正算程序需要补充部分
OD→D:                                      
1/P→C:                                                                                        ””                      [/color]

老是出错算不出来呀
没办法呀
用不了你这个程序,
如果我错的还是什么问题请你一定发到我的邮箱来呀说下mingyng@qq.com
谢谢

480 楼:'zhufeng

10-1-25 20:3

评:+10 分

虽然很多看不懂!但还是要顶一下!实在佩服!

481 楼:'zhufeng

10-1-25 20:10

评:+10 分

楼主大哥,我是个测量新手,请教一下:
Deg:              //设置角度模式
20→DimZ:                    //扩展变量            
“1LZ=>XY,2XY=>LZ,3BIANPO-FY”?U: //正反算选择,正算选1,反算选2,坡口坡脚选3
If U=1: ThenProg”ZS-XH”:IfEnd:             //进入正算循环主程序
IfU=2:Then Prog”FS-XH”:IfEnd:              //进入反算循环主程序
像这样把程序输入计算器,  "//进入正算循环主程序'这样的就不要熟进去吧?还有输这个里面的程序哪些地方需要按"EXE'键的?一

直就这样输下来吗?感谢指教!

482 楼:xingzyhou

10-1-26 10:50

后面的是解释的语句,不用输,有:的地方,不用回车键,可以直接输

483 楼:'skjp

10-2-27 10:32

请教Deg这个符号怎么输入呢?

484 楼:'研究中

10-2-27 10:35

请问教Deg这个要怎么输入呢?急

485 楼:'请教

10-2-27 12:57

评:+6 分

请问可以算斜交吗?

486 楼:yong411589

10-2-27 20:49

评:+4 分

这个程序有人验证了没有~开始得了还是什么样?

487 楼:77zgp

10-3-2 0:49

能不能加个超欠挖在里面呀

488 楼:'dhj

10-3-2 20:19

评:+10 分

89楼:zhuyi98
    晕  看不懂

489 楼:'dhj

10-3-2 20:29

评:+10 分

好东东啊!楼主  太伟大了 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
太高尚了 !!!!!!!!!!!!!!!!
我都不知道永生么词语来形容楼主了。向楼主致敬!!!

490 楼:'大歪哥

10-3-3 11:41

9860路桥隧道三维正反算程序 【表样数据库(类似excel)】只需在计算器内置电子表格里面输入曲线的平面,纵断面,

横断面要素(横坡值及超高坡度),(也可以在电脑excel表格里面输入后有连接线传到计算器)即可计算 路线(左 中 右)坐标

和高程 (高程含超高值) 三维坐标 轻松一屏显示;程序妙处唯奋战在测量一线的同仁们方可

意会正在上传…重新上传取消如流,新一代智能工作平台

491 楼:蓝羽

10-3-4 16:2

评:+2 分

顶!我个人觉得不管程序怎么样,人家拿出来给大家免费使用在某种程度上比那些只在那叫嚷不付出的人强多了!

492 楼:GD木易

10-3-9 15:16

481楼:zhufeng
你就按上面的输就可以了,他是一段主程序。后面的他只是告诉你这句的作用,
至于:这号和//是分隔用的意思,你完全可以按"EXE',不过Prog”ZS-XH”:里面的ZS-XH是要你建立一个这样名称的子程序,

他不需要在这个主程序里面建立,另建
20→DimZ:他是说里面的20,你可以改成30,20是他的变量数

493 楼:GD木易

10-3-9 15:20

287楼:江西
你线路子程序里面的数据有误,看看X1和x2的数据吧。

494 楼:GD木易

10-3-9 15:30

29楼:20
后面的文字只是告诉你要输的数据,
If L≤第一线元止点里程:Then 起点X坐标→X:起点Y坐标→Y:
起点半径(左-,右+)→P:止点半径(左-,右+)→R:本线元长度→H:
线元起点桩号→O:起点方位角→Q:Return:IfEnd:
If L≤第二线元止点里程:。。。 。。。Return:
结果就像下面一样了
44638.094→A:45802.123→B:
If L≤45546.123:Then 2605269.42→X:471014.6496→Y:
1600→P:1600→R:908.029→H:
44638.094→O:334+17/60+25.404/3600→Q:Return:IfEnd:
If L≤45802.123:Then 2606153.1508→X:470867.534→Y:
1600→P:e^(45)→R:256→H:
45546.123→O:6+48/60+24.431/3600→Q:Return:IfEnd

495 楼:GD木易

10-3-9 16:46

37楼:zhuyi98
期待你的隧道程序。

496 楼:'李

10-3-12 11:50

评:+6 分

内容编写得不错!我也是刚买了5800,正发愁怎么用呢。那5800自带程序要全部删除吗

497 楼:'aiyr

10-3-14 10:29

评:+10 分

好东东,谢谢楼主~!!!

498 楼:'华安

10-3-15 11:56

评:+10 分

我的QQ是806633418,加一下我

499 楼:'程

10-3-15 23:7

评:+8 分

可不可以发个交点法做数据库的啊!

500 楼:GD木易

10-3-16 12:9

496楼:李
不用删除,不过没什么用处,计算距离和方位角那个可能有用一点

501 楼:'xingzyhou

10-3-17 13:25

zhuyi朋友,,什么时候能把隧道的程序加上去呢?你的程序很全面,就是缺隧道的。

502 楼:'xingzyhou

10-3-19 14:21

评:+8 分

本程序里没有大地坐标转施工坐标的程序吧?能一起发上来吗?

503 楼:'胡

10-3-19 18:34

评:+10 分

楼主真伟大,辛苦了。感谢您的无私奉献,这是一个真正有用的程序,期待楼主有更好的作品上传。

504 楼:'张宁

10-3-28 11:16

评:+10 分

谢谢你啊,太崇拜你了!

505 楼:'张宁

10-3-28 11:17

评:+10 分

谢谢你啊,太崇拜你了!

506 楼:'小申

10-3-28 15:11

评:+10 分

朱哥,高手!顶~~~~~~
我没看见反算带高程的部分啊

507 楼:'小申

10-3-28 15:16

评:+10 分

我自己的交点法程序都没用了,就用朱哥编的这个程序,太好用了!

508 楼:'xingzyhou

10-3-30 12:38

评:+4 分

就是缺隧道部分啊

509 楼:王玉生

10-4-1 22:13

评:+10 分

看过了,楼主用了很大的功夫,程序不错

510 楼:junmeixia

10-4-1 23:26

评:+10 分

顶 准备跟换计算起了

511 楼:'高速

10-4-3 15:51

评:+10 分

谢谢!楼主的无私

512 楼:又一年

10-4-3 20:29

为什么我输完了后正算坐标都正确了,而反算老是Pol(I,J):J-Q→J:显示在这一句错误......楼主帮分析一下,谢谢

513 楼:'chenjianye

10-4-4 22:17

评:+10 分

顶上

514 楼:'小方

10-4-6 11:51

评:+10 分

非常谢谢你的程序   你太强

515 楼:'花飞花落

10-4-7 19:31

评:+8 分

很好,很强大

516 楼:'金少

10-4-8 9:26

请问楼主Deg: 20→DimZ:是这样连起来的吗?还有这个Deg是单个吗?谢谢

517 楼:erosxzw

10-4-8 12:1

请问楼主:测设线和线路中线不重合时间用你这个程序适用么?

518 楼:'花飞花落

10-4-8 17:55

楼主,请教了,想问下如果是卵形曲线这个程序可以计算不

519 楼:longyuehai

10-4-8 17:56

Deg是表示角度的意,是一个单字

520 楼:zhuyi98 楼主

10-4-12 19:39

不好意思,各位最近太忙,没时间给大家回复。我已经没在整这个程序了,我现在在写9860程序,已经接近尾声了

521 楼:yufeieryu

10-4-12 22:15

评:+10 分

力顶....
楼主好样的

522 楼:wjp520hyl

10-4-13 20:1

评:+10 分

1号线路JK1
0→Z:                          //录入不加宽部分加宽值为0,此句必须输
IfV=(公路左侧-1,公路右侧+1): Then L≥此段起点 And L≤此段终点:Then 加宽前里程→A:加宽段止点里程→B:最大加宽点加宽

宽度→C:加宽趋势(由小到大1,由大到小2)→D:IfEnd:            //此段为加宽缓和段的格式
IfV=(公路左侧-1,公路右侧+1): Then L≥此段起点 And L≤此段终点:Then 加宽前里程→A:加宽段止点里程→B:最大加宽点加

宽度→C:加宽趋势3→D:加宽宽度→ZIfEnd:            //此段为全加宽段的格式

里面的:此段起点,此段终点,是不是这一段曲线的ZH,HZ呀?

523 楼:'GJM

10-4-13 20:7

太大了 很好

524 楼:'了

10-4-14 18:45

评:+8 分

If Z<0:Then-E→E:
Then后的-是什么意思

525 楼:'xingzyhou

10-4-15 19:7

524楼:了
负号的意思

526 楼:'xingzyhou

10-4-15 19:8

520楼:zhuyi98
期待楼主的新程序啊,好的话我也去买个9860

527 楼:'guolude

10-4-24 11:30

评:+10 分

Lbi0:“1,ZS=FS,2ZS,3FS,4XY=>SG,5。。。。。。。”?U:这句里的《5。。。。。》句号是什么意思? 计算器里

有吗  我没用过5800  现在正要买个研究怎么使用么,在这寻找个使用的全线贯通计算三维坐标程序,不知楼主这个程序照上输

入可以运行吗? 谢谢楼主

528 楼:'xunqiuchengxu

10-4-24 11:37

评:+10 分

这个程序可以计算断链吗??

529 楼:'经天纬地

10-4-25 10:15

评:+10 分

感谢楼主啊,向你学习!

530 楼:'小苏

10-4-25 15:48

评:+10 分

感谢楼主,期待楼主能加入这么样程序

531 楼:'广西小陆

10-4-25 18:8

530 楼:小苏,应该是加入放样程序吧,我都关注很久了

532 楼:sd984205

10-5-25 12:32

欢迎大家加入我的交流群108666807

533 楼:共产主义好

10-5-25 20:33

评:+6 分

数据库部分
1平曲线数据库

平面线路选择程序PM-XL-XZ
U=1=>Prog”HUO-DA-XIAN”:                     //进入假定线路活大线。
U=2=>Prog”X2”:                             //进入路线2
U=3=>prog”X3”:                              //进入路线3
(P-R)/(2HPR)→D:
L-OO:                                    //正算程序需要补充部分
OD→D:                                      
1/P→C:                                    
(数据库)活大线HUO-DA-XIAN                    
线路起点里程→A:线路终点里程→B:
If L≤第一线元止点里程:Then 起点X坐标→X:起点Y坐标→Y:
起点半径(左-,右+)→P:止点半径(左-,右+)→R:本线元长度→H:
线元起点桩号→O:起点方位角→Q:Return:IfEnd:
If L≤第二线元止点里程:。。。 。。。Return:
  。。。  。。。

二号线路X2

三号线路X3

2,高程数据库部分

说明:输入部分:L为计算里程,C为起点里程,,I为纵向前坡坡度,A为纵向后坡坡度,E为半径, K为起点高程,
高程线路选择程序GC-XL-XZ        
U=1=>Prog”GC1”:                           //进入线路高程1
U=2=>Prog”GC2”:                            //进入线路高程2
U=3=>Prog”GC3”:                            /进入线路高程3

一号线路高程GC1
If L≤该段止点里程:Then(前坡  例0。01)→I:(后坡  例-0。034)→A:(竖曲线半径)→E:((起点高程)→K:(

起点桩号)→C:止点桩号→D:Return:Ifend;
… …

直线段不需要输入半径,直线段的前后坡度I等于E,输入本坡值,
二号线路高程GC2

三号线路高程GC3

3超高数据库
IfU=1:ThenPorg”CG1”:IfEnd:                   //进入线路1
IfU=2;ThenPorg”CG2”:IfEnd:                   //进入线路2
IfU=3:ThenProg”CG3”:IfEnd:                   //进入线路3
超高线路选者程序CG-XL-XZ
N为曲线左右偏区别符号(左-1,右+1),F为起点横坡,T为止点横坡,S为线性渐变和高次渐变的判断要素,取0为线性

,取1为高次。V为一般段超高缓和段与全超高和卵型插入缓和段判断要素。直线一般超高缓和段输入1,全超高和S超高

缓和

段输入2,显示部分:重要约定,在超高缓和段输入超高为公路外侧超高,在全超高平曲线和卵型曲线插入缓和段中,

前横坡F和后横坡T都输入右侧横坡。

超高数据库1 CG1
-0.02→F:-0.02→T:        //录入直线部分一般超高,数据根据设计调整
0→S:1→V:           //录入直线部分计算性质,数据根据设计调整
1→N:      //1→N:数据不调整,输入以上几段后,直线超高不变段可不再输入数据.
                 
If L≥该段起点里程 And L≤该段止点里程:Then(不超高和超高缓和段输入1,单圆曲线全超高和S超高缓和段输入2) →V:

(平曲线左右偏区别符号,超高缓和段才输入 左-1,右+1)→N:(超高方式选择,0为线性,取1为高次)→S:(起点横坡

例-0。02,根据设计值更改)→F:(止点横坡例+0.03,根据设计值更改)→T:起点桩号→C:止点桩号→D:

Return:Ifend;
... ...

超高数据库2  CG2

超高数据库3  CG3

4,加宽数据库

加宽线路选择程序 JK-XL-XZ
IfU=1:ThenPorg”JK1”:IfEnd:                   //进入线路1
IfU=2;ThenPorg”JK2”:IfEnd:                   //进入线路2
IfU=3:ThenProg”JK3”:IfEnd:                   //进入线路3
:…….

加宽数据库 JK1
A为加宽前里程,B为加宽止点里程,C最大加宽点加宽宽度,D加宽趋势(从前往后输入1从后往前输入2 ,全加宽输入3)

Z全加宽宽度(注明,不加宽部分不需要录入数据库,加宽缓和段不输入Z,全加宽不输入C)
1号线路JK1
0→Z:                          //录入不加宽部分加宽值为0,此句必须输
IfV=(公路左侧-1,公路右侧+1): Then L≥此段起点 And L≤此段终点:Then 加宽前里程→A:加宽段止点里程→B:最大加宽点加

宽宽度→C:加宽趋势(由小到大1,由大到小2)→D:IfEnd:            //此段为加宽缓和段的格式
IfV=(公路左侧-1,公路右侧+1): Then L≥此段起点 And L≤此段终点:Then 加宽前里程→A:加宽段止点里程→B:最大加宽点加

宽宽度→C:加宽趋势3→D:加宽宽度→ZIfEnd:            //此段为全加宽段的格式

2号线路JK2

3号线路JK3

。。。 。。。

5,边坡数据库

边坡线路选择程序 BP-XL-XZ
IfU=1ThenPorg"BP1":IfEnd:                     //进入线路1
IfU=2ThenPorg"BP2":IfEnd:                     //进入线路2
IfU=3ThenProg"BP3":IfEnd:                     //进入线路3
.........

路肩宽度B 路肩坡度C 边沟宽度D、平台宽度E 平台坡度F  马道宽H 马道坡度 V (马道坡度向边坡侧仰为-,向公路侧仰

为正)1级边坡高度G1级别边坡坡度K  2级边坡高度M  2级边坡坡度N  3级边坡高度I  3级边坡坡度P  4级边坡高度R  4级

边坡坡度 S

边坡数据库1 BP1
If J≥(或≤区分路基左右)0:Then If  L(里程)<终点桩号 And L>起点桩号:Then
"1~N":                 //录入本线元边坡级数,在使用时候可以看到本段边坡级数,而选择计算边坡层
路肩宽度→B:路肩坡度→C:边沟宽度→D:平台宽度→E:平台坡度→F:马道宽度→H:
马道坡度→V:1级边坡高度→G:1级别边坡坡度→K : 2级边坡高度→M:  2级边坡坡度→N : 3级边坡高度I:  3级边

坡坡

度P:  4级边坡高度R:  4级边坡坡度:Return:IfEnd:IfEnd:  //约定:所有边坡度正负符号向中线内侧倾斜为+,向外侧倾斜

为-。有几层边坡就录入多少边坡数据,只有一层边坡时可不录入马道高宽数据

边坡数据库2 BP2

边坡数据库3 BP3

数据库也是要像编程序一样输入进去吗?是不是要看设计的情况更改数据呀?亲爱的楼主

534 楼:'地底233米

10-5-26 12:15

评:+10 分

我顶顶顶顶,强强顶还没用,不过先顶起,辛苦了

535 楼:'CYMINOWS

10-5-27 21:59

大家要把5800(9860)当成计算机使用,把编程的方向往原始数据的输入及读取,就向跟电脑一样。不管有N 条线路,

只要直接LOAD。。。。,数据输入,直接SAVE,就可以了。

536 楼:lishixing79

10-5-30 9:23

评:+6 分

U=2=>Porg”ZS”:    进入坐标正算程序
U=3=>Porg”FS”:    进入坐标反算程序
程序中没有“ZS”和“FS”子程序,是否应该更正为“ZS-XH”和“FS-XH”

537 楼:lishixing79

10-5-30 14:57

"XJ"?→A:X+Zcos(Q+A) →G:
"XJ"代表什么?

538 楼:zhuyi98 楼主

10-6-2 9:8

lishixing79,提示你输入计算点的斜交角度

539 楼:jiaande

10-6-2 15:51

评:+10 分

谢谢楼主的分享

540 楼:miaovip258

10-6-5 15:47

楼主你好,能把你的5800和9860的两个程序都给我一份吗?我的邮箱是:miaovip258@126.com

541 楼:'xingzyhou

10-6-14 22:51

评:+10 分

zhuyi朋友,知道你在忙着编9860的程序,不过我一直在用你的5800程序,觉得蛮好用的,就是缺了隧道部分的超欠挖

,不知你能否帮下忙,共享出来,或着发我邮箱:771515481@qq.com,不甚感激!

542 楼:'小伟

10-6-17 19:54

请问楼主!!公路遇到长链只能另外加线路吗?还有高程数据库  !!怎么输入啊!!!没有高程线路选择啊!!请

楼主指教!!!!!

543 楼:'xingzyhou

10-6-19 17:0

窗体顶端

正在上传…重新上传取消

我的姓名:正在上传…重新上传取消  给予评分: (可评分支持作者,支持才是上传动力!)

正在上传…重新上传取消正在上传…重新上传取消正在上传…重新上传取消正在上传…重新上传取消正在上传…重新上传取消正在上传…重新上传取消正在上传…重新上传取消正在上传…重新上传取消正在上传…重新上传取消正在上传…重新上传取消正在上传…重新上传取消

正在上传…重新上传取消

  

窗体底端

       

窗体顶端

正在上传…重新上传取消

用户名称: 正在上传…重新上传取消

登陆密码: 正在上传…重新上传取消

Cookies:不保留保留

用户注册 忘记密码

窗体底端

  《计算器程式》栏目说明

计算器已成为测量人不可缺少的工具,测量专用的计算器当然编有程序。

您编写的计算器程式是否完全正确和如何编写最有效率的计算器程式,成为一个值得交流的问题。本栏目《计算器程式》正是为解决这个问题独立的交流平台。

欢迎您的上传!期待您的上传!

本栏目为成熟作品发布区,网友提问请教贴请在《问答》栏目上提问

本站宗旨: 平等交流、共同提高

     

正在上传…重新上传取消 计算器程式

正在上传…重新上传取消 CASIO4500/通用

[11]

正在上传…重新上传取消 CASIO4800/4850

[268]

正在上传…重新上传取消 CASIO5800

[215]

正在上传…重新上传取消 CASIO9860

[17]

正在上传…重新上传取消 PC-E500/其它

[35]

本站定位 ┋ 会员信息 ┋ 站内搜索 ┋ 网页管理 ┋TOP┋返回上一页

Copyright © 2006 【测量空间】 粤ICP备10084048号 All Rights Reserved
浏览本站需安装IE6.0下载 ┋ ┋ 页面下载:1000毫秒
本站积分规则

5800计算器公路三维全能程序相关推荐

  1. 西欧5800计算器坐标正反算程序

    西欧5800计算器坐标正反算程序   讲你个讲  1位粉丝 1楼 主程序   坐标正反算 程序名称:ZBZFS Lb1   A↙ 30→Dim Z :"0=ZS,1=FS"?Z ↙ ...

  2. 坐标反算用计算机怎么算,卡西欧5800计算器坐标正反算程序

    该楼层疑似违规已被系统折叠 隐藏此楼查看此楼 主程序坐标正反算 程序名称:ZBZFS Lb1   A↙ 30→Dim Z :"0=ZS,1=FS"?Z ↙ If   Z=0:The ...

  3. 卡西欧5800计算机隧道程序,卡西欧5800计算器线路隧道一体程序

    henhao 1-JIN YU(主程序) Lbl 4: "1→ZS,2→FS,3→CQW"?N(选择计算模式,1为正算,2为反算,3为超欠挖) N=1=>Goto 1:N=2 ...

  4. 计算机5800计算道路标高程序,Casio fx-5800P计算器三个公路基本测量程序编写与应用...

    原标题:Casio fx-5800P计算器三个公路基本测量程序编写与应用 引论:casiofx-5800P计算器测量程序在计算机网络上多有流传,但有的测量主程序算法复杂,编程繁琐:有的程序内容表达错误 ...

  5. 测绘计算机编程在在道路中的应用,Casiofx-5800P计算器三个公路基本测量程序编写...

    Casiofx-5800P计算器三个公路基本测量程序编写与应用 引论:casiofx-5800P计算器测量程序在计算机网络上多有流传,但有的测量主程序算法复杂,编程繁琐:有的程序内容表达错误,有的不能 ...

  6. c语言版计算坐标方位角,C语言辛普森道路测量正反算,秒杀5800计算器

    C语言辛普森道路测量正反算,秒杀5800计算器 /*道桥测量用C语言源程序*/ /*此版本为未完成版本,只能由路线的平曲线元素计算全线中桩坐标或反算桩号*/ /*本人小白,拿出来纯属希望能得到高手指点 ...

  7. 卡西欧计算机软件测量,卡西欧fx-5800P计算器公路设计与测量程序

    卡西欧fx-5800P计算器公路设计与测量程序 作 者:陶启粦,陶川,陶芬 主编 出版时间:2012 丛编项:卡西欧计算器公路编程系列 内容简介 <卡西欧fx-5800P计算器公路设计与测量程序 ...

  8. 光度立体视觉 matlab,Matlab官方光度立体三维成像程序

    Matlab官方光度立体三维成像程序 matlab 2020-11-28 下载地址 https://www.codedown123.com/52614.html Matlab官方光度立体三维成像程序, ...

  9. 轮胎界内的“三维全能战士”,2022年如何乘胜追击?

    2021年可谓是中国汽车市场的破局之年,在工业4. 0的时代大背景下,数字化智能制造和制造生产的升级改造成为大势所趋.在各企业群雄逐鹿的战局之中,进入中国市场27年之久的锦湖轮胎,秉承"行稳 ...

最新文章

  1. FusionNet:基于稀疏雷达点云和RGB图像的深度图补全
  2. 刚刚,CVPR 2021论文接收结果「开奖了」
  3. 【Gradle】借助gradle的ProductFlavor实现多App间代码库复用
  4. 周五:IPC连接及远程执行
  5. 泰国基础教育管理实行新体制
  6. git中的暂存区与工作区
  7. 一起学并发编程 - 钩子函数(shutdownHook)
  8. 法院才是最童叟无欺的一元店
  9. php方法 隐藏手机号中间四位
  10. 软件工程学习进度表06
  11. L2-033 简单计算器 (25 分)-PAT 团体程序设计天梯赛 GPLT
  12. 2017 Multi-University Training Contest - Team 4:1004. Dirt Ratio
  13. IEEE Signal Processing Letters
  14. google浏览器flash插件
  15. 安全防范趋势、信息安全管理、隐私保护
  16. Eplan教学视频合集-百度网盘-收集于网络,供参考
  17. e次方用计算机怎么算百分比,e指数计算器
  18. 【EXLIBRIS】随笔记 008
  19. python,给定任意列表lst和一个任意值item,返回item在lst中第一次出现的位置
  20. 抖音用什么编程语言_抖音app开发者的心路历程:论开发者的一些经验之谈

热门文章

  1. 富基融通:“穷”行业生存术
  2. 彻底卸载重装oracle
  3. 7-1 哈利·波特的考试 (25分)
  4. 弘康人寿借助区块链技术公开全部理赔结果
  5. 那些开源协议可以商用
  6. 机器周期,时钟周期等概念
  7. (程序设计方法与实践)水晶球
  8. 解决因无法加载文件 C:\Users\m1854\AppData\Roaming\npm\nodemon.ps1,在此系统上禁止运行脚本的问题
  9. 12 个要收藏的前端 CSS 网站
  10. java which_which