卡西欧4800P计算器测量程序集.docx
- 文档编号:30269266
- 上传时间:2023-08-13
- 格式:DOCX
- 页数:10
- 大小:40.24KB
卡西欧4800P计算器测量程序集.docx
《卡西欧4800P计算器测量程序集.docx》由会员分享,可在线阅读,更多相关《卡西欧4800P计算器测量程序集.docx(10页珍藏版)》请在冰豆网上搜索。
卡西欧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:
F
≠=>Rec(R-ZN,(2V-S)r÷2R:
X=J-Qtan.5A:
Q-I⊿≠>V=L-F:
PoI(T-V,ZN:
F
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:
显示待求点边桩坐标。
注意:
本程序适用于完整缓和曲线及卵形曲线。
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 卡西欧 4800 计算器 测量 程序