卡西欧5800竖曲线程序卡西欧5800竖曲线程序
竖曲线 ,主程序,
Lbl0
?K:A-B?W:RAbs(W?100)?2?T
If W?0:Then -1?N:Else 1?N:IfEnd
C-T?F:C+T?Q
If K?F:Then (K-C)A?100+E?O :Goto1: Else If K?C:Then (K-C)A
2?100+E+N(K-F)?2?R?O:Goto 1:Else If K?Q:Then(K-C)B?
2100+E+N(K-Q)?2?R?O:Goto 1:Else If K,Q:Then(K-C)B?100...
卡西欧5800竖曲线程序
竖曲线 ,主程序,
Lbl0
?K:A-B?W:RAbs(W?100)?2?T
If W?0:Then -1?N:Else 1?N:IfEnd
C-T?F:C+T?Q
If K?F:Then (K-C)A?100+E?O :Goto1: Else If K?C:Then (K-C)A
2?100+E+N(K-F)?2?R?O:Goto 1:Else If K?Q:Then(K-C)B?
2100+E+N(K-Q)?2?R?O:Goto 1:Else If K,Q:Then(K-C)B?100+E?O:Goto 1:IfEnd
Lbl 1
“H=”:O?
G,L,数据库子程序~运行就在此程序,
,b1 0
?K
If K< 766175:Then: Goto0 :IfEnd If K>783071.25:Then: Goto0 :IfEnd If K? 769687.5:Then 1?A:0?B:766300?C:1140.242?E:25000?R:Goto1 :Else If K?772455:Then 0?A:-2.5?B:770000?C:1140.242?E:25000?R:Goto1:Else If K?774577.5:Then -2.5?A:-0.3?B:772730?C:1071.9922?E:25000?R:Goto1:Else If K?775812.5:Then -0.3?A:1?B:774740?C:1065.9622?E:25000?
R:Goto1:Else If K?778200:Then 1?A:2.5?B:776000?C:1078.5622?E:25000?R:Goto1:Else If K?779937.5:Then 2.5
?A:-0.3?B:778550?C:1142.312?E:25000?R:Goto1:Else If K
?781426.25:Then -0.3?A:1.4?B:780150?C:1137.5122?E:25000?R:Goto1:Else If K?782928.75:Then 1.4?A:-0.87?B:781710?C:1159.3522?E:25000?R:Goto1:Else If K?783071.25:Then -0.87?A:-0.3?B:783000?C:1148.1292?E:25000?R
Lb1 1
Prog “GC”
Goto 0
说明:1.K为里程。2.运行在子程序“GCL”中进行。3.子程序定义是按里程以每条竖曲线的ZY点为分界点定义的~即使有无数个竖曲线连在一起按ZY点里程定义前面的就行。4.子程序中的字母:A:前坡 B:后坡 C:交点里程 E:交点高程 R:每条竖曲线的半径。5.坡度上为正下为负~坡度取值为百分数的分子~而不是化成小数直接输入到子程序。
5800的
本文档为【卡西欧5800竖曲线程序】,请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑,
图片更改请在作品中右键图片并更换,文字修改请直接点击文字进行修改,也可以新增和删除文档中的内容。
[版权声明] 本站所有资料为用户分享产生,若发现您的权利被侵害,请联系客服邮件isharekefu@iask.cn,我们尽快处理。
本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权,请谨慎使用。
网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传,仅限个人学习分享使用,禁止用于任何广告和商用目的。