5800万能程序.doc_第1页
5800万能程序.doc_第2页
5800万能程序.doc_第3页
5800万能程序.doc_第4页
全文预览已结束

下载本文档

版权说明：本文档由用户提供并上传，收益归属内容提供方，若内容存在侵权，请进行举报或认领

文档简介

5800万能程序1. 主程序XLJS （线路计算）Lbl 01.ZBZS,2.ZBFS?NIf N=1：Then Goto1：Else If N=2：Then Goto1：IfEnd：Goto 0Lbl 1QDDK?O：X0?U：Y0?V：N0?G：L?H：R1?P：R2?R：，Z,-1,0,Y,+1？Q1PC： (P-R)(2HPR)D：180EIf N=1:Then Goto 2：Else If N=2：Then Goto 3：IfEnd：Goto 0Lbl 2：JSDK?Z If ZO+H：Then Goto 2：IfEndE,Z,-,Y,+?S：Abs(Z-O)W：Prog ZSZCX：X=：Y=：YN0=：F-90M：M 实心 DMSGoto 1Lbl 3：X0?X：Y0?Y：XI：YJ：Prog FSZ0CX：DK=：O+WZE=,Z,-,Y,+：SGoto 12.反算子程序(FSZCX)G-90T：Abs(Y-V)cos(T)-(X-U)sin(T)W：0S：Lb1 0：ProgZSZCX：T+QEW(C+WD)L：(J-Y)cos(L)-(I-X)sin(L)SIfAbs(S)10(-6):Then Goto1：Else W+SW：Goto 0Lbl 10SProgZSZCX：(J-Y)sin(F)S3.正算子程序(ZSZCX)0.1739274226A：0.3260725774B：0.0694318442K：0.3300094782L：1-LF：1-KM：U+W（Acos（G+QEKW（C+KWD）+Bcos（G+QELW（C+LWD）+Bcos（G+QEFW（C+FWD）+ACOS（G+QEMW（C+MWD）X：V+W（A sin(G+QEKW(C+KWD)+Bsin(G+QELW(C+LWD)+Bsin(G+QEFW(C+FWD)+Asin(G+QEMW(C+MWD)）Y：G+QEW(C+WD)+90F：X+Scos(F) X：Y+Ssin(F) Y说明：5800计算万能程序 可以反算曲线弧长！（QDDK(起点里程)为曲线左右偏 左偏输入-1右偏输1 E 为偏距 左偏输入负值右偏输入正值）本程序算的将曲线分为三段算 ZHHY,HYYH，YHHZa、 ZHHY段算的R1=1* R2=R(曲线半径)L为缓和曲线长b、 HYYH R1= R R2=R 为圆曲线长 N为HY的切线方位角c、 ZHHY段算的R1=R R2=1* L为缓和曲线长N为YH的切线方位角d、 反算也一样下面两个为常用的坐标正反算1.ZBFS（坐标反算）X0?A：Y0?B：X1?C：Y1?DM=：C-AML=：D-BLS=：SN=：(MS)N：If L0：Then 360-NN：Else NN2.ZBZS（坐标正算）X0?A：Y0?B：K2?P：K1?Q：N?N：E
人人文库> 全部分类> 教育资料 > 课设设计

温馨提示

  • 1. 本站所有资源如无特殊说明，都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等，如果需要附件，请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸，网页内容里面会有图纸预览，若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对用户上传分享的文档内容本身不做任何修改或编辑，并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容，请与我们联系，我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

最新文档

评论

0/150

提交评论