4800计算器常用测量计算程序.docx
- 文档编号:27904297
- 上传时间:2023-07-06
- 格式:DOCX
- 页数:15
- 大小:133.89KB
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)
工!
_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
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 4800 计算器 常用 测量 计算 程序