CASIO fx-4800P 编程计算器测量程序集

合集下载

卡西欧fx-4800P计算器程序集(小刚)

计算器对应程序名称：{ZDZB}（转点坐标）A“XZ”B“YZ”C“XH”D“YH”：{RL}I=1：J=1：Pol（（C－A），（D－B））：F=R＋JRec（L，F）X“X”=I＋A◢Y“Y”=J＋B◢注：用于已知两点坐标，及待测点与测站点的连线与已知边（两已知点的连线）的水平夹角和待测点至测站点的水平距离求待测点坐标。

XZ、YZ—测站点坐标；XH、YH—后视点坐标；R—水平角（顺时针为正，逆时针为负）；L—待测点至测站点水平距离。

计算器对应程序名称：{FWJ}(方位角)X“X1”：Y “Y1”：U“X2”：V“Y2”G=U-X:H=V-YPol(G,H):I◢J<0==>J=+360⊿J“J0=”注：用于已知两点坐标，求两点之间的方位角和距离。

X1、Y1—前视（后视）点坐标；X2、Y2—测站点坐标；L—测站点至前视（后视）点距离；J0—方位角(按SHIFT键再按°′″键转换为60制角度)。

任意多边形面积计算程序fx-4800p（三）计算器对应程序名称：{MJ}Lbl 0:M“N”：N“E”：E=M：F=N：S=0Lbl 1:{XY}:S=S-(XN-YM)/2:X=E==>Y=F==>“㎡”:S ◢Goto O ⊿⊿M=X:N=Y:Goto 1注：用于计算任意多边形的面积。

N-起始点X坐标（闭合点X坐标）E-起始点Y坐标（闭合点Y坐标）X-前进点X坐标Y-前进点Y坐标S-多边形面积（取绝对值）应顺序依次输入点坐标，输完所有点坐标后应再次输入起点坐标，这样就形成了多边形的闭合，程序将自动计算出多边形的面积。

极坐标测设建筑物（放样）计算程序fx-4800p（四）计算器对应程序名称：{ZBCS}E:F:K:LG=K-E:H=L-FPOL(G,H):J<0==>B=J+360：≠==>B=J⊿Lbl 0{XY}:X=0==>G o t o E⊿G=X-E:H=Y-FPol(G,H):I◢J<0==>J=J+360⊿C=J-B:C<0==>C=C+360⊿C◢Goto 0Lbl E注：用于计算已知方向边AB（已知点A、B两点的连线）与A（测站点）点至任意放样点i方向边（测站点与待放样点的连线）的水平夹角Bi和水平距离。

常用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公路测量放样计算程序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点桩号。

4800程序

卡西欧Fx-4800P计算器测量程序一、坐标放样源程序ZBFYU“Xc”:M“Yc”:O“XH”:Q“YH”:I=O-U:J=Q-M: Pol(I，J):J＜0＝＞J=J+360:≠＞J=J:⊿T“HF” =J◢I“HL”◢X=0=＞W“XQ” =U+Lcos(T+P“a”)◢S“YQ” =M+Lsin(T+P)◢≠＞I=X-U:J=Y-M: Pol(I，J):J＜0＝＞J=J+360:≠＞J=J⊿I“QL=”◢H“QF” =J◢J=H-T:J＜0=＞J=J+360◢≠＞J=J使用说明:XH—后视点X坐标 YH—后视点Y坐标XC—置镜点X坐标 YC—置镜点Y坐标HF—后视方位角 QF—前视方位角HL—后视距离 QL—前视距离X、Y—前视点坐标 J—仪器后视归零后拨角当X=0时运行坐标反算QL—测设点到置镜点的距离а—测设点与后视点夹角XQ—测设点的X坐标 YQ—测设点的Y坐标二、复合辛卜生公式计算曲线元坐标源程序XBS—XY(已知里程求坐标)A“QD”:Z“ZD”:R“R0”:V“RN”:D“X0”:E“Y0”:F“F0”:K:L“B”:P“а”:J:Prog “SIM1”:W＜0＝＞W=W+360:≠＞W=W⊿W“FWI=”◢X=X◢Y=Y◢XBS—L、B(已知坐标求里程和边距)A“QD”:Z“ZD”:R“R0”:V“RN”:D“X0”:E“Y0”:F“F0”:K”K”(输入大致里程)I=X:B=Y:K=A+Abs((Y-E)cos(F+P“a”-180)+(X-D)sin(F+P-180):Lbl 1:L=0:Prog“SIM1”:C=(B-Y)cos(W+P-180)- (I-X)sin(W+P-180): AbsC＜10∧-4＝＞Goto2: ≠＞K=K+C∶Goto1:⊿Lbl2:L=0:Prog“SIM1”:C=(B-Y)÷sin(W+P):K=K◢C“B=”◢子程序SIM1T=(J÷V-J÷R)÷(Z-A)H=(K-A)÷NS=90H÷πW=F+((TNH+J÷R)+J÷R)NS: G=1:X=D+H÷6×(cosF+cosW+4×Σ(cos(F+((G+0.5)HT+2J÷R)(G+0.5)S),G,0,(N-1))+2Σ(cos(F+(THG+2J÷R)GS,G,1, (N-1)))+Lcos(W+P):Y=E+H÷6×(sinF+sinW+4×Σ(sin(F+((G+0.5)HT+2J÷R)(G+0.5)S,G,0,(N-1))+2×Σ(sin(F+(THG+2J÷R)GS,G,1,(N-1)))+Lsin(W+P)使用说明:QD—起点里程 ZD—终点里程R0—起点半径 RN—终点半径J—曲线转向 (左转为-1 直线为0 右转为+1)X0、Y0—线元起点坐标 F0—起点方位角K—待求点里程 N—计算精度(可取4～12的整数)а—边桩与中线右交角 B—边桩到中桩的距离，左“-”右“+”X、Y —待求点坐标 K—待求点里程三、数据库的编制以每个线元为一段先付参数值，例K≥542.759＝＞K≤686.148＝＞A”起点里程”=542.7590:Z终点里程=163.5:R起点半径=10^45: V终点半径=10^45:D起点坐标=22236.147:E起点坐标=32145.669:F起点切线方位角=81°22′42″:J＝0:⊿⊿K≥987.324＝＞K＜10234.021＝＞A=……J=－1⊿⊿……Prog“XBS—XY”四、纵断高程计算Lbi 0R:T:D”K(JD)”:H”H(JD)”:U”I1”:V”I2”:｛K｝V＞U=＞G=1:≠＞V＜U=＞G=-1⊿⊿K≤D-T=＞L=D-KP=H-LU/100≠＞K≤D=＞L=K-D+TP=H-U(D-K)/100+GL2/2R≠＞K≤D+T=＞L=D+T-KP=H+V(K-D)/100+GL2/2R≠＞K＞D+T=＞L=K-DP=H+LV/100⊿⊿⊿⊿P”H=”▲Goto 0H:高程、 K：变坡点里程、H：变坡点高程、I1、I2前后坡度五、中轴旋转、超高计算: (1)IR,(2)IL线路左转输2，W（Z）：中分带宽度，K：桩号，H（Z）：中桩设计高程，W（L）左侧宽度，W（R）：右侧宽度Lbi 1G”(1)IR,(2)IL”:D”K(ZH)”:S”LS1”:H”LS2”:Q”LY”:W”W(Z)”:I”I1”:J”IB”｛KVAE｝:K:V”h(Z)”:A”W(L)”:E”W(R)”G=2=＞G=-1⊿｛KPAB｝:K:P”H(Z)”:A”W(L)”:B”W(R)”Prog”XZ”:U”H(L)=”▲V”H(R)=”▲Goto11、子程序：XZG=1=＞U=A：V=B：≠＞G=-1=＞U=B：V=A⊿⊿K≤D=＞R=P-I（U-W/2）/100：E=P-I（V-W/2）/100：≠＞K≤D+S=＞Prog”ZXA”: ≠＞K≤D+S+Q=＞R=P+J(U-W/2)/100:E=P-J(V-W/2)/100: ≠＞K≤D+S+Q+H=＞Prog”ZXB”: ≠＞K＞D+S+Q+H=＞R=P-I(U-W/2)/100:E=P-I(V-W/2)/100⊿⊿⊿⊿⊿G=1=＞U=R:V=E: ≠＞G=-1=＞U=E:V=R⊿⊿2、子程序： ZXAL=K-DR=P-I(U-W/2)/100+L(U-W/2)(I+J)/100SL≤2IS/(I+J) =＞E=P-I(V-W/2)/100: ≠＞L＞2IS/(I+J) =＞E=P-LJ(V-W/2)/100S ⊿⊿3、子程序： ZXBL=D+S+Q+H-KR=P-I(U-W/2)/100+L(U-W/2)(I+J)/100HL≤2IH/(I+J) =＞E=P-I(V-W/2)/100: ≠＞L＞2IH/(I+J) =＞E=P-IJ(V-W/2)/100H ⊿⊿六：边轴旋转超高计算：L：平曲线长度，I1正常横坡，IB超高横坡。

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-4800P程序

1、方位角计算程序:【FWJ】 (2)2、转换坐标与高程程序:【0】 (2)3、坐标计算主程序:【XY】 (2)4、高程计算主程序:【H】 (5)5、坐标计算子程序:【XY-1】 (5)6、高程计算子程序:【H-1】 (6)7、水平距离归算到高斯平面计算程序:【JLGF】 (8)8、任意多边形面积计算程序:【MJ】 (8)9、四边形平差计算程序:【DDSBX】 (8)10、坐标换带计算程序:【ZBFD】 (11)11、两直线交点计算程序:【L-XY-L】 (12)12、高斯投影坐标计算程序:【GSBL-XY】 (12)13、竖曲线计算程序:【SQX】 (13)14、复曲线计算程序:【FQX】 (13)15、匝道计算子程序:【FQX】 (14)1、方位角计算程序:【FWJ】置镜点A＂X【Z】＂:B＂Y【Z】＂:后视点C＂X【H】＂:D＂Y【H】＂:前视点E＂X【Q】＂:F＂Y【Q】＂↵M=C-A:N=D-B:V=E-A:W=F-B:L=√（M2+N2）:S=√（V2+W2）:I=AbsTan-1（N÷M）:Q= AbsTan-1（W÷V）↵M＞0＝＞Goto 1:≠＝＞Goto 2↵Lbl 1↵N＞0＝＞O=I:Goto 3:≠＝＞O=360-I:Goto 3↵Lbl 2↵N＞0＝＞O=180-I:Goto 3:≠＝＞O=180+I:Goto 3↵Lbl 3↵V＞0＝＞Goto 4:≠＝＞Goto 5↵Lbl 4↵W＞0＝＞H=Q:Goto 6:≠＝＞H=360-Q:Goto 6↵Lbl 5↵W＞0＝＞H=180-Q:Goto 6:≠＝＞H=180+Q:Goto 6↵Lbl 6↵O＞H＝＞X=O-H:Goto 9:≠＝＞X=O-H+360:Goto 9↵Lbl 9↵＂F【Z-H】=＂:O ◢＂L【Z-H】=＂:L ◢＂F【Z-Q】=＂:H ◢＂L【Z-Q】=＂:S ◢＂f【H-Z-Q】=＂:360-X（左角）◢＂f【Q-Z-H】=＂: X（右角）计算示例:2、转换坐标与高程程序:【0】计算选择:1.坐标计算;2.高程计算。

测量程序

CASIOfx—4800P测量程序设计程序一：线路测量综合程序ROUTELbI 0:{A}:A"COOR"=1=＞Goto1⊿A=0=＞Prog"SET"⊿{EFGH}:H://以下为通过极坐标法求测点坐标T=Z[4]:I=7.5T÷(237.3+T)+0.7857:J=1+T÷273.16: //T—温度、Z[5]—气压Y=281.8-(0.29065Z[5]÷J-4.126m×0.6÷J×10^I): //Y—测距仪温度、气压改正系数X=(E Abs sin F sin(G+Z[9]÷2+Z[3])2÷2÷63712-(Z[1]+E cosF÷2)÷6.371://X—高斯投影改正系数，E—测距仪读数，F—竖直角读数，G—水平角读数C=(E-3.3m)(1+(X+Y)μ): //-3.3m—测距仪加常数,C--高斯投影改正后斜距S=C Abs sinF×(1-0.147μ×CcosF): //S—平距Z[59] "GC"=CcosF+(CsinF)2×68.3η+Z[1]-H◢//Z[59]—高程V"OX"=Z[2]+Rec(S,G+Z[9]):W"OY"=Z[3]+J: //V,W—大地统一坐标LbI 1:B=Z[8]:｛B｝:B"0426"=1=＞｛XY｝:Goto2⊿B＞6=＞Goto3⊿//B—平曲线交点顺序编号或转向计算标高、结尾//以下进行统一坐标换算成对应某一右角(D+90)的里程及距离(坐标点至里程点)Z[8]=B:LbI A:J=7:LbI B:J[J=Z[7B+9+J]:DszJ:Goto B: //录入交点数据至K～RA=N2÷24M:R=Abs O÷2:T=(M+A)tanR+N÷2-N^3÷240M2:S=MRП÷180+N÷2://平曲线要素(切线长T、曲线长的一半S)U=PoI(V-K,W-L):Z=J:C=1:Rec(U,Z-P)＜0=＞Rec(U,Z-P+O+180):C=-1⊿X=I:Y=J:Z=X+JtanD:Z＞T=＞X=Q+SC+(Z-T)C:B≠6=＞X＞Q+S=＞Isz B:GotoA⊿⊿Y=JC-cosD:Goto 2⊿//直线里程坐标（X，Y）Z=P+O(45÷R-0.5):PoI(V-Rec((A+M)÷cosR,Z)-K,W-J-L):P=2R÷O:R=sin-1(MsinD÷I)-D:B=(J-Z+180+R)MП÷180:Abs B＜S-N=＞X=Q+BP:Y=P(M-I):D=0=＞Y=PIsinR÷sinD⊿Goto 2⊿//通过圆心求得圆曲线里程坐标A=0:B=N:X=T-X:Y=CPY:Z=-(90+D)CP: //设初值A、B，缓和曲线坐标XY//通过与里程点法向夹角进行二分法tan-1(Y÷X)-Z＞0=＞O=0:≠＞O=1⊿LbI C:U=(A+B)÷2:Pause0K=U-U^5÷40M2N2:L=U^3÷6MN:T=3tan-1(L÷K):PoI(X-K,Y-L):Sin(J-T-Z)＞0=＞R=0:≠＞R=1⊿O=R=＞A=U:≠＞B=U⊿Abs(A-B)＞1m=＞Goto C⊿X=Q+(S-U)C:Y=IAbs(J-T)÷(J-T)P: //缓和段里程坐标X，YLbI2:S=Z[8]:S=4=＞C=14:X"LK"◢⊿≠＞C=0: "RK"◢⊿S=6=＞C=22⊿Y◢//以下进入X里程点的设计标高、路面横坡、路面边缘标高等计算{A}:A"SJG"≠1=＞Goto 0⊿LbID:X＞Z[3C+60] =＞Isz C: Goto D⊿LbI E:B=3C+60:P=Z[B]:Q=Z[B+1]:R=Z[B+2]:K=P-X: //竖曲线要素I=(Q-Z[B-2])÷(P-Z[B-3]):J=(Z[B+4]-Q)÷(Z[B+3]-P):U=(J-I)R÷2T=AbsU:A=U÷T:K＞T=＞DszC:GotoE⊿K＜0=＞I=J⊿AbsK＞T=＞A=0⊿B=0:S=2=＞B=1⊿Z=Q-KI+A(AbsK-T)2÷2÷R+75mB◢//线路设计高程ZO=Y:S=4=＞O=-1⊿S=0=＞O=1⊿O＜0=＞B=144:≠＞B=160⊿I=-0.2:A=0:LbI F:C=4A+B:X＞Z[C+1]+Z[C+3] =＞Isz A:Goto F⊿B=4:LbI G:I[B]=Z[C+B-1]:Dsz B:Goto G: //设置超高数据X＞K=＞A=X-K:≠＞X＞J=＞A=0:≠＞X＞J-M=＞A=J-X:≠＞A=M⊿⊿⊿I"HP"=L+A(I-L)÷M◢//线路路面横坡IP=8:S=2=＞P=11.75⊿S=6=＞O=-Y⊿OY＜0=＞P=4.25:I=-I⊿J=-0.3:I＜J =＞J=I⊿B=Z+PI+0.75J◢//路基边缘标高BT=Z[59]-B:S=2=＞P=13.25⊿T＜0=＞U=-1.5T+0.75+P:≠＞{IAP}:U=I(T-A)+P⊿U-Abs Y◢//检测路基填筑边坡线，T—填高Goto 0:LbI 3: "QUIT"程序二：基本数据输入程序SETA=1:LbI 0:{A}:A"NO"＞0=＞A＞8=＞A=1:Goto 0⊿B=Z[A]:{B}:Z[A]=B"DATE":A=7=＞Z[9]=Z[6]-Z[7]⊿IszA:Goto 0⊿程序三：结构物坐标及放样程序STUCT"FROM":LbI 1:I=Z[8]:{IXYD}:I＞6 =＞Goto 2⊿J=7:LbI A:J[J]=Z[7I+9+J]:DszJ:Goto A: //录入平曲线交点数据K～RA=N2÷24M:B=N÷2-N^3÷240M2:R=Abs O÷2:T=(M+A)tan R+B://平曲线要素S=MRП÷180+N÷2:I≠6 =＞X＞Q+S=＞Isz I:J=7:Goto A⊿⊿U=2R÷O:Z=U:X＞Q+S-N=＞C= Q+S-X: R=P+180:U=-U: //判断所处线段，以HY点为界≠＞C=X-Q+S:R=P-O:P=R-180⊿V=Rec(T,P)+K:W=J+L://ZH或HZ坐标（V，W）K=C:L=0:P=0:C＞0=＞C＜N=＞K=C-C^5÷40M2N2:L=C^3÷6MN:P=3tan-1(L÷K):≠＞P=180(C-N÷2)÷MП:K=Msin P+B:L=M(1-cos P)+A⊿⊿//曲线段独立坐标（K，L）及偏角P C=Abs Y:Y=0=＞O=0:≠＞O=C÷Y⊿N=R+UP+90ZUO+D◢//对应右角的方位角NV=V+Kcos R-Lusin R+Rec(C,N)◢W=W+Lucos R+Ksin R+J◢//统一大地坐标V，W{Z}:Z=0=＞Z[178]=V:Z[179]=W: "TO":Goto 1⊿I=PoI(V-Z[178],W-Z[179])◢Z[180]=J: //两点间的距离及方位角LbI 2:A=2:Prog"ROUTE":N=PoI(V-Z[178],W-Z[179]):K=Rec(N,J-Z[180]):S=K+Jtan D◢T=J÷cos D◢Goto 2 //相对两点连线的右角坐标//……..T he End……..//固定变量说明:程序使用说明***本程序可解决公路、铁路等线形的施工测量及计算***一、进入ROUTE程序COOR?//是否进入大地（局部）统一坐标测量计算（适用于徕卡DI1600测距仪）1、输入除了0、1以外的值进入计算统一坐标（V，W）：H?---前点仪高E?---测距仪读数F?---竖直角G?---水平角读数GC=高程V、W=坐标2、输入0进入SET程序，进行扩存器值的录入。

4800P计算器测量程序

拉萨高建监理有限公司：刘小坚编直线、圆曲线中桩及左、右边桩计算程序fx-4800p=”：K“D=”：C“Xθ=”：D“Yθ=”：E“Wθ=”：N=Ans：R“R=”：L“Lμo=”：M“JμoQ=9θL÷（πR）：S=2RsinQ ：O =C＋Scos（N-Q）◢P=D+Ssin（N-Q）◢W=E-2Q◢X=O+Kcos（N-2Q-M）◢Y=P+Ksin（N-2Q-M）◢注：Xθ=起算点坐标Yθ=起算点坐标Wθ=起算点方位角R=曲线半径，线路前进方向，左+，右－直线R为无穷大Lμ=置镜点到待求点距离oD左、右边距离Jμ=前进方向左（+90），右（－90）oO=中桩坐标P=中桩坐标W=待求点方位角X=左、右边桩坐标Y=左、右边桩坐标缓和曲线中桩及左、右边桩计算程序Fx-4800pC“Xθ=”：D“Yθ=”：E“Wθ=”：N=Ans：R“R=”：F“Lθ=”：L =”：K“D=”：M“Jμo=”←“LμoU=L－L^5÷（40R2F2）：V=L^3÷（6RF）－L^7÷（336R^3F^3）：Q=tan－1（V÷U）：S=√（U2+V2）←B=9θL2÷（πRF）：O=C+Scos（N－Q）◢P=D+Ssin（N－Q）◢W=E－B◢X=O+Kcos（N－B－M）◢Y=P+Ksin（N－B－M）◢注：Xθ=起算点坐标Yθ=起算点坐标Wθ=起算点方位角R=曲线半径，线路前进方向，左+，右－Lθ=缓和曲线长=置镜点到待求点距离LμoD左、右待求距离=前进方向左（+90），右（－90）JμoO=中桩坐标P=中桩坐标W=待求点方位角X=左、右边桩坐标Y=左、右边桩坐标放样程序fx-4800pRLI“XZ”：W：“YZ”：G“XH”：H“YH”←B=H－W ←C=G－I ←Prog“P”：U=A←K=√（B2＋C2）←C=X“X－”－I←B=Y“Y－”－W←Prog“P”←L“L”=√（B2＋C2）◢V=A－U：V<θ==>V=V＋36θ⊿V “V=”◢PA=tan－1（B÷C）←B≥θ==> C≥θ==> A=A：≠=> C<θ==> A=A＋18θ⊿⊿≠=> B<θ==> C≥θ==>A=A＋36θ: ≠=>C<θ==>A= A＋18θ⊿⊿⊿←XZ、YZ—置镜点X、Y坐标；XH、YH—后视点坐标；X-、Y-—前视点坐标；输出：R=水平角、L=置镜点至前视点水平距离。

CASIOfx-4800P公路测量程序

1、主程序（XLZB ）Defm 10:Norm:O “X0”：G “Y0”:N ≥1=＞Goto 1：≠＞N ≥2=＞Goto 2：≠＞N ≥3=＞Goto 3：≠＞N ≥4=＞Goto 4△△△△Lb1 1：｛KPM ｝：KPM ：Prog “C ”：I=K-J ：Prog “A ”：X “XS ”=X ▲Y “YS ”=Y ▲Prog “W ”Goto 1Lb1 2：｛KXY ｝：KXY ：A=X ：B=Y ：Prog “C ”：Prog “B ”：K=J+I ▲P=P ▲Goto 2Lb1 3：｛KSQAB ｝：KSQAB ：Prog “J ”: Prog “C ”: I=K-J ： Prog “A ”: X “XS ”=X ▲ Y “YS ”=Y ▲Prog “W ”Goto 3Lb1 4：｛KE ｝：KE ： Prog “W ”: Prog “C ”: I=K-J ：P=T: M=90:Prog “A ”: X “XS ”=X ▲ Y “YS ”=Y ▲Prog “W ”Goto 4a 、当N=1时，求一般坐标放样。

K ：待求点桩号 P ：偏移距离，当求中桩时P=0（左负右正） M ：与右侧夹角，当求中桩时M=0b 、当N=2时，求桩号及距中桩距离。

K ：待求点桩号曲线上随意的一个桩号X ：反算时所求点的X 坐标 Y ：反算时所求点的Y 坐标c 、当N=3时，求构造物防样几个角点坐标。

K ：待求点桩号 S ：构造物的角点编号 Q ：与路线右夹角 A ：横向距离 B ：纵向距离Q A AB B BB S=1S=2S=3S=4①④②③⑤当S=1、2、3、4时求构造物四个角点坐标当S=5、Q=0、A=0、B=1E -6时求该桩号中桩坐标当求该点边桩时A=偏移距离（左负右正）、B=1E -6d 、当N=4时，所测标高点进行边线放样。

K ：待求点桩号 E ：待求点边桩位置标高2、正算子程序（A ）Z[5]=90*I/п/R ：Z=W+Z[3]*2*Z[5]+Z[4]*I*L*Z[5]：X=U+Z[2]*I*cosZ+Z[3]*（2RsinZ[5]*cos （W+Z[5]））+Z[4]（（I-I 5/（40R 2L 2））cosW-（I 3/（6RL ）-I 7/（336R 3L 3））sinW ）：Y= V+Z[2]*I*csinZ+Z[3]*（2RsinZ[5]*sin （W+Z[5]））+Z[4]（（I-I 5/（40R 2L 2））sinW+（I3/（6RL）-I7/（336R3L3））cosW）：Z＜0=＞Z=Z+360△Z＞360=＞Z=Z-360△Z“QA”=Z：X=X+Pcos（Z+M）：Y=Y+Psin（Z+M）3、反算子程序（B）T=W-90：I=Abs（（B-V）cosT-(A-U)sinT：P=0：M=90：Lb1 0：Prog“A”：L=T+Z[3]*180/п*I/R：P=（B-Y）cosL-（A-X）sinL：Abs P〈1E-6＝＞Goto 1：≠＞I=I+P：Goto 0△Lb1 1：P=0：Prog“A”：P=（B-Y）/sin（Z-90）式中的E为计算器中的“EXP”符号4、平曲线要素（C）K≥***=＞J=***：U=***：V=***：W=***：R=***：L=***：Z[2]=***：Z[3]=***：Z[4]=***：K≥***=＞J=***：U=***：V=***：W=***：R=***：L=***：Z[2]=***：Z[3]=***：Z[4]=***：K≥***=＞J=***：U=***：V=***：W=***：R=***：L=***：Z[2]=***：Z[3]=***：Z[4]=***：K≥***=＞J=***：U=***：V=***：W=***：R=***：L=***：Z[2]=***：Z[3]=***：Z[4]=***：K≥***=＞J=***：U=***：V=***：W=***：R=***：L=***：Z[2]=***：Z[3]=***：Z[4]=***：K≥***=＞J=***：U=***：V=***：W=***：R=***：L=***：Z[2]=***：Z[3]=***：Z[4]=***：……K：待测点桩号 J：线元起点桩号 U：线元起点的X坐标 V：线元起点的Y坐标W：线元起点切线方位角 R：曲线半径 L=缓和曲线长度当为直线段时Z[2]=1、Z[3]=0、Z[4]=0；当为圆曲线段时Z[2]=0、Z[3]=1、Z[4]=0；当为缓和曲线段时Z[2]=0、Z[3]=0、Z[4]=1；6、高程计算程序(W)Lb1 1：Prog“X”：H=A+D*（K-B）2/2/R+（K-B）*C：H=H-（14-1.5）*0.02：S=H-E：Prog “Y”：T=（25.4-0.75（S+8））Z[6]+（15.9-S）Z[7]+（14+1.5S）Z[8]+（26+1.75（S-8））Z[9]本程序计算得出的宽度7、宽度计算子程序（Y）S＞-16=＞Z[6]=1：Z[7]=0：Z[8]=0：Z[9]=0：S＞-8=＞Z[6]=0：Z[7]=1：Z[8]=0：Z[9]=0：S＞0=＞Z[6]=0：Z[7]=0：Z[8]=1：Z[9]=0：S＞8=＞Z[6]=0：Z[7]=0：Z[8]=0：Z[9]=17、竖曲线要素（X）K≥***=＞A=***：B=***：C=***：D=***：（竖曲线中直线段）K≥***=＞A=***：B=***：C=***：D=***：R=***：（竖曲线中曲线段）K≥***=＞A=***：B=***：C=***：D=***：（竖曲线中直线段）K≥***=＞A=***：B=***：C=***：D=***：R=***：（竖曲线中曲线段）……K：待测点桩号 A：起点桩号 B：起点桩号标高 C：坡度 R：曲线半径当计算段为直线时D=0，为曲线时D=-1；当为凸形竖曲线时R取正值，为凹形竖曲线时R取负值。

FX4800P常用测量程序

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、由一个已知点坐标和一个已知方位角进行放射型导线坐标计算（程序名FSXZBJS）程序清单：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(M-F，N-G)：Fixm: J〈0=〉J=J+360⊿H=J: H“T-H=”◢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=为放样距离。

CASIO_fx-4800P常用测量程序

一、QXFY 辛甫森公式放样程序1. U“X0”：V“Y0”2. A“XA”：B“Y A”：C“CA”：D“1÷RA”：E“1÷RB”：F“KA”：G“KB”3. Lb1 1：{HLR}：H“KI”：L“JJ”：R“DZ+Y-”4. H>G Goto 15. H<F Goto 16. P=(E-D) ÷Abs(G-F)：Q=Abs(H –F)：Z=P×Q：T=D+Z7. W=C+（Z+2D）Q×90÷π8. M=C+(Z÷4+2D)Q×22.5÷π：N=C+（3Z÷4+2D）Q×67.5÷π：K=C+(Z÷2+2D)Q×45÷π9. X=A+Q（cosC+4(cosM+cosN)+2cosK+cosW）÷12+Rcos(W-L)10. Y=B+Q(sinC+4(sinM+sinN)+2sinK+sinW) ÷12+ Rsin (W-L)11. Pol((X-U)，（Y-V）)J≤0J=J+360J“FWJ”12. I“S”13. Goto 1程序显示说明：须输入参数：X0:置镜点X (对应变量U)Y0:置镜点Y (对应变量V)XA:曲线起算点X (对应变量A)Y A:曲线起算点Y (对应变量B)CA：曲线起算点切线方位角(对应变量C) 1÷RA：1÷半径，即起算点曲率，右偏为正左偏为负(对应变量D)1÷RB：1÷半径，即曲终点曲率，右偏为正左偏为负(对应变量E)KA:起算点里程(对应变量F)KB:曲终点里程(对应变量G)KI:待求点里程(对应变量H)JJ:夹角(与前进方向切线方位角夹角，向右为正)(对应变量L)D“Z+Y－”：偏距，左正右负(对应变量R)计算结果: W: 待求点切线方位角(对应变量W) X:计算点x (对应变量X)Y:计算点y (对应变量Y)FWJ:放样方位角(对应变量J)S:放样距离(对应变量I)K BX 0Y 0本程序依据复化辛甫森公式计算原理改进而成，特点是把曲线按曲率变化点分成若干计算单元单独计算，不论直线（曲率为0）、圆曲线（曲率为1/R ）、卵形曲线，只要按曲率变化点分解弄清变化点曲率半径，右偏左偏曲线由曲率的正负号分别，既可求得该计算单元内任意里程中桩及斜交或正交的边桩。

CASIO fx-4800P程序编制(里程中边桩计算坐标及反算)

一、源程序(SZ-XY-SZ)"1.SZ => XY"："2. XY => SZ"：NU"X0"V"Y0"O"S0"G"F0"Q：Q=0=>R=1E-45：≠>R△J=0：M=AbsQ：K=1-M：N=1=>Goto 1：≠>Goto 2△←┙Lbl 1：{SZ}：SZ：L=S-O：B=90QL÷π÷R：F=G+B：E=F+B+90：C=LK+2MRsinQB：X"XS" = U+Rec(C,F)+ZcosE◢Y"YS"=V+J+ZsinE◢Goto 1←┙Lbl 2：W=G+90Q：E=U+Rec(R,W)：F=V+J←┙Lbl 3：{XY}：XY：D=Pol(X-E,Y-F):T=J：J<0=>T=J+360△B=T-W-180M：P=Abs B：S"S"=O+ DKcosP+ MπRP÷180◢Z"Z"=DKsinB+MQ(R-D)◢Goto 3←┙二、使用说明1.由里程、中边桩计算坐标启动程序后按以下提示输入数据：N ？1 （N=1，由里程中边桩计算坐标；N≠1，由坐标反算里程及中边桩)X0 ？142.353 (直线或圆曲线起点的X坐标）Y0 ？368.166 (直线或圆曲线起点的Y坐标）S0 ？155.252 (直线或圆曲线起点的里程）F0 ？60°54′03″(直线或圆曲线起点的切线方位角）Q ？-1 (当线元为直线时Q=0；当线元为圆曲线且左偏时Q=-1；当线元为圆曲线且右偏时Q=1)R ？100 (圆曲线的半径)S ？194.016 (中线里程)Z ？-5.251 (中线左侧5.251m的边桩；在中线上Z=0，在左侧<0，在右侧Z>0)显示计算结果XS=172.7467767YS=395.23168072.由坐标反算里程、中边桩启动程序后按以下提示输入数据：N ？2 （N=1，由里程中边桩计算坐标；N≠1，由坐标反算里程及中边桩)X0 ？142.353 (直线或圆曲线起点的X坐标）Y0 ？368.166 (直线或圆曲线起点的Y坐标）S0 ？155.252 (直线或圆曲线起点的里程）F0 ？60°54′03″(直线或圆曲线起点的切线方位角）Q ？-1 (当线元为直线时Q=0；当线元为圆曲线且左偏时Q=-1；当线元为圆曲线且右偏时Q=1)R ？100 (圆曲线的半径)X ？172.7467767 (待求里程及中边桩的点的X坐标)Y ？395.2316807 (待求里程及中边桩的点的Y坐标)显示计算结果S=194.016Z=-5.251三、注意事项1.本程序主要是针对市政道路工程中的直线和圆曲线而编制的，未考虑缓和曲线等曲线的计算；2.程序中“R=1E-45”的意思为10的-45次方，输入程序时切莫输错。

卡西欧4800P计算器测量程序集共10页

福建林业职业技术学院工程系土木工程室高国兴CASIO fx-4500PA计算中桩、边桩坐标程序直线、圆曲线中桩及左、右边桩计算程序fx-4800p=”：C“Xθ=”：D“Yθ=”：E“Wθ=”：N=Ans：R“R=”：L“Lμo=”：K“D=”：M“JμoQ=9θL÷（πR）：S=2RsinQ ：O =C＋Scos（N-Q）◢P=D+Ssin（N-Q）◢W=E-2Q◢X=O+Kcos（N-2Q-M）◢Y=P+Ksin（N-2Q-M）◢注：Xθ=起算点坐标Yθ=起算点坐标Wθ=起算点方位角R=曲线半径，线路前进方向，左+，右－直线R为无穷大=置镜点到待求点距离LμoD左、右边距离=前进方向左（+90），右（－90）JμoO=中桩坐标P=中桩坐标W=待求点方位角X=左、右边桩坐标Y=左、右边桩坐标缓和曲线中桩及左、右边桩计算程序Fx-4800pC“Xθ=”：D“Yθ=”：E“Wθ=”：N=Ans：R“R=”：F“Lθ=”：=”：K“D=”：M“Jμo=”←L“LμoU=L－L^5÷（40R2F2）：V=L^3÷（6RF）－L^7÷（336R^3F^3）：Q=tan－1（V÷U）：S=√（U2+V2）←B=9θL2÷（πRF）：O=C+Scos（N－Q）◢P=D+Ssin（N－Q）◢W=E－B◢X=O+Kcos（N－B－M）◢Y=P+Ksin（N－B－M）◢注：Xθ=起算点坐标Yθ=起算点坐标Wθ=起算点方位角R=曲线半径，线路前进方向，左+，右－Lθ=缓和曲线长=置镜点到待求点距离LμoD左、右待求距离=前进方向左（+90），右（－90）JμoO=中桩坐标P=中桩坐标W=待求点方位角X=左、右边桩坐标Y=左、右边桩坐标放样程序fx-4800pRLI“XZ”：W：“YZ”：G“XH”：H“YH”←B=H－W ←C=G－I ←Prog“P”：U=A←K=√（B2＋C2）←C=X“X－”－I←B=Y“Y－”－W←Prog“P”←L“L”=√（B2＋C2）◢V=A－U：V<θ==>V=V＋36θ⊿V “V=”◢PA=tan－1（B÷C）←B≥θ==> C≥θ==> A=A：≠=> C<θ==> A=A＋18θ⊿⊿≠=> B<θ==> C≥θ==> A=A＋36θ: ≠=>C<θ==>A= A＋18θ⊿⊿⊿←XZ、YZ—置镜点X、Y坐标；XH、YH—后视点坐标；X-、Y-—前视点坐标；输出：R=水平角、L=置镜点至前视点水平距离。

CASIO fx-4800P 编程

工程测量卡西欧CASIO FX-4800P施工放样程序二零零六年四月六日坐标正算程序1 X“X0”:Y“Y0”:S:T2 N=X+ScosT:E=Y+SsinT3 N=N▲E=E▲4 输入数据说明:X0─已知点X坐标；Y0─已知点Y坐标；S─已知点到待定点之间的距离；T─已知点到待定点之间的方位角5 计算结果说明：N─待定点X坐标；E─待定点Y坐标6 检核数据已知：X O=500.00m；Y O=500.00m；S OA=150.00m；T OA=40°25′10″结果：N A=614.1977m；E A=597.2567m7 简图：O(原点)坐标反算程序1Lb1 0:{NE}:X“X0”:Y“Y0”:pol((N-X),(E-Y):J≤0 => J “＜T”=J+360▲≠=>J“＜T”=J▲△I“＜S”=I▲G o t o 02输入数据说明: （“=>”为条件转移符号、“≠=>”为无条件转移符号）X0─O点X坐标；Y0─O点Y坐标；N─A点X坐标；E─A点Y坐标3计算结果说明：S─O点到A点之间的距离；T─O点到A点之间的方位角4检核数据已知：X O=500.00m；Y O=500.00m； N A=614.1977m；E A=597.2567m结果： S OA=150.00m；T OA=40°25′10″5 简图：(已知点) O(已知点)大地坐标转施工坐标程序1 Lb1 1:A“X0”:B“Y0”:T:{NE}:X=（N-A）×cosT+（E-B）×s inT:Y=（E-B）×cosT-（N-A）×s inT2 X=X▲Y=Y▲G o t o 13 输入数据说明:X0、Y0─施工坐标原点在大地中的坐标；T─施工坐标系相对于大地坐标系的夹角；N─大地坐标系中的X坐标；E─大地坐标系中的Y坐标4计算结果说明：X─施工坐标系中的X坐标；Y─施工坐标系中的Y坐标5 检核数据已知： X O=316.689m；Y O=501.123m；T=-8°13′36″N=755.500m；E=740.800m结果： X=400.000m；Y=300.000m6 简图及数据：详见中等专业学校教材《工程测量学》第一章第3～6页图1-1坐标系统换算示意图；表1-1 测图坐标换算施工坐标已知数据表；表1-2 坐标换算与校核计算表。

卡西欧4800公路测量程序

卡西欧4800公路测量程序第一章：基本符号1、X0——始点横坐标2、Y0——始点纵坐标3、X1——终点横坐标4、Y1——终点纵坐标5、D——始点到终点的水平距离6、F——始点到终点的方位角7、X(P1)——P1点的横坐标8、Y(P1)——P1点的纵坐标9、X(P2)——P2点的横坐标10、Y(P2)——P2点的纵坐标11、D(OP1)——置仪点到P1的水平距离12、D(OP2)——置仪点到P2的水平距离13、F(OP2)——置仪点到P2的方位角14、X(00)——置仪点的横坐标15、Y(00)——置仪点的纵坐标16、JD，JD(AB)——选择输入1或者2（1）JD——实交（2）JD(AB)——虚交17、IR、IL——选择输入1或者2（1）IR——路线右转（2）IL——路线左转19、(1) E-R; (2) T-R——选择输入(1)或(2)（1）E-R——继续E长控制半径R（2）T-R——T长控制半径R19、(1) E-R; (2) END——选择输入(1)或(2)（1）E-R——继续E长控制半径R测曲中（2）END——结束20、(1)S1，(2)S2，(3)R2——选择输入(1)或(2)或(3)(反复曲线S型)（1）S1——进入第一条曲线测量（2）S2——进入第二条曲线测量（3）R2——这是由第二条曲线测设后，进入第一条曲线测，在进入第二条曲线直接测量曲中21、(1)R1，(2)R2，(3)END——选择输入(1)或(2)或(3)(反复曲线S型)（1）R1——如对曲线一、二的测设皆不满意，可输入1，进入第一条曲线的测设，结束后输入3，进入第二条曲线的测设（2）R2——(2)R2:如对曲线二的邪恶设不满意，可输入2，再测曲中（3）END——结束22、X(QZ)——曲中的横坐标23、Y(QZ)——曲中的纵坐标24、D(QZ)——置仪点到曲中的水平距离25、F(QZ)——置仪点到曲中的方位角26、K——输入桩号27、W(L)——左侧边桩距离中桩的水平距离28、W(R)——右侧边桩距离中桩的水平距离29、X(L)——左侧边的桩横坐标30、Y(L)——左侧边的桩纵坐标31、H(L)——左侧边的高程32、D(L)——置仪点到左侧边桩的水平距离33、F(L)——置仪点到左侧边桩的方位角34、X(Z)——中桩的横坐标35、Y(Z)——中桩的纵坐标36、H(Z)——中桩的高程37、D(Z)——置仪点到中桩的水平距离38、F(Z)——置仪点到中桩的方位角39、X(R)——右侧边桩的横坐标40、Y(R)——右侧边桩的纵坐标41、H(R)——右侧边桩的高程42、D(R)——置仪点到右侧边桩的水平距离43、F(R)——置仪点到右侧边桩的方位角44、F1——第一条线路的方位角45、F2——第二条线路的方位角46、JA——虚交JDA转角47、JB——虚交JDB转角48、ａ——路线转角49、R——平、竖曲线半径50、R1——第一天曲线半径51、R2——第二条曲线半径52、L S——缓和曲线长度53、L S1——第一缓和曲线长度54、L S2——第二缓和曲线长度55、T——平、竖曲线切线长度56、T1——第一平曲线切线长度57、T2——第二平曲线切线长度62、L——平、竖曲线长度63、L1——第一平曲线长度64、L2——第二平曲线长度65、E——平、竖曲线外距66、E1——第一平曲线外距67、E2——第二平曲线外距68、LY——圆曲线长度69、L Y1——第一圆曲线长度70、L Y2——第二圆曲线长度72、K(JD) ——交点桩号73、AB——虚交JDA—JDB的水平距离74、ZH——直缓点桩号75、HY——缓圆点桩号76、QZ——曲中点桩号77、YH——圆缓点桩号78、HZ——缓直点桩号79、GQ——公切点桩号80、N°——右角顺时针第二章：路线测量与道路施工放样计算程序第一节：已知两点坐标求距离和方位角计算程序【例题1】如图1-1，已知A点坐标A(100,100)， XB点坐标B(-100,-100)。

卡西欧4800计算器测量放样程序汇编

卡西欧4800计算器测量放样程序汇编4800程序使用说明书程序代码术语：连续曲线数据块、独立曲线数据块、长短链功能：1、放样对应里程中心点2、放样对应里程旋转任意角度外移点（图A点）3、放样对应里程旋转任意角度外移点的外移点（图B点）4、获取放样点坐标及对应里程中心点沿线路前进方向切线方位角程序输入注意事项：1、常用程序文件放在前面，便于调用，一般先建立“CIRCLE”、“XY-AL”、“AL-XY”三文件，文件名千万不能输错。

2、加粗带下划线词组为计算器中的函数或符号，只能从计算器中调出此函数或符号，不能从键盘输入。

符号←表示回车键“EXE”坐标输入通用格式：屏幕显示OPP NAME?（置镜点名称）或CPP NAME?（后视点名称）：1：输入-1：手动输入坐标X,Y2：输入大于1数字：输入用数字所代表的控制点名。

如数据库中没有本数字所代表的点名，则系统显示SynERROR in…（文件名）。

曲线放样程序（CIRCLE）运行说明：步骤1：屏幕提示“LOAD?”（输入曲线要素）1.1：输入1（默认）：输入里程后将自动判断所在曲线并调用（此功能必须保证曲线数据库中有连续曲线数据块，具体详见数据库建立）。

1.2：输入-1：屏幕提示手动输入各曲线要素，ZJ（转角）、R（半径）、L0(缓和曲线长)、ZH KM(直缓里程)、JDX(曲线交点X坐标)、JDY(曲线交点Y坐标)、A0(起始直线边前进方向方位角)、1 R,-1 L(右偏输入1，左偏输入-1)。

1.3：输入大于1的数字：输入用数字代表的曲线名称，比如13，表示放样点位于曲线13 上（曲线名称在建立数据库是自己命名，但一定要大于1）。

如库中没有此名称，系统显示“Syn ERROR in CIRCLE”。

（此功能必须保证曲线数据库中有独立曲线数据块）步骤2：屏幕提示“OPP NAME?”（输入置镜点名称）详见坐标输入格式。

步骤3：屏幕提示“DK+M?”（输入放样点对应中心里程）如K15+002.35应输入15002.35。

卡西欧4800P计算器测量程序集-10页文档资料

福建林业职业技术学院工程系土木工程室高国兴CASIO fx-4500PA计算中桩、边桩坐标程序直线、圆曲线中桩及左、右边桩计算程序fx-4800pC“Xθ=”：D“Yθ=”：E“Wθ=”：N=Ans：R“R=”：L“Lμo=”：K“D=”：M“Jμo=”：Q=9θL÷（πR）：S=2RsinQ ：O =C＋Scos（N-Q）◢P=D+Ssin（N-Q）◢W=E-2Q◢X=O+Kcos（N-2Q-M）◢Y=P+Ksin（N-2Q-M）◢注：Xθ=起算点坐标Yθ=起算点坐标Wθ=起算点方位角R=曲线半径，线路前进方向，左+，右－直线R为无穷大Lμo=置镜点到待求点距离D左、右边距离Jμo=前进方向左（+90），右（－90）O=中桩坐标P=中桩坐标W=待求点方位角X=左、右边桩坐标Y=左、右边桩坐标缓和曲线中桩及左、右边桩计算程序Fx-4800pC“Xθ=”：D“Yθ=”：E“Wθ=”：N=Ans：R“R=”：F“Lθ=”：L“Lμo=”：K“D=”：M“Jμo=”←U=L－L^5÷（40R2F2）：V=L^3÷（6RF）－L^7÷（336R^3F^3）：Q=tan－1（V÷U）：S=√（U2+V2）←B=9θL2÷（πRF）：O=C+Scos（N－Q）◢P=D+Ssin（N－Q）◢W=E－B◢X=O+Kcos（N－B－M）◢Y=P+Ksin（N－B－M）◢注：Xθ=起算点坐标Yθ=起算点坐标Wθ=起算点方位角R=曲线半径，线路前进方向，左+，右－Lθ=缓和曲线长Lμo=置镜点到待求点距离D左、右待求距离Jμo=前进方向左（+90），右（－90）O=中桩坐标P=中桩坐标W=待求点方位角X=左、右边桩坐标Y=左、右边桩坐标放样程序fx-4800pRLI“XZ”：W：“YZ”：G“XH”：H“YH”←B=H－W ←C=G－I ←Prog“P”：U=A←K=√（B2＋C2）←C=X“X－”－I←B=Y“Y－”－W←Prog“P”←L“L”=√（B2＋C2）◢V=A－U：V<θ==>V=V＋36θ⊿V “V=”◢PA=tan－1（B÷C）←B≥θ==>C≥θ==>A=A：≠=>C<θ==>A=A＋18θ⊿⊿≠=>B<θ==> C≥θ==>A=A＋36θ: ≠=>C<θ==>A= A＋18θ⊿⊿⊿←XZ、YZ—置镜点X、Y坐标；XH、YH—后视点坐标；X-、Y-—前视点坐标；输出：R=水平角、L=置镜点至前视点水平距离。

4800全套计算程序(吐血推荐)

整套卡西欧计算器CASIO FX-4800 4500测量程序各位同行：我长年从事公路桥梁测绘工作，收集整理了一整套卡西欧计算器CASIOFX-4800P和卡西欧CASIO FX-4500P测量放线程序，该套程序经过反复修正，具有极高的可靠性。

现在免费提供给大家.程序目录：1.1 测边大地四边形的条件平差程序1.2 测边中点多边形的条件平差程序1.3 单一导线的严密平差程序1.4 单一结点导线的严密平差程序1.5 边、角后方交会的条件平差程序1.6 测边交汇点的条件平差程序1.7 单一水准路线的平差程序1.8 单结点的平差程序1.9 多结点水准网的平差程序1.10 多边形水准网的平差程序1.11 三角高程差的计算程序1.12 测距边水平距离的计算程序1.13 高斯投影座标正、反解和换带的计算程序1.14 平面座标转移的计算程序2.1 单边、角后方交会的计算程序2.2 双边、角后方交会的计算程序2.3 碎部点座标的计算程序2.4 内、外分点座标的计算程序2.5 房角标的计算程序2.6 多次后方测角交会点2.7 测边交会点的计算程序2.8 导线三维值的计算程序2.9 圆心座标和半径的程序2.10 测站点、照准点归心改正的计算程序2.11 单边、双站后方交会的计算程序3.1 线路中心座标的计算程序3.2 线路边桩座标的计算程序3.3 红线交点座标的计算程序3.4 直线与圆曲线交点座标的计算程序3.5 垂足座标的计算程序3.6 道路不等宽时曲线要素的计算程序3.7 缓和曲线敷设时的计算程序3.8 圆曲线敷设时的计算程序3.9 极座标放线线的计算程序3.10 交点座标的计算程序3.11 宗地有关项目的计算程序3.12 丘地有关项目的计算程序4.1 导线X、Y、Z值的近似平差程序4.2 无定向导线的计算程序4.3 测角前方交会点座标的计算程序4.4 测边交会座标的计算程序4.5 测角后方交会点座标的计算程序4.6 双边、角后方交会点座标的计算程序4.7 平面座标转移的计算程序4.8 测站点、照准点归心改正的计算程序4.9 三角高程高差的计算程序4.10 测距边水平距离的计算程序4.11 单一导线的严密平差程序4.12 边、角后方交会点的严密平差程序4.13 测边交会点的严密平差程序5.1 图跟导线点座标的计算程序5.2 碎部点座标的计算程序5.3 内、外分点座标的计算程序5.4 角座标的计算程序5.5 圆心座标的和半径的计算程序5.6 交点座标的计算程序5.7 单边、角交会点座标的计算程序5.8 宗地有关项目的计算程序5.9 单边、双站后方交会座标的计算程序6.1 线路边桩座标的计算程序6.2 红线交点座标的计算程序6.3 直线与曲线交点座标的计算程序6.4 道路不等宽时曲线元素的计算程序6.5 垂足座标的计算程序6.6 圆曲线敷设的计算程序6.7 缓各曲线敷设的计算程序6.8 极座标放线的计算程序6.9 单一水准路线的近似平差计算程序6.10 丘地有关项目的计算程序公路中、边桩坐标计算及放样程序功能：任意半径曲线中桩、任意交角边桩坐标计算放样、中桩切线方位角、任意点置仪放样、两点间距离计算、两点方位角计算。

卡西欧4800道路测量程序

各位同行,本人领悟yshf的程序后,进行了以下改编,达到以下目标:1.加编数据库,计算中不必逐项输入"线元要素",提高运算速度，避免现场忙中出错2.计算直观,人性化3.正算直接输入里程和边距,反算输入近似里程便可4.增加了“计算点与测站点”的距离和方位角计算语句，方便直接放样5.愿收获与大家共享一.改动后的程序清单:1.主程序(TYQXJS)"1.SZ => XY"："2.XY => SZ"：U"X0"：V"Y0"：O"S0"：G"F0"：H"LS"：P"R0"：R"RN"：Q：D=(P-R)÷(2HPR)：N=1=>Goto 1：≠>Goto 2Δ←┘Lbl 1：{Z}：Z：W=Abs(S-O)：Prog "SUB1"：X"XS"=X◢Y"YS"=Y◢F"FS"=F-90◢C“XC”：E“YC”：I=0：J=0：Pol（X-C，Y-E）：I“I=” ◢J∠0＝＞J“J=”+360◢≠＞J“J=” ◢ΔProg"SJK"←┘Lbl 2：{XY}：XY：I=X：J=Y：Prog "SUB2"：S"S"=O+W◢Z"Z"=Z◢Prog"SJK"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+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))+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+ZcosF：Y=Y+ZsinF3. 反算子程序(SUB2)T=G-90：W=Abs((Y-V)cosT-(X-U)sinT)：Z=0：Lbl 0：Prog "SUB1"：L=T+Q57.2958W(1/P+WD)：Z=(J-Y)cosL-(I-X)sinL：AbsZ<1E-6=>Goto1：≠>W=W+Z：Goto 0Δ←┘Lbl 1：Z=0：Prog "SUB1"：Z=(J-Y)÷sinF二.增设数据库程序（ＳＪＫ）Lbo4：｛S｝：S∠下一线元起点里程≡＞O=本线元起点里程：U=本线元起点X：V=本线元起点Y：G=本线元起算方位角：H=本线元长度：P=起点曲率半径：R=终点曲率半径：Q=0或1、-1：Prog“TYQXJS”：Goto4Δ←┘S∠下一线元起点里程=＞O=。