版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
1、线路中边桩任意里程坐标正、反算改编程序(CASIO fx-4800) 含数据库、测站放样计算
2、60; (第三次修改)1.加编数据库作为主程序,计算中不必逐项输入"线元要素",提高运算速度,避免现场忙中出错2.将原来的主程序并入数据库3.计算直观,人性化4.正算直接输入里程和边距,反算输入近似里程便可5.增加了“计算点与测站点”的距离和方位角计算语句,方便直接放样6.愿收获与大家共享7.核心计算程序摘自“yshf”8.第三次修改后,可以算任意斜交涵洞轴线的坐标,增加T为斜交角度,规定T为涵轴右侧方向与“线路前进方向切线”之间的夹角,当涵轴与线路正交时,T=90,其
3、他操作与原程序一样; 一.改动后的程序清单:1. 正算子程序(SUB1)
4、 color=RedA=0.1739274226:B=0.3260725774:K=0.0694318442:L=0.3300094782:F=1-L:M=1-K:X=U+W(Acos(G+57.2958QKW(1/P+KWD)+Bcos(G+57.2958QLW(1/P+LWD)+Bcos(G+57.2958QFW(1/P+FWD)+Acos(G+57.2958QMW(1/P+MWD):Y=V+W(Asin(G+57.2958QKW(1/P+KWD)
5、+Bsin(G+57.2958QLW(1/P+LWD)+Bsin(G+57.2958QFW(1/P+FWD)+Asin(G+57.2958QMW(1/P+MWD):F=G+57.2958QW(1/P+WD)+90:X=X+Zcos(F-90+T):Y=Y+Zsin(F-90+T)2. 反算子程序(SUB2) W=Abs(Y-V)cos(G-90)-(X-U)sin(G-90):Z=0:Lbl 0:Prog "SUB1":L=(G-90)+57.2958QW(1/P+WD):Z=(J-Y)cosL-(I-X)sinL:AbsZ<1E-6=>G
6、oto1:>W=W+Z:Goto 0Lbl 1:Z=0:Prog "SUB1":Z=(J-Y)÷sinF二.增设数据库程序(主程序) Lb1 4:"1.SZ => XY":"2.XY => SZ":NS:S下一线元起点里程O=本线元起点里程:U=本线元起点X:V=本线元起点Y:G=本线元起算方位角:H=本线元长度:P=起点曲率半径:R=终点曲率半径:Q=0或1、-1: Goto0(第一线元数据要素)S下一线元起点里程O=本线元起点里程:U=本线元起点X:V=本
7、线元起点Y:G=本线元起算方位角:H=本线元长度:P=起点曲率半径:R=终点曲率半径:Q=0或1、-1: Goto0(第二线元数据要素)S下一线元起点里程O=本线元起点里程:U=本线元起点X:V=本线元起点Y:G=本线元起算方位角:H=本线元长度:P=起点曲率半径:R=终点曲率半径:Q=0或1、-1: Goto0(第三线元数据要素)。Goto0(第N-1线元数据要素)。Goto0(第N线元数据要素)LB1 0:D=(P-R)÷(2HPR):N=1=>Goto 1:>Goto 2Lbl 1:TZ:Z:W=Abs(S-O):Prog "SUB1":X&qu
8、ot;XS"=XY"YS"=YF"FS"=F-90C“XC”:E“YC”:I=0:J=0:Pol(X-C,Y-E):I“I=” J0J“J=”+360J“J=” Goto4Lbl 2:XY:XY:I=X:J=Y:Prog "SUB2":S"S"=O+WZ"Z"=ZGoto4
9、 三. 使用说明: 1.把所有相关的”线元要素“依次输入”SJK“ 2.运算时直接调用“SJK”运行,程序提示输入里程“S”
10、?时,正算直接输入待求点里程,反算输入所求点“近似“里程 3.如果在正算中途想进行反算,重新给”N“?赋值"2"便可4.程序中“XC、YC、”为测站坐标,“”、“”为放样距离和方位角 5.其它输入与"yshf"原程序一致(程序中1/P表示1÷P)附件:(原yshf程序)曲线任意里程中边桩坐标正反算(CASIO fx-4800P计算器)程序一、程序功能 本程序由一个主程序(TYQXJS)和两个子程正算子程序(S
11、UB1)、反算子程序(SUB2)序构成,可以根据曲线段直线、圆曲线、缓和曲线(完整或非完整型)的线元要素(起点坐标、起点里程、起点切线方位角、线元长度、起点曲率半径、止点曲率半径)及里程边距或坐标,对该曲线段范围内任意里程中边桩坐标进行正反算。另外也可以将本程序中核心算法部分的两个子程序移植到其它相关的程序中,用于对曲线任意里程中边桩坐标进行正反算。本程序也可以在CASIO fx-4500P计算器及 CASIO fx-4850P计算器上运行。 特别申明:(1). 适用于弧长小于2倍半径的各种线元坐标正反算,精度优
12、; 于1mm; (2). 在引用该核心计算部分时,请注明来源。二、源程序1.主程序(TYQXJS)"1.SZ => XY":"2.XY => SZ":N:U"X0&qu
13、ot;:V"Y0":O"S0":G"F0":H"LS":P"R0":R"RN":Q:C=1÷P:D=(P-R)÷(2HPR):E=180÷:N=1=>Goto 1:>Goto 2Lbl 1:SZ:SZ:W=Abs(S-O):Prog "SUB1":X"XS"=XY"YS"=YF"FS"=F-90Goto 1Lbl 2:XY:XY:I=X:J=Y:Prog
14、"SUB2":S"S"=O+WZ"Z"=ZGoto 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):Y=V+W(Asin(G+QEKW(C+KWD)+Bsin(G+QELW(C+LWD)+Bsin(G+QEFW(C+FWD)+Asin(G+QEMW(
15、C+MWD):F=G+QEW(C+WD)+90:X=X+ZcosF:Y=Y+ZsinF3. 反算子程序(SUB2)T=G-90:W=Abs(Y-V)cosT-(X-U)sinT):Z=0:Lbl 0:Prog "SUB1":L=T+QEW(C+WD):Z=(J-Y)cosL-(I-X)sinL:AbsZ<1E-6=>Goto1:>W=W+Z:Goto 0Lbl 1:Z=0:Prog "SUB1":Z=(J-Y)÷sinF三、使用说明1、规定
16、160;(1) 以道路中线的前进方向(即里程增大的方向)区分左右;当线元往左偏时,Q=-1;当线元往右偏时,Q=1;当线元为直线时,Q=0。 (2) 当所求点位于中线时,Z=0;当位于中线左铡时,Z取负值;当位于中线中线右侧时,Z取正值。 (3) 当线元为直线时,其起点、止点的曲率半径为无穷大,以10的45次代替。
17、(4) 当线元为圆曲线时,无论其起点、止点与什么线元相接,其曲率半径均等于圆弧的半径。 (5) 当线元为完整缓和曲线时,起点与直线相接时,曲率半径为无穷大,以10的45次代替;与圆曲线相接时,曲率半径等于圆曲线的半径。止点与直线相接时,曲率半径为无穷大,以10的45次代替;与圆曲线相接时,曲率半径等于圆曲线的半径。 (6) 当线元为非完整缓和曲线时,起点与直线相接时,曲率半径等于设计规定的值;与圆曲线相接
18、时,曲率半径等于圆曲线的半径。止点与直线相接时,曲率半径等于设计规定的值;与圆曲线相接时,曲率半径等于圆曲线的半径。2、输入与显示说明 输入部分: 1. SZ => XY 2. XY = > SZ N ? 选择计算方式,输入1表示进行由里程、边距计算坐标 ;输入2表示由坐标反算
19、160; 里程和边距。 X0 ?线元起点的X坐标 Y0 ?线元起点的Y坐标 S0 ?线元起点里程 F0 ?线元起点切线方位角 LS ?线元长度 R0 ?线
20、元起点曲率半径 RN ?线元止点曲率半径 Q ? 线 元左右偏标志(左偏Q=-1,右偏Q=1,直线段Q=0) S ? 正算时所求点的里程 Z ?正算时所求点距中线的边距(左侧取负,值右侧取正值,在中线上取零) X ?反算时所求点的X坐标
21、 Y ?反算时所求点的Y坐标 显示部分: XS=××× 正算时,计算得出的所求点的X坐标 YS=××× 正算时,计算得出的所求点的Y坐标 &
22、#160; FS=××× 正算时,所求点对应的中线点的切线方位角 S=××× 反算时,计算得出的所求点的里程 Z=××× 反算时,计算得出的所求点的边距四、算例
23、0; 某匝道的由五段线元(直线+完整缓和曲线+圆曲线+非完整缓和曲线+直线)组成,各段线元的要素(起点里程S0、起点坐标X0 Y0、起点切线方位角F0、线元长度LS、起点曲率半径R0、止点曲率半径RN、线 元左右偏标志Q)如下:S0 X0 Y0 F0
24、160; LS R0 RN Q500.000 19942.837 28343.561 125 16 31.00 269.256 1E45 1E45
25、60; 0769.256 19787.340 28563.378 125 16 31.00 37.492 1E45 221.75 -1806.748 19766.566 28594.574
26、160; 120 25 54.07 112.779 221.75 221.75 -1919.527 19736.072 28701.893 91 17 30.63 80.285
27、; 221.75 9579.228 -1999.812 19744.038 28781.659 80 40 50.00 100.000 1E45 1E45 0
28、160; 1、正算 (注意:略去计算方式及线元要素输入,请自行根据所求点所在的线元输入线元要素) S=700 Z=-5 计算得 XS=19831.41785 YS=28509.72590
29、60; S=700 Z=0 计算得 XS=19827.33592 YS=28506.83837 S=700 Z= 5 计算得
30、0;XS=19823.25398 YS=28503.95084 S=780 Z=-5 计算得 XS=19785.25749 YS=28575.02270 S=780 &
31、#160;Z=0 计算得 XS=19781.15561 YS=28572.16358 S=780 Z= 5 计算得 XS=19777.05373 YS=28569.30446
32、160; S=870 Z=-5 计算得 XS=19747.53609 YS=28654.13091 S=870 Z=0
33、 计算得 XS=19742.68648 YS=28652.91379 S=870 Z= 5 计算得 XS=19737.83688 YS=28651.69668
34、60; S=940 Z=-5.123 计算得 XS=19741. 59118 YS=28722.05802 S=940 Z=0
35、0; 计算得 XS=19736.47687 YS=28722.35642 S=940 Z= 3.009 计算得 XS=19733.47298 YS=28722.53168
36、; 2、 反算 X=19831.418 Y=28509.726 计算得 S=699.9999974 Z= -5 .00018164
37、60; X=19827.336 Y=28506.838 计算得 S=699.9996493 Z= 0.000145136 X=19823.25398 Y=28503.95084 计算得 S=699.9999985 Z= 5.0
38、00003137 X=19785.25749 Y=28575.02270 计算得 S=780.0000035 Z= -5 .000001663 X=19781.15561 Y=28572.16358 计算得
39、160;S=780.0000025 Z=- 0.000002979 X=19777.05373 Y=28569.30446 计算得 S=780.0000016 Z= 4.99999578
40、 X=19747.536 Y=28654.131 计算得 S=870.0001137 Z= -4.99941049 X=19742.686 Y=28652.914 计算得 S=870.0003175 Z=- 0.00041814
41、0; X=19737.837 Y=28651.697 计算得 S=870.0002748 Z= 4.999808656 X=19741.5912 Y=28722.0580 计算得 S=939.9999786
42、60; Z= -5.123024937 X=19736.4769 Y=28722.3564 计算得 S=939.9999862 Z=- 0.000027710 X=19733.4730 Y=28722.5317 计
43、算得 S=940.0000238 Z= 3.00898694谢谢发贴:+94 分 【测量空间】009-8-11楼主:LW317409248作者:LW317409248 本文已被浏览4949次FX5800P全线任意里程中边桩坐标正反算(加了数据库)本程序非本人原创,结合上传者长处,进行改编,愿收获和大家共享,不足之处多多指教。希望过路神仙把竖曲线加进去带算隧道超欠挖,谢谢曲線任意里程中邊樁坐標正反算5800p本程序由内蒙文哥和师父阿玖哥共同改编完成主程序
44、160; ZBJSLbl 6:"1.SZ XY":"2.XY SZ":?S:?N:Prog“SUB0”1÷PC:(P-R)÷(2HPR) D:180÷E:N=1 =>Goto 1: Goto 2Lbl 1:?Z: Abs(S-O)W: Prog"SUB1":"XS=":X"YS=":Y"FS=":F-90 DMS“XC” ?C: “YC
45、” ? E:0I:0J:Pol(X-C,Y-E):“I=”:IIf J0: Then “J=”: J+360DMSIfEndIf J >0:Then “J=” :JDMSIfEnd:Goto 6Lbl 2?X:?Y:XI:YJ:Prog"SUB2":O+WS:Cls:"S=":S"Z=":ZGoto 6正算子程序 SUB10.1739274226A: 0.3260725774B: 0.0694318442K: 0.3300094782L: 1-LF: 1-KM:
46、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)+90F: X+Zcos(F)X: Y+Zsin(F)Y反算子程序 SUB2 G-90T(Y-V)cosT-(X-U)sin(T) WAbs(W)W:0ZLbl6:Prog "SUB1"T+QEW(C+WD)
47、 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为任意数字,计算机便于区分)Lbl 1:IF S<线元终点里程:ThenO(线元起点里程) : U(线元起
48、点X坐标):V(线元起点Y坐标):G(线元起点计算方位角):P(线元起点半径):R(线元止点半径):H(线元长度):Q(线元左、右偏标志,左偏-1,右偏1,直线为0):Return:IfEndIF S<线元终点里程:ThenO(线元起点里程) : U(线元起点X坐标):V(线元起点Y坐标):G线元(起点计算方位角):P(线元起点半径):R(线元止点半径):H(线元长度):Q(线元左、右偏标志,左偏-1,右偏1,直线为0):Return:IfEnd。一程序功能本程序由一个主程序(ZBJS)和3个子程正算子程序(SUB1)、反算子程序(SUB2) 、数据库子程序(SUB
49、0)构成,可以根据曲线段直线、圆曲线、缓和曲线(完整或非完整型)的线元要素(起点坐标、起点里程、起点切线方位角、线元长度、起点曲率半径、止点曲率半径)及里程边距或坐标,对该曲线段范围内任意里程中边桩坐标进行正反算。另外也可以将本程序中核心算法部分的两个子程序移植到其它相关的程序中,用于对曲线任意里程中边桩坐标进行正反算。本程序也可以在CASIO fx-4500P计算器及 CASIO fx-4850P计算器上运行。二、使用说明1、规定 (1) 以道路中线的前进方向(即里程增大的方向)区分左右;当线元往左偏时,Q=-1;当线元往右偏时,Q=1;当线元为直线时,Q=0。 (2) 当所求点位于中线时,Z=0;当位于中线左侧时,Z取负值;当位于中线中线右侧时,Z取正值。 (3) 当线元为直线时,其起点、止点的曲率半径为无穷大,以10的45次代替。
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 2024年破碎机项目发展计划
- 2024年氨基糖苷类药合作协议书
- 2024年农业科学研究与试验发展服务项目发展计划
- 2024年膜分离制氮设备项目合作计划书
- 2024年走芯车床项目合作计划书
- 家电产品设计入门
- 英语二阅读分题型练习
- 人类对细菌和真菌的利用课件
- 天然气供应合同2024年
- 学校食品原料供货合同范本2024年
- 教研组长培训-课件
- 多器官功能衰竭112张课件
- 三年级上册语文课件-习作 猜猜他是谁 (共31张PPT)部编版
- 金坛区苏科版四年级心理健康教育第1课《我的兴趣爱好》课件(定稿)
- 洁净厂房空调净化改造工程URS
- 管理处组织架构图(编制)
- 小学生交通安全主题班会公开课一等奖优质课大赛微课获奖课件
- 3.7表内乘法(一)整理与复习教案 2022-2023学年二年级数学上册-冀教版
- TECO-N310系列变频器参数设定说明
- 2022年针灸、理疗室工作制度
- 船用海水淡化装置的工作原理与实例教学课件(32张)
评论
0/150
提交评论