fx-4800计算器程序

计算器对应程序名称：{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和水平距离。

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÷（2 40R2）▲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^4 SR））：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－Ws in 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=Vsi n 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点桩号。

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

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

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

如数据库中没有本数字所代表的点名，则系统显示Syn ERROR 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 CI RCLE”。

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

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

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点桩号。

曲线计算公式、程序及算例广西建设职业技术学院测量教研室李向民2007年4月一、圆曲线中桩与边桩坐标计算公式1．根据已知的中线偏角、半径和交点桩号计算切线长T 、曲线长L 及外距E ，以及曲线主点的桩号切线长 2tan αR T = 曲线长180παR L =外 距 )12(sec2cos-=-=ααR R R E切曲差（超距） D = 2T －L 式中α以度为单位。

交点的桩号已由中线丈量得到，根据交点的桩号和曲线测设元素，可计算出各主点的桩号，ZY 桩号 =JD 桩号－TQZ 桩号 = ZY 桩号＋2LYZ 桩号 = QZ 桩号＋2L为了避免计算中的错误，可用下式进行计算检核：JD 桩号 = YZ 桩号－T ＋D2．根据已知的两个交点的坐标，计算曲线主点的坐标和细部桩点的坐标（1）计算直圆点（ZY ）坐标根据JD 1和JD 2的坐标(x 1 , y 1)、(x 2 , y 2)，用坐标反算公式计算第一条切线的方位角α2-1和ZY 点坐标（x ZY , y ZY ），212112arctanx x y y --=-α122122sin cos --+=+=ααT y y T x x ZY ZY（2）计算圆心坐标因ZY 点至圆心方向与切线方向垂直，其方位角为αZY-O =α2-1 ± 90°（左偏角时用“+”，右偏角时用“－”）则圆心坐标（x o , y o ）为ozy ZY o o zy ZY o R y y R x x --+=+=ααsin cos（3）计算圆心至各细部点（和主点）的方位角设ZY 点至曲线上某细部里程桩点的弧长为l i ，其所对应的圆心角i β按下式计算得到：πβ180⋅=R l i i 则圆心至各细部点的方位角αi 为αi =（αZY-O ＋180°）±i β （左偏角时用“－”，右偏角时用“+”）（4）计算各细部点（和主点）的坐标根据圆心至细部点的方位角和半径，可计算细部点坐标io i i o i R y y R x x ααsin cos +=+=（5）计算各桩点边桩坐标设左边桩与中桩之间的垂直距离为D 左，右边桩与中桩之间的垂直距离为D 右，则左边桩的坐标为：io i i o i D R y y D R x x ααsin )(cos )(左左左左±+=±+=（左偏角时用“－”，右偏角时用“+”）右边桩的坐标为：io i i o i D R y y D R x x ααsin )(cos )(右右右右±+=±+=（左偏角时用“+”，右偏角时用“－”）注：可用全站仪按极坐标法测设线路主点和细部中桩，以及边桩；二、圆曲线计算程序（CASIO fx-4800P ）“YQS ”文件（主程序，计算圆曲线、直线的中桩坐标、边桩坐标）{}{}{}[][][][][][][][]{}{}2▲)90sin()(""▲)90cos()("":1:10:)sin )((:)cos )((:,211▲sin )(""▲cos )("")(180)(,11180sin cos 90sin cos 12""4:212""3:""2:180""1:)2tan(:,31:3:20""Pr :"":"":"":"",,,,2211Goto H H C B AbsH N Y V C B AbsH M X U C C H B K I P N B K I D M HK H K Lb Goto H H Q HZ R N Y V Q HZ R M X U OZ C Q R L O T I K L H K Lb J C J R F N J R E M Z B J B T P F B T D E Z Z YZ Z Z Z QZ Z T I ZY Z RA L Z A R T ZA Z A Lb Goto Goto R R OB og I Y P X D Y Y X X I P D Y X -=++=++=-=≠⇒=⇒≥-+=-+=-=++=++=⨯+=÷=--=+=+=+=⨯-=+=+=+=÷+=-=÷=÷=≠⇒⇒=ππ“OB ”文件 （子程序，计算两点间的坐标方位角）BB Lb Goto W B W B P Y Lb Goto W B Goto D X D X P Y W Lb Goto B B P Y Lb Goto Goto D X =+=≠⇒=⇒>-+=≠⇒⇒>--÷-==≠⇒=⇒>-≠⇒⇒=----:414:360tan :tan 0:314:180tan :30:)()(:214:270:900:11:2:10111注释:R 为圆曲线半径（当算直线时输入0） I 为2JD 桩号1X ,1Y 是1JD 的XY 坐标2X ,2Y 是2JD 的XY 坐标A 为偏角Z ：右偏角时Z=1，左偏角Z=－1 K 为待放点桩号H 为边桩距：当为路线左边桩时符号为正，右边桩时符号为负，求中桩时输入0。

CASIO fx 4800匝道计算程序casiofx-4800匝道计算程序dkiddd曲线元素中待求解点的桩号x：y：fwjddd待求曲线元中线点x，y坐标及切线方位角Wddd计算侧桩和中心线之间的水平距离。

在左侧输入负值，在右侧输入正值。

退出并输入0xw:YWDD侧桩x，y坐标IV.示例如龙门互通立交d匝道线型及相关数据如下d-d点站x（n）y（E）方位角qdk0+0002777862.564544381.888295°56′01″yhk0+081.7212777900.604544309.576299°33′37″hyk+122.0382777921.779544275.286305°04′30″yhk+277.0852778043.3765 44183.130340°36′33″gqk+317.0852778081.751544171.883345°11′34″hyk+367.085 2778129.138544156.172334°34′57″zdk+432.2112778179.092544115.375306°56′31″计算步骤QD YH曲线元素，该段为圆曲线运行程序，按照提示输入曲线元qd纵横坐标及方位角，qd和yh点桩号，再输入该曲线元内所求点桩号即可显示该中线坐标和切线方位角，可以输入yh点桩号k0+81.721验证计算出的结果，之后会提示输入“w”值，即边线宽度，左负右正，如不需要计算边线坐标或计算完毕后输入数值0即可计算下一个桩号坐标。

yh－hy曲线元，该段为回旋线像以前一样运行程序。

此时，起点为YH点，终点为hy点。

这两点的半径不同。

YH点半径输入“1÷1291”，HY点半径输入“1÷250”。

YH GQ曲线元素，这是一条过渡曲线起点为yh点，终点为gq点，输入相应参数，需要注意的是此时gq点的半径要输入数值0，实际上把gq点理解为hzh点就不难理解。

标准测量曲线坐标计算程序1.文件名MAILLbi 0{U,D}（U为桩号，D为所求点到中点的距离左为负，右为正）U<12111.892(ZH点)=>PROG“JD1”：≠>U《12000=>“JD2”⊿⊿（有多少语句就有多少⊿）X◢Y◢GOTO 02.数据记录文件“JD1”Z=12000（直缓点桩号）H=13000（缓直点桩号）L=100（缓和曲线长度）T=100（切线长）R=2000（圆曲线半径）A=175.2315（第一方位角）B=150.2000（第二方位角）I=+ -1（左为负，右为正）P=（交点X坐标）Q=（交点Y坐标）V=（缓圆点X坐标）W=（缓圆点Y坐标）PROG“SE”3.“SE”判断J=Z+LG=H-LU〈Z=> PROG“LINE”：≠>U〈J=> PROG“Q1”：≠>U〈G=> PROG“CIR”：≠>U〈H=> PROG “Q2”⊿⊿⊿⊿（有多少语句就有多少⊿）4. “LINE”直线S=U-ZC=AX=P+（S+T）*COS（A+180）+D*COS（A+90）Y=Q+（S+T）* SIN（A+180）+D*SIN（A+90）5. 第一缓和曲线“Q1”S=U-ZC=A+I*S2/2/L/R*180/PIM=S-S5/40/R2/L2+S9/3456/（RL）4N=S3/6/L/R-S7/336/L3/R3+S11/42240/（RL）5X=P+T*COS（A+180）+M*COSA+N*COS（A+I*90）+D*COS（C+90）Y=Q+T*SIN （A+180）+M*SIN A+N* SIN（A+I*90）+D* SIN（C+90）6.圆曲线“CIR”S=U-JC=A+I*（L/2/R+S/R）*180/PIX=V+2*R*SIN（S/2/R*180/PI）*COS（A+I*（（L+S）/2/R）*180/PI）+D*COS （C+90）Y=W+2*R*SIN（S/2/R*180/PI）*SIN（A+I*（（L+S）/2/R）*180/PI）+D*SIN （C+90）7.第二缓和曲线“Q2”S=H-UC=B- I*S2/2/L/R*180/PIM=S-S5/40/R2/L2+S9/3456/（RL）4N=S3/6/L/R-S7/336/L3/R3+S11/42240/（RL）5X=P+M*COS（B+180）+T*COSB+N*COS（B+I*90）+D*COS（C+90）Y=Q+M*SIN （B+180）+T*SIN B+N* SIN（B+I*90）+D* SIN（C+90）匝道程序1.主程序（TYQXJS）“1.SZ=XY”：“2. XY =SZ”：N：U“X0”：V“Y0”：O“S0”：G“F0”：H“LS”：P“RO”：R“RN”：Q：C=1/P：D=（P-R）/（2HPR）：E=180/PI：N=1=>GOTO 1：≠>GOTO 2⊿Lbi 1：{SZ}：SZ：W=AbS（S-O）：PROG“SUB1”：X“XS”=X⊿Y“YS”=Y⊿GOTO 1Lbi 2：{XY}。

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计算出的两个量，不能改变，直接回车默认即可。

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.高程计算。