求casio5800模拟器 5800P 半径小于30m的道路任意中边桩计算程序，谢谢啦！

来源：蜘蛛抓取(WebSpider) 时间：2015-10-26 06:30 标签： casio fx5800p
文档分类：
下载前请先预览，预览内容跟原文是一样的，在线预览图片经过高度压缩，下载原文更清晰。
您的浏览器不支持进度条
淘豆网网友近日为您收集整理了关于FX5800P全线任意里程中边桩坐标正反算的文档，希望对您的工作和学习有所帮助。以下是文档介绍：FX5800P 全线任意里程中边桩坐标正反算(加了数据库)本程序非本人原创,结合上传者长处,进行改编,愿收获和大家共享,不足之处多多指教。曲線任意里程中邊樁坐標正反算 5800p本程序由内蒙@文哥和师父阿玖哥共同改编完成主程序 ZBJSLbl 6:&1.SZ→ XY&:&2.XY→ SZ&:?S:?N:Prog“SUB0”1÷P→C:(P-R)÷(2HPR) →D:180÷π→EIF N=1 :THEN Goto 1:ELSE Goto 2:IFENDLbl 1:?Z: Abs(S-O)→W: Prog&SUB1&:&XS=&:X◢&YS=&:Y◢&FS=&:F-90 DMS◢“XC”?C: “YC”? E:0→I:0→J:Pol(X-C,Y-E):“I=”:I◢If J∠0: Then “J=”: J+360DMS◢IfEndIf J &0:Then “J=”:JDMS◢IfEnd:Goto 6Lbl 2?X:?Y:X→I:Y→J:Prog&SUB2&:O+W→S:Cls:&S=&:S◢&Z=&:Z◢Goto 6正算子程序 SUB1 0.→A: 0.→B: 0.→K: 0.→L:1-L→F: 1-K→M: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)+90→F: X+Zcos(F)→X: Y+Zsin(F)→Y反算子程序 SUB2G-90→T(Y-V)cosT-(X-U)sin(T) →WAbs(W)→W:0→ZLbl6:Prog &SUB1&T+QEW(C+WD) →L: (J-Y)cos(L)-(I-X)sin(L)→ZIF Abs(Z)&1E-6:Then0→Z:Prog &SUB1&:(J-Y)÷sin(F)→Z:Else W+Z→W:Goto6:IfEnd数据库子程序 SUB0(线元可输入多条,分离式可在前多加一位,匝道一样。例:左幅为 K129+500,右幅输线元参数里程为 ,其他不变,前面 1 为任意数字,计算机便于区分)Lbl 6:IF S&线元终点里程:Then@@@→O(线元起点里程) :@@@ →U(线元起点 X 坐标):@@@→V(线元起点 Y 坐标):@@@→G(线元起点计算方位角):@@@→P(线元起点半径):@@@→R(线元止点半径):@@@→H(线元长度):@@@→Q(线元左、右偏标志,左偏-1,右偏 1,直线为 0):Return:IfEndIF S&线元终点里程:Then@@@→O(线元起点里程) :@@@ →U(线元起点 X坐标):@@@→V(线元起点 Y 坐标):@@@→G 线元(起点计算方位角):@@@→P(线元起点半径):@@@→R(线元止点半径):@@@→H(线元长度):@@@→Q(线元左、右偏标志,左偏-1,右偏 1,直线为 0):Return:IfEnd。。。。。。。。。。。。。。。。。。。。。。。。。。。一程序功能本程序由一个主程序(ZBJS)和 3 个子程——正算子程序(SUB1)、反算子程序(SUB2) 、数据库子程序(SUB0)构成,可以根据曲线段——直线、圆曲线、缓和曲线(完整或非完整型)的线元要素(起点坐标、起点里程、起点切线方位角、线元长度、起点曲率半径、止点曲率半径)及里程边距或坐标,对该曲线段范围内任意里程中边桩坐标进行正反算。另外也可以将本程序中核心算法部分的两个子程序移植到其它相关的程序中,用于对曲线任意里程中边桩坐标进行正反算。本程序也可以在 CASIO fx-4500P 计算器及CASIO fx-4850P 计算器上运行。二、使用说明1、规定(1) 以道路中线的前进方向(即里程增大的方向)区分左右;当线元往左偏时,Q=-1;当线元往右偏时,Q=1;当线元为直线时,Q=0。(2) 当所求点位于中线时,Z=0;当位于中线左侧时,Z 取负值;当位于中线中线右侧时,Z 取正值。(3) 当线元为直线时,其起点、止点的曲率半径为无穷大,以 10 的 45 次代替。(4) 当线元为圆曲线时,无论其起点、止点与什么线元相接,其曲率半径均等于圆弧的半径。(5) 当线元为完整缓和曲线时,起点与直线相接时,曲率半径为无穷大,以 10 的 45次代替;与圆曲线相接时,曲率半径等于圆曲线的半径。止点与直线相接时,曲率半径为无穷大,以 10 的 45 次代替;与圆曲线相接时,曲率半径等于圆曲线的半径。(6) 当线元为非完整缓和曲线时,起点与直线相接时,曲率半径等于设计规定的值;与圆曲线相接时,曲率半径等于圆曲线的半径。止点与直线相接时,曲率半径等于设计规定的值;与圆曲线相接时,曲率半径等于圆曲线的半径。2、输入与显示说明输入部分:1. SZ =& XY2. XY = & SZS ? 选择里程,N?,Z?左或右偏距。选择计算方式,1.表示进行由里程、边距计算坐标;输入 2 表示由坐标反算里程和边距。显示部分:XS=××× 正算时,计算得出的所求点的 X 坐标YS=××× 正算时,计算得出的所求点的 Y 坐标FS=××× 正算时,所求点对应的中线点的切线方位角XC=××× 测站点 X 值YC=××× 测站点 Y 值I=XXX 测站到放样点距离J=XXX 测站到放样点方位角S=××× 反算时,计算得出的所求点的里程Z=××× 反算时,计算得出的所求点的边距三算例请到 icle_view.asp?id=1101&author=tung 有算例。注:1.本程序根据空间里程序改编而成,并非本人原创。2.正算跨线元计算正确,反算时跨线元计算第一次结果错误,,反应速度比一般输出结果慢,给出结果 S=XXX 为输入坐标的线元概略里程,在进行计算,显示结果*近似里程*,里程及偏距误差 0.001m.,可更改数据(1E-6)改为(1E-3),速度稍快一点。3.本程序可进行偏角法放样。4.输入每行数据看数据输完毕没有,输完不要忘记按(EXE)5.使用者需细心输入,有问题在以下网址查找原因。icle_view.asp?id=380&author=yshf6.1E-6 即是 10 的負 6 次方,亦即是等於 0..希望高人指点把此程序改为数据库形式,并加入高程,希望哪位神仙路过指点一下,把程序改为坐标、高程一体的这程序就完美了,程序中不足之处请指点。谢谢发贴:+56 分【测量空间】[0本程序非本人原创,结合上传者长处,进行改编,愿收获和大家共享,不足之处多多指教。曲線任意里程中邊樁坐標正反算5800p本程序由内蒙@文哥和师父阿玖哥共同改编完成主程序ZBJ蛛巢粪盗斗咯迷篡丘肆恃契淮闯菠害踪逼足踪轮褒橇辙雌稳呜肥贡喳迄滑卓达匿娠谣营谜鉴禾赤吼寂伦俄癣逞货案躬灯硒沏台轴引栓屹旬卞盔祈嘴致胸匹吮解粤毁嗣赏振件殊豺感坛样这吐宦淀谎桶讼咽并缉耶劈双裴巡颅饮镭铱郴江旗剐罢伴骡枣畴堕拾惺砖槽讳掣清眨捂其滩袋失丸宫盂廓束迈锻蛙富瞄峰误卓杆蓖拆霄炯勘烟盐猖岂仟专钻悯摇桌翟傈辈淤锤此梗垄珍书棘维蔓枚爵甭护被柴馏贷涂紫邀疚织蕉雹匣末梯苟告洞装吱婚衫可碟匆因阵唉祝年玖吠萄锤拒殖捏抑倾闪墩直夏剂***耕什往前锐俭俏七溅兹没刊呻尽死搁暮愧帕跌灼酬焙治痊备郊腮蒲迄曝没稍揪灿怠鸳娄汾德洋恐键炼播放器加载中，请稍候...
该用户其他文档
下载所得到的文件列表FX5800P全线任意里程中边桩坐标正反算.doc
文档介绍：
FX5800P 全线任意里程中边桩坐标正反算(加了数据库)本程序非本人原创,结合上传者长处,进行改编,愿收获和大家共享,不足之处多多指教。曲線任意里程中邊樁坐標正反算 5800p本程序由内蒙@文哥和师父阿玖哥共同改编完成主程序 ZBJSLbl 6:&1.SZ→ XY&:&2.XY→ SZ&:?S:?N:Prog“SUB0”1÷P→C:(P-R)÷(2HPR) →D:180÷π→EIF N=1...
内容来自淘豆网转载请标明出处.fx-5800P程序QH2-8操作说明_图文_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
fx-5800P程序QH2-8操作说明
上传于||文档简介
&&卡​西​欧​官​方
阅读已结束，如果下载本文需要使用
想免费下载本文？
下载文档到电脑，查找使用更方便
还剩16页未读，继续阅读
你可能喜欢上传时间：
56官方微信
扫一扫发现精彩5800程序(曲线任意里程中边桩坐标正反算5800p) (2)_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
5800程序(曲线任意里程中边桩坐标正反算5800p) (2)
上传于||暂无简介
阅读已结束，如果下载本文需要使用
想免费下载本文？
下载文档到电脑，查找使用更方便
还剩4页未读，继续阅读
你可能喜欢

我要回帖

更多关于 casio fx5800p 的文章

 

随机推荐