《Fx4850秦德恒》由会员分享，可在线阅读，更多相关《Fx4850秦德恒（23页珍藏版）》请在金锄头文库上搜索。
1、Fx-4850p计算器编程（各种线形任意点中边桩与施工坐标的互换）第一版德恒 编著水电三局测量队 一、曲线任意里程中边桩坐标正反算的编程 1.1 主程序（TYQX JS） “1.SZ XY”：“2.XYSZ”：N：U“X0”：V“Y0”：O“S0”:G“F0”:H“LS”：P“R0”:R“RN”：Q：C=1P：D=（P-R）（2HPR）：E=180：N=1=Goto1:Goto2 Lbl1:SZ：W=Abs(S-O):Prog“SUB1”:X“XS”=XY“YS”=Y Goto1 Lbl2:XY:I=X:J=Y:Prog“SUB2”:S“S”=O+W Z“Z”=Z Goto21.2 正算子程序
2、（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(C+MWD):F=G+QEW(C+WD)+90:X=X+ZCosF:Y=Y+ZSinF1.3 反算子程序（SUB2）T=G-9
3、0:W=Abs(Y-V)CosT-(X-U)SinT):Z=0:Lbl0:Prog“SUB1”:L=T+QEW(C+WD):Z=(J-Y)CosL-(I-X)SinL:AbsZ1E-6=Goto1:W=W+Z:Goto0Lbl1:Z=0:Prog“SUB1”: Y =(J-Y)/SinF二、编程原理及功能原理：利用Gauss-Legendre5点通用公式。功能：根据线段直线、圆曲线、缓和曲线（完整或非完整的缓和曲线）的线元要素（起点坐标、起点里程、起点方位角、线元长度、起点半径、终点半径）及里程边距或坐标，对该曲线围任意里程中边桩坐标进行正反算。三、使用说明 (1) 以线路的前进方向分左右，左
4、偏Q=-1，右偏Q=1，直线时Q=0。 (2) 当所求点在中线时，Z=0; 在左侧时，Z取负值；在右侧时，Z取正值。 (3) 当线元为直线时，其起点、终点的曲率半径为无穷大，以10的45次方代替。 (4) 当线元为圆曲线时，其起点、终点的曲率半径为圆的半径。 (5) 当线元为完整缓和曲线时，起点与直线相接时，曲率半径为无穷大，以 10的45次方代替；与圆曲线相接，曲率半径等于圆曲线的半径；终点与直线相接，曲率半径为无穷大，以10的45次方代替；与圆曲线相接，曲率半径等于圆曲线的半径。 (6) 当线元为非完整缓和曲线时，起点与直线相接，曲率半径等于设计规定的值；与圆曲线相接，曲率半径等于圆曲线的
5、半径。终点与直线相接，曲率半径等于设计规定的值；与圆曲线相接，曲率半径等于圆曲线的半径。四、输入与显示说明 1SZ XY 2XYSZ N? 选择计算方式，输入1表示由里程、边距计算坐标；输入2表示由坐标反算里程和边距。 X0,Y0 线元起点的X,Y坐标。 S0 线元起点里程。 F0 线元起点的切线方位角。 LS 线元长度。 R0 线元起点曲率半径。 RN 线元终点曲率半径。 Q? 线元左右偏转标志。 S？ 正算时所求点的里程。 Z? 正算时所求点距中线的边距。 X？Y? 反算时所求点的X, Y坐标。 XS, YS 正算时计算得出的坐标。 S, Z 反算时计算得出的里程和边距。扩展变量操作（15
6、个）：Defm 15 , O字母0数字J-SQX（竖曲线数据输入“J-SQX”:NHUVMQP:Z9=N“SJD”:Z10=H“JDZ”:Z11=U“I1”:Z12=V“I2”:Z13=M“R”:Z14=Q“QD”:Z15=P“ZD”:“TO J-JSMS”J-PQX (平面数据输入，自行切换到J-JSMSA“JD” B“JDX” C“JDY” F“FJ” O“ZJ：Z-，Y+” RE“LS1” K“LS2”：EE=1E-9KK=1E-9Z1=EE24R-E42688RRR:Z2=E2-EEE240RR:X=(EE-KK)24Rsin Abs O :Z3“T1” =(R+Z1)tan(Abs
7、O 2)+Z2-XZ4“T2” =(R+KK24R-K42688RRR)tan(Abs O 2)+K2-KKK240RR+XL=Abs OR180+(E+K)2J=tan-1(R+Z1)(Z3-Z2):X“E”=(R+Z1)sin J-RX=A-Z3:Y=X+E:EX“ZY”=X“ZH”Y“HY”Y“QZ”=X+(L-K-E)2+EY=X+L-K:X=X+L:KX“YZ”=Y“YH”X“HZ”Prog“J-JSMS” J-JSMS（放样模式主程序“1-ZS,2-F1,3-FS”:“4-F2,5-Z0,6-DM”:Lb1 0:Z: Z“MS”2=Goto 1: = Z4= Goto2:= Got
8、o 3Lb1 1 :PDW:PD“BZ”W“BJ”: Prog“JP”: “X=”：X “Y=”： Y Z Goto 1:=Prog“JS”:Prog“JC”:“Z=”： G =H+GGoto 1Lb1 2 :XYW:XYW“BJ”: Prog“JF”: “P=”：P “BZ=”：D ZGoto 2:=Q:Q“ZP”:Prog“JS”:Prog“JC”:Prog“JB”:Goto 2Lb1 3 :P:P: Prog“JS”: “Z0=”：HZGoto3=D:S“CGZ”:T“JKZ”:Z8=Q“LH”:D“BZ”:Prog“JC”: “JK=”：J “Z=”： G =H+GGoto 0JS（竖
9、曲线计算子程序PProg“J-SQX” PZ15=Prog“J-SQX”N=Z9:U=Z11:V=Z12:H=Z13:G=HAbs(U-V) / 200:PI=U:M=N-G:MP=M=P=I=V:M=N+G:MM=PJ=(P-M)22H:U-V0=J=-JH=Z10+(P-N)I100+JJP（平曲线正算子程序FixmLb1 1 :J=F:X= B-Z3cos F :Y= C-Z3sin F :G=EPA-Z3=I=A-Z3-P:M=-I:N=0:H=F+W:Goto 5=PA-Z3+E=I=P-A+Z3:H=90IIRE:OH=-HH=H+W+F:Goto 3=PA-Z3+L-K=I=P-
10、A+Z3-E:Goto 4: =Goto 2Lb1 2 :X= B+Z4cos(F+O :Y= C+Z4sin(F+O :J=F+O+180:G=KPA-Z3+L=I=A-Z3+L-P:H=90IIRK:O0=H=-HH=H+J+W+180:Goto 3 =I=P-A+Z3-L:M=-I:N=0:H=J+W+180:Goto 5 Lb1 3 :M=I-I540RRGG:N=III6GR-I7336RRRGGG:Goto 5 Lb1 4 :H=(E+2I)90R:M=R sin H+Z2:N=R(1-cos H)+Z1:OH=-HH=J+H+W: Goto 5 Lb1 5 :PA-Z3+L-K=
11、 ON=-N=O0=N=-NGoto 6Lb1 6 :X =X+M cos J-N sin J+D cos H:Y =Y+M sin J+N cos J+D sin HJF（平曲线反算子程序FixmU=X:V=Y:D=O:J=F-W:P=A+(Y-C)cos J-(X-B)sin JLb1 1:Prog“JP”:J=H-180:I=(V-Y)cos J-(U-X)sin J:Abs IGoto 2:=P=P+I:Goto 1Lb2: D=(V-Y)sinHJC（超高加宽计算子程序Fixm:Z8Z8=1E-8I=E:M=A-Z3:EI=Z8:M=M-IG=K:N=A-Z3+L:KG=Z8:N=N
12、+GP0.5(N+M=U=(P-M)I:=U=(N-P)GUU=0U1=U=1J=UT 高次抛物线加宽J=T(1-3UU+2UUU ) : DOJ=0I=1:Prog“JD”:I=US:G=I+UN-N:U=Abs D-V:UU=OUM+J+Z5=U=M+J+Z5Z7=1=Goto 1:=Goto 2Lb1 1:I=0=I=-N:=I=G:DO0=I=-I:Abs II=-NG=UI:N=I:Goto 3Lb1 2:NN=IG=N(M-U)+Z5Z6:N=-N:DOG=G+2IU:N=IGoto 3Lb1 3: U= M+J+V+Z5:Abs DU-0.01=G=G-Z5(N+Z6)JB（路基
13、边桩放样子程序H=H+G-Q:HI=2:H“W=”: Abs H=I=3 :H“T=”Prog“JD”:G=HV:GI=MG:=GI=M+N(G-1): =I=M+N+Z6(G-2) I“BP”=Abs D-VI-Z7Int G-U-Z5 G=V Frac G:GG“PT”JD（断面数据储存子程序I=1=M=4:N=0.015:Z5=0.25:Z6=0.015:V=0:Z7=2:= I=2= Z5=1.1: M=0.5: N= 0.75: Z6=1.00: V=10: Z7=1.0:= Z5=0:M=1.50: N=1.75: Z6=2.00 : V=8: Z7=1.0 = =一、 程序简介本套程序是共有2个主程序，7个子程序。包括了路线坐标正反算、竖曲线、超高加宽、边坡放样及断面计算等程序。适用于CA
