- 1、本文档共7页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
曲线任意里程中边桩坐标正反算5800p好用
曲線任意里程中邊樁坐標正反算5800pTYQXJS(主程序名)LbI 0:4→Dimz:Cls1.SZ→XY2.XY→SZ?→N:ClsXO?U: YO?V: SO?O:FO?G: LS?H: RO?P:RN?R:?Q1÷P→C:(P-R)÷(2HPR) →D:180÷π→EN=2=Goto 2LbI 1:Cls:?SS=0=Goto 0??(注:當S輸入0時,程序會由LbI 0開始重新運行)?Z:Abs(S-O)→WProgSUB1:ClsXS=:X◢YS=:Y◢FS=:F-90 ?DMS◢Goto 1LbI 2:Cls:?XX=0=Goto 0??(注:當X輸入0時,程序由會LbI 0開始重新運行)?Y:X→I:Y→JProgSUB2:O+W→S:ClsS=:S◢Z=:Z◢Goto 2注:紅色部可以不要,亦可以要,它的作用是將S或X輸入0時,程序會重新由頭開始運行,(即是可以計算下段線元)SUB1(子程序名)0.1739274226→A:0.3260725774→B0.0694318442→K:0.3300094782→L1-L→F:1-K→MG+QEKW(C+KWD)→Z[1]G+QELW(C+LWD)→Z[2]G+QEFW(C+FWD)→Z[3]G+QEMW(C+MWD)→Z[4]A×cos(Z[1])→X??(剩號可省略)X+Bcos(Z[2])→XX+Bcos(Z[3])→XX+Acos(Z[4])→XU+WX→XAsin(Z[1])→YY+Bsin(Z[2])→YY+Bsin(Z[3])→YY+Asin(Z[4])→YV+WY→YG+QEW(C+WD)+90→FX+Zcos(F)→XY+Zsin(F)→YSUB2(子程序名)G-90→T(Y-V)cos(T)-(X-U)sin(T)→WAbs(W)→W:0→ZLbI 4:ProgSUB1T+QEW(C+WD)→L(J-Y)cos(L)-(I-X)sin(L)→ZIf Abs(Z)<1E-6:Then 0→Z :ProgSUB1(J-Y)÷sin(F)→ZElse W+Z→W:Goto 4:IfEnd注:1E-6即是10的負6次方,亦即是等於0.000001輸入時按SHIFT---log---(-)---6亦可直接將If Abs(Z)<1E-6寫成If Abs(Z)<0.000001注意:本程序是根據yhhf編寫的4800P改寫而成,以下是源程序及算例大家有問題亦可在以下網址查看及向yshf發問/celiang/article_view.asp?id=380author=yshf曲线任意里程中边桩坐标正反算(CASIO fx-4800P计算器)程序一、程序功能????????本程序由一个主程序(TYQXJS)和两个子程——正算子程序(SUB1)、反算子程序(SUB2)序构成,可以根据曲线段——直线、圆曲线、缓和曲线(完整或非完整型)的线元要素(起点坐标、起点里程、起点切线方位角、线元长度、起点曲率半径、止点曲率半径)及里程边距或坐标,对该曲线段范围内任意里程中边桩坐标进行正反算。另外也可以将本程序中核心算法部分的两个子程序移植到其它相关的程序中,用于对曲线任意里程中边桩坐标进行正反算。本程序也可以在CASIO fx-4500P计算器及 CASIO fx-4850P计算器上运行。?? 特别申明:(1). 适用于弧长小于2倍半径的各种线元坐标正反算,精度优???????????????? 于1mm;????????????????????(2). 在引用该核心计算部分时,请注明来源。二、源程序1.主程序(TYQXJS)1.SZ = XY:2.XY = SZ:N:UX0:VY0:OS0:GF0:HLS:PR0:RRN:Q:C=1÷P:D=(P-R)÷(2HPR):E=180÷π:N=1=Goto 1:≠Goto 2Δ←┘Lbl 1:{SZ}:SZ:W=Abs(S-O):Prog SUB1:XXS=X◢YYS=Y◢FFS=F-90◢Goto 1←┘Lbl 2:{XY}:XY:I=X:J=Y:Prog SUB2:SS=O+W◢ZZ=Z◢Goto 22. 正算子程序(SUB1)A=0.1739274226:B=0.3260725774:K=0.0694318442:L=0.3300094782:F=1-L:M=1-K:X=U+W(Acos(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD))+Bcos(G+QEFW(C+FWD))+Acos(G+QEMW(C+MWD)))
您可能关注的文档
- 48学时冶金09.ppt
- 转炉-连铸新技术.ppt
- [转] 道路中边桩坐标放样正反算程序ROAD-2(0908改进版).doc
- 冶金学-Cu-09-3-冰铜熔炼(09简化试用).ppt
- 完整土0501(1~4)土力学教案.doc
- 软基处理监测及检测方案.doc
- CASIO_fx-5800P程序(全线贯通).doc
- 冶金学-Cu-08-2-铜冶金简介.ppt
- 高考化学实验分析与复习建议.ppt
- 5800道路中边桩坐标正反算程序(全线贯通)---- 交点法14.doc
- 小学心理健康教育课程与社会主义核心价值观的融合研究教学研究课题报告.docx
- 小学社会课中公民意识教学中角色扮演法的实践教学研究课题报告.docx
- 《美容美发行业连锁经营模式中的技术创新与产品升级策略研究》教学研究课题报告.docx
- 小学体育趣味田径赛提高运动技能与创新发展能力教学研究课题报告.docx
- 探索初中科学课程中3D打印技术的应用与教学策略教学研究课题报告.docx
- 《地下空间防水防渗技术在地下空间开发中的法律法规研究》教学研究课题报告.docx
- 《建筑节能保温材料对室内热舒适性的影响研究》教学研究课题报告.docx
- 个性化学习平台在初中物理教学中的实施策略研究教学研究课题报告.docx
- 小学政治课堂上的国家制度运行考察教学研究课题报告.docx
- 芬迪FENDI品牌短视频脚本策划方案.pptx
最近下载
- 07米联客2020版FPGA教程(FT60X篇).pdf
- (完整)混凝土回弹强度自动计算EXCEL表.xls VIP
- 《 房地产企业税制改进政策研究》范文.docx VIP
- 房产抵押合同范本6篇 .pdf VIP
- 工业机器人系统操作员(技师)理论复习考试题库(附答案).docx
- 山东省中小学教师人工智能赋能教学教研线上研修活动单元测试答案.docx VIP
- 变电站水泥电线杆防腐加固工程施工组织设计方案(可编辑).doc VIP
- 第11课 近代职业教育的兴起和发展(教学设计)-【中职专用】《世界历史》.docx
- 关于延长中频炉炉衬寿命的探讨.pdf
- 核心素养导向下的小学科学教学改革研究教学研究课题报告.docx
文档评论(0)