800直线和曲线任意里程中边桩坐标正反算程序.doc
《800直线和曲线任意里程中边桩坐标正反算程序.doc》由会员分享,可在线阅读,更多相关《800直线和曲线任意里程中边桩坐标正反算程序.doc(9页珍藏版)》请在三一办公上搜索。
1、4800直线和曲线任意里程中边桩坐标正反算程序一、程序功能 本程序由一个主程序(TYQXJS)和两个子程正算子程序(SUB1)、反算子程序(SUB2)序构成,可以根据曲线段直线、圆曲线、缓和曲线(完整或非完整型)的线元要素(起点坐标、起点里程、起点切线方位角、线元长度、起点曲率半径、止点曲率半径)及里程边距或坐标,对该曲线段范围内任意里程中边桩坐标进行正反算。另外也可以将本程序中核心算法部分的两个子程序移植到其它相关的程序中,用于对曲线任意里程中边桩坐标进行正反算。本程序也可以在CASIO fx-4500P计算器及 CASIO fx-4850P计算器上运行。 特别申明:(1). 适用于弧长小于
2、2倍半径的各种线元坐标正反算,精度优于1mm; (2). 在引用该核心计算部分时,请注明来源。二、源程序1.主程序(TYQXJS)1.SZ = XY:2.XY = SZ:N:UX0:VY0:OS0:GF0:HLS:PR0:RRN:Q:C=1P:D=(P-R)(2HPR):E=180:N=1=Goto 1:Goto 2Lbl 1:SZ:SZ:W=Abs(S-O):Prog SUB1:XXS=XYYS=YFFS=F-90Goto 1Lbl 2:XY:XY:I=X:J=Y:Prog SUB2:SS=O+WZZ=ZGoto 22. 正算子程序(SUB1)A=0.1739274226:B=0.32607
3、25774: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(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:L
4、bl 0:Prog SUB1:L=T+QEW(C+WD):Z=(J-Y)cosL-(I-X)sinL:AbsZGoto1:W=W+Z:Goto 0Lbl 1:Z=0:Prog SUB1:Z=(J-Y)sinF三、使用说明1、规定 (1) 以道路中线的前进方向(即里程增大的方向)区分左右;当线元往左偏时,Q=-1;当线元往右偏时,Q=1;当线元为直线时,Q=0。 (2) 当所求点位于中线时,Z=0;当位于中线左铡时,Z取负值;当位于中线中线右侧时,Z取正值。 (3) 当线元为直线时,其起点、止点的曲率半径为无穷大,以10的45次代替。 (4) 当线元为圆曲线时,无论其起点、止点与什么线元相接,其
5、曲率半径均等于圆弧的半径。 (5) 当线元为完整缓和曲线时,起点与直线相接时,曲率半径为无穷大,以10的45次代替;与圆曲线相接时,曲率半径等于圆曲线的半径。止点与直线相接时,曲率半径为无穷大,以10的45次代替;与圆曲线相接时,曲率半径等于圆曲线的半径。 (6) 当线元为非完整缓和曲线时,起点与直线相接时,曲率半径等于设计规定的值;与圆曲线相接时,曲率半径等于圆曲线的半径。止点与直线相接时,曲率半径等于设计规定的值;与圆曲线相接时,曲率半径等于圆曲线的半径。2、输入与显示说明 输入部分: 1. SZ = XY 2. XY = SZ N ? 选择计算方式,输入1表示进行由里程、边距计算坐标 ;
6、输入2表示由坐标反算里程和边距。 X0 ?线元起点的X坐标 Y0 ?线元起点的Y坐标 S0 ?线元起点里程 F0 ?线元起点切线方位角 LS ?线元长度 R0 ?线元起点曲率半径 RN ?线元止点曲率半径 Q ? 线 元左右偏标志(左偏Q=-1,右偏Q=1,直线段Q=0) S ? 正算时所求点的里程 Z ?正算时所求点距中线的边距(左侧取负,值右侧取正值,在中线上取零) X ?反算时所求点的X坐标 Y ?反算时所求点的Y坐标 显示部分: XS= 正算时,计算得出的所求点的X坐标 YS= 正算时,计算得出的所求点的Y坐标 FS= 正算时,所求点对应的中线点的切线方位角 S= 反算时,计算得出的所
7、求点的里程 Z= 反算时,计算得出的所求点的边距卡西欧4800P计算器道路中边桩放样程序SG(主程序)NEJAIRSBCProg“Y” Z=JTZ【2】=Z+SZ【3】=Z+L2Z【4】=Z【2】+MZ【5】=Z+LProg“XY”XY(子程序)GH:Fixm: LbI0:KD:KZ【5】=X=N+(KZ【5】+T)cosCY=E+(KZ【5】+T)sinC=KZ=X=N(JK)cosBY=E(JK)sinB=KZ【3】=V=Z【5】K:E【30】=E+TsinC:N【30】=N+TcosC:O=C: =V=KZ:N【30】=NTcosB:E【30】=ETsinB:O=BVS=X=VV540R
8、2S2Y=V36RSV7336R3S3=W=(VS2)180R:X=RsimW+QY=R(1cosW)+PKZ【3】=U=-X: =U=XX=N【30】+UcosIYsinOY=E【30】+UsinO+IYcosOD=0=Prog“RD”: =Prog“F” Goto0注:XY程序中的;U=-X: =U中的“-”符号是计算器中的“()”键RD(子程序)G“N【O】”:H“E【O】”:X:Y:U=XG:O=YH:U0=A【40】=180+tan1(OU) = O0=A【40】= tan1(OU) =A【40】=360+ tan1(OU) D【40】=(O 2+U2) JD(子程序)G:H:X:Y
9、:O:P:U:V:W=(YH)(XG):M=(PV)(OU):N=(WGM O+PH)(WM) E=W(NG)+HY(子程序)P=S224RS42384R3:Q=S2S3240R2:T=Q+(R+P)tan(A2) M=R(A180SR)180L=M+2SE【37】=(R+P)cos(A2)R2TLD(子程序)X:Y:F:X=X+DcosF Y=Y+DsinFProg“RD”D(子程序)XY:(OPUV):D=(VP)(XO)+(UO)(PX)(VP)2+(UO)2) F(子程序)KZ=F=90+B=KZ【2】=F=B+90+90I(KZ)2RS=KZ【4】=F=B+90+90I(2(KZ【2
10、】)+S)R=KZ【5】=F=C+9090I(Z【5】K)2RS=F=90+CProg“D”程序说明:SG程序符号输入:N、E交点坐标,J:交点桩号,A:偏角,I:左负右正(1),R:半径,S:缓和曲长度(Lh),B: 本曲线方位角,C:下曲线方位角。计算出:T:切线长,M:圆曲线长,L:曲线全长,E【37】:外距,2T2:切曲差,Z:ZH桩号,Z【2】:HY桩号,Z【3】:QZ桩号,Z【4】:YH桩号,Z【5】:HZ桩号。输入:G、H:为测站点坐标,K:为要求的桩号,X、Y:为要求桩号的中桩坐标,D:为边桩距(左负右正),X、Y:为要求桩号的边桩坐标,A【40】:为要放样的方位角,D【40】
11、:为要放样的距离。公路缓和曲线坐标计算程序S,N=X,YLb1 0A:B:S:NX=A+S cosN Y=B+S sinN GoTo 0已知距离和方位角求坐标X,Y=S,NLb1 0A:B:C:DX=C A : Y=D BS= X2+Y2 X 0=M=tan-1(Y/X): =M= tan-1(Y/X)+180 M 0=N=M: =N=M+360GoTo 0A :已知点的 X 坐标B :已知点的 Y 坐标C :方向点的 X 坐标D :方向点的 X 坐标S :已知点至方向点的距离N :已知点至方向点的方位角SQXLb1 0 Z C Z0 :D H0 :A I1 :D I2 :T:RH=(T-Ab
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 800 直线 曲线 任意 里程 中边桩 坐标 正反 程序
链接地址:https://www.31ppt.com/p-2978958.html