4800计算器常用测量计算程序

合集下载

fx

fx

fx—4800PA计算器在工程测量中的应用编写测量坐标计算程序考虑到施工的便捷性以及现有工具,我们采用fx—4800PA计算器进行编程,这样既可以保证测量的准确又可使施工测量便捷,编程如下:1: F 坐标通用公式Z=0=>GOTO 1:≠>GOTO 2LbI 1K=F:L=Q-A:X=M+LcosF◢Y=N+LsinF◢GOTO 0LBI 2S:W=0=>GOTO 3:≠>GOTO 6LBI 3L=Abs(Q-A):I=L-L^5/40(RS)2:J=L^3/6RS-L^7/336(RS)^3:T=0=>GOTO 4:≠>GOTO5LBI 4K=F-90GL^2/RSπ:X=M+GIcosF+JsinF◢Y=N+GIsinF-JcosF◢GOTO 0LBI 5K=F+90GL^2/RSπ:X=M+GIcosF-JsinF◢Y=N+GIsinF+JcosF◢GOTO 0LBI 6L=Q-A:D=180L-90S:I=Rsin(D/Rπ)+S/2-S^3/240R^2:J=R(1-cos(D/R π))+S^2/24R:P=0=>GOTO 7:≠>GOTO 8LBI 7K=F-180(L-S)/Rπ:X=M+GIcosF+JsinF◢Y=N+GIsinF-JcosF◢LBI 8K=F+180(L-S)/Rπ:X=M+GIcosF-JsinF◢Y=N+GIsinF+JcosF◢GOTO 0LBI 0U“ZX”=X+Bcos(K-90) ◢(90度可以变为任意角度)V“ZY”=Y+Bsin(K-90) ◢(90度可以变为任意角度)E“YX”=X+Ccos(K+90) ◢(90度可以变为任意角度)O“YX”=Y+Csin(K+90) ◢(90度可以变为任意角度)说明:Q—待测点里程 A—起点里程X--待测点X坐标:Y--待测点Y坐标M—起点X坐标: N—起点Y坐标:L—直线段待测点至起点距离 F—起点方位角S—缓和曲线总长 R—圆曲线半径 K--待测点切线方位角B—左边桩点至中心距离 C—左边桩点至中心距离U“ZX”—左边桩X坐标: V“ZY”—左边桩Y坐标:E“YX”—右边桩X坐标: O“YX”—右边桩Y坐标:Z=0—直线段坐标计算Z≠0,W=0,T=0,G=1—左转角ZH—HY和右转角HZZ≠0,W=0,T=0,G=-1—左转角YH—HZZ≠0,W=0,T≠0,G=1—右转角ZH—HY和左转角HZZ≠0,W=0,T≠0,G=-1—右转角YH—HZZ≠0,W≠0,P=0,G=1—左转角HY—YH或ZY—YZZ≠0,W≠0,P≠0,G=1—右转角HY—YH或ZY—YZ该程序能够计算出曲线,对称及不对称缓和曲线任意桩号的中桩坐标、征地线边桩坐标及中桩前进方向切线顺时针旋转任意角度至中桩任意距离的点的坐标。

常用CASIO4800计算程序集

常用CASIO4800计算程序集

FX4800P常用测量程序集1、由一个已知点坐标和一个已知方位角计算支导线坐标(程序名:ZBJS)程序清单:X:Y:T:Lb1 0:Fixm:{AS}:T=T+A-180:T〈0 =〉T=T+360⊿T〉360 =〉T =T-360⊿T◢X=X+Scos T◢Y=Y+Ssin T◢Goto 0程序运行说明:运行“ZBJS”,每运行一步按EXE键一次,显示X?时输入已知点X坐标,显示Y?时输入已知点Y坐标,显示T?时输入已知点由后视到前视的已知坐标方位角,运行一次本程序只需输入一次已知数据。

显示A?时输入第一个左转角值,显示S?时输入测站到前视的水平距离。

接下来计算器显示的T是测站到前视的坐标方位角,按+ 可将显示的十进制角度换算为度分秒。

如此继续可计算出所有支导线未知坐标。

2、由两个已知点坐标计算支导线坐标(程序名:ZBJS2)程序清单:M“X0”:N“Y0”:D“XH”:E“YH” ↲Pol(M-D,N-E):Fixm:T=J:X=M:Y=N:T〈0=〉T=T+360⊿T“TH-J=” ◢I“S=”◢Lb1 0:{AS}: T=T+A-180:T〈0 =〉T=T+360⊿T〉360 =〉T =T-360⊿T◢X=X+Scos T◢Y=Y+Ssin T◢Goto 0程序运行说明:运行后,显示X0,Y0时输入已知置镜点坐标,显示XH,YH时输入已知后视点坐标,其它同ZBJS的输入与显示。

3、由一个已知点坐标和一个已知方位角进行放射型导线坐标计算(程序名FSXZB JS)程序清单:C“X0”:D“Y0”:E“T0”:Fixm:Lb1 1:{SA}↲T=E+A-180:T〈0=〉T=T+360⊿T〉360 =〉T=T-360⊿T◢X=C+Scos T◢Y=D+Ssin T◢Goto 1程序运行说明:变量输入参照ZBJS程序。

4、由两个已知点坐标进行放射型导线坐标计算(程序名FSXZBJS2)M“X0”:N“Y0”:D“XH”:E“YH” ↲Pol(M-D,N-E):Fixm:F=J:X=M:Y=N:F〈0=〉F=F+360⊿F“TH-J=” ◢I“S=” ◢Lb1 1:{SA}↲T=F+A-180:T〈0=〉T=T+360⊿T〉360 =〉T=T-360⊿T◢X=X+Scos T◢Y=Y+Ssin T◢Goto 15、坐标计算优化程序(可进行连续式(LX)、放射式(FS)已知一点(1-D)或者两点(2-D)进行坐标计算):V“1=>LX,≠>FS”:W“1 =>1-D≠>2-D”:W=1=> Goto 1:≠> Goto2↲Lb1 1:F“X0=”:G“Y0=”:H“T H-0=”:Goto 3↲Lb1 2:F“X0=”:G“Y0=”:M“XH=”:N“YH=”:Pol(F-M,G-N):Fixm: J〈0=〉J=J+ 360⊿H=J:H“TH-0=”◢I“S-H=”◢Goto 3↲Lb1 3: X=F:Y=G:T=H :V=1=> Goto 4:≠> Goto 5↲Lb1 4: {AS}: A:S:T=T+A-180:T〈0 =〉T=T+360⊿T〉360 =〉T =T-360⊿T◢X=X+Scos T◢Y=Y+Ssin T◢Goto 4Lb1 5:{AS}:A:ST=H+A-180:T〈0=〉T=T+360⊿T〉360 =〉T=T-360⊿T◢X=F+Scos T◢Y=G+Ssin T◢Goto 56、已知置镜点坐标和置镜点到后视点坐标方位角求放样角度和放样距离的放样程序(程序名FY1)程序清单:F“X0”:G“Y0”:H“T0-H”:Fixm:Lb1 1:{XY}↲Pol(X-F,Y-G) ↲J〈0 =〉J=J+360⊿A=J-H↲A〈0 =〉A=A+360⊿A“A=” ◢I“S=” ◢Goto 1程序运行说明:变量输入参照坐标计算,A=为放样顺时针角度,S=为放样距离。

卡西欧4800计算器程序

卡西欧4800计算器程序
LX、RX:左侧或右侧点X坐标
LY、RY:左侧或右侧点Y坐标
I:置镜点至左或右点距离
J:置镜点至左或右点方位角
CONT:输入0计算下一里程;输入1则从本程序第一步开始
QX1计算范围:
DK214+832.674~DK216+053.229
QX2计算范围:
DK215+707.196~DK217+253.771(反算)
LbI 5 ↙
H=1=〉Y= -1×Y△ U=B+X cosT-YsinT:V=C+XsinT+YcosT:↙
X=U▲
Y=V▲
PoL((X-M,Y-N)↙
I ▲
J<0=〉J=J+360△↙
J ▲
{W}:W“NEXT”:W=1=〉Goto 1△↙
LHale Waihona Puke I 6 ↙ {O}:O“O=”:O=1=〉Goto 7△↙
QX3计算范围:
DK216+623.229~DK219+480.262
QX4计算范围:
DK217+923.771~DK222+114.707(反算)
J ▲
F=T ▲
Goto 6 △↙
LbI 3 ↙
L>A=〉Goto 4 △ X=L-L5÷40÷(RA)2:Y=L3÷(6RA)-L7÷336÷(RA)3:Z=60×L2÷(πRA)+tan-1(Y÷X):H=1=〉Z= -1×Z △F=T+Z▲
Goto 5 △↙
LbI 4 ↙
Z=180(Abs(E-D)-A)÷(πR)+90A÷(πR):X=R sinZ+A÷2-A3÷(240R2):Y=R(1-cos Z)+A2÷(24R)-A4÷(2688R3):H=1=〉Z= -1×Z △ F=T+Z▲

卡西欧4800和4850计算程序

卡西欧4800和4850计算程序

卡西欧4800\4850程序一:坐标反算:(ZBFS)①程序步骤:C”X1”:D”Y1”:E”X2”:F”Y2”:Fixm:Pol(E-C,F-D:I”S1-2=”▲J≤O=>J=J+360△J”A1-2=”②操作过程:ZBFS→EXE→输入X1值→EXE→输入Y1值→EXE→输入X2值→EXE→输入Y2值→EXE→EXE→EXE注:①:S1-2:计算得出的距离。

②:A1-2:计算得出的角度。

(按shift°′″转换为60进制的角度)③:此程序可循环计算。

③案例:已知:D1坐标(7811.23,606.136),D2坐标(7805.915,431.910)求解: a D1-D2(A1-2)=268°15′09.56 ″S D1-D2(S1-2)=174.3071二:坐标正算:(ZBZS)①程序步骤:C”X1”:D”Y1”:S”S1-2”:R”A1-2”:Fixm:X”X2”=C+Rec(S,R) ▲Y”Y2”=D+J②操作过程:ZBZS→EXE→输入X1值→EXE→输入Y1值→EXE→输入S1-2距离值→EXE→输入A1-2角度(例268°15′09.56 ″)值→EXE→EXE注:①:X2计算得出坐标,Y2计算得出坐标。

②:此程序可循环计算。

③案例:已知:D1坐标(7811.23,606.136),两点距离:S D1-D2(S1-2)=174.3071方位角:a D1-D2(A1-2)=268°15′09.56 ″求解:D2坐标(7805.915,431.910三:线路曲线计算程序:(XLQXJS)(万能公式)①程序步骤:1.Lbl 0:{E G}:A“XA”:B“YA”:C“CA”:D“1/RA”:E“1/RB”:F“DKA”:G“DKA”2.Lbl 1:{H O R}:H“DKI”:O“DL”:R“DR”:H>G=﹥Goto 3⊿3.P=(E-D)/Abs(G-F):Q=Abs(H-F):I=P×Q:T=D+I4.J=C+(I+2D)×Q×90/π ▲5.M=C+(I/4+2D)Q×45/(2π):N=C+(3I/4+2D)Q×135/(2π):6.K=C+(I/2+2D)Q×45/π7.X=A+Q(cosC+4(cosM+cosN)+2cosK+cosJ)/12 ▲8.Y=B+Q(sinC+4(sinM+sinN)+2sinK+sinJ)/12 ▲9.U“XL”=X+Ocos(J-90) ▲10.V“YL”=Y+Osin(J-90) ▲11.W“XR”=X+Rcos(J+90) ▲12.Z“YR”=Y+ Rsin(J+90) ▲13. A=X:B=Y:C=J:D=T:F=H:Goto 1Lbl 3: A=X:B=Y:D=E:F=G:C=J:Goto 0程序说明:A- 曲线元起点A的坐标;B- 曲线元起点B的坐标;C- 曲线元起点A的切线坐标方位角;F- 曲线元起点A的里程;G- 曲线元起点B的里程;H- 曲线上待求点i的里程;D- 曲线元起点A的曲率;E- 曲线元终点B的曲率;XL-左边线点位X坐标;YL-左边线点位Y坐标;XR-右边线点位X坐标;YR-右边线点位Y坐标;X- 中线点位纵坐标;Y- 中线点位横坐标;DL-左边线距中线平距;DR-右边线距中线平距;该程序需要输入的数据为:(1).曲线元起点A的坐标及切线坐标方位角,计算器上用“XA”,“YA”,“CA”显示;(2).曲线元起点A和B的曲率,计算器上用I÷RA,I÷RB显示(曲线左偏时取“-”);(3).曲线元起点A和终点B的里程,计算器上用“DKA”,“DKB”显示;(4).输入待求点里程和该点距左右的水平距离,计算器上用“DKI”,“DL”,“DR”显示;每算完一个待求点的中线及边线坐标,程序又让输入下一点的“DKI”,“DL”,“DR”当输入的“DKI”大于“DKB”时程序中显示“1÷RB”和“DKB”,此时输入下一个曲线元起点的曲率和里程,然后重复步骤(4),即可计算下一个曲线中线及边线点位坐标。

4800公路测量放样计算程序

4800公路测量放样计算程序

4800公路测量放样计算程序CASIO fx-4800P计算器程序DA DI——N E (公路弯道坐标计算)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=Rsin H+S÷2-S^3÷(240R2)+Usin H:W=R-Rcos H+S2÷(24R)-Ucos H:△F<0==>G<O==>X=V:Y=W:≠=>X=T+Tcos F-Vcos F-Wsin Abs F:Y=Tsin Abs F -Vsin Abs F+Wcos F:△≠=>G<O==>X=V:Y=-W:≠=>X=T+Tcos F-Vcos F-Wsin Abs F:Y=Vsin Abs F-Tsin Abs F-Wcos F:△△C=A==>D≥B==>P=90:≠=>P=270:△≠=>C<A==>P= tan-1((D-B)÷(C-A))+180:≠=>P= tan-1((D-B)÷(C-A)):△△I“COM——N”=A+√(X2+Y2)cos(P-tan-1(Y÷X))▲J“COM——E”=B+√(X2+Y2)sin(P-tan-1(Y÷X))▲G=G+20Goto 0程序运行输入:JD?——交点桩号R?——圆曲线半径LS?——缓和曲线长度PJ——L-R+?——偏角右偏为正ZH——N?——ZH点N坐标ZH——E?——ZH点E坐标JD——N?——JD点N坐标JD——E?——JD点E坐标输出:ZH= ——ZH点桩号HY= ——HY点桩号QZ= ——QZ点桩号YH= ——YH点桩号HZ= ——HZ点桩号T= ——切线长L= ——曲线长E= ——外矢距再输入:ZHUANG HAO?——输入任一点桩号I——B OUT+IN-?——距中线距离(外侧为正)再输出:COM——N= ——计算出N坐标COM——E= ——计算出E坐标以此循环——再输入——再输出程序中各字母所代表的含义:A——ZH点N坐标B——ZH点E坐标C——JD点N坐标D——JD点E坐标E——外矢距F——偏角(右偏为正)G——弯道内任一点桩号H——弯道内任一点切线角I——计算出的N坐标J——计算出的E坐标K——交点桩号L——曲线长M——ZH点桩号N——HY点桩号O——QZ点桩号P——ZH--JD方位角Q——HZ点桩号R——圆曲线半径S——缓和曲线长度T——切线长U——距中线距离(外侧为正)V——支距W——支距X——弯道内坐标Y——弯道内坐标Z——任一点曲线长度Z[1]——YH点桩号。

CASIO fx-4500P、4800P计算器程序

CASIO fx-4500P、4800P计算器程序

CASIO fx-4500P与CASIO fx-4800P计算器部分按键及程序语句不同之处比较【坐标反算程序】文件名:ZBFS(调用子程序文件名:Z.FS)L1 Lbl 0L2 {XY}:X″X1″:Y″Y1″:U″X0″:Z″Y0″L3 Prog ″Z.FS″L4 ″DIST=″:D:Pause 0L5 D=0=>Goto 0:◣A″ANGLE=″◢Goto 0使用说明屏幕提示执行操作屏幕显示计算结果X1? 输入视点坐标XDIST= 置镜点与视点的距离Y1? 输入视点坐标YX0? 输入置镜点坐标XANGLE= 置镜点→视点方位角Y0? 输入置镜点坐标Y注意fx-4500P型计算器将L3行改成:Prog Z.FS【坐标正算程序】文件名:ZBZSL1 Lbl 0L2 {DA}:D″DIST″:A″ANGLE″:U″X0″:Z″Y0″L3 ″X=″:X=U+Dcos A:Pause 0L4 Y=Z+Dsin A◢Goto 0使用说明屏幕提示执行操作屏幕显示计算结果DIST? 输入置镜点与视点的距离X= 视点坐标X ANGLE? 输入置镜点→视点方位角X0? 输入置镜点坐标XY= 视点坐标Y Y0? 输入置镜点坐标Y 【转角放样程序】文件名:ZJFY(调用子程序文件名:Z.FS)L1 Lbl 0L2 {STUZ}:X=S″HSX″:Y=T″HSY″:U″X0″:Z″Y0″L3 Prog ″Z.FS″L4 D=0=>Goto 0:◣J=AL5 Lbl 1L6 {XY}:X″QSX″:Y″QSY″L7 Prog ″Z.FS″L8 ″DIST=″:D:Pause 0L9 D=0=>Goto 1:◣A≥J=>A″R-ANGLE″=A-J◢≠=>A″R-ANGLE″=A-J+360◢◣Goto 1使用说明屏幕提示执行操作屏幕显示计算结果HSX? 输入后视点坐标XDIST= 置镜点与前视点距离HSY? 输入后视点坐标YX0? 输入置镜点坐标XY0? 输入置镜点坐标YR-ANGLE=置镜点→后视点到置镜点→前视点的转角QSX? 输入前视点坐标XQSY? 输入前视点坐标Y注意fx-4500P型计算器将L3、L7行改成:Prog Z.FS【单交点基本型(对称、非对称)平曲线要素、中桩、边桩坐标计算程序】文件名:PQXJS(调用子程序文件名:PQXZB)L1 R:H″LS1″:H=0=>I=0:◣I″LS2″:Z:D″JD″:S=Abs Z L2 N=H2÷24R-H^4÷2384R^3L3 P=I2÷24R-I^4÷2384R^3L4 K=H÷2-H^3÷240R2L5 M=I÷2-I^3÷240R2L6 B=H÷2R:C=I÷2RL7 T″T1″=(R+P-(R+N)cos S)÷sin S+K◢U″T2″=(R+N-(R+P)cos S)÷sin S+M◢L=H+I+(Sπ÷180-B-C)R◢H=I=>E=(R+N)÷cos (S÷2)-R◢J=2T-L◢◣N″LY″=L-H-I◢B″ZH″=D-T◢C″HY″=B+H◢E″YH″=C+L-H-I◢F″HZ″=E+I◢G″QZ″=C+N÷2◢Prog ″PQXZB″使用说明屏幕提示执行操作屏幕显示计算结果R? 输入圆曲线半径T1= 小里程段切线长LS1?输入小里程段缓和曲线长(不设缓和曲线时,输入0)T2= 大里程段切线长LS2?输入大里程段缓和曲线长(不设缓和曲线时,不提示)L= 平曲线总长Z? 输入转向角(左转负、右转正) E= 外距(T1=T2时显示)JD? 输入交点桩号J= 校正数(T1=T2时显示)LY= 圆曲线长ZH= 直缓点桩号不设缓和曲线时,ZH=HY,为直圆点桩号HY= 缓圆点桩号YH= 圆缓点桩号不设缓和曲线时,YH=HZ,为圆直点桩号HZ= 缓直点桩号QZ= 曲中点桩号XJD? 输入交点的X坐标XZH= 直缓点X坐标(不设缓和曲线时,为直圆点X坐标)YJD? 输入交点的Y坐标YZH= 直缓点Y坐标(不设缓和曲线时,为直圆点Y坐标)F1? 输入小里程段导线的方位角XHZ= 缓直点X坐标(不设缓和曲线时,为圆直点X坐标)YHZ= 缓直点Y坐标(不设缓和曲线时,为圆直点Y坐标)XHY= 缓圆点X坐标不设缓和曲线时,不显示YHY= 缓圆点Y坐标XYH= 圆缓点X坐标YYH= 圆缓点Y坐标DQD? 输入待求点桩号FWJ= 待求点切线方位角X= 待求点中桩X坐标Y= 待求点中桩Y坐标ZB? 输入左幅宽度XZ= 待求点左幅边桩X坐标YZ= 待求点左幅边桩Y坐标YB? 输入右幅宽度XY= 待求点右幅边桩X坐标YY= 待求点右幅边桩Y坐标注意fx-4500P型计算器将L7行最后一句改成:Prog PQXZB;子程序中Prog ″PQX.F″改成Prog PQX.F,Prog ″PQX.BZ″改成Prog PQX.BZ【单交点基本型(对称、非对称)平曲线中桩、边桩坐标计算子程序】文件名:PQXZB(可单独执行,调用子程序PQX.F,PQX.BZ)L1 R:H″LS1″:H=0=>I=0:◣I″LS2″:Z:{XY}:X″XJD″:Y″YJD″:T″T1″:H=0=>U=T:◣U″T2″:B″ZH″:H=0=>C=B:◣C″HY″:E″YH″:H=0=>F=E:◣F″HZ″:{A}:A″F1″:Q=A+Z:Z>0=>S=1:≠=>S=-1:◣ J″XZH″=X+Tcos (A+180)◢K″YZH″=Y+Tsin (A+180)◢P″XHZ″=X+Ucos Q◢O″YHZ″=Y+Usin Q◢H≠0=>V=C-B-(C-B)^5÷40R2H2:W=(C-B)^3÷6RH-(C-B)^7÷336R^3H^3:M″XHY″=J+Vcos A+Wcos (A+90S)◢N″YHY″=K+Vsin A+Wsin (A+90S)◢V=F-E-(F-E)^5÷40R2I2:W=(F-E)^3÷6RI-(F-E)^7÷336R^3I^3:Z ″XYH″=P+Vcos (Q+180)+Wcos (Q+90S)◢Z ″YYH″=O+Vsin (Q+180)+Wsin (Q+90S)◢◣Lbl 0L2 {Z}:Z″DQD″L3 Z<B=>Goto 0:◣Z>F=>Goto 0:◣H=0=>G=A+180(Z-B)S÷πR:Prog ″PQX.F″:M=J:N=K:Goto 1:◣Z≤C=>G=A+90(Z-B)2S÷πRH:Prog ″PQX.F″:V=Z-B-(Z-B)^5÷40R2H2:W=(Z-B)^3÷6RH-(Z-B)^7÷336R^3H^3:X=J+Vcos A+Wcos (A+90S)◢Y=K+Vsin A+Wsin (A+90S)◢Prog ″PQX.BZ″:Goto 0:◣Lbl 1L4 Z≤E=>G=A+90(C-B)2S÷πRH+180(Z-C)S÷πR:Prog ″PQX.F″:V=90H÷πR:W=90(Z-C)÷πR:X=M+2Rsin Wcos (A+SV+SW)◢Y=N+2Rsin Wsin (A+SV+SW)◢Prog ″PQX.BZ″:Goto 0:◣Z>E=>G=Q-90(F-Z)2S÷πRI:Prog ″PQX.F″:V=F-Z-(F-Z)^5÷40R2I2:W=(F-Z)^3÷6RI-(F-Z)^7÷336R^3I^3:X=P+Vcos (Q+180)+Wcos (Q+90S)◢Y=O+Vsin (Q+180)+Wsin (Q+90S)◢Prog ″PQX.BZ″:◣Goto 0【平曲线切线方位角计算结果处理子程序】文件名:PQX.FL1 G>0=>G<360=>G″FWJ=″◢≠>G″FWJ″=G-360◢◣≠>G″FWJ″=G+360◢◣【平曲线边桩坐标计算子程序】文件名:PQX.BZL1 {L}:V=G-90:W″XZ″=X+L″ZB″cos V◢W″YZ″=Y+Lsin V◢{L}:V=G+90:W″XY″=X+L″YB″cos V◢W″YY″=Y+Lsin V◢【契形体体积计算程序】文件名:XXTTJL1 V=H÷6×(A″A1″×B″B1″+C″A2″×D″B2″+(A+C)(B+D)) 【竖曲线要素及高程计算程序】文件名:SQXJSL1 M″BZH″:G″BGC″:A″I1″:B″I2″:RL2 W=B-A◢L=RAbs W◢T=L÷2◢E=T2÷2R◢F″QZH″=M-T◢J″ZZH″=M+T◢Lbl 0L3 {Z}:Z″ZH″L4 Z≤F=>H=G-(M-Z)A◢Goto 0:◣Z≥J=>H=G+(Z-M)B◢Goto 0:◣Y=(Z-F)2÷2RL5 H=G-(M-Z)AL6 W≥0=>H=H+Y◢≠=>H=H-Y◢◣Goto 0 使用说明屏幕提示执行操作屏幕显示计算结果BZH? 输入变坡点桩号W= 前后纵坡坡度差BGC? 输入变坡顶点高程L= 竖曲线长度I1? 输入小里程段纵坡(前进方向上坡为+,下坡为-) T= 竖曲线切线长I2? 输入大里程段纵坡(前进方向上坡为+,下坡为-) E= 竖曲线外距R? 输入竖曲线半径QZH= 竖曲线起点桩号ZH? 输入计算点的桩号ZZH= 竖曲线终点桩号H= 计算点的中桩高程【无竖曲线段纵坡高程连续计算程序】文件名:ZPGC L1 F″ZH0″:G″GC0″:IL2 Lbl 0:{N}:N=0=>Goto 0:◣Z=FL3 Lbl 1L4 ″ZH=″:Z=Z+N:Pause 0L5 ″H=″:H=G+(Z-F)I:Pause 2L6 Goto 1使用说明屏幕提示执行操作屏幕显示计算结果ZH0? 输入已知桩号ZH= 计算点的桩号GC0? 输入已知桩号的高程I? 输入纵坡(前进方向下坡为负,上坡为正)H= 计算点的高程N? 输入桩号增量【余弦定理的坐标运用】文件名:YXDL-ZBL1 A″AX″:B″AY″:C″BX″:D″BY″:E″CX″:F″CY″L2 G″AB″=√((C-A)2+(D-B)2)◢H″BC″=√((E-C)2+(F-D)2)◢I″CA″=√((E-A)2+(F-B)2)◢J″<A″=cos-1 ((G2+I2-H2)÷2GI)◢J″360°-<A″=360-J◢J″<B″=cos-1 ((G2+H2-I2)÷2GH)◢J″360°-<B″=360-J◢J″<C″=cos-1 ((H2+I2-G2)÷2HI)◢J″360°-<C″=360-J使用说明屏幕提示执行操作屏幕显示计算结果AX? 输入A点坐标X AB= AB距离AY? 输入A点坐标Y BC= BC距离BX? 输入B点坐标X CA= CA距离BY? 输入B点坐标Y <A= <A角度CX? 输入C点坐标X <B= <B角度CY? 输入C点坐标Y <C= <C角度【施工坐标与大地坐标相互转换程序】文件名:ZBZH(调用子程序文件名:Z.FS,Z.ZH)L1 Lbl 0L2 {XYFG}:X″AX1″:Y″AY1″:U=F″OX1″:Z=G″OY1″L3 Prog ″Z.FS″L4 D=0=>Goto 0:◣E=AL5 Lbl 1L6 {XYHI}:X″AX2″:Y″AY2″:U=H″OX2″:Z=I″OY2″L7 Prog ″Z.FS″L8 D=0=>Goto 1:◣E≥A=>E″ANGLE1->2″=E-A◢≠=>E″ANGLE1->2″=E-A+360◢◣Prog ″Z.ZH″使用说明屏幕提示执行操作屏幕显示计算结果AX1? 输入A点在坐标系1中的坐标XANGLE1->2= 坐标系1到坐标系2的转角AY1? 输入A点在坐标系1中的坐标Y OX1? 输入O点在坐标系1中的坐标X OY1? 输入O点在坐标系1中的坐标Y AX2? 输入A点在坐标系2中的坐标X AY2? 输入A点在坐标系2中的坐标YOX2? 输入O点在坐标系2中的坐标XX2= 计算点在坐标系2中的坐标XOY2? 输入O点在坐标系2中的坐标YX1? 输入计算点在坐标系1中的坐标XY2= 计算点在坐标系2中的坐标YY1? 输入计算点在坐标系1中的坐标Y注意fx-4500P型计算器将L3、L7行改成:Prog Z.FSL8行最后一句改成:Prog Z.ZH【坐标反算子程序】文件名:Z.FSL1 B=X-U:C=Y-ZL2 D=√(B2+C2)L3 D=0=>Goto 0:◣C≥0=>A=cos-1(B÷D):≠=>A=360-cos-1(B÷D):◣Lbl 0【坐标转换子程序】文件名:Z.ZH(可单独执行,调用子程序:Z.FS)L1 U=F″OX1″:Z=G″0Y1″:H″0X2″:I″OY2″:E″ANGLE1->2″L2 Lbl 0L3 {XY}:X″X1″:Y″Y1″L4 Prog ″Z.FS″L5 D=0=>Goto 0:◣A=A-EL6 ″X2=″:X=H+Dcos A:Pause 0L7 Y″Y2″=I+Dsin A◢Goto 0使用说明屏幕提示执行操作屏幕显示计算结果OX1? 输入O点在坐标系1中的坐标XX2=计算点在坐标系2中的坐标XOY1? 输入O点在坐标系1中的坐标YOX2? 输入O点在坐标系2中的坐标XY2=计算点在坐标系2中的坐标YOY2? 输入O点在坐标系2中的坐标YANGLE1->2? 输入坐标系1到坐标系2的转角X1? 输入计算点在坐标系1中的坐标XY1? 输入计算点在坐标系1中的坐标Y注意fx-4500P型计算器将L4行改成:Prog Z.FS【仁宗海交通桥拱圈悬链线坐标计算程序】文件名:XLXL1 M=2.514:F=12.195:L=30.484L2 Lbl 0L3 {X}:J=30.484-XL4 P=-0.00011837194X2+0.0072169X◢A=Jln (M+√(M2-1))÷LL5 D=tan-1(FAsinh A÷J(M-1))◢Y″YZ″=F-F(cosh A-1)÷(M-1)+2363.821+P◢Z″YS″=Y+0.7÷cosD◢{H}:U=Z-H◢W″YX″=Y-0.7÷cosD◢Q=W-H◢Goto 0使用说明屏幕提示执行操作屏幕显示计算结果X? 输入拱圈X坐标(以拱圈左下角为坐标原点)P= 计算点的设计预拱度YZ= 中轴设计高程(已加了设计预拱度P)YS= 上缘设计高程(已加了设计预拱度P)H? 输入实测高程U=上缘设计高程与实测高程的高差:负数表明实测高程高于设计高程正数表明实测高程低于设计高程YX= 下缘设计高程(已加了设计预拱度P)Q=下缘设计高程与实测高程的高差:负数表明实测高程高于设计高程正数表明实测高程低于设计高程注意fx-4500P型计算器将L5行中sinh A改成(e A-e-A)÷2;将coshA改成(e A+e-A)÷2【高斯坐标转换程序】文件名:GSZHL1 A″H0″:Lbl 1:{BCH}:E=B″H1″+C″H2″:F″HD0″=(1+(A-.5E)÷6378245)H″HD″◢Goto 1【高斯坐标转换程序1】文件名:GSZH1L1 A″H0″:R=6378245:Lbl 1:{BCH}:E=B″H1″+C″H2″:F″HD0″=(R+A)H″HD″÷(R+.5E)◢Goto 1使用说明屏幕提示执行操作屏幕显示计算结果H0? 输入投影面高程HD0=高程投影后的平距H1?、H2? 输入该边两端点的高程HD? 输入平距【40米T型梁梁底模反拱度高程控制程序】文件名:FGD-Q(使用全站仪)L1 Lbl 0L2 {XQ}L3 P=.003X-.04+(20-X)2÷10000◢Z=P+2717.90358◢B=Z-Q◢Goto 0使用说明屏幕提示执行操作屏幕显示计算结果X? 输入X坐标(以0#台梁端为(0,0)点,输入范围0~40)P= 计算点与0,0点的设计高差Z= 计算点的设计高程Q? 输入实测高程B= 设计高程-实测高程(正值表示该点偏低,负值表示该点偏高)注意fx-4500P型计算器将L3行中“÷”改为“/”,0#台梁端高程为2717.90358【40米T型梁梁底模反拱度高程控制程序】文件名:FGD-S(使用水准仪)L1 Lbl 0L2 {XQ}L3 P=.003X-.04+(20-X)2÷10000◢Z=P+2717.90358◢B=Z-S+Q◢Goto 0使用说明屏幕提示执行操作屏幕显示计算结果X?输入X坐标(以0#台梁端为(0,0)点,输入范围0~40)P= 计算点与0,0点的设计高差Z= 计算点的设计高程S?输入视线高程(单位:m,只输入一次)B=设计高程-实测高程(正值表示该点偏低,负值表示该点偏高)Q? 输入前视读数(单位:m)注意fx-4500P型计算器将L3行中“÷”改为“/”,0#台梁端高程为2717.90358。

FX4800P测量程序集

FX4800P测量程序集

CASIO fx 系列编程计算器测量程序集编写: 王劲松第一部分:CASIO fx-4800P 编程计算器测量程序集一.SHI JU CE TU (视距测图)1. 用途:该程序用于“经纬仪视距法碎部测量”时,计算测站点至碎部点间的平距及碎部点的高程。

2. 程序清单:C “H0”:I :A “UP ”:B “DOWN ”:V “MIDDLE ”:L :E=90-L ↙D=100Abs (A-B )(cosE )2◢ H=(C+I )+DtanE-V3. 程序说明:H0——测站点高程;I ——测站仪器高;UP ——塔尺上丝读数;DOWN ——塔尺下丝读数;MIDDLE ——塔尺中丝读数;L ——经纬仪竖盘读数盘左读数;D ——测站点至碎部点间平距;H ——碎部点的高程。

5.该程序若在fx-3950中的程序清单为:?→M :?→A :?→B :?→C :?→D :100(A-B )(cos(90-D))2→X ◢ M+Xtan(90-D)-C →Y说明:M ——将测站高程H0+仪器高I ;A ——上丝读数;B ——下丝读数;C ——中丝读数;D ——竖盘盘左读数L 。

X ——测站点至碎部点的平距;Y ——碎部点的高程。

二.FAN SUAN (反算)1.用途:该程序是“坐标反算公式”程序,用于根据两点1、2的平面坐标(X1,Y1)、(X2,Y2),计算两点间的距离D12及坐标方位角A12。

2. 程序清单:G “X1”:B “Y1”:C “X2”:H “Y2”:E=C-G :F=H-B ↙Pol (E ,F ):I “D12”◢ ∆+=⇒<3600J J J J “A12”3. 程序说明:X1,Y1——点1的平面坐标;X2,Y2——点2的平面坐标; D12——点1至点2间平距;A12——点1至点2坐标方位角。

由于编程时用到了极坐标函数POL (),故在程序运行中,会出现I=?XXX (数字)及J=?XXX (数字)这是函数POL计算出的两个量,不能改变,直接回车默认即可。

CASiO fx-4800计算器程序

CASiO fx-4800计算器程序

CASiO fx-4800计算器程序1、CE ZHANFix3:Prog"X":U=X:V=Y:Prog"X":X=X:Y=Y:Fixm:Pol(X-U,Y-V:Pause0:W=J:J<0=>J=J+360△IntJ+.01(.6Fr ac 60J+Int(60 FracJ:Fix 4:J"D,F"= Ans2、QU XIANFix3:L"K+"D"B÷2":Fixm:AbsD<3E 3=>Prog"Q":≠>X=L:Y=D △X:Pause0:Y"N,E="◢Pol ( X-U ,Y-V:Pause0: J <0=>J=J+360△IntJ+.01( .6 Frac 60J+Int(60 FracJ:Fix 4:J"D,FWJ"=Ans3、X{NXY}:N=控制点编号=>X=控制点X 坐标:Y=控制点Y 坐标△N=下个控制点编号=>X=下个控制点X 坐标:Y=下个控制点Y 坐标△……X:Pause0:Y4、QProg"SJ":Prog"P":C=L-H:C>.5B=>K=B-C:≠>K=C △K>0=>K≤S=>A=RS:X=K -K 5÷40A 2:Y=K 3÷6A -K 7÷336A 3:≠>A=180(K-S)÷πR+M:Y=R(1-cosA)+W:X=RsinA+Z [1△Pol(X,Y:≠>I=K:J=0△E-F>0=>C<.5B=>X=N+Rec(I,J+F:Y=J+Q:Prog"J":J=Ans+F:≠>J=-J:Prog"K":C=B-C:Prog"J":J=E-Ans:△≠>C<.5B=>J=-J:X=N+Rec(I,J+F:Y=J+Q:Prog"J":J=F- Ans: ≠>Prog"K":C=B-C:Prog"J":J=Ans+E: △△X=X+Rec(D,J+90:Y+J5、KX=P+Rec(I,J+180+E:Y=J+O6、JC≤0=>0: C≤S=>90C 2÷πA: ≠>A △△△7、PE=F-Z:G=H+B:W=S 2÷24R: Z [1]=S-S 3÷40R 2-Rsin(180S÷2πR:M =180S÷2πR :Rec (T,F-180:N=I+X:Q=J+Y: Rec (T,E:P=I:+X:O =Y+J8、SJL ≤缓直点桩号=>B=曲线长度:F=计算方位角:H=直缓点桩号:T=切线长度:X=交点X 坐标:Y=交点Y 坐标: S=缓和曲线长度:R=曲线半径:Z=转角(左转输正,右转输负):≠>L≤下段直缓点桩号=>B=曲线长度:F=计算方位角:H=直缓点桩号:T=切线长度:X=交点X 坐标:Y=交点Y 坐标: S=缓和曲线长度:R=曲线半径:Z=转角值: ≠>L≤下段直缓点桩号……△△△ (注:有多少弯道就加多少个△)。

  1. 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
  2. 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
  3. 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。

键即可。 FILE ,其余操作同①。
Prog
③ SHIFT
“DXJS”。
2.程序启动后,按照显示屏上的提示进行操作: ①“N=?” ,输入导线转折角总数。 如:图 1.1—1 中,N=5;图 1.1—2(a、b)中,N=6;图 1.1—3 中,N=5。 , ②“X1=?”“Y1=?” 对于图 1.1—1,图 1.1—2b、图 1.1—3 的图形,输入 A 点的已知坐标 XAYA。若 已知 AB 边的坐标方位角αBA 则输入:X1=αBA(以小数形式输入:度、分、秒) 1=0, ,Y
2.程序清单 程序清单
2.1 各主程序 2.2 各子程序
1 程序使用说明
1.1 导线计算程序
(程序名:DXJS)
一、程序功能
本程序可用于进行单一导线(包括附合导线、闭合导线、支导线)的简易平差计 算;同时还可计算以该导线点为测站点、定向点的极坐标点的坐标。
二、图形说明
本程序适合于以下图形的单一导线: 1.附合导线(图 1.1—1)
常 用 测 量 计 算 程 序
(适用于 CASIOfx—4800P 计算器)
南 昌 徕 特
有 限 公 司
测绘仪器经营维修部
地址:江西省南昌市北京东路 220 号 南昌大学南区对面 电话: (0791)8302887
南昌大学土木工程系

1.程序使用说明 程序使用说明

1.1 导线计算程序 1.2 公路任意中桩点、边桩点坐标或放样元素计算程序 1.3 方位角、边长反算程序 1.4 坐标交换计算程序 1.5 面积计算程序 1.6 交点坐标计算程序 1.7 点到直线的距离计算程序 1.8 高斯投影坐标正、反算及换带计算程序
桩点坐标或放样元素(方位角 A 或边长 S) 。然后,只要输入任意点的里程 LP,即可 计算出该点的中桩点,左、右边桩点的坐标或放样元素。 若为桥涵点,还应输入公路中线之法线与桥涵中线的交角 O0。交角 O 由公路中线之法 线起算,顺时针为正值,反时针为负值。 计算完每一点后,显示屏都会显示“GO ON?” ,若要继续计算,输入 1,否则输入 2, 当显示屏显示“MOVE STATION?”时,输入 1,为搬站,需重新输入搬站后测站 点、定向点坐标;输入 2,表示该段道路已算完,程序运行结束。
(程序名:GAUSS) 一、程序功能 本程序可用于高斯投影坐标正、反算及换带计算。 二、使用说明 程序启动后,显示“1B X2X B3≥≤” ,输入 1,为高斯投影坐标正算;输入 2, 为高斯投影反算;输入 3,为高斯投影换带计算。 1、正算 “B=?”“L=?”“L0=?” , , ,分别输入纬度、经度及中央子午线经度,按度、 分、秒形式输入。 接着输出:坐标 X、Y(已加上 500Km) 。 2、反算 “X=?”“Y=?”“L∞=?” , , ,分别输入坐标,中央子午线经度。 接着输出:纬度 B,经度 L。由于经度包括小数点有 12 位,无法一次显示,所 以分二次显示。第一次显示度、分,第二次显示秒。 3、换带 “X=?”“Y=?”“L∞=?” , , ,分别输入坐标及其中央子午线经度; “L0=?” ,输入换带中央子午线经度,接着输出换带后的坐标 X′、Y′。
2
程序清单
2. 1 主程序
2.1.1 导线计算
(程序名:DXJS) Deg:Fix:Lb1 0: {NABCDEFGH} :K=N:C”X1=”D”Y1=”A”X2=”B”Y2=”:Lb1 1: X=N-K+1: L=Z[X]: S=Z[N+X]: {LS}: Z[X]=L: Z[N+X]=S: Dsz K: Goto1: G”X3=”: G>0 H“Y3=”E“X4=”F“Y4=” M=0: {M} :M“CHECK(0,1)”:M=M+1:Dsz M: Goto 0:D≤0 O=C:Prog“C”:P=O-180:Prog“F”:≠ X=A-C:Y=B-D: Prog“D” Fix3:T=P:U=0:V=0:W=0:G>0 Prog“J” Prog“E”:Lb1 7: O=-1:{SO}:O“J.L=”:O≥0 Prog“A”:Goto 7 Prog “B”:X◄Y◄ Dsz K:Goto 7: “END”
图 1.1—2b 也属于这种情形:X1=αB1。 , ③“X2=?”“Y2=?”,输入已知点的坐标 XB , YB。 ④“L=?”“S=?” , 依次输入各站的观测角、边长。观测角以小数形式输入:度、分、秒。对于闭合 边长:S=0。对于图 1.1—2a 中的图形,第一个测站的观测角:L=0。 ⑤“X3=?”“Y3=?” , 对于附合导线,输入已知点 C 的坐标 XC、YC。 对于支导线:X3=0,导线输入自然结束。 对于闭合导线,应输入 B 点的坐标 XB,YB。 ⑥”X4=?”,”Y4=?” 对于附合导线:输入已知点 D 的坐标 XD、YD。若已知 CD 边的坐标方位角αCD,则 X4=αCD,Y4=0。 对于闭合导线(图 1.1—2b) :输入已知点的坐标 XA,YA。若已知 AB 边坐标方位 角,则:X4=αBA,Y4=0。对于闭合导线(图 1.1—2a) 4=αB1,Y4=0。 :X ⑦“CHECK(0,1) ” 问:是否校对输入的数据。若要校对,则输入非零的数值;否则输入 0 或直接回车。 ⑧程序依次显示输出如下计算结果: fB——导线角度闭合差: FB——导线角度闭合差限差; ΣS——导线全长; Fx,fy——导线纵、横坐标闭合差; ∑S÷fs——导线全长相对闭合差分母;
(程序名:PLS) 一、程序功能 本程序用于计算点到直线的距离,并求得垂足的坐标及点到垂足方向的方位角。 二、使用说明 程序启动后,按显示屏提示顺序输入点的坐标(A、B) ,直线上任意两点的坐标 (C、D)(E、F) , ,即求得垂足坐标(X,Y) ,垂距 S 及点到垂足方向的方位角 T。
1.8 高斯投影坐标正、反算及换带计算程序 高斯投影坐标正、
Fs——导线全长闭合差; ⑨”j·L”,”j·s” 分别输入本站极坐标点的观测角和边长,当极坐标点以前视点定向时,边长输入 负值。本站极坐标点计算完毕,直接回车。 ⑩最后显示输出如下结果: 导线点坐标:X,Y 极坐标点坐标:XJ,YJ
1.2 公路任意中桩点、边桩点坐标或放样元素计算程序
(程序名:CURVE) 一、程序功能 本程序可用于计算公路任意中桩点、 边桩点以及桥涵点的坐标或放样元素 (边长、 方位角) 。 二、图形说明 图 1.2—1 所示为一段含缓和曲线、圆曲线段、直线段的公路中线示意图,JD0、 JD0 ZH HY YH HZ
2.1.2 公路任意中桩点、边桩点坐标或放样元素计算
(程序名:CURVE) Deg:Fix 4:A=Z[1]:B=Z[2]:C=Z[3]:D=Z[4]:E=Z[7]:F=Z[8]:G=Z[31]:H=Z[32]: M=Z[33] : N=Z[34] : {ABCDEFGHMN} : A“XJ0=”B“YJ0=”C“LJ0=”D“R=”E“L0=” F“D=”G“XJ1=”H“YJ1=”M“XJ2=”N“YJ2=”: Z[1]=A: Z[2]=B: Z[3]=C: Z[4]=D: Z[7]=E: Z[8]=F: Z[31]=G: Z[32]=H: Z[33]=M: Z[34]=N: X=A-G: Y=B-H: Prog “D”: Z[5]=P: X=M-A:Y=N-B:Prog“D”:Z[6]=P:Z[46]=Z[6]-Z[5]:Z[46]>0 Prog“11” : ≠ Prog“12” Z[10]=Z[9](Z[6]-Z[5]):R=Z[4]:Z[11]=180Z[7]÷(2πR):M=Z[7]÷2-Z[7]^3÷(240R^2): P=Z[7]^2÷(24R)-Z[7]^4÷(2688R^3):T=M+(R+P)tan(Z[10]÷2)◢L=2Z[7]+(Z[10]-2Z[11]) Rπ÷180◢E=(R+P)÷cos(Z[10]÷2)-R◢K=Z[5]-180:K<0 K=K+360 Z[12]=Z[1]+Tcos K : Z[13]=Z[2] + TSinK : K=Z[6] : Z[14]=Z[1] + TcosK : Z[15]=Z[2] + TSinK : Z[16]=Z[3]-T:Prog“M”:Prog“T”:F=1: :F“OUT X-Y OR A-S”:G=0: {F} {G} :G“0 OR 5”:LbI 1:F=2 Prog“W” LbI 2:R=Z[4]:G ≠0 prog“U”:≠ U=Z[18]: {UO} :U“LP=” O“O=”:Z[18]=U Z[7]≠0 Goto8 :≠ Z[18]-Z[35]<0 Prog“Y” :Goto9 Z[18] – Z[39]>0 Prog“Y” :≠ Prog“N” Goto 9 Lb1 8:z[18]-Z[35]<0 Z[18]-Z[39]>0 Prog“Y”:Goto 9 Abs(Z[18]-Z[16]- Prog“Y”:Goto 9 0.5L)≤ Abs(o.5L-Z[7]) Prog“N”: ≠ Prog“O” LbI 9: F=1 Prog “X”:≠ Prog“V” G ≠0 Dsz G:≠ U=1 U=1: {U} U“GO ON” : :U=1 Goto 2:≠ V=1 F≠2 Goto 3 {V} :V“MOVE STATION” :V=1 Goto 1:≠ V=0 LbI 3: “END”
F E B 2 1 E 图 1.1—2a 3.支导线(图 1.1—3) A 1 F B
F E 2
1 图 1.1—2b
5 3
B
2 图 1.1—3
4
三、程序使用说明
本程序启动前进行变量扩充:
SHIFT Defm 1 5 EXE
。若前一次扩充数不小于这次,
可不再扩充。 1.程序启动 采用下列方法之一,均可启动本程序(程序名为:DXJS) : ① MODE ,然后用上下移动键将光标移到“DXJS”处, 5 2 按 EXE ②
相关文档
最新文档