武警自编全线连线计算程序目前世界领先技术水平5800程序.docx
- 文档编号:27856935
- 上传时间:2023-07-05
- 格式:DOCX
- 页数:27
- 大小:31.13KB
武警自编全线连线计算程序目前世界领先技术水平5800程序.docx
《武警自编全线连线计算程序目前世界领先技术水平5800程序.docx》由会员分享,可在线阅读,更多相关《武警自编全线连线计算程序目前世界领先技术水平5800程序.docx(27页珍藏版)》请在冰豆网上搜索。
武警自编全线连线计算程序目前世界领先技术水平5800程序
CASIO4850全线坐标正反算程序
主程序:
ZHANGLIANG
LbIØ:
Deg:
T"WJM":
C=2Ø+4Ø(T-1):
T=Ø:
N"1.SR,2.JS":
N=2=>GotoA⊿
M"JZ-XX":
O"QD-ZH":
U"X-Ø":
V"Y-Ø":
G"FWJ":
LblB:
{HRQP}:
P"QD-R":
H"XX-CD":
R"ZD-R":
Q").-1,(.+1,--.Ø":
W=H:
Z
=Ø:
Prog"S1":
Prog"S4":
U=X:
V=Y:
O=O+H:
G=F-9Ø:
P=R:
"…SR…NEXT…!
”
:
IszT:
DszM:
GotoB⊿
LblA:
Fixm:
{XYSZN}:
T=Ø:
N"1.JS-XY,2.XY-FS":
N=2=>Goto2⊿S"JS-ZH=":
Z"D=":
Lbl1:
S>Z[8T+1+C]=>IszT:
Goto1⊿Prog"S3":
W=S-O:
Prog"S1":
"JS-X=":
X:
PauseØ:
"JS-Y=":
Y◢GotoAΔ
Lbl2:
X"X…":
Y"Y…":
I=X:
J=Y:
Lbl3:
Prog"S3":
W=Abs((Y-V)cos(G-9Ø)-(X-U)sin(G-9Ø:
W>H=>IszT:
Goto3⊿Prog"S2":
"FS-ZH…":
S=O+W:
PauseØ:
"D…":
Z◢GotoA⊿
子程序S1
A=.1184634425:
B=.2393143352:
N=.2844444444:
K=.Ø4691ØØ77:
L=.23Ø7653449:
D=QrW2(P-R)÷2HPR:
E=QrWP-1:
Z[1]=G+KE+K2D:
Z[2]=G+LE+L2D:
Z[3]=G+.5E+.25D:
Z[4]=G+(1-L)2D+E(1-L:
Z[5]=G+(1-K)2D+E(1-K:
F=G+E+D+9Ø:
X=U+ZcosF+W(AcosZ[1]+BcosZ[2]+NcosZ[3]+BcosZ[4]+AcosZ[5:
Y=V+ZsinF+W(AsinZ[1]+BsinZ[2]+NsinZ[3]+BsinZ[4]+AsinZ[5:
子程序S2
W=Abs((Y-V)cos(G-9Ø)-(X-U)sin(G-9Ø:
Z=Ø:
Lbl4:
Prog"S1":
L=G-9Ø+E+D:
Z=(J-Y)cosL-(I-X)sinL:
AbsZ<.ØØ1=>Goto5:
≠>W=W+Z:
Goto4⊿
Lbl5:
Z=Ø:
Prog"S1":
Z=(J-Y)÷sinF:
子程序S3
H=Z[8T+C+6:
O=Z[8T+C+1]-H:
U=Z[8T+C+2:
V=Z[8T+C+3:
G=Z[8T+C+4:
P=Z[8T+C+5:
R=Z[8T+C+7:
Q=Z[8T+C+8:
子程序S4
Z[8T+C+1]=O+H:
Z[8T+C+2]=U:
Z[8T+C+3]=V:
Z[8T+C+4]=G:
Z[8T+C+5]=P:
Z[8T+C+6]=H:
Z[8T+C+7]=R:
Z[8T+C+8]=Q:
结束
程序编制说明:
1.本程序是为CASIO-fx4850p编制的。
有1个主程序,4个子程序。
约1000字节。
需输入文件名(1~67),根据28500步可以存储67条线路数据。
2.程序是以平曲线基本线型(直、缓、圆、缓、直)数学模型编制,三角函数计算。
3.本程序是采用高斯勒让德公式计算待放点坐标或根据全站仪测得坐标计算该点在线路中的位置(距某桩号的左右距离)。
程序可以计算任何公路线型数值。
适用直线、圆曲线、缓和曲线、S型曲线、卵型曲线、凸曲线、C型曲线、复合曲线、回头曲线,及其任意组合的线型。
包括不完整缓和曲线。
4.程序一次输入67条线路以内的数据。
工作时配合全站仪只要输入桩号,即可计算出一条道路的中边桩坐标或根据全站仪测得坐标计算该点在线路中的位置(距某桩号的左右距离)。
已知数据输入时无须人工判断,程序自动存入应存的存储器。
本程序可在正反计算时自动切换。
5.已知数据输入后,只要不影响扩展存贮器Z[21]以上的数值,都可以进行其他程序计算,一般情况下可以扩展到Defm400,足够空间调整。
6.输入67条线路时,需要人工扩展存贮器到2700个,即【Defm2700:
】。
此时要多占用容量2700步。
如果计算器容量有限,而你不需要那么多线路,则扩展存贮器数量=线路数量×40+20。
7.程序均未考虑断链,有断链时,请将断链处作为起终点处理。
分为两条线路。
程序使用说明:
1.本程序可根据多个线形数据计算平曲线任意点和边桩的坐标。
2.本程序适用回头曲线、S型曲线、卵型曲线、凸曲线、C型曲线、复合曲线线形。
3.本程序启动后按1进行数据输入,按2直接进入数据计算程序。
4.本程序中所有输入数据全部都保留在寄存器中,未被置换,以便待查。
但请不要破坏
寄存器中数据,这样关机后重新开机可直接进入坐标计算程序。
不需要重新输入线形数据。
5.桩号输入时,K29+585.456应输入29585.456。
操作流程:
启动程序:
1、显示WJM?
:
询问文件名:
输入1~67、EXE;
2、显示:
1.SR,2.JS?
询问是输入数据抑或根据已存储的数据计算需求点的XY坐标:
输入:
1为输入新的计算数据,(如输入2则为计算以前储存在计算器内的数据)EXE;
3、显示:
JZXX?
:
询问输入几组线元线型;根据所需输入:
1~5、EXE;
4、显示:
QD-ZH、X-Ø、Y-Ø、FWJ、QD-R、XX-CD、ZD-R、“).-1,(.+1,--.Ø”:
即分别
输入起点桩号;起点的X、Y坐标;起点的方位角;起点的半径;线元线型的长度;线元线型
终点的半径;线型的转向,左转、右转、直线则分别输入-1、1、Ø;EXE;
5、显示:
"……SR……NEXT……SUJU!
”:
提示输入下一线型的数据,"QD-R"、"XX-CD"、
"ZD-R"、“).-1,(.+1,--.Ø”:
输入线型的长度、终点半径、转向,EXE;
6、继续循环显示5,直至所有数据输入完毕:
7、显示“JS-ZH”:
“D”:
询问输入计算桩号距中桩距离,输入后,计算大约1.5秒的时间,
即可显示所需计算点的XY坐标,本程序自动计算夹角180度,如有斜交则将S1子程序
F=G+E+D+9Ø:
中的90改为任意交角。
8、循环计算自动进入下一个要求的桩号坐标。
本程序计算精度较高,1km17种线型确保与电脑软件:
速通测绘――公路施工测量坐标计算
系统的计算数据偏差在1mm之内。
任意等级公路线型坐标连续计算程序
CASIOFX4850P
版权所有武警交通第一总队三支队□作者张亮
二○○六年六月二十二日
直、缓、圆、卵、回头曲线
CASIOFX4800~4850P
(二)
版权所有武警交通第一总队三支队
~~~~~~~~~张亮
扩展变量操作(15个):
Defm15,O字母0数字←┚
J-SQX(竖曲线数据输入)
“J-SQX”:
{NHUVMQP}:
Z[9]=N“SJD”:
Z[10]=H“JDZ”:
Z[11]=U“I1”:
Z[12]=V“I2”:
Z[13]=M“R”:
Z[14]=Q“QD”:
Z[15]=P“ZD”:
“TOJ-JSMS”
J-PQX(平面数据输入,自行切换到J-JSMS)
A“JD”B“JDX”C“JDY”F“FJ”O“ZJ:
Z-,Y+”R:
E“LS1”K“LS2”:
E<1=>E=1E-9⊿K<1=>K=1E-9⊿Z[1]=EE÷24R-E∧4÷2688RRR:
Z[2]=E÷2-EEE÷240RR:
X=(EE-KK)÷24R÷sinAbsO:
Z[3]“T1”=(R+Z[1])tan(AbsO÷2)+Z[2]-X◢
Z[4]“T2”=(R+KK÷24R-K∧4÷2688RRR)tan(AbsO÷2)+K÷2-KKK÷240RR+X◢
L=AbsOπR÷180+(E+K)÷2◢
J=tan-1((R+Z[1])÷(Z[3]-Z[2]):
X“E”=(R+Z[1])÷sinJ-R◢
X=A-Z[3]:
Y=X+E:
E<1=>X“ZY”◢
≠=>X“ZH”◢
Y“HY”◢
⊿Y“QZ”=X+(L-K-E)÷2+E◢
Y=X+L-K:
X=X+L:
K<1=>X“YZ”◢
≠=>Y“YH”◢
X“HZ”◢
⊿Prog“J-JSMS”←┚
J-JSMS(放样模式主程序)
“1-ZS,2-F1,3-FS”:
“4-F2,5-Z0,6-DM”:
Lb10:
{Z}:
Z“MS”≤2=>Goto1:
≠=>Z≤4=>Goto2
:
≠=>Goto3⊿⊿←┚
Lb11:
{PDW}:
PD“BZ”W“BJ”:
Prog“JP”:
X“X=”◢(4850输入“X=”:
X◢)
Y“Y=”◢(4850输入“Y=”:
Y◢)
Z<2=>Goto1:
≠=>Prog“JS”:
Prog“JC”:
H“Z”=H+G◢
Goto1⊿←┚
Lb12:
{XYW}:
XYW“BJ”:
Prog“JF”:
P“P=”◢(4850输入“P=”:
P◢)
D“BZ=”◢(4850输入“BZ=”:
D◢)
Z<4=>Goto2:
≠=>{Q}:
Q“ZP”:
Prog“JS”:
Prog“JC”:
Prog“JB”:
Goto2⊿←┚
Lb13:
{P}:
P:
Prog“JS”:
H“Z0=”◢(4850输入“Z0=”:
H◢)
Z<6=>Goto3:
≠=>{D}:
S“CGZ”:
T“JKZ”:
Z[8]=Q“LH”:
D“BZ”:
Prog“JC”:
J“JK=”◢(4850输入“JK=”:
J◢)
G“Z”=H+G◢(4850输入“Z=”:
G=H+G◢)
Goto0⊿
JS(竖曲线计算子程序)
P
N=Z[9]:
U=Z[11]:
V=Z[12]:
H=Z[13]:
G=HAbs(U-V)÷200:
P
M=N-G:
M>P=>M=P⊿≠=>I=V:
M=N+G:
M
M=P⊿⊿J=(P-M)2÷2H:
U-V>0=>J=-J⊿H=Z[10]+(P-N)×I÷100+J
JP(平曲线正算子程序)
Fixm←┚
Lb11:
J=F:
X=B-Z[3]cosF:
Y=C-Z[3]sinF:
G=E←┚
P≤A-Z[3]=>I=A-Z[3]-P:
M=-I:
N=0:
H=F+W:
Goto5←┚
≠=>P≤A-Z[3]+E=>I=P-A+Z[3]:
H=90II÷REπ:
O<0=>H=-H⊿H=H+W+F:
Goto3←┚
≠=>P≤A-Z[3]+L-K=>I=P-A+Z[3]-E:
Goto4:
≠=>Goto2⊿⊿←┚
Lb12:
X=B+Z[4]cos(F+O:
Y=C+Z[4]sin(F+O:
J=F+O+180:
G=K←┚
P≤A-Z[3]+L=>I=A-Z[3]+L-P:
H=90II÷RKπ:
O>0=>H=-H⊿H=H+J+W+180:
Goto3←┚
≠=>I=P-A+Z[3]-L:
M=-I:
N=0:
H=J+W+180:
Goto5←┚
Lb13:
M=I-I∧5÷40RRGG:
N=III÷6GR-I∧7÷336RRRGGG:
Goto5←┚
Lb14:
H=(E+2I)×90÷πR:
M=RsinH+Z[2]:
N=R(1-cosH)+Z[1]:
O<0=>H=-H⊿H=J+H+W:
Goto5
←┚
Lb15:
P≤A-Z[3]+L-K=>O<0=>N=-N⊿≠=>O>0=>N=-N⊿⊿Goto6←┚
Lb16:
X=X+McosJ-NsinJ+DcosH:
Y=Y+MsinJ+NcosJ+DsinH
JF(平曲线反算子程序)
Fixm←┚
U=X:
V=Y:
D=0:
J=F-W:
P=A+(Y-C)cosJ-(X-B)sinJ←┚
Lb11:
Prog“JP”:
J=H-180:
I=(V-Y)cosJ-(U-X)sinJ:
AbsI<1E-4=>Goto2:
≠=>P=P+I:
Goto1⊿←┚
Lb2:
D=(V-Y)÷sinH
JC(超高加宽计算子程序)
Fixm:
Z[8]<1=>Z[8]=1E-8⊿
I=E:
M=A-Z[3]:
E<1=>I=Z[8]:
M=M-I⊿G=K:
N=A-Z[3]+L:
K<1=>G=Z[8]:
N=N+G⊿←┚
P≤0.5(N+M=>U=(P-M)÷I:
≠=>U=(N-P)÷G⊿U<0=>U=0⊿U>1=>U=1⊿
J=UT高次抛物线加宽J=T(1-3UU+2UUU):
DO<0=>J=0⊿
I=1:
Prog“JD”:
I=US:
G=I+UN-N:
U=AbsD-V:
⊿U<0=>U=O⊿U>M+J+Z[5]=>U=M+J+Z[5]⊿
Z[7]=1=>Goto1
:
≠=>Goto2←┚
Lb11:
I=G:
DO>0=>I=-I:
AbsI
N=I:
Goto3←┚
Lb12:
NN=I⊿G=N(M-U)+Z[5]Z[6]:
N=-N:
DO<0=>G=G+2IU:
N=I⊿Goto3←┚
Lb13:
U=M+J+V+Z[5]:
AbsD≥U-0.01=>G=G-Z[5](N+Z[6])⊿
JB(路基边桩放样子程序)
H=H+G-Q:
H<0=>I=2:
H“W=”=AbsH◢
≠=>I=3:
H“T=”◢(4850输入“T=”:
H◢)
⊿Prog“JD”:
G=H÷V:
G<1=>I=MG:
≠=>G<2=>I=M+N(G-1):
≠=>I=M+N+Z[6](G-2)⊿⊿
I“BP”=AbsD-VI-Z[7]IntG-U-Z[5]◢
G=VFracG:
G<1.5=>G“PT”◢
⊿
JD(断面数据储存子程序)
I=1=>M=4:
N=0.015:
Z[5]=0.25:
Z[6]=0.015:
V=0:
Z[7]=2
:
≠=>I=2=>Z[5]=1.1:
M=0.5:
N=0.75:
Z[6]=1.00:
V=10:
Z[7]=1.0
:
≠=>Z[5]=0:
M=1.50:
N=1.75:
Z[6]=2.00:
V=8:
Z[7]=1.0⊿⊿
符号说明:
←┚◢⊿≠=>=>≤≥
一、程序简介
本套程序是共有2个主程序,7个子程序。
包括了路线坐标正反算、竖曲线、超高加宽、边坡放样及断面计算等程序。
适用于CASIO4800/4850,4850用户需要修改清单内结果显示的字段(例如:
X“X=”◢改为“X=”:
X◢或G“Z”=H+G◢改为“Z=”:
G=H+G◢)。
二、程序功能
本着用最懒的方法做最繁杂的事(当然认真更重要!
),根据不同需要,本程序共设置了6种计算模式J-JSMS:
1-ZS,正算模式:
适用于中、边桩计算,里程桩号及边距=>平面坐标。
2-FI,放样1模式:
适用于路面施工放样,里程桩号及边距=>平面坐标、路面高程。
3-FS,反算模式:
适用于任意点里程、边距计算,任意点坐标=>里程、边距。
4-F2,放样2模式:
适用于路基施工放样,任意点坐标=>里程、边距、填挖高度,边坡超欠挖宽度,最近平台高度(<1.5)。
5-Z0,设计高程计算,即竖曲线计算,里程桩号=>设计高程。
6-DM,断面计算,里程桩号、边距=>设计高程、加宽值、指定边桩的高程。
三、计算范围
平曲线:
直线-缓和曲线(或无)-圆曲线-缓和曲线(或无)-直线中任意桩号,允许两缓和曲线不等长,即可以算卵形曲线,回头曲线
竖曲线:
前交点SYZ到后交点SZY中的任意桩号
四、数据输入及各计算模式运行过程
1、正算模式:
1-ZS,
运行主程序J-PQX(平曲线),计算过程如下:
显示
输入
计算结果
备注
DJ?
交点桩号
JDX?
交点X值
JDY?
交点Y值
FJ?
计算方位角
ZJ:
Z-,Y+?
交点转角
左转为负值,右转正值
R?
圆曲线半径
LS1?
第一缓和曲线
LS2?
第二缓和曲线
T1=
前切线
T2=
后切线
L=
曲线长度
E=
外距
ZH=
ZH桩号
若不计算平曲线要素桩号,程序清单J-PQX内有下划线部分可以不写入计算器内。
HY=
HY桩号
QZ=
QZ桩号
YH=
YH桩号
HZ=
HZ桩号
1-ZS,2-F1,3-FS
4-F2,5-Z0,6-DM
MS?
计算模式选择,此模式请输入:
1
总共有6种计算模式供选择,符号说明见“二、程序功能”。
P?
待求点桩号
BZ?
边桩距离
左边为负值,右边为正值,中桩输0
BJ?
边桩夹角
右边桩与中线夹角,正交为90,斜交另输
X=
X值
Y=
Y值
P?
BZ?
BJ?
...
本模式循环计算
2、反算模式:
3-FS,
运行主程序J-PQX(平曲线),运行过程同“1、1-ZS,正算模式”;若平曲线数据已经输入了,或者计算交点同上次相同,可直接运行J-JSMS(计算模式)
显示
输入
计算结果
备注
······平曲线数据输入过程·····
1-ZS,2-F1,3-FS
4-F2,5-Z0,6-DM
MS?
计算模式选择,此模式请输入:
3
总共有6种计算模式供选择,符号说明见“二、程序功能”。
X?
任意点P的X值
Y?
任意点P的Y值
BJ?
边桩夹角
右边桩与中线夹角,正交为90,斜交另输
P=
P点桩号
BZ=
边桩距离
负值为左边桩,正值为右边桩
X?
Y?
...
本模式循环计算
3、纵断面设计高程计算:
5-Z0,
步骤1:
首先运行J-SQX(竖曲线),此步骤只是竖曲线数据输入,不进行计算。
若计算交点与上次计算交点相同,可跳过此步骤。
输入过程如下:
显示
输入
计算结果
备注
SQXSJ
SJD?
竖曲线交点桩号
SQXSJ表示程序状态,竖曲线数据输入
JDZ?
交点高程
I1?
第一纵坡
往桩号增大方向,上坡为正值,下坡为负值,如,下坡2.00%,输入-2即可
I2?
第二纵坡
R?
竖曲线半径
QD?
允许计算桩号起点
QD即前交点SYZ桩号,ZD即后交点SZY桩号,
ZD?
允许计算桩号终点
TOJ-JSMS
退出本程序进行下一步骤。
之所以分开两个步骤,是因为当计算桩号超出计算范围时程序会自动切换到竖曲线数据输入状态,避免出现低级失误。
而且将计算放在J-JSMS中会使程序更加灵活。
步骤2:
运行J-JSMS进入模式5-Z0:
显示
输入
计算结果
备注
1-ZS,2-F1,3-FS
4-F2,5-Z0,6-DM
MS?
计算模式选择,此模式请输入:
5
总共有6种计算模式供选择,符号说明见“二、程序功能”。
P?
待求点P桩号
Z0=
P点设计高程
P?
...
本模式循环计算
4、断面计算:
6-DM,
在此模式中可以输入超高值、加宽值以及超高缓和长度,并进行计算!
!
!
为了方便其它计算模式的切换,每次完成模式6计算后程序会返回模式选择(MS?
)。
断面计算的主要内容是待求桩号P点的加宽值、指定边桩的高程,因此运行前应输入竖曲线数据(已输入过或同上次计算可以跳过此步)。
显示
输入
计算结果
备注
······竖曲线数据输入,运行J-JSMS·····
1-ZS,2-F1,3-FS
4-F2,5-Z0,6-DM
MS?
计算模式选择,此模式请输入:
6
总共有6种计算模式供选择,符号说明见“二、程序功能”。
P?
待求点桩号
Z0=
P点设计高程
纵断面设计高程
CGZ?
超高横坡
JKZ?
加宽值
LH?
超高缓和长度
当曲线设有LS时输入此项,否则跳过即可
BZ?
边桩距离
JK=
P点加宽值
当外侧边桩时,计算结果为0。
Z=
P点高程
P点的边桩高程,不一定是纵断面设计高程
MS?
模式选择:
6
为了方便其它模式的切换,每次完成模式6程序会返回模式选择。
5、放样1模式:
2-F1
此模式计算内容X,Y,Z,是将正算,竖曲线,超高结合起来计算的综合模式,Z值是边桩或中桩设计高程,计算过程如下(详细的过程说明参照前面的模式说明):
步骤:
“J-SQX”→“J-PQX”→“J-JSMS”(自动切换)→6-DM→2-F1
显示
输入
计算结果
备注
1-ZS,2-F1,3-FS
4-F2,5-Z0,6-DM
MS?
计算模式选择,此模式请输入:
2
总共有6种计算模式供选择,符号说明见“二、程序功能”。
P?
待求点桩号
BZ?
边桩距离
左边为负值,右边为正值,中桩输0
BJ?
边桩夹角
右边桩与中线夹角,正交为90,斜交另输
X=
X值
Y=
Y值
Z=
Z值
P?
BZ?
BJ?
→X=,Y=,Z=→循环
6、放样2模式:
4-F2
此模式只有一个功能,就是路基放样,也是整个程序最重要的功能。
整个计算包括了正、反算,竖曲线,超高加宽,边坡计算,计算过程如下(详细的过程说明参照前面的模式说明):
步骤:
“J-SQX”→“J-PQX”→“J-JSMS”(自动切换)→6-DM→4-F2
显示
输入
计算结果
备注
1-ZS,2-F1,3-FS
4-F2,5-Z0,6-DM
MS?
计算模式选择,此模式请输入:
4
总共有6种计算模式供选择,符号说明见“二、程序功能”。
X?
任意点P的X值
Y?
任意点P的Y值
BJ?
边桩夹角
右边桩与中线夹角,正交为90,斜交另输
P=
P点桩号
BZ=
边桩距离
负值为左边桩,正值为右边桩
ZP?
地面高程
T=(W=)
填(挖)高度
BP=
边坡超欠挖宽度
正值表示超挖,负值表示欠挖
PT=
距离平台高度
当高度小于1.0时显示,显示范围在程序清单内修改G<1.0=>G“PT”
X?
Y?
BJ?
→P=,BZ=,→ZP?
→T=(W=),BP=,PT=→循环
JD(断面数据储存子程序
I=1=>M=①:
N=②:
Z[5]=③:
Z[6]=④:
V=⑤:
Z[7]=⑥
①0.5路面宽度②路面横坡③路肩宽度④路肩横坡⑤0.5中央带宽度⑥超高方式:
1中,2边
:
≠=>I=2=>Z[5]=①:
M=②:
N=③:
Z[6]=④:
V=⑤:
Z[7]=⑥
挖方路基①边沟宽度②第一级边坡率③第二级边坡率④第三级边坡率⑤每级最大坡高⑥平台宽度
:
≠=>Z[5]=①:
M=②:
N=③:
Z[6]=④:
V=⑤:
Z[7]=⑥⊿⊿
填方路基①路堤超填宽度②第一级边坡率③第二级边坡率
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 武警 全线 连线 计算 程序 目前 世界 领先 技术水平 5800