5800主程序(可用).doc_第1页
5800主程序(可用).doc_第2页
5800主程序(可用).doc_第3页
全文预览已结束

下载本文档

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

文档简介

主程序ZBJSLbl 6:1.SZ XY:2.XY SZ:?S:?N:Prog“SUB0”1PC:(P-R)(2HPR) D:180E:N=1 =Goto 1: Goto 2Lbl 1: pianju:?Z: pianjian:? J:Abs(S-O)W: ProgSUB1:XS=:XYS=:YFS=:F DMSGoto 6Lbl 2?X:?Y:XI:YJ:ProgSUB2:O+WS:Cls:S=:SZ=:ZGoto 6正算子程序 SUB10.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(Asin(G+QEKW(C+KWD)+Bsin(G+QELW(C+LWD)+Bsin(G+QEFW(C+FWD)+Asin(G+QEMW(C+MWD) Y:G+QEW(C+WD)F X+Zcos(F+J)X Y+Zsin(F+J)Y反算子程序SUB2 G-90T(Y-V)cosT-(X-U)sin(T) WAbs(W)W:0ZLbl6:Prog SUB1T+QEW(C+WD) L: (J-Y)cos(L)-(I-X)sin(L)ZIF Abs(Z)1E-6:Then0Z:Prog SUB1:(J-Y)sin(F)Z:Else W+ZW:Goto6:IfEnd数据库子程序 SUB0Goto 1(线元可输入多条,分离式可在前多加一位,匝道一样。例:左幅为K129+500,右幅输线元参数里程为1129+500,其他不变,前面1为任意数字,计算机便于区分)Lbl1:IFS线元终点里程:ThenO(线元起点里程) : U(线元起点X坐标):V(线元起点Y坐标):G(线元起点计算方位角):P(线元起点半径):R(线元止点半径):H(线元长度):Q(线元左、右偏标志,左偏-1,右偏1,直线为0):Return:IfEndIFS XY2. XY = SZ S ?选择里程 ,N?,Z?左或右偏距。选择计算方式,1.表示进行由里程、边距计算坐标 ;输入2表示由坐标反算里程和边距。显示部分: XS=正算时,计算得出的所求点的X坐标 YS=正算时,计算得出的所求点的Y坐标 FS=正算时,所求点对应的中线点的切线方位角XC=测站点X值YC= 测站点Y值 I=XXX 测站到放样点距离J=XXX测站到放样点方位角 S=反算时,计算得出的所求点的里程 Z=反算时,计算得出的所求点的边距三算例请到/celiang/article_view.asp?id=1101&author=tung 有算例。注:1.本程序根据空间里程序改编而成,并非本人原创。2.正算跨线元计算正确,反算时跨线元计算第一次结果错误,反应速度比一般输出结果慢,给出结果S=XXX为输入坐标的线元概略里程,在进行计算,显示结果*近似里程*,里程及偏距误差0.001m.,可更改数据(1E-6)改为(1E-3),速度稍快一点。3本程序可进行偏角法放样。4.输入每行数据看数据输完毕没有,输完不要忘记按(EXE)5.使用者需细心输入,有问题在以下网址查找原因。/celiang/article_view.asp?id=380&author=yshf61E-6即是10的負6次方,亦即是等於0.0000017.希望高人指点把此程序改为数据库形式,并加入高

温馨提示

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

评论

0/150

提交评论