原创力文档- 1、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
- 2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
- 4、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
- 5、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传，每下载1次， 网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
fx-5800P_单圆竖曲线高程计算程序PM10-1
fx-5800P 程序
(2) 主程序：PM10-1 ，占用内存1092 字节
SINGLE CIRCLE VERTICAL CURVE 显示程序标题
Deg:ClrStat:FreqOn:Fix 3 基本设置
C MILEAGE PEG(m)=?Z 输入以m 为单位的变坡点桩号
HC(m)=?H 输入变坡点C 高程
i1(%)=?A 输入坡度 1
i2(%)=?B 输入坡度2
R(m)=?R 输入竖曲线半径
13DimZ 定义额外变量维数
If A-B0:Then -1Z[10]:Else 1Z[10]:IfEnd
tan-1(0.01A)Z[1]:tan-1(0.01B) Z[2] 计算坡度竖直角Z[1],Z[2]
Z[1]-Z[2]Z[13]:Abs(Z[13])Z[3] 计算坡度转角Z[3]
-0.5(Z[1]+Z[2])Z[4] 计算变坡点C 的铅垂线与外距直线的夹角δ
RZ[3]π÷180L 计算竖曲线长
Rtan(0.5Z[3])T 计算切线长
R((cos(0.5Z[3]))-1-1)E 计算竖曲线外距
α1(DMS)=:Z[1]DMS 显示第一纵坡竖直角
α2(DMS)=:Z[2]DMS 显示第二纵坡竖直角
α1- α2(DMS)=:Z[13]DMS 显示竖曲线转角
DELT(DMS)=:Z[4]DMS 显示δ
L(m)=:L 显示竖曲线长
T(m)=:T 显示切线长
E(m)=:E 显示竖曲线外距长
Z-TList X[1] 计算竖曲线起点A 的桩号
-Tcos(Z[1])List Y[1] 计算C→A 的水平距离
H-Tsin(Z[1])List Freq[1] 计算竖曲线起点A 的高程
START-A PEG(m)=:List X[1] 显示竖曲线起点A 的桩号
DIST CA(m)=:List Y[1] 显示C→A 的水平距离
HA(m)=:List Freq[1] 显示A 点的高程
List X[1]+0.5L+Etan(Z[4])List X[2] 计算变坡点到投影点D 的桩号与高程
H+Z[10]E ÷cos(Z[4])List Freq[2]
0List Y[2] 计算C→D 点的水平距离
D PEG(m)=:List X[2] 显示D 点的桩号与高程
DIST CD(m)=:List Y[2]
HD(m)=:List Freq[2]
List X[1]+LList X[3] 计算竖曲线终点B 桩号与高程
Tcos(Z[2])List Y[3] 计算C→B 的水平距离
H+Tsin(Z[2])List
文档评论（0）