卡西欧fx-4800测量计算程序

CASIO fx-4500PA计算中桩、边桩坐标程序
O→X N Y N
●L1
X“ZX”Y“ZY”ZKA “ZH”B “XZH”S“YZH”O“EJ”：R“R （L-，R+）”=θ→Goto E⊿I “LS”L：Lbl E：Q=θ：J“HX”U“HY”：Goto 6：Lblθ
●L2
G：“→E”◢Lbl 1：{N}：N“→L”：W=Abs（A-AbsN：N=θ→Gotoθ⊿E=O：F=θ：P=θ：R≠θ→Q=90/πR：Goto2⊿Rec（W，18θ+O：Goto4⊿Lbl 2
●L3
I≤W→E=Q（W-I：Goto 3⊿P=QW2/I：Rec（W-Wx y5/9θR2I2，P/3+O：Goto4⊿Lbl 3
●L4
W＞L-I→Goto 1⊿F=2RsinE：P=E+O+IQ：FcosP+Rec（I－Ix y3/9θR2，IQ/3+O：Lbl 4
●L5
Q=B+Ans：J=Q：F=S+W+FsinP：U=Ans：N＞θ→Goto 6⊿Lbl 5 ●L6
{D}：D=θ→Goto 1⊿D=1→Goto 8⊿H=P+E－9θAbsD/D：J=Q+Rec （Abs D，P+E-9θAbsD/D：U=F+W Lbl 6
●L7
Pol（J-X，U-Y：W＜θ→W+36θ：≠→W⊿Q=θ→G=Ans：Goto θ⊿“E=”◢V：“S=”◢Lbl 7
●L8
{CMTH}：M=θ→Goto 5⊿M=1→Goto 8⊿C Abs sinM：“→D=”◢V－Ans：“⊿S=”◢Z=θ→Goto 7⊿T=θ→Goto 7⊿K-T+H+Z+CcosM：“→H”◢Goto 5⊿Lb1 8
●L9
J：“XD=”◢U：“YD=”◢Goto 1 计算：
ZX？输入置镜点X坐标ZY？输入置镜点Y坐标
Z？输入置镜点高程
K？输入仪器高度
ZH？输入直缓点里程XZH？输入直缓点X坐标YZH？输入直缓点Y坐标EJ？输入直缓点方位角
R（L－，R +）？输入圆曲线半径，左偏为负，右偏为正
LS？输入直缓点至缓圆点长度
L？输入完整曲线长度，即两倍LS加圆曲线长
HX？输入后视点X坐标HY？输入后视点Y坐标
→E 显示后视方位角
→L？输入计算里程
E＝显示视方位角
S＝显示前视距离
M？输入1进入①中桩计算模式，输入θ进入②边桩计算模式，输入竖直角度进入③测距仪计算模式
①中桩计算模式：
XD＝显示计算里程中桩X坐标YD＝显示计算里程中桩Y坐标→L？输入下一计算里程
②边桩计算模式
D？输入边桩距离，左侧输正值，右侧输负值
E＝显示前视方位角
S＝显示前视距离
M？输入1显示边桩坐标
→L？输入下一计算里程
③测距仪计算模式
C？输入斜距
→D＝显示平距
⊿S＝显示距离仪器？m
说明：“θ”为零，O为英文字母
直线、圆曲线中心及左、右边桩计算程序fx-4800p
C“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-4800p
C“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-4800p
RL
I“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=”◢
P
A=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=置镜点至前视点水平距离。

XY（转点坐标）计算程序fx-4800p
ABCD：{RL}←
I=1：J=1：Pol（（C－A），（D－B））：F=R＋J←
Rec（L，F）←
X“X”=I＋A◢
Y“Y”=J＋B◢
注：
A、B—置镜点坐标；
C、D—后视点坐标；
R—水平角；
L—转点至置镜点水平距离。

SPJ（水平角）计算程序fx-4800p
ABCDXY←
I=1：J=1：Pol（（C－A），（D－B））：F=J←
Pol（（X－A），（Y－B））：R=J－F←
R>36θ==>R=R－36θ：≠=>R<θ==>R=R＋36θ⊿R“R=”◢I“L=”◢
注：
A、B—置镜点坐标；
C、D—后视点坐标；
X、Y—前视点坐标；
输出R—水平角，L—置镜点至前视点水平距离。

方位角计算程序fx-4800p
X“X1”：Y “Y1”：A“XZ”：B“YZ”：Fixm：Pol（X－A，Y－B）：I“L=”◢
J<θ==> J=J＋36θ⊿J“J0=”
注：
X1、Y1—前视（后视）点坐标；
XZ、YZ—置镜点坐标；
L—置镜点至前视（后视）点距离；
J0—方位角。

直、圆、缓线计算程序fx-4800p 复化辛普森公式
A“QDLC”B“ZDLC”R“QDR”V“ZDR”C“XA”D“YA”E “ALFA”：Lb1θ：{L}：L“Li”：T=（1÷V－1÷R）÷（B－A）：H=（L－A）÷N：P=TNH+1÷R：S=9θH÷π：W=E+（P+1÷R）NS◢
G=1：X“Xi”=C+H÷6×（cosE+cosW+4×∑（cos（E+（（G+0.5）HT+2÷R）（G+0.5）S），G，θ，（N－1））+2∑（cos （E+（THG+2÷R）GS），G，1，（N－1）））◢
Y“Yi”=D+H÷6×（sinE+sinW+4×∑（sin（E+（（G+0.5）HT+2÷R）（G+0.5）S，G，θ，（N－1））+2×∑（sin（E+（THG+2÷R）GS，G，1,（N－1）））◢{IF}：I“ZBJ”：F“YBJ”：Z“XZ”=X+Icos（W－90o）◢
J“YZ”=Y+Isin（W－90o）◢Z“XY”=X+Fcos（W＋90o）◢J“YY”=Y+Fsin（W＋90o）◢Gotoθ⊿
注：QDLC—起点里程；
ZDLC—终点里程；
QDR、ZDR—起、终点半径
（左负右正）XA、YA—起点坐标；
ALFA—起点方位角；
Li—待求点里程；
N—2；
W—所求点切线方位角；
Xi、Yi—待求点中坐标
ZBJ—左边桩距离；
YBJ—右边桩距离；
XZ、YZ—左边桩坐标；
XY、YY—右边桩坐标。