找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 902|回复: 1

[分享]:4800P竖曲线程序

[复制链接]
发表于 2006-8-13 15:09:23 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有账号?立即注册

×
竖曲线计算程序
A“JDK00+000”:B“HD”:C“R”:M“i-1”:D=M÷100:N“i-2”:E=N÷100:H=C÷2×ABS(D-E): ------------------ 计算T长 ------------------
D>E =>F=-1:≠=> F=1 :△      ------------- 判断是凹或凸曲线 --------------
LB1 1:{G}:G“ZHUANG”:
G<A-H=>I= -D:GOTO 2:≠=>   ---当桩号不位于竖曲线上时程序转到2处运行-----
G≤A =>I= -D:GOTO 3:≠=>   
G<A+H=>I= E:GOTO 3:≠=>   -
I= E:GOTO 2:△△△                        ----当桩号不位于竖曲线上时程序转到2处运行-----
LB1 2:J“HD”=B+I×ABS(G-A)▲   计算直线段桩号标高
GOTO 1:            程序转到1处输入下一点桩号
LB1 3:J“HD”=B+ ABS(G-A)×I+F×(H-ABS(G-A))2÷(2C)▲
GOTO 1:                计算竖曲线段桩号标高
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
发表于 2006-8-15 15:46:59 | 显示全部楼层
CASIO4800P竖曲线计算程序

程序名称:SQX        
IA“⊿I1”B“⊿I2”C“BP”F“HP”RT
D=C-T:E=C+T
Lbl  0:{K}
KD= >X=C-K:N=A:Goto 1⊿
K≥E= >X=C-K:N=B:Goto 1⊿
K≤C= >X=K-D:Y=C-K:N=A:Goto 2:≠>X=E-K:Y=C-K:N=B:Goto 2⊿
Lbl  1:H“HS”=F-XN◢
Goto 0
Lbl  2:H“HS”=F-YN-I X2÷2÷R◢
Goto 0

注:
    I——竖曲线为凹型时输入-1,为凸型时输入1;
   ⊿I1、⊿I2——输入格式为0.###
     BP——为变坡点里程
   HP——为变坡点高程
   R——半径
   T——切线
   K——输入待计算桩号
   HS——计算输出结果
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-11-15 07:02 , Processed in 0.331803 second(s), 31 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表