为了正常的体验网站,请在浏览器设置里面开启Javascript功能!
首页 > 卡西欧5800竖曲线程序

卡西欧5800竖曲线程序

2018-01-04 2页 doc 12KB 37阅读

用户头像

is_686908

暂无简介

举报
卡西欧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竖曲线程序
卡西欧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,我们尽快处理。 本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权,请谨慎使用。 网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传,仅限个人学习分享使用,禁止用于任何广告和商用目的。

历史搜索

    清空历史搜索