计算器程序.docx
《计算器程序.docx》由会员分享，可在线阅读，更多相关《计算器程序.docx（6页珍藏版）》请在冰豆网上搜索。
计算器程序
线路平曲线坐标计算程序（For 4850P）
一、主程序：
HAN2
LblA:
{SDO}:
S"K=":
D"DP=":
O"ANG=":
Z"NO.=1,2,SD=3"=1=>GotoX:
≠>Z=2=>GotoY:
≠>GotoW△△
LblX:
S≤593.652=>J=1:
Prog"DAT5":
Goto0△
S≤852.072=>J=2:
Prog"DAT5":
Goto0△
S≤1033.94=>J=3:
Prog"DAT5":
Goto0△
S≤1170.162=>J=4:
Prog"DAT5":
Goto0△
………………………………
S≤6275.818=>J=18:
Prog"DAT5":
Goto0△
LblY:
S≤997.192=>J=1:
Prog"DAT6":
Goto0△
S≤2208.389=>J=2:
Prog"DAT6":
Goto0△
S≤5565.209=>J=3:
Prog"DAT6":
Goto0△
S≤7113.552=>J=4:
Prog"DAT6":
Goto0△
………………………………
S≤17189.541=>J=8:
Prog"DAT6":
Goto0△
LblW:
A"XJ"B"YJ"L"LS1"M"LS2"F"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÷24÷R-M^4÷2688÷R^3:
C=（R+P）÷costan-1（（（R+I）÷（R+P）-cosAbsE）÷sinAbsE）-R:
C:
C=M÷2-M^3÷240÷R2+M^5÷34560÷R^4:
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:
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=":
Prog"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:
Prog"H1.S":
J=F:
I=T:
Prog"H2.S":
J=F+90CV2÷（πRL）:
Prog"FW4":
X=X+Dcos（J+O）:
Y=Y+Dsin（J+O）:
Goto2
Lbl5:
V=2（S-H）-L:
W=90V÷π÷R:
U=RsinW+Q:
W=R（1-cosW）+p:
J=F:
I=T:
Prog "H2.S":
J=F+90CV÷π÷R:
Prog"FW4":
X=X+Dcos（J+O）:
Y=Y+Dsin（J+O）:
Goto2
Lbl6:
V=H+G-S:
L=M:
Prog"H1.S":
U=-U:
J=F+E:
I=-N:
Prog "H2.S":
J=F+E-90CV2÷（πRM）:
Prog"FW4":
X=X+Dcos（J+O）:
Y=Y+Dsin（J+O）:
Goto2
Lbl7:
V=S-H-G:
J=F+E:
X=A+（N+V）cosJ+Dcos（J+O）:
Y=B+（N+V）sinJ+Dsin（J+O）:
Goto2
二、子程序：
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<0=>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
J=1=>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△
………………………………………
J=N=>A=****:
B=****:
L=****:
M=***:
F=****:
E=****:
K=****:
R=****△
三、说明：
1、输入部分：
"NO.=1,2,SD=3"—输入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”:
Lbl0:
{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）
程式：
L”K0”:
O”X0”:
P”Y0”:
W”ALF”:
Lbl1:
{K}:
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÷2）◢
{B}:
S”XL”=X-B”LL”cos（W+J+Q）◢
T”YL”=Y-Bsin（W+J+Q）◢
{C}:
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）
程式：
L”K0”:
O”X0”:
P”Y0”:
W”ALF”:
M”LS”:
Lbl3:
{K}:
I=（-1）^N×（K-L）^2÷M÷R÷6×180÷π:
D=（K-L）-（K-L）^5÷90÷（RM）^2:
X”XZ”=O+Dcos（W+I）◢
Y”YZ”=P+Dsin（W+I）◢
{B}:
S”XL”=X-B”LL”cos（W+3I+Q）◢
T”YL”=Y-Bsin（W+3I+Q）◢
{C}:
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>0=>Prog1:
X=-X:
U=H+I:
Prog4:
V=U-V:
≠=>
U=H+I:
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<0=>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<0=>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可全线计算）
曲线上任意点中边桩坐标计算程序（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÷AbsZ:
Goto4⊿↙
Lbi3:
K≤G+L-H=>D=Abs（K-G-H）:
H=0=>H=1:
O=Z[1]:
P=Z[2]:
≠>H=H:
O=A:
P=C:
prog“QXY”H=1=>Q=0⊿I=D:
J=F+（Q+E）Z÷AbsZ:
W=F+（Q+2E）Z÷AbsZ:
Goto4⊿↙
K≤V=>D=Abs（V-K）:
O=V[1]:
P=V[2]:
prog“QXY”:
F=F+Z+180:
:
J=F-SZ÷AbsZ:
W=F-3SZ÷AbsZ:
U=180+U:
Goto4⊿↙
Lbi4:
X=O+IcosJ+Bcos（W+U）▲
Y=P+IsinJ+Bsin（W+U）▲
I=0：
J=0：
I=POL（X-x0，Y-y0：
J<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÷лR:
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:
≠>K≤xxx=>M=xxx:
N=xxx:
F=xxx:
Z=xxx:
R=xxx:
H=xxx:
T=xxx:
L=xxx:
G=xxx:
V=xxx:
≠>K≤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≤本转角缓直点桩号时输入本转角曲线要素。
升级会员 