最新卡西欧计算器fx4800P.docx

最新卡西欧计算器fx4800P.docx

《最新卡西欧计算器fx4800P.docx》由会员分享，可在线阅读，更多相关《最新卡西欧计算器fx4800P.docx（11页珍藏版）》请在冰豆网上搜索。

最新卡西欧计算器fx4800P

卡西欧计算器fx-4800P

测量程序集

卡西欧计算器fx-4800P

福建林业职业技术学院

工程系土木工程室

高国兴

CASIOfx-4500PA计算中桩、边桩坐标程序

直线、圆曲线中桩及左、右边桩计算程序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=置镜点至前视点水平距离。

转点坐标计算程序fx-4800p

A“XZ”B“YZ”C“XH”D“YH”：

{RL}←

I=1：

J=1：

Pol（（C－A），（D－B））：

F=R＋J←

Rec（L，F）←

X“X”=I＋A◢

Y“Y”=J＋B◢

注：

XZ、YZ—置镜点坐标；

XH、YH—后视点坐标；

R—水平角；

L—转点至置镜点水平距离。

放样程序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—右边桩坐标。

卡西欧计算器FX-4800P测量程序

Z="L-1,R+1":

A"A0":

Q=R+S"LSci"2÷24R:

T=S÷2-S^3÷240R2+Anstan.5A◢L=RA÷1r+S◢H"ZH"=W"JDT"-T◢I"HY"=H+S◢I"QZ"=H+.5L◢I"YH"=H+L-S◢L"HZ"=H+L◢

D"XJ"K"YJ"B"Gra"O"XE"U"YE"G"Xm"M"Xm":

LbIF:

{FN}:

F≤H=>X=F-W:

ZN:

≠=>F≤L-S=>V=F-H:

FProg"Q"：

≠=>Rec（R-ZN,（2V-S）r÷2R:

X=J-Qtan.5A:

Q-I⊿≠>V=L-F:

PoI（T-V,ZN:

FProg"Q":

PoI（-X,Ans⊿X=Rec（Ans,A+J:

J⊿⊿X=D+Rec（PoI（X,ZAns,J+B◢

Y=K+J◢

"OK!

":

PoI（G-O,M-U:

V=J:

PoI（X-O,Y-U:

J-V:

Ans<0=>Ans+360⊿V=Ans◢

I"P="◢

GotoF[主程序结束]

Q[子程序]

Y=2RS:

Rec（ZN,V2r÷Y:

X=V-V^5÷10Y2-T-J:

V^3÷3Y-V^7÷42Y^3+I

注：

本程序适用于完整线型。

（即：

直线+缓和曲线+圆曲线+缓和曲线+直线）

Z：

线路偏向信息左转输：

-1，右转输：

+1。

r：

弧度，按[FUNCTION]键→[5]键→[5]键输入。

A0:

线路转向角以度分秒形式输入。

R：

圆曲线半径。

Lsci:

缓和曲线长度。

无缓和曲线，单圆曲线时输入“0”

T=：

程序输出切线长。

L=：

程序输出曲线长度。

JDT？

：

输入交点里程。

ZH=、HY=、QZ=、YH=、HZ=：

程序输出曲线五大桩里程。

XJ：

输入交点大地坐标。

用切线坐标系时输0。

YJ：

输入交点大地坐标。

用切线坐标系时输0。

Gra:

输入ZH点方位角，用切线坐标系时输0。

XE：

输入置镜点坐标，用于切线坐标系时该项为切线坐标。

YE：

输入置镜点坐标，用于切线坐标系时该项为切线坐标。

Xm：

输入后视点坐标，用于切线坐标系时该项为切线坐标。

Ym：

输入后视点坐标，用于切线坐标系时该项为切线坐标。

F：

输入放样点里程桩号。

（若放样点位于前一公里内，可以“-50”的形式输入，程序认为放样点为“+950”，反之输入“1200”表示放样点位于下一公里内。

）

N：

输入边桩至中桩距离，（线路左边桩输入负值，右边桩以正值输入）计算中桩坐标时输“0”。

X：

输出放样点x坐标。

Y：

输出放样点y坐标。

OK:

表示计算正在进行。

V：

输出放样水平角。

（即前视到置镜点方位角减后视到置镜点方位角）

P：

输出放样点至置镜点距离。

卡西欧计算器FX-4800P测量程序

I“XQ=”:

J“YQ=”：

R“QDFWJ=”:

A:

K“R1=”:

W“L=”：

N“L-1，R+1”：

L=A2÷K：

H=L+W：

Z=A2÷H：

T=90L÷（πK）：

Q=90H÷（πZ）：

X=L－L5÷（40A4）+L9÷（3456A8）－L13÷599040÷A12+L17÷175472640÷A16－L21÷78033715200÷A20+L25÷（49049763840000A24）：

Y=L3÷（6A2）－L7÷（336A6）+L11÷（42240A10）－L15÷9676800÷A14+L19÷3530096640÷A18－L23÷188********00÷A22+L27÷（1377317369000000A26）：

O=H－H5÷（40A4）+H9÷（3456A8）－H13÷（599040A12）+H17÷（175472640A16）－H21÷78033715200÷A20+H25÷（49049763840000A24）：

P=H3÷（6A2）－H7÷（336A6）+H11÷（42240A10）－H15÷（9676800A14）+H19÷3530096640÷A18－H23÷188********00÷A22+H27÷（1377317369000000A26）：

Z[2]=√（（O－X）2+（P－Y）2）：

Z[3]=Abs（tan-1（（P－Y）÷（O－X））－T）：

U=Abs（Q－tan-1（（P－Y）÷（O－X））：

G=Abs（Z[2]×SinU÷Sin（Q－T））：

V=Abs（Z[2]×（SinZ[3]÷Sin（Q－T）））：

B=I+GcosR:

C=J+GsinR：

D=R+N（Q-T）：

D﹤0=>D=D+360⊿

D“a0＝”◢

E=B+VcosD◢

F=C+V×sinD◢

S“BZJL=”:

M“L－90,R+90”：

Z[1]=E+S×cos（D+M）:

Z[1]“XB”◢

Z[4]=F+S×sin（D+M）:

Z[4]“YB”◢

说明：

XQ、YQ：

输入缓和曲线起算点坐标。

QDFWJ：

输入缓和曲线起算点方位角。

A：

输入缓和曲线参数。

（A2等于缓和曲线长乘以半径。

）

R1：

输入缓和曲线大半径，完整缓和曲线为无穷大。

L：

输入待求点至起算点曲线长度。

L－1，R+1：

输入线路偏向信息：

左转输“－1”，右转输“1”。

a0：

显示待求点中桩方位角。

E、F：

显示待求点中桩坐标。

BZJL=？

：

输入边桩至中桩距离

L－90，R+90？

：

输入边桩偏向信息：

左转输“－90”，右转输“90”。

XB、YB：

显示待求点边桩坐标。

注意：

本程序适用于完整缓和曲线及卵形曲线。