计算器程序Word文件下载.docx
- 文档编号:21905107
- 上传时间:2023-02-01
- 格式:DOCX
- 页数:6
- 大小:18.82KB
计算器程序Word文件下载.docx
《计算器程序Word文件下载.docx》由会员分享,可在线阅读,更多相关《计算器程序Word文件下载.docx(6页珍藏版)》请在冰豆网上搜索。
F0"
E"
PJ"
K"
JD"
R
Lbl0:
P=L2÷
24÷
R-L^4÷
2688÷
R^3:
Q=L÷
2-L^3÷
240÷
R2+L^5÷
34560÷
R^4:
G=πRAbsE÷
180+L:
I=M2÷
R-M^4÷
C=(R+P)÷
costan-1(((R+I)÷
(R+P)-cosAbsE)÷
sinAbsE)-R:
C:
C=M÷
2-M^3÷
R2+M^5÷
T=(R+I-(R+P)cosAbsE)÷
sinAbsE+Q:
T:
N=(R+P-(R+I)cosAbsE)÷
sinAbsE+C:
N:
H=K-T:
H:
I=H+L:
I:
I=H+G-M:
I=H+G:
I
Lbl1:
E<
0=>
C=-1:
C=1△S≤H=>
Goto3△
S≤H+L=>
Goto4△
S≤H+G-M=>
Goto5△
S≤H+G=>
Goto6:
Goto7△
Lbl2:
Fix3:
"
X="
X=X:
Pause0:
Y="
Y=Y▲
FW="
FW4"
J→DMS▲GotoA
Lbl3:
J=F:
X=A-TcosJ+(S-H)cosJ+Dcos(J+O):
Y=B-TsinJ+(S-H)sinJ+Dsin(J+O):
Goto2
Lbl4:
V=S-H:
H1.S"
I=T:
H2.S"
J=F+90CV2÷
(πRL):
X=X+Dcos(J+O):
Y=Y+Dsin(J+O):
Lbl5:
V=2(S-H)-L:
W=90V÷
π÷
R:
U=RsinW+Q:
W=R(1-cosW)+p:
Prog
J=F+90CV÷
X=X+Dcos(J+O):
Lbl6:
V=H+G-S:
L=M:
U=-U:
J=F+E:
I=-N:
J=F+E-90CV2÷
(πRM):
Lbl7:
V=S-H-G:
X=A+(N+V)cosJ+Dcos(J+O):
Y=B+(N+V)sinJ+Dsin(J+O):
二、子程序:
1、文件名:
H1.S
Q=6:
G=1
U=∑((-1)^(G-1)×
V^(4G-3)÷
((2G-2)!
×
(4G-3)×
2^(2G-2)×
(RL)^(2G-2)),G,1,Q)
W=∑((-1)^(G-1)×
V^(4G-1)÷
((2G-1)!
(4G-1)×
2^(2G-1)×
(RL)^(2G-1)),G,1,Q)
2、文件名:
H2.S
X=A-IcosJ+UcosJ-CWsinJ:
Y=B-IsinJ+UsinJ+CWcosJ
3、文件名:
FW4
J<
J=J+360:
J>
360=>
J=J-360:
J=J
4、数据库1:
DAT5
J=1=>
A=6136.073:
B=3300.4972:
L=35:
M=35:
F=171°
36′6.9″:
E=74°
58′29″:
K=529.067:
R=87.72△
………………………………………
J=N=>
A=****:
B=****:
L=****:
M=***:
F=****:
E=****:
K=****:
R=****△
5、数据库2:
DAT6
A=63559.945:
B=531452.29:
L=0:
M=0:
F=286°
16′56.9″:
E=10°
46′40.7″:
K=528.306:
R=5000△
三、说明:
1、输入部分:
—输入1进行第一条线路正算,输入2进行第二条线路正算,输入3进行人工正算
XJ—交点X坐标(利用数据库全线贯通计算时不出现提问,以下类同)
YJ—交点X坐标
LS1—前缓长(如仅为圆曲线时,输入零)
LS2—后缓长(如仅为圆曲线时,输入零)
F0—起始方位角
PJ—曲线偏角(左负右正)
JD—交点里程
R—圆曲线半径
2、显示部分:
X=——所求点X坐标
Y=——所求点Y坐标
FW=——所求点切线方位角
3、功能:
本程序适用于对称或非对称的完整曲线的正算
Casiofx-4800P平曲线坐标计算程序
程序目的:
依平曲线要素计算直线、圆曲线、缓和曲线的任意中桩、左、右桩坐标。
程序说明:
K0:
起始桩号X0:
起始X坐标Y0:
起始Y坐标ALF:
起始方位角R:
半径LS:
缓和曲线长N:
曲线左转N=1,右转N=2K:
待求桩号LL、LR:
左、右桩距离Q:
左、右桩与中线斜交角求得XZ、YZ、XL、YL、XR、YR分别为中桩、左、右桩坐标。
一、直线段
文件名:
ZX(COMP)
程式:
L”K0”:
O”X0”:
P”Y0”:
W”ALF”:
{K}:
X”XZ”=O+(K-L)cosW◢
Y”YZ”=P+(K-L)sinW◢
{B}:
S”XL”=X-B”LL”cos(W+Q)◢
T”YL”=Y-Bsin(W+Q)◢
{C}:
U”XR”=X+C”LR”cos(W+Q)◢
V”YR”=Y+Csin(W+Q)◢
Goto0
注:
在程序执行过程中,赋给的要素变数的值被固定不变,可对变数(K、LL、LR)赋予不同值,迅速求得所需坐标。
二、圆曲线段
YQX(COMP)
Lbl1:
J=(-1)^N(K-L)÷
R×
180÷
π:
D=2Rsin((-1)^NJ÷
2):
X”XZ”=O+Dcos(W+J÷
2)◢
Y”YZ”=P+Dsin(W+J÷
S”XL”=X-B”LL”cos(W+J+Q)◢
T”YL”=Y-Bsin(W+J+Q)◢
U”XR”=X+C”LR”cos(W+J+Q)◢
V”YR”=Y+Csin(W+J+Q)◢
Goto1
若没有直接HY点方位角,则ALFHY=ALFZH±
Ls/2/R×
180/π,(左转-,右转+)。
三、缓和曲线
HHQX(COMP)
M”LS”:
I=(-1)^N×
(K-L)^2÷
M÷
R÷
6×
D=(K-L)-(K-L)^5÷
90÷
(RM)^2:
X”XZ”=O+Dcos(W+I)◢
Y”YZ”=P+Dsin(W+I)◢
S”XL”=X-B”LL”cos(W+3I+Q)◢
T”YL”=Y-Bsin(W+3I+Q)◢
U”XR”=X+C”LR”cos(W+3I+Q)◢
V”YR”=Y+Csin(W+3I+Q)◢
Goto3
1、坐标计算方法是根据偏角法原理;
2、缓和曲线(ZH~HY或YH~HZ)以ZH(或HZ)为起始点;
3、平曲线左转(ZH~HY段N=1,YH~HZ段N=2),曲线右转(ZH~HY段N=2,YH~HZ段N=1)。
铁路曲线坐标计算程序
M(M是文件名,下同)
L1A”CX”B”CY”C”HX”D”HY”E”ZHX”F”ZHY”Q”HZX”L”HZY”G”ZHDK”H”ZHJD°
”
I”A°
”J”L0”K”L1”R
L2Pol(C-A,D-B):
M=W
L3Lbl2:
W=90:
{NOWZ}:
Z”DK”N”Z/!
/Y(1/2/3)”:
N=2=>
Goto1⊿O”M”W”A°
L4Lbl1:
P=Z-G:
S=E:
T=F:
U=H:
V=H:
Fixm
L5P≤0=>
Prog3:
≠=>
P≤J=>
Prog1:
P≤J+K=>
Prog2:
V=90J/π/R+180π-1R-1
(P-J)⊿⊿P≤J+K=>
Prog4:
V=H+V⊿⊿
L6P>
J+K=>
P=2J+K-P:
S=Q:
T=L:
P>
X=-X:
U=H+I:
V=U-V:
V=U:
P=-P:
Prog3⊿⊿
L7N≠2=>
P=O:
U=V-W:
N=3=>
P=-P⊿S=X:
T=Y:
Prog3⊿
L8Pol(X-A,Y-B):
W=W-M:
W<
W=W+360⊿
L9W:
”°
°
=”◢V:
”S=”◢X:
”X=”◢Y:
”Y=”◢Goto2
1
L1V=90P2(πRJ)-1
L2X=P-Pxy5(40R2J2)-1
L3Y=PVπ/540
三、子程序:
2
L1Y=180π-1R-1(P-0.5J)
L2X=RsinY+J/2-Jxy3/240/R2
L3Y=J/24/R+R-RcosY
四、子程序:
3
L1X=S+PcosU
L2Y=T+PsinU
五、子程序:
4
L1I<
Y=-Y:
V=-V⊿
L2S=S+XcosU-YsinU
L3Y=T+XsinU+YcosU
L4X=S
说明:
1、该程序适用于计算器CASIOfx-4500PA。
2、程序符号定义说明:
测站点坐标CX,CY;
后视点坐标HX,HY;
直缓点坐标ZHX,ZHY;
缓直
点坐标HZX,HZY;
直缓点里程ZHDK;
经过直缓点和交点的直线的方位角ZHJD°
;
曲线偏
角(曲线左偏为负,右偏为正)A°
缓和曲线长L0;
圆曲线长L1;
圆曲线半径R;
计算
点里程DK;
计算曲线的左边点或者右边点)Z/!
/Y(1/2/3),曲线的右边输入1,左边输
入3,线路上输入2;
左边的点与当前里程点的连线的距离和当前里程点切线的逆时针
方向的角度A°
(如果上一项不选择2的话)。
3、计算结果显示的数据是:
极角、极距和坐标。
4、该程序适用于极坐标法测量曲线时的数据(极角和极距)计算,以及曲线坐标计算。
曲线上任意点中边桩坐标计算程序(CASIOfx-4800P可全线计算)
主:
PQX
Lbi0:
prog“TAD”Goto1↙
Lbi1:
Z[1]“ZH-X”=M+Tcos(F+180):
Z[2]“ZH-Y”=N+Tsin(F+180):
V[1]“HZ-X”=M+Tcos(F+Z):
V[2]“HZ-Y”=N+Tsin(F+Z):
H=0=>
Goto2:
D=H:
prog“QXY”:
A“HY-X”=Z[1]+Icos(F+SZ÷
AbsZ):
C“HY-Y”=Z[2]+Isin(F+SZ÷
AbsZ):
Q“YH-X”=V[1]+Icos(F+Z+180-SZ÷
AbsZ):
E“YH-Y”=V[2]+Isin(F+Z+180-SZ÷
AbsZ)↙
Lbi2:
K≤G=>
D=Abs(G-K):
O=M:
P=N:
I=D+T:
J=F+180:
W=F:
Goto4⊿↙
H=0→Goto3⊿↙
K≤G+H=>
D=Abs(K-G):
O=Z[1]:
P=Z[2]:
prog“QXY”:
J=F+SZ÷
AbsZ:
W=F+3SZ÷
Goto4⊿↙
Lbi3:
K≤G+L-H=>
D=Abs(K-G-H):
H=1:
H=H:
O=A:
P=C:
prog“QXY”H=1=>
Q=0⊿I=D:
J=F+(Q+E)Z÷
W=F+(Q+2E)Z÷
K≤V=>
D=Abs(V-K):
O=V[1]:
P=V[2]:
F=F+Z+180:
:
J=F-SZ÷
W=F-3SZ÷
U=180+U:
Lbi4:
X=O+IcosJ+Bcos(W+U)▲
Y=P+IsinJ+Bsin(W+U)▲
I=0:
J=0:
I=POL(X-x0,Y-y0:
0→J=J+360△J“FWJ”=J▲I“r”=I▲
(x0、y0为置仪点坐标)
子:
QXY
A=D-D^5/40R²
H²
+D^9/3456R^4H^4-D^13/599040R^6H^6+D^17/17542600R^8H^8+1E-99:
C=D³
/6RH-D^7/336R³
H³
+D^11/42240R^5H^5-D^15/976800R^7H^7+D^19/3530097000R^9H^9:
S=tan¯
1(C÷
A):
I=√(A²
+C²
):
Q=90H÷
лR:
E=90D÷
D=2RsinE
TAD
Lbi0:
{KBU}:
KBU↙
K≤xxx=>
M=xxx:
N=xxx:
F=xxx:
Z=xxx:
R=xxx:
H=xxx:
T=xxx:
L=xxx:
G=xxx:
V=xxx:
M=xxx
……………⊿
注:
K?
输入计算点桩号;
B?
输入距中桩距离,左-,右+;
U?
输入与前进方向偏角
计算中桩坐标时B、U输入0,M-交点X坐标;
N-交点Y坐标;
F-路线前进方向方位角;
Z-转角,左转时连同“-”号输入;
R-半径;
H-缓和曲线长,无缓和曲线时为0;
T-切线长;
L-曲线总长;
G-直缓点桩号;
V-缓直的桩号
在Lbi1行处,把各主点后的“:
”改为“▲”,如Z[1]“ZH-X”=M+Tcos(F+180):
改成Z[1]“ZH-X”=M+Tcos(F+180)▲可直接显示主点桩号坐标,在子程“TAD”内可输入全线角桩资料,K≤本转角缓直点桩号时输入本转角曲线要素。
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 计算器 程序