原创力文档- 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坐标高程计算程序交点法
CASIOfx-5800P单交点通用型曲线坐标高程计算程序
一、说明：
本程序采用交点法计算道路基本型曲线坐标及高程，在建立好数据库后，能连续计算全线各桩号的中边桩坐标及高程。本程序共包括一个主程序和九个子程序，其中有坐标计算、高程计算、坡口坡脚线放样，锥坡放样坐标计算等子程序。
二、内容：
1．PM5-3 XYZJS（主程序）
“SINGLE BASIC TYPE CURVE”◢
“METHOD OF COORDINATE PM5-3”◢
Deg:ClrStat:FreqOn:Fix 3
40→DimZ
“INPUT(0) Or DATA(Else)”?N
“FUNCTION”?P
Prog “SUB5-35”
If Z[30]0:Then -1→Z[20]:Else 1→Z[20]:IfEnd
Abs(Z[30])→D
Pol(Z[26]-Z[28],Z[27]-Z[29]):Cls
If J0: Then J+360→Z[11]:Else J→Z[11]:IfEnd 计算ZH→JD方位角
Z[11]+Z[30]+180→Z[16] 计算HZ→JD方位角
If Z[16]360:Then Z[16]-360→Z[12]:Else Z[16]→Z[12]:IfEnd
If Z[12]180:Then Z[12]-180→Z[23]:Else Z[12]+180→Z[23]:IfEnd计算JD→HZ方位角
S2÷（24R）-S4÷(2688R3)→Z[1] 计算第一缓和曲线内移值
0.5S-S3÷(240R2)+S5÷(34560R4)→Z[2] 计算第一缓和曲线切线增长值
T2÷(24R)-T4÷(2688R3)→Z[3] 计算第二缓和曲线内移值
0.5T-T3÷(240R2)+T5÷(34560R4)→Z[4] 计算第二缓和曲线切线增长值
(R+Z[3])÷sin(D)-(R+Z[1])÷tan(D)+Z[2]→Z[5] 计算第一切线长
(R+Z[1])÷sin(D)-(R+Z[3])÷tan(D)+Z[4]→Z[6] 计算第二切线长
90S÷(πR)→Z[7]:90T÷(πR)→Z[8] 计算第一、二缓和曲线偏角
πR(D-Z[7]-Z[8])÷180→Z[9] 计算圆曲线长度
S+T+Z[9]→Z[10] 计算曲线总长度
Z[25]-Z[5]→List X[1] 计算直缓点桩号
1→K:Prog “SUB5-37”
List X[1]+S→List X[2]:List X[2]+Z[9]→List X[3] 计算缓圆点、圆缓点桩号
Z[26]-Z[5]cos(Z[11])→List Y[1]:Z[27]-Z[5]sin(Z[11])→List Freq[1]
If S≠0:Then“ZH PEG(m)=”:List X[1]◢ 显示直缓点桩号
Else “ZY PEG(m)=”:List X[1]◢ 显示直圆点桩号
IfEnd
“X(m)=”:List Y[1]◢ 显示直缓(圆)点X坐标
“Y(m)=”:List Freq[1]◢ 显示直缓(圆)点Y坐标
“H（m）=”:Z[24]◢ 显示直缓(圆)点Z坐标
“FWJ=”:Z[11] ?DMS◢
文档评论（0）