fx5800P计算器编程共16页文档Word下载.docx
《fx5800P计算器编程共16页文档Word下载.docx》由会员分享,可在线阅读,更多相关《fx5800P计算器编程共16页文档Word下载.docx(30页珍藏版)》请在冰豆网上搜索。
:
N
提取与显示串列中的坐标点数
Lbl0:
STARTn="
?
O
输入站点点号
IfO≤0OrO>
Then"
STARTnOVER!
Goto0:
IfEnd
判断站点点号的合法性
Lbl1:
ENDn="
E
输入站点点号
IfE≤0OrE>
NOrE=O:
ENDnOVER!
Goto1:
判断端点点号的合法性
Pol(ListX[E]-ListX[O],ListY[E]-ListY[O]):
Cls
调用极坐标函数计算
J<
J+360
J
判断方位角
D(m)="
I
显示站点→镜点的平距
α(Deg)="
显示站点→镜点的方位角
Goto0
运行程序前,需按
(COMP)
(CLR)
键,执行ClrStat命令,清除统计串列的数据;
按
(STAT)
(FreqOn)键打开频度串列ListFreq;
(REG)键进入双变量统计回归计算模式,在统计串列中依次输入图所示的坐标点数据,结果见表1所示
1输入在统计串列的坐标数据
点号
ListX
ListY
ListFreq
1
4381.411
3629.849
2
4578.226
3531.110
3
4568.252
3689.568
4
4511.233
3880.836
5
4360.708
3882.016
6
4588.143
4106.347
7
4406.132
4101.540
每在ListX与ListY行输入一个点的坐标后,ListFreq行的频度自动变为1,它用于统计总点数,请用户不要改变该数值。
完成已知数据输入后,执行程序P0801,用户只需分别输入站点号与镜点号,程序即能自动计算并显示站点→镜点的平距与坐标方位角。
当用户输入的站点号超出总点数或为负数时,程序自动要求用户重新输入站点号;
当用户输入的镜点号超出总点数、为负数或等于站点号时,程序自动要求用户重新输入镜点号。
执行程序P0801,1→7,5→6点的平距与坐标方位角的步骤如下:
屏幕提示
按键
说明
COOR→SIDEAndBEARP0801
POINTNUM=7
显示串列中的总点数
STARTn=?
输入站点号1
ENDn=?
输入站点号7
D(m)=472.338
显示平距
α(Deg)=86°
59′59.69″
显示坐标方位角
输入站点号5
输入站点号6
D(m)=319.454
α(Deg)=44°
36′22.82″
……
只能按
键终止运行,终止程序运行后,用户可以随时按
(REG)键进入双变量统计回归计算模式,编辑已输入的坐标数据或添加新点的坐标数据。
特别提示:
CASIOfx-5800p大礼包热销中,【购买1台fx-5800p,赠送《CASIOfx-5800p可编程计算器测绘计算实用程序》书籍1本,此书籍中测量程序可直接传输到计算器中,《CASIOfx-5800p新型编程计算器使用方法与编程技巧》1本,fx-5800p间数据传输线(SB-62)1条,《fx-4850p/fx-4800p与fx-5800p编程语言的主要区别》对比表1份】,数量有限,欲购从速,可以到全国各地测绘店购买及常用测量程序传输。
fx-5800p的8大功能优点总结:
优点1、结构化的类BASIC编程语言,程序结构化强,便于编写和阅读,程序代码更加简洁”If~Then~Else~IfEnd,For~To~Step~Next,While~WhileEnd,Do~LpWhile”
优点2、两台fx-5800p间的数据通讯,免除了手工输入程序的麻烦,节省时间,避免输入错误
优点3、fx-5800p大容量的内存及闪存存储功能,断电情况下,程序不会丢失
优点4、fx-5800p自然书写功能,自然书写形式输入与输出不出错
优点5、fx-5800p的夜晶点阵显示屏幕,可以更加清晰的显示数字内容,分辨率高
优点6、强大的数理统计分析,串列数据存储功能,用于编程,可批量存储计算结果,方便查看数据结果
优点7、fx-5800p矩阵计算功能,最大可计算10×
10的矩阵,测量平差方程的解算
优点8、耗电量小,fx-5800p的7号电池方便更换与耐用
一、程序功能
主要功能:
采用交点法方式计算多条线路坐标正反算,可算任意复杂线型及立交匝道,包括C型,S型、卵型、回头曲线等;
极坐标放样,全线路基边坡开挖口及坡脚放样计算、路基任意点设计高程、横坡、设计半幅宽度.隧道欠超挖放样计算。
新版本优化:
1、优化程序语句、2、以复数形式输入变量及做数据库,取消原矩阵数据库;
3、修改隧道超欠挖程序为通用形,不受圆心个数限制、4、新增测量资料表计算
二、源程序(绿色为程序名;
蓝色为输入计算器内容)紫色为新版改动处(可以根据自己标段情况用相关主程序及子程序,再在0程序中汇总)
0.汇总程序(1、坐标计算放样程序(1XY、A、AB、HX、JS、DX、QX、F、XY、X1);
2、坐标反算程序(2ZD、A、B、AB、HX、QX、F、ZD、X1);
3、高程计算查阅程序(3GC、H、I、QX、S1、I1);
4、路基半幅标准宽度查阅程序(4GD、C、QX、G1);
5、路基边坡及开挖口放样程序(5BP、A、B、AB、HX、H、I、C、JS、DX、QX、F、ZD、X1、S1、I1、G1、W1);
6、路基标准距离放样(6FM、A、AB、HX、H、I、JS、DX、QX、F、XY、X1、S1、I1);
7、桥梁锥坡计算放样程序(7ZP、A、AB、HX、C、JS、DX、QX、F、XY、X1、G1);
8、极坐标计算程序(8JS、JS、DS);
9、隧道超欠挖计算程序(9SD、A、B、AB、HX、H、I、QX、S、SD、F、ZD、X1、S1、I1、SD1)运行后按1~9数子约半秒,则选择1至9的程序,返回时,在桩号输入-1,返回选择计算类型。
输入-2,返回选择线路。
程序名:
0(数子0)
ClrMat:
ClrVar:
12→DimZ:
Norm2:
Do:
"(XY=1,ZD=2,GC=3,GD=4,BP=5,FM=6,ZP=7,JS=8,SD=9)===>
QINGAN1-9":
Getkey→Z[3]:
WhileZ[3]=35:
Prog"1XY":
WhileEnd:
WhileZ[3]=36:
Prog"2ZD":
WhileZ[3]=37:
Prog"3GC":
WhileZ[3]=21:
Prog"4GD":
WhileZ[3]=22:
Prog"5BP":
WhileZ[3]=23:
Prog"6FM":
WhileZ[3]=31:
Prog"7ZP":
WhileZ[3]=32:
Prog"8JS":
WhileZ[3]=33:
Prog"9SD":
LpWhileZ[3]≠25:
”XIEXIESHIYONG”:
计算器内程序排例:
0、01(测量资料专用)、1SC(水准测量用)、1XY、2XY-S(由坐标计算面积)、2ZD、3GC、4GD、5BP、6FM、7ZP、8JS、9SD、A、AB、B、B6(测量表格检表6)、B7(检表7)、B8(检表8)、B9(检表9)、C、DX、DX0、F、G1、H、HX、I、I1、JS、M(度分秒转十进制)、QX、S、S1、SD0、SD1、T、W1、X1、XY、XYH(五点通线元法计算坐标)、ZD
5800计算器线路、匝道中边桩万能程序彭赐明改编网上类似程序于河南高速郑漯8标LB1
1↙Cls:
Fix4:
Deg:
XZJ="
R◢
(输入置镜点X)"
YZJ="
S◢
(输入置镜点Y)LB1
2↙"
K="
K◢
(输入计算点里程)If
K<
第一线元终点里程
:
THEN
线元起点X→A:
线元起点Y→B:
线元起点半径(直线起点终为10的45次方)→T:
线元起点里程→D:
线元起点方位角→E:
线元终点半径(直线起终点为10的45次方)→U:
线元终点里程→G:
线元偏向(左偏-1右偏+1)→W:
Goto
3:
IfEnd↙………………………………(线元数据分段输入)LB1
3↙W*T→C:
W*U→F:
0→I:
0→J:
(C-F)/(2*C*F*(G-D))→H:
K-D→X:
E+(X/C+HX^2)×
180/π→V:
V<
0=>
V+360→V:
QXJ="
V→DMS◢(计算点切线方位角)A+∫(Cos(E+(X/C+HX^2)*180/π,0,X)→Z:
B+∫(Sin(E+(X/C+HX^2)*180/π,0,X)→Y:
XI="
Z◢(计算点中心X)"
YI="
Y◢(计算点中心Y)"
PJ="
P◢(输入计算点边桩偏角左-右+)"
PD="
Q◢(输入计算点边桩偏距)Rec(Q,V+P):
Z+I→Z:
Y+J→Y:
XP="
Z◢(计算点边桩X)"
YP="
Y◢(计算点边桩Y)Pol(Z-R,Y-S):
J+360→J:
FYJ="
J→DMS◢(放样方位角)"
FYD="
I◢(放样距离)Goto
2↙
提问人的追问
2019-08-2921:
20
fx5800计算器要的
四大主点的坐标和方位角计算程序:
LU-XIAN
Clrstat:
20→Dimz:
Fix6:
Lib0:
NO.J
(2)="
S:
R="
R:
L(H)="
L:
Prog"
FANG-WEI"
J+180→J:
J-O→K:
K<
0=>K+360→K:
K-180→F:
If>
0:
ThenL
(1):
ElseR
(1):
IfEnd←L
(1)=>-1→W:
R
(1)=>1→W:
J+W(I*180/(2πR))→z[6]:
B(HY)="
(z[6]-180)▲DME◢I*180/(2πR)→B:
I/2-I^(3)/(240*R^
(2)→G:
I^
(2)/(24R)→P:
T="
(R+P)*tan(Abs(F)/2)+G→z[7]→◢"
L(Y)="
πR(
Abs(F)-2B)/180→z[8]◢"
NO.ZH="
S-z[7]→z[9]◢"
NO.HZ="
z[9]+
2I+z[8]◢"
X-ZH="
C+z[7]*cos(J)→z[1]◢"
Y-ZH="
D+z[7]*sin(J)
→z[2]◢"
X-HZ="
C+z[7]*cos(O)→z[3]◢"
D+z[7]*sin(O)→z[4]◢
I-I^(3)/(40R^
(2))+I^(5)/(3456*R^(4))-I^(7)/(599040R^(6)→z[5]:
X-HY="
z[1]+z[5]/cos(30I/(πR))*cos(J-180+30WI/(πR))◢
Y-HY="
z[2]+z[5]/cos(30I/(Rπ))*sin(J-180+30WI/(πR))◢
B(Y)="
O+(-W)*(180I/(2πR)◢"
X-YH="
z[3]+z[5]/cos(30I/(πR))*cos(O+180-30WI/(πR))◢"
Y-YH="
z[4]+z[5]/cos(30I/(πR))*sin(O+180-30WI/(πR))◢Goto0←
NO.JD
(2),R,L(H)分别为:
交点里程,半径,缓和曲线长;
T,L(Y),NO.ZH,NO.HZ,
X-ZH,Y-ZH,X-HZ,Y-HZ,X-HY,Y-HY,X-YH,Y-YH,B(YH)分别为:
切线长,圆曲线长,直缓点里程,缓直点里程,四大主点的坐标和圆缓点方位角
方位角计算程序:
FANG-WEI
Clrstat:
X1="
A:
Y1="
B:
X2="
C:
Y2="
D:
X3="
E:
Y3="
F←
C-A→X:
D-B→Y:
Arg(X+Yi)→J:
0=>J+360→J:
E-C→M:
F-D→U:
Arg(M+Ui)→O:
O<
0=>O+360→O:
J="
J▲DME◢←"
O="
O▲DME◢
X1,Y1,X2,Y2,X3,Y3:
分别为三个交点的坐标。
J,O为方位角
曲线上任意点坐标和切线方位角计算程序:
LU-XIAN-1
Fix9:
6→Dimz:
"
NO-ZH="
J:
NO-HZ="
Z:
Y-HZ="
G:
H:
L(Y)="
A1="
A2="
Lbi0:
KP="
P:
W="
W:
J-L→M:
Z-L→Q:
IfP<MAndP>J:
ThenGoto1:
IfEnd:
IfP<QAndP>M:
ThenGoto2:
IfEnd:
IfP<ZAndP>Q:
ThenGoto3:
IfP<J:
ThenGoto4:
IfP>Z:
ThenGoto5:
Lbi:
P-J→z[2]:
z[2]-z[2]^(5)/(40R^
(2)L
^
(2))+z[2]^(9)/(3456R^(4)-z[2]^(13)/(R^(6)L^(6))→z[1]:
X(ZH-HY)="
C+z[1]/cos(z[2]^
(2)/(6RL))*cos(A+Wz[2]^
(2)/(6RL))◢"
Y(ZH-HY)="
D+
z[1]/cos(z[2]^
(2)/(6RL))*sin(A+Wz[2]^
(2)/(6RL))◢"
AI="
A+
W(z[2]^
(2)/(2RL))◢Goto0←Lbi2:
P-M→z[3]:
X(HY-YH)="
G+
2Rsin(z[3]/(2R))*cos(A+W(L+z[3])/(2R))◢"
Y(HY-YH)="
H+2Rsin(
Z[3]/(2R))*sin(A+W(L+z[3])/(2R))◢"
A+W(z[3]+0.5L)/R◢
Goto0←Lbi3:
Z-P→z[4]:
X(HZ-HY)="
E+(z[4]-z[4]^(5)/(40R
^
(2)L^
(2))+z[4]^(9)/(3456R^(4)L^(4))-z[4]^(13)/(599040R^(6)L^(6))/cos(z[4]^
(2)/(6RL))*cos(B+π-Wz[4]^
(2)/(6RL))◢"
Y(HZ-HY)="
F+
(z[4]-z[4]^(5)/(40R^
(2)L^
(2))+z[4]^(9)/(3456R^(4)L^(4))-z[4]^(13)/(599040R^(6)L^(6))/cos(z[4]^
(2)/(6RL))*sin(B+π-Wz[4]^
(2)/(6RL))◢
B-W(z[4]^
(2)/(2RL))◢Goto0←Lib4:
J-P→z[5]:
X(HOU-ZH)="
C+z[5]*cos(A+π)◢"
Y(HOU-ZH)="
D+z[5]*sin(A+π)◢
A◢"
A◢Lbi5:
P-Z→z[6]:
X(Q-HZ)="
E+
z[6]*cos(B)◢"
Y(Q-HZ)="
F+z[6]*sin(B)◢"
B◢Goto0←
NO.ZH,NO.HZ:
为直缓点和缓直点里程;
X-ZH,Y-ZH,X-HY,Y-HY为直缓点﹑缓圆点和缓直点的大地坐标;
R,L(Y)为曲线的半径和缓和曲线的长;
KP为待定点的里程;
AI为待定点的切线方位角;
X(ZH-HY),Y(ZH-HY)为待定点在直缓点到缓圆点的坐标;
X(HY-YH),Y(HY-YH)为待定定在缓圆点到圆缓点的坐标;
X(HZ-YH),Y(HZ-YH)为缓直点到圆缓点得坐标;
X(HOU-ZH),Y(HOU-ZH)为后直线上的坐标;
X(Q-HZ),Y(Q-HZ)为前直线上的坐标。
坐标转换程序:
ZUO-BIAO-ZH
Fix3:
ALFA="
N="
N←IfN=1:
IfEnd←
IfN=2:
IfEnd←IfN=3:
IfEnd←
Lbi1:
X0="
Y0="
F:
XA="
YA="
D←
XG="
Z+C*cos(A)-D*sin(A)◢"
YG="
F+C*sin(A)-D*cos(A)◢
Goto0←Lbi2:
U:
V←
(U-Z)*cos(A)+(V-F)sin(A)◢"
(Z-U)*sin(A)+(V-F)*cos(A)◢
Goto0←Lbi3:
XZ="
O:
YZ="
T:
P="
E="
E←
XT="
O+(E+P/2)*cos(A+1.57079632)◢
YT="
T+(E+P/2)*sin(A)-D*sin(A+1.57079632)◢Goto0←
ALFA:
为切线方位角(弧度)X0,YO:
为大地坐标系中的坐标
XG,YG:
为转换到大地坐标系中的坐标XA,YA:
为相对坐标
P,E:
分别为线间距和偏距XT,YT:
为里程中心大地坐标
50楼
各位师傅请帮小弟指点一下这个程序如何改和改成5800(有报酬5000筑龙币)
1.主程序(TYQXjs)
bl4:
1.SZ=>
XY"
:
2.XY=>
SZ"
{NS}:
S<
769.256(下一线元起点里程)=>
O=500(本线元起点里程):
U=19942.837(线元起点X坐标):
V=28343.561(线元起点Y坐标):
G=125°
16°
31°
(线元起点方位角):
H=269.265(线元长度):
P=10^(45)(线元起点曲率半径):
R=10^(45)(线元终点曲率半径):
Q=0(线元左右偏标志:
左负右正):
Goto0Δ←┘..........¬
D=(P-R)÷
(2HPR):
N=1=>
Goto1:
≠>
Goto2Δ←┘
Lbl1:
{Z}:
Z:
W=Abs(S-O):
Prog"
SUB1"
X"
XS"
=X◢
Y"
YS"
=Y◢
F"
FS"
=F-90◢
C"
XC"
E"
YC"
I=0:
J=Y:
POL(X-C,Y-E):
I"
I="
◢
J"
+360◢
Goto1←┘
Lbl2:
{XY}:
XY:
I=X:
J=Y:
SUB2"
S"
=O+W◢
Z"
=Z◢
Goto2
2.正算子程序(SUB1)
A=0.1739274226:
B=0.3260725774:
K=0.0694318442:
L=0.3300094782:
F=1-L:
M=1-K:
X=U+W(Acos(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD))+Bcos(G+QEFW
(C+FWD))+Acos(G+QEMW(C+MWD))):
Y=V+W(Asin(G+QEKW(C+KWD))+Bsin(G+
QELW(C+LWD))+Bsin(G+QEFW(C+FWD))+Asin(G+QEMW