原创力文档- 1、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
- 2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
- 4、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
- 5、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传，每下载1次， 网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
(以下程序是专业人士编写，本店铺不对程序负责，仅供您参考使用。)
卡西欧FX5800p计算器中边桩程序
①主程序FY (放样程序) ?A:?P:?B:?C:?D:?E:?R:?W:?M:?N:?F:?G:?H Lbl? 0 ?K:?L:?U: C-B→V: RV→S: V÷2-V^(3)÷(240R2)→Q: (R+V2÷24÷R)tan(A÷2)+Q→T If KIf KRec(T+B-K，W-180) X=:M+I→X◢ Y=:(T+B-K)sin(W-180)+N→Y◢ W→Z:Goto 5 Lbl 1 If KC:Then Goto 2:IfEnd? K-B→O Ｏ-Ｏ^(5)÷40÷S2→X Ｏ^(3)÷6÷S-Ｏ^(7)÷336÷(S^(3))→Y ProgSUB1 )→Z?90Ｏ2÷(RV FZ+W→Z Goto 5 Lbl 2 If KD:Then Goto 4:IfEnd K-B→O ÷R→Z?90V÷ ÷R+Z→Z?180(Ｏ-V)÷ RsinZ+Q→X R(1-cosZ)+V2÷24÷R→Y ProgSUB1 ÷R)+W→Z?÷R+F(180(Ｏ-V)÷?90VF÷ Goto 5 Lbl 4 If KE:Then Goto 0:IfEnd E-K→O Ｏ-Ｏ∧(5)÷(40S２)→X Ｏ^(3)÷6÷S-Ｏ^(7)÷336÷(S^(3))→Y X→Z: T(1+cos(A))-Xcos(A)-Ysin(A)→X Tsin(A)-Zsin(A)+Ycos(A)→Y ProgSUB1 →Z?90Ｏ２÷R÷V÷ W+FA-FZ→Z Lbl 5 If L≥0:Then U→U:Else U+180→U:IfEnd Rec(Abs (L)，Z+U) X=:X+I→X◢ Y=:Y+J→Y◢ Pol(X-G，Y-H) If J0:Then J+360→J:IfEnd DMS◢?FWJ=:J CJ=:I◢ Goto 0 子程序 ②SUB1 X→Z M+Tcos (W-180)+√(X２+Y２)cos((360-W)-Ftan-1(Y÷X))→X◢ N+Tsin (W-180)-√(Z２+Y２)sin((360-W)-Ftan-1(Y÷Z))→Y◢ 说明: A:转向角 P:直线起点里程 B:ZH点里程? C:HY点里程 D:YH点里程 E:HZ点里程? R:圆曲线半径 W:方位角 M:曲线交点坐标X N:曲线交点坐标Y F:转向角识别（输入-1表示左转，+1右转） G:测站点X坐标 H:测站点Y坐标 K:测设点里程 L:横断面宽度（左侧负值，右侧正值） U:与线路夹角（左右互补） X，Y测点坐标，CJ测站到测点的距离，FWJ测点的方位角
有问题咨询Q258087939
文档评论（0）