CASIO fx-4800P计算器程序(公路弯道坐标计算)

Posted on 2008-4-2 by yyuanfengmin

CASIO fx-4800P计算器程序(公路弯道坐标计算) K“JD”:R:S“LS”:F“PJ——L-R+”:A“ZH——N”:B“ZH——E”:C“JD——N”:D“JD——E” M“ZH”=K-(R+S2÷(24R))tan(Abs F÷2)-S÷2+S^3÷(240R2)▲ N“HY”=M+S▲ O“QZ”=M+(πRAbs F÷180+S)÷2▲ Z[1]“YH”=M+πRAbs F÷180▲ Q“HZ”= Z[1]+S▲ T=K-M▲ L=Q-M▲ E=(R+S2÷(24R))÷cos(F÷2)-R▲ Lb1 0:{G}:G“ZHUANG HAO”:G<O==>Z=G-M≠=>Z=Q-G:△ {U}:U“I——B OUT+IN-” Z<S+0.005==>H=tan-1(24Z2S2R2-Z^6)÷(48Z^3R^3-6Z^4SR)):V=Z-Z^5÷(40S2R2)+Usin H:W=Z^3÷(6SR)-Z ^7÷(336Z^3R^3)-Ucos H:≠=>H=180(Z-S÷2)÷(πR):V=R...

CASIO fx4850中桩/边桩坐标计算程序

Posted on 2013-8-1 by yyuanfengmin

4850公路中边桩坐标计算程序 CASIO fx4850中桩/边桩坐标计算程序   程序名:XY   Q:W:K:R:F:N:V:G: ←┘   Defm 4←┘   M=V÷2-V^3÷(240R2)←┘   P=V2÷(24R)-V^4÷(2688R^3)←┘   L=∏RN÷180+V←┘   T=M+(R+P)tan(N÷2)←┘   A=Q-T←┘   B=A+V←┘   D=A+L←┘   C=D-V←┘   Rec(T,F+180)←┘   Z[1]=W+I:Z[2]=K+J←┘   Rec(T,F+GN)←┘   Z[3]=W+I:Z[4]=K+J←┘   Lbi 0←┘   {HSE}←┘   U=S÷(Abs (S+10E-9)):S=Abs S←┘   H<A=>Goto 1:≠>H<B=>Goto 2:≠>H<C=>Goto 3:≠>H<D=>Goto 4:≠>Goto 5ΔΔΔΔΔ←┘   Lbi 1←...

公路逐桩坐标计算程序

Posted on 2009-12-16 by yyuanfengmin

公路逐桩坐标计算程序 (可以计算对称、不对称缓和曲线) Lb1 0 Z=? V=? W=V+2:Fixm {K} Lb1 1 K>Z[W+5Z+4]=>W=W+1:Goto 1⊿ (判断桩号在哪个交点范围,就是该交点曲线起点至下一交点曲线起点) S=K-Z[W+5Z+3] (计算该桩号与曲线起点的距离) R=Z[W+2Z+2]:L=Z[W+3Z+2]:E=Z[W+4Z+2] (读取该交点曲线要素R、Ls1 、Ls2) Pol(Z[W]-Z[W-1],Z[W+Z+2]-Z[W+Z+1]) (计算该交点与下一交点直线方位角) J<0=>J=J+360⊿ A=J Pol(Z[W-1]-Z[W-2],Z[W+Z+1]-Z[W+Z]) (计算该交点与上一交点直线方位角) J<0=>J=J+360⊿ C=A-J:A=J (计算偏角) W=V+2=>Goto2⊿ ...

CASIO 4500公路中线坐标计算程序

Posted on 2012-9-14 by yyuanfengmin

CASIO 4500公路中线坐标计算程序 CASIO 4500公路中线坐标计算程序 ZXCLCX Defm16 Lbl1 X=1:{X}:X“ZJF-1 ZBF-2 TT-3 SJD-4 P2L-5 B2A-6” X=1=>Prog"ZJF"△ X=2=>Prog“ZBF”△ X=3=>Prog“TT"△ X=4=>Prog“SJD"△ X=5=>Prog“P2L"△ X=6=>Prog“B2A"△ Goto1 ZBF “-----ZXZBjs-----”:{YD}:Y“I1”“I2” Y≠D=>Z=0rog“FP”:A=B:B=0:Goto3△ X=0:{TPXVWU}:T“HJD(X+Yi)” Lbl1 X“XJA=1”“JD(X+Yi)”:U“JDLC”:Y=Arg(P-T) Y<0=>Y=Y+360△ Y“I”◢C“L”=Abs(P-T)◢ X=0=>V=P:Goto2△ V“JDB(X+Yi)”=Arg(V-P) D<...

FX-4800P计算器在导线测量中的应用.

Posted on 2009-1-1 by yyuanfengmin

摘要:本文介绍了FX-4800P计算器在导线测量中的应用. 关键词:附和导线、支导线、平差 一、 概述 导线测量是建立国家平面控制网的方法之一,也可用于工程建设、城市建设的平面控制测量中。在水电、矿山、道路建设中也经常遇到。随着可编程计算器(FX-4800P)在导线测量中的应用。我们根据导线的计算方法,利用FX-4800P可编程功能适时计算出导线点的坐标。在速度、精度、准确性方面都能满足要求。 二、 附和导线的计算 附和导线就是起始于一个已知控制点,而终止于另一个已知控制点的导线。 计算公式: 1、 角度闭合差及其分配 fβ=Σβ-(αBM-αNA)-N*180 Vβ=- fβ/N 2、 坐标闭合差及其分配 fx=XB’-XB fy=YB’-YB Vxi=-(Si/ΣS)*fx Vyi=-(Si/ΣS)*fy 3、 计算待定点坐标 Xi=Xi’+Vxi Yi=Yi’+Vyi 4、 FX-4800P计算程序 其中N为测站数 fix 0:N:fix 3:Defm 60:Prog“X”:A=W:E“XN=”:F“YN=”:“TN=”:M=0:V=0 ...

公路匝道坐标计算源程序

Posted on 2009-4-1 by yyuanfengmin

公路匝道坐标计算源程序   L1 Lbl0:T“X1”U“Y1”C“AT”D“PA”E“PB”A“CH0”B“CHN”G“X0”I“Y0”:M:Lbl1:N=0:P=0:O=0:Q=0:S=0:{J}:J“CHI”   L2 Lbl2:N=N+1:H=2(J-A)/M:F=NH/2+A:R=C+180/p′(D+(E-D)/2(B-A)′(F-A))(F-A):Int(N/2)=N/2=>O=O+cosR:P=P+sinR:1>Q=Q+cosR:S=S+ sinRD   L3 N=M=>Goto3:1>Goto2DLbl3:X=G+H/6′(cosC+4Q+2O-cosR:Y=I+H/6′(sinC+4S+2P-sinR):X:“X=”ùY:“Y=”ù Pol(X-T,Y-U: ù W<0=>W=W+360ù1>WùDGoto1    X1----测站点X坐标    Y1----测站点Y坐标    AT----曲线起点方位角    PA----曲线起点曲率 (当曲线右偏时,ρA取正;当曲线左偏时ρA取负...

曲线坐标计算程序铁路曲线坐标计算程序

Posted on 2008-4-10 by yyuanfengmin

4800曲线坐标计算程序 铁路曲线坐标计算程序 一、主程序:M(M是文件名,下同) L1 A”CX”B”CY”C”HX”D”HY”E”ZHX”F”ZHY”Q”HZX”L”HZY”G”ZHDK” H”ZHJD°”V”A°”W”L0”K”L1”R L2 Pol(C-A,D-B):M=J L3 Lbl 2:J=90:{NOJZ}:Z”DK”N”Z/!/Y(1/2/3)”:N=2=>Goto 1⊿O”M”J”A°” L4 Lbl 1=Z-G:S=E:T=F:U=H:I=H:Fixm L5 P≤0=>rog ”3”:≠=>≤W=>rog ”1”:≠=>≤W+K=>rog ”2”:I=90W/π/R+ 180π-1R-1(P-W)⊿⊿P≤W+K=>rog ”4”:I=H+I⊿⊿ L6 P>W+K=>=2W+K-P:S=Q:T=L>0=>rog ”1”:X=-X:U=H+Vrog ”4”: I=U-I:≠=>U=H+V:I=U=-Prog ”3”⊿⊿ L7...

卡西欧FX4800计算中边桩程序

Posted on 2010-8-8 by yyuanfengmin

卡西欧FX4800计算中边桩程序, 程序:Mc W“1.js 2.SZ”:W=1=>Goto 1 ΔW=2=> O“KOU LING”:O≠123456=>O=0“OUT” ◢Goto 4 ΔO=0: Defm 83:Z[81]=1:Goto 0←┘ Lbi 0←┘ {ABCDEFGU}:A“X0”:B“Y0”:C“F0’:D“R0”:E“RN’:F“D0”:G“LS”:U“G” ←┘ Z[Z[81]]=A:Z[Z[81]+10]=B:Z[Z[81]+20]=C:Z[Z[81]+30]=1÷D:Z[Z[81]+40]=1÷E:Z[Z[81]+50]=F: Z[Z[81]+60]=F+G: Z[Z[81]+70]=U←┘ A=0=> Dsz Z[81]:Goto 1ΔIsz Z[81]:Goto 0←┘ Lbi 1←┘ {HS}:H“D’:S“Z”:Z[82]=1:Goto 2←┘ Lbi 2←┘ Z[81]>Z[82] =>”OUT” ◢:Goto5←┘ H≤Z[Z[82]+60]=>A=Z[Z[82]]:B=Z...

CASIO4800、4850坐标计算程序

Posted on 2011-3-1 by yyuanfengmin

Lbl 5 {X,Y} Z[1}=X:Z[2]=Y Lbl 0 Prog "QX" Pol((X-Z[1],(Y-Z[2])) J-180≤0=>J=J+180: J=J-180△ A=U-J:N=IcosA AbsN≤0.0001=>Goto1:≠>Goto2△ A≤0=>E=E+N:≠>E=E-N△Goto0 Lbl1 E▲ I▲ Goto 5 X、Y,点的坐标 E,所求点的里程 I,点到中线的距离...


9篇┋页次1/1 分页: [1]