4800计算器常用测量计算程序.docx
《4800计算器常用测量计算程序.docx》由会员分享，可在线阅读，更多相关《4800计算器常用测量计算程序.docx（15页珍藏版）》请在冰豆网上搜索。
4800计算器常用测量计算程序
常用测量计算程序
（适用于CASIOfx—4800P计算器）
南昌徕特有限公司
测绘仪器经营维修部
地址：
江西省南昌市北京东路220号南昌大学南区对面
电话：
（0791）8302887
南昌大学土木工程系
1.程序使用说明
1.1导线计算程序
1.2公路任意中桩点、边桩点坐标或放样元素计算程序
1.3方位角、边长反算程序
1.4坐标交换计算程序
1.5面积计算程序
1.6交点坐标计算程序
1.7点到直线的距离计算程序
1.8高斯投影坐标正、反算及换带计算程序
2.程序清单
2.1各主程序
2.2各子程序
1程序使用说明
1.1导线计算程序
（程序名：
DXJS）
一、程序功能
本程序可用于进行单一导线（包括附合导线、闭合导线、支导线）的简易平差计算；同时还可计算以该导线点为测站点、定向点的极坐标点的坐标。
、图形说明
本程序适合于以下图形的单一导线:
1•附合导线（图1.1—1）
图1.1—1
图1.1—1中：
A、B、C、D为已知点，1、2、3为待定导线点，E、F为极坐标点
2.闭合导线（图1.1—2a、1.1—2b）
图1.1—2a中，BN方向为坐标轴方向。
在本程序中，将闭合导线看作是起始边和闭合边重合的附合导线
图1.1—3
三、程序使用说明
本程序启动前进行变量扩充:
可不再扩充。
1•程序启动采用下列方法之一，均可启动本程序（程序名为：
DXJS）:
，然后用上下移动键将光标移到“DXJS处,
2•程序启动后，按照显示屏上的提示进行操作：
1“N=?
”输入导线转折角总数。
女口：
图1.1—1中，N=5;图1.1—2（a、b）中，N=6图1.1—3中，N=5
2“x二？
”“丫1=?
”
对于图1.1—1,图1.1—2b、图1.1—3的图形，输入A点的已知坐标XX。
若已知AB边的坐标方位角aba则输入：
X1=aba（以小数形式输入：
度、分、秒），丫1=0,
图1.1—2b也属于这种情形：
X仁aB1。
3“夫=?
”“丫2二？
”,输入已知点的坐标Xb，Yb。
4“L二？
”“S二？
”
依次输入各站的观测角、边长。
观测角以小数形式输入：
度、分、秒。
对于闭合边长：
S=0b对于图1.1—2a中的图形，第一个测站的观测角：
L=0。
5“％=?
”“丫3二？
”
对于附合导线，输入已知点C的坐标XW。
对于支导线：
X^=0，导线输入自然结束。
对于闭合导线，应输入B点的坐标Xb，Ybo
6”X4二？
”,”丫4二？
”
对于附合导线：
输入已知点D的坐标XD、Yd。
若已知CD边的坐标方位角aCD,则X4=acd,乂=0。
对于闭合导线（图1.1—2b）：
输入已知点的坐标XA,%。
若已知AB边坐标方位角，贝U：
Xi=aba,丫=0。
对于闭合导线（图1.1—2a）:
X4=aB1,丫4=0。
7“CHEC（0,1）”
问：
是否校对输入的数据。
若要校对，则输入非零的数值；否则输入0或直接回车。
8程序依次显示输出如下计算结果：
fB――导线角度闭合差：
FB导线角度闭合差限差；工S导线全长；
Fx,fy导线纵、横坐标闭合差；
刀S宁fs――导线全长相对闭合差分母；
Fs导线全长闭合差；
9”j•L”,”j•s”
分别输入本站极坐标点的观测角和边长，当极坐标点以前视点定向时，边长输入负值。
本站极坐标点计算完毕，直接回车。
10最后显示输出如下结果：
导线点坐标：
X,丫极坐标点坐标：
Xj,Yj
1.2公路任意中桩点、边桩点坐标或放样元素计算程序
（程序名：
CURVE）
一、程序功能
本程序可用于计算公路任意中桩点、边桩点以及桥涵点的坐标或放样元素（边长、方位角）。
二、图形说明
图1.2-1所示为一段含缓和曲线、圆曲线段、直线段的公路中线示意图，JDo、
图1.2—1
JDi、JD2为交点。
本程序要求的已知数据为：
各交点的坐标，交点JDo的里程Ljo,园曲线半径R,缓和曲线长度Lo,路面设计宽度D。
若要直接计算放样元素，还需要测站及定向点的坐标。
三、使用说明本程序启动前须进行变量扩充：
接着，显示屏显示“OUT—YOR—S?
”，若要计算坐标，输入1；若要计算放样元素,输入2。
输入2后，还要输入以下数据：
8“％=?
”，“丫。
=?
”，输入测点（安置仪器的控制点）的坐标。
9“X=?
”，“丫1=?
”，输入定向点（放样时照准定向的控制点）的坐标。
显示0OR5，需要输出5大桩坐标或者放样元素输入5,否则输入0。
然后,显示屏显示定向方位角：
A）i0
接着，依次输出各主点：
ZHHYQZYHHZ的里程Lz及其中桩点，左、右边桩点坐标或放样元素（方位角A或边长S）。
然后，只要输入任意点的里程Lp,即可计算出该点的中桩点，左、右边桩点的坐标或放样元素。
若为桥涵点，还应输入公路中线之法线与桥涵中线的交角Q。
交角0由公路中线之法线起算，顺时针为正值，反时针为负值。
计算完每一点后，显示屏都会显示“GO02”，若要继续计算，输入1否则输入2,当显示屏显示“MOVESTATION？
”时，输入1,为搬站，需重新输入搬站后测站点、定向点坐标；输入2,表示该段道路已算完，程序运行结束。
若公路不含缓和曲线段，只有园曲线和直线段，则只输入L0=O即可。
1.3方位角、边长反算程序
（程序名：
FWB）
、程序功能
本程序可用于由两点的坐标计算该两点间的距离（边长）及方位角
、使用说明
程序启动后，根据显示屏显示输入：
1“％=?
”，“丫。
=?
”，输入0号点X、丫坐标；
2“X=?
”，“Yi=?
”，输入1号点X、丫坐标；
然后，输出A（方位角aoi）,S（边长Soi）
1.4坐标变换计算程序
（程序名：
ZBB）
、程序功能
本程序可用于平面坐标变换计算。
、基本图形
图1.4-1中，0――XY为旧坐标系，01—AB为新坐标系。
Xo,Yo为新坐标系原点O1在旧坐标系中的坐标，K为旋转角，图中方向为正角，反之为负角。
三、使用说明
程序启动后，首先输入X0,Y0,K，然后，依次输入旧坐标X、丫，即求得其新坐标A、Bo
1.5面积计算程序
（程序名：
AREA）
一、程序功能
本程序可用于计算由封闭的多边形之顶点坐标计算其面积。
二、使用说明
顺序输入各顶点的坐标X、丫，当输完最后一个顶点之丫值后，输入一个X<0的值，表示输入结束。
接着输出面积A（米2），再按exe键，输出面积AA（亩）。
1.6交点坐标计算程序
（程序名：
JD）
一、程序功能
本程序可用于计算不平行的两条直线的交点坐标。
二、程序使用说明
程序启动后，按显示分别输入不平行的两条直线上两点坐标（A，B）（C，D）
和（E，F）（G，H）。
同直线上的两点输入顺序不限。
接着输出交点坐标X，丫。
1.7点到直线的距离计算程序
（程序名：
PLS）
「、程序功能
本程序用于计算点到直线的距离，并求得垂足的坐标及点到垂足方向的方位角。
二、使用说明
程序启动后，按显示屏提示顺序输入点的坐标（A、B），直线上任意两点的坐标（C、D），（E、F），即求得垂足坐标（X，丫），垂距S及点到垂足方向的方位角T
1.8高斯投影坐标正、反算及换带计算程序
（程序名：
GAUSS）
一、程序功能
本程序可用于高斯投影坐标正、反算及换带计算。
二、使用说明
程序启动后，显示“1%X2X=B3》”输入1,为高斯投影坐标正算；输入2,为高斯投影反算；输入3,为高斯投影换带计算。
1、正算
“B=?
”“L=?
”“Lo二？
”分别输入纬度、经度及中央子午线经度，按度、分、秒形式输入。
接着输出：
坐标X、丫（已加上500Km）。
2、反算
“x=?
”“丫=?
”“L*?
”分别输入坐标，中央子午线经度。
接着输出：
纬度B,经度L。
由于经度包括小数点有12位，无法一次显示，所以分二次显示。
第一次显示度、分，第二次显示秒。
3、换带
“X=?
”“丫=?
”“L*?
”分别输入坐标及其中央子午线经度；“Lo=?
”输入换带中央子午线经度，接着输出换带后的坐标X'、丫'。
2程序清单
2.1主程序
2.1.1导线计算
（程序名：
DXJS）
Deg:
Fix:
Lb10：
{NABCDEFGH}：
K=N:
C”X=”D”Y”A”X”B”Lb11：
X=N-K+1:
L=Z[X]:
S=Z[N+X]:
{LS}:
Z[X]=L:
Z[N+X]=S:
DszK:
Goto1:
G'X3二”:
G>0=H丫3=”E4=”F“Y'bM=0:
{M}:
M“CHECK（0,1）”：
M=M+1:
DszM:
Goto0:
'D<0,—、O=C:
Prog“&P=O-180:
Prog“F”=一，X=A-C:
Y=B-D:
Prog“D”Fix3:
T=P:
U=0:
V=0:
W=0:
G>0Prog“J”Prog“E”Lb17:
O=-1:
{SO}:
O“J丄=:
"O>0——「Prog“A”Goto7卜Prog“B”X?
Y?
DszK:
Goto7:
“END”
2.1.2公路任意中桩点、边桩点坐标或放样元素计算
（程序名：
CURVE）
E“L0=”
Deg：
Fix4：
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“XJO=”B“YJO=”C“LJO=”D“R=”F“D=”G“XJ仁”H“YJ仁”M“XJ2=”N:
ZYJ=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“DZ[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]-（2nM=Z[7]-^2-Z[7]A3（^40RA2）:
P=Z[7]A2-（24R）-Z[7]A4（2688RA3）:
T=M+（R+P）tan（Z[10]2）么L=2Z[7]+（Z[10]-2Z[11]）Rn-18«E=（R+P）弋os（Z[10]2^R丄K=Z[5]-180:
K<0:
K=K+360.Z[12]=Z[1]+TcosK:
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}:
F“OUTX—YORA—S”:
G=0:
{G}:
G“0OR5”：
Lbl1:
F=2口Prog“V”Lbl2:
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”:
工0ProgN”,Goto9、Lb18:
z[18]—Z[35]<0,>
Prog“”：
Goto9Z[18]—Z[39]>0_—:
Prog“”：
Goto9Abs（Z[18]—Z[16]—
0.5L）ProgN”：
工！
_rogO”Lbl9:
F=1.——>Prog
X”：
——>Prog:
””G工0——>DszG:
——>U=1、U=1:
{U}:
U“GOON
:
U=1=Goto2:
——>V=1、Fm2=Goto3、{V}:
V“MOVESTATION
:
v=1nGoto1:
工=>V=0zLbl3:
“END”
2.1.3方位角、边长反算
（程序名：
FWB）
Deg:
Fix4:
{ABCD}:
A:
X0=”B“Y0=”C“X1=”D“YX==C—A:
Y=D—B:
ProgD”:
S=l（1我影系数）：
Prog”L”P“A=”?
S“S=”?
“END
不输入
2.1.4坐标变换计算
（程序名：
ZBB）
Deg:
Fix4:
{ABC}:
A:
X0=”B”Y0=”C:
:
KO=C:
ProgC”：
K=O:
U=0:
Z=0:
Lbl1:
{DE}:
D“X=”E“Y=”X=D—A:
Y=E—B:
ProgR”:
Z[24]“A=”?
Z[25]“B=”?
Goto1
2.1.5面积计算
（程序名：
AREA）
Fix6:
G=0:
A=X:
B=Y:
C=A:
D=B:
Lbl1:
{XY}:
X<0=;G=G+AD—BC:
A=AbsG吃:
A:
A=”?
A=0.0015A:
A:
AA='?
G=G+XD—YC:
C=X:
D=Y:
Goto1
2.1.6交点坐标计算
（程序名：
JD）
AB:
A=C—:
E=A:
F=B:
G=C:
{ABC}:
H“D”A“E”B“F”C“G：
DEFhTL=E—G:
M=AD—BC:
K=A—C:
X=（LM—KEH+KGF）十（KF—HK+LD—LB）?
Y=（M—XD+XB）-K?
2.1.7点到直线的距离计算
（程序名：
PLS）
ABCD:
K=C—E:
L=K-（F—D+e—20）:
X=（KB—ALK+DE—CF）讯D—F—KL）?
Y=LX—AL+B?
X=X—A:
T=Y—B:
Prog“D”Prog”L”
P“T=”？
八
I“S=”？
不输入
2.1.8咼斯投影正、反算及换带计算
（程序名：
GAUSS）
Fix5:
R=6367558.49686E=0.006738525415:
K=180十n1=32005.78006:
J=133.92133:
Z=0.7031:
LbI1:
{0}:
O“IB=：
；X2X三\0>1=；：
Prog“7”0=3=.：
Goto2
:
工0Goto1卜卜{BPA}:
B:
P“L”:
A“L0”：
L=P—A:
LbI2:
Prog“8”W=CL水:
U=TC:
M=WA2:
V=UA2:
RB^K—UC（I+V（J+ZV））:
X=Ans+0.5NMT（（（（H—58）H+61）M-30+（4F+5）Q—H）M十12+1?
Y=5e5+NW（（（（H—18）H—（58H—14）F+5）M十20+Q—H）M-6+1?
M=K（TW（1+M（（Q+E）Q七+M（2—H-15）:
Prog“9”“R=HMS”：
1e4G+1e2V+M?
Goto1
2.2各子程序
“A”
S“J.S=:
”Fixm:
Prog“CM=O:
S<0__O=Z[N—K+1]:
Prog“C0=0+P—180—WN+M:
半，O=P+M—180|O=X+Rec（AbsS,O:
O“X.J=”？
M=Y+J:
M“Y.J=”?
“B”
O=Z[N-K+1]:
S=Z[2N-K+1]:
Prog“GProg“K”
“c”
R=100FracO:
O=IntO+IntR60+FracR36
“D”
Fixm:
PoI（X,Y:
P=J：
Prog“F”）
“E”
X=A:
Y=B:
P=T:
K=N
“F”
P<归二>P=P+360、P>360^>P=P-360\
“G
Prog“C”P=P-180+O-VWN:
Prog“F”
M=3600W:
M“FB=”？
M=60/N:
M“FB=”?
Q“艺（S）=”？
M=O-N:
M“S=”
U=X-G:
V=Y—H:
P=Int（QPol（U,V:
U“FX=”
V“fY=”?
I“fS=”?
P“艺（S）-fS=”？
K=N:
Q=e-20:
Lbl2:
Prog“B”Q=Q+S:
DszK:
Goto2:
M=P:
FO:
.O=E:
Prog“C”P=O:
工=X=E-G:
Y=F-H:
Prog“D”W=M-P:
Prog“H'Prog“E”
LbI4:
Prog“B”DszK:
Goto4:
Prog“I”
“K”
Fixm:
X=X—US-Q+Rec（S,P:
Y=Y+J—VS-Q
“L”
K=Int（60FracP）:
U=3600（P-IntP-K60）:
P=lntP+K-00+U-10000
（本子程序是度、分、秒以小数表示，可用也可不用，一般不输入计算器，以免造成
计算的度、分、秒误读、误用，程序中相应部分（下划线处）也不输入计算器。
）
“M
S=R+E:
P=Z[6]+Z[9]（90-Z[10]2片Prog“F”Z[21]=Z[1]+ScosP:
Z[22]=Z[2]+SsinP:
Z[23]=P
“N'
P=Z[23]-180:
Prog“F”P=P+180Z[9]（Z[18]-Z[16]-L-2）-（nRi）og“F”Z[24]=Z[21]+RcosP:
Z[25]=Z[22]+RsinP:
P=P+90Z[9]:
Prog“F”K=P:
Prog“S”
“O”
Z[18]-（Z[16]+L-2）EProg“Prog“Q”
“p”
V=Z[18]-Z[16]:
Prog“Z”Y=Z[9]Y:
U=Z[12]:
Z=Z[13]:
K=Z[5]:
Prog“R'P=Z[5]+180Z[9]VA2-（2RZ[7]nProg“F”K=P:
Prog“S”
“&
V=L-（Z[18]-Z[16]）:
Prog“Z”Y=-Z[9]Y:
U=Z[14]:
Z=Z[15]:
K=Z[6]-180:
K<0rK=K+360、Prog“R'P=Z[6]-180Z[9]VA2-（2RZ[7]:
P）g“F”=P:
Prog
“S”
“R”
Z[24]=U+XcosK-YsinK:
Z[25]=Z+XsinK+YcosK
“s”
S=0.5Z[8]:
Z[26]=Z[24]+Scos（K-90+O）:
Z[27]=Z[25]+Ssin（K-90+0）:
Z[28]=Z[24]+Scos（K+90+O）:
Z[29]=Z[25]+Ssin（K+90+O）:
0=0
T”
Z[35]=Z[16]:
Z[39]=Z[35]+L:
Z[36]=Z[35]+Z[7]:
Z[37]=Z[35]+0.5L:
Z[38]=Z[39]-
Z[7]
“U
H=40-G:
Z[18]=Z[H]:
Z[18]“LZ二”？
B=Z[19]:
C=Z[20]:
D=Z[30]:
E=Z[40]:
{BCDE}:
B“X0=”C“Y0=”D“X1=”E:
Prog“D”Prog
Z[19]=B:
Z[20]=C:
Z[30]=D:
Z[40]=E:
X=D-B:
Y=E-C:
不输入
Z[17]=P:
P“A0-仁”？
Z[18]—Z[35]<0—：
、S=Z[35]—Z[18]+T:
P=Z[5]—180:
K=Z[5]:
工.>S=Z[18]—Z[39]+T:
P=Z[6]:
K=Z[6]_Prog“E”Z[24]=Z[1]+ScosP:
Z[25]=Z[2]+SsinP:
Prog“S
z”
X=V—VA5-（40RA2Z[7]A2）+VA9^（3456RA4Z[7]A4）:
Y=VA3-（6RZ[7]）—VA7^（336RA3Z[7]A3）+VA11讯42240RA5Z[7F5）
“7”
{XYS}:
X:
Y:
S“L00”：
O=3.:
{A}:
A“L0”•Fixm:
B=K-R:
U=sinB:
V=U?
2:
B=B+KUcosB（5.051773759e-3-V（2.987302e-5-2.38189e-7V:
Prog“8”N=（Y-5e5）-N:
M=N?
2:
B=B-0.5KMTQ（（（（45H+90）H+61）叶30-（3-9F）H-5-F）-12+1:
L=（（（（24H+28）H+（8H+6）F+5）叶20-2H-Q）叶6+1）KN-C:
L=L+3+FracS:
O=2一；M=B:
Prog“9”“B=HMS”:
1e4G+1e2V+M?
M=L:
Prog“9”“L=HM（LnS”:
IntS—3+G:
1e4G+1e2V?
“L口S”:
M?
^OInt+S—A—3:
L=L+Ans
C=cosB:
T=tanB:
H=TA2:
F=ECA2:
Q=1+F:
N=6399698.9018-VQ
“9”
G=lntM:
M=60FracM:
V=IntM:
M=60FracM
Z[46]<-180一：
Z[10]=Z[46]:
Z[9]-1:
工':
Z[10]=360-Z[46]:
Z[9]=-1
Z[46]>-180Z[10]=-Z[46]:
Z[9]=-1:
工「Z[10]=360+Z[46]:
Z[9]=1
升级会员 