fx-5800p计算器编程

泸定县新城建设 一期工程施工 技术四川三一工程建设（集团）有限公司 第 1 页/共 17 页 2011-11-20fx-5800P 计算器编程基于串列输入数据的边长与坐标方位角计算程序 P0801fx-5800P 设有 List X、List Y、List Freq 三个串列，串列的功能是用于存储单、双变量统计计算的样本数据，以便于用户查看与编辑样本数据。在编程中也可用串列存储已知数据或程序计算结果，本程序是用于存储程序计算所需要的已知数据。程序名：P0801泸定县新城建设 一期工程施工 技术四川三一工程建设（集团）有限公司 第 2 页/共 17 页 2011-11-20“COORSIDE And BEAR P0801“ 显示程序标题Deg: Fix 3 十进制度，3 位固定小数显示nN:“POINT NUM=“:N 提取与显示串列中的坐标点数Lbl 0:“START n=“?O 输入站点点号If O0 Or ON:Then “START n OVER!“:Goto 0:IfEnd判断站点点号的合法性Lbl 1:“END n=“?E 输入站点点号If E0 Or EN Or E=O:Then “END n OVER!“:Goto 1:IfEnd判断端点点号的合法性Pol(List XE-List XO,List YE-List YO):Cls调用极坐标函数计算JQING AN 1-9：GetkeyZ3:While Z3=35:Prog1XY:WhileEnd:While Z3=36:Prog2ZD：WhileEnd: While Z3=37:Prog3GC：WhileEnd: While Z3=21:Prog4GD：WhileEnd: While Z3=22:Prog5BP：WhileEnd: While Z3=23:Prog6FM：WhileEnd: While Z3=31:Prog7ZP：WhileEnd: While Z3泸定县新城建设 一期工程施工 技术四川三一工程建设（集团）有限公司 第 7 页/共 17 页 2011-11-20=32:Prog8JS：WhileEnd: While Z3=33:Prog9SD：WhileEnd:LpWhile Z325:”XIE XIE SHI YONG”:计算器内程序排例：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（五点通线元法计算坐标）、ZD5800 计算器线路、匝道中边桩万能程序彭赐明改编网上类似程序于河南高速郑漯 8 标LB1 1Cls : Fix 4 : Deg :“XZJ=“?R (输入置镜点 X）“YZJ=“?S (输入置镜点 Y）LB1 2“K=“?K (输入计算点里程）If KV+360V:“QXJ=“:VDMS(计算点切线方位角）A+(Cos(E+(X/C+HX2)*180/，0，X)Z :B+(Sin(E+(X/C+HX2)*180/，0，X)Y :“XI=“:Z(计算点中心 X）“YI=“:Y(计算点中心 Y）“PJ=“?P(输入计算点边桩偏角左右）“PD=“?Q(输入计算点边桩偏距）Rec(Q,V+P):Z+IZ :Y+JY:“XP=“:Z(计算点边桩 X）“YP=“:Y(计算点边桩 Y）Pol(Z-R,Y-S):JJ+360J:“FYJ=“:JDMS(放样方位角）“FYD=“:I(放样距离）Goto 2 提问人的追问 2010-08-29 21:20 fx5800 计算器 要的四大主点的坐标和方位角计算程序：LU-XIANClrstat:20Dimz:Fix6:Lib0:“NO.J(2)=“?S:“R=“?R:“L(H)=“?L:Prog“FANG- WEI“:J+180J:J-OK:K0:ThenL(1):ElseR(1):IfEndL(1)-1W:R(1)1W:J+W(I*180/(2R)z6:泸定县新城建设 一期工程施工 技术四川三一工程建设（集团）有限公司 第 8 页/共 17 页 2011-11-20“B(HY)=“:(z6-180)DME I*180/(2R)B:I/2-I(3)/(240*R(2)G:I(2)/(24R)P:“T=“:(R+P)*tan(Abs(F)/2)+Gz7 “L(Y)=“:R(Abs(F)-2B)/180z8 “NO.ZH=“:S-z7z9 “NO.HZ=“:z9+2I+z8 “X-ZH=“:C+z7*cos(J)z1 “Y-ZH=“:D+z7*sin(J)z2 “X-HZ=“:C+z7*cos(O)z3 “Y-ZH=“:D+z7*sin(O)z4I-I(3)/(40R(2)+I(5)/(3456*R(4)-I(7)/(599040R(6)z5:“X-HY=“:z1+z5/cos(30I/(R)*cos(J-180+30WI/(R)“Y-HY=“:z2+z5/cos(30I/(R)*sin(J-180+30WI/(R)“B(Y)=“:O+(-W)*(180I/(2R) “X-YH=“:z3+z5/cos(30I/(R)*cos(O+180-30WI/(R) “Y-YH=“:z4+z5/cos(30I/(R)*sin(O+180-30WI/(R) Goto 0 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-WEIClrstat:Deg:“X1=“?A:“Y1=“?B:“X2=“?C:“Y2=“?D:“X3=“?E:“Y3=“?FC-AX:D-BY:Arg(X+Yi)J:J XY“：“2.XY = SZ“： NS :S O=500（本线元起点里程）：U= 19942.837 （线元起点 X 坐标）：V= 28343.561 （线元起点 Y 坐标）：G=1251631（线元起点方位角）：H= 269.265 （线元长度）：P= 10（45）（线元起点曲率半径）：R =10（45）（线元终点曲率半径）：Q =0 （线元左右偏标志：左负右正）：Goto 0Lbl 0: D=(P-R)(2HPR)： N=1=Goto 1：Goto 2Lbl 1：Z：Z：W=Abs(S-O)：Prog “SUB1“：X“XS“=XY“YS“=YF“FS“=F-90C“XC“: E“YC“:I=0: J=Y:POL(X-C,Y-E): I “I=“JJ“J=“+360Goto 1Lbl 2：XY：XY：I=X：J=Y：Prog “SUB2“：S“S“=O+WZ“Z“=Z泸定县新城建设 一期工程施工 技术四川三一工程建设（集团）有限公司 第 11 页/共 17 页 2011-11-20Goto 22. 正算子程序(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(C+MWD)：F=G+QEW(C+WD)+90：X=X+ZcosF：Y=Y+ZsinF3. 反算子程序(SUB2)T=G-90：W=Abs(Y-V)cosT-(X-U)sinT)：Z=0：Lbl 0：Prog “SUB1“：L=T+QEW(C+WD)：Z=(J-Y)cosL-(I-X)sinL：AbsZGoto1：W=W+Z：Goto 0Lbl 1：Z=0：Prog “SUB1“：Z=(J-Y)sinF三、使用说明1、规定(1) 以道路中线的前进方向（即里程增大的方向）区分左右；当线元往左偏时，Q=-1；当线元往右偏时，Q=1；当线元为直线时，Q=0。(2) 当所求点位于中线时，Z=0；当位于中线左铡时，Z 取负值；当位于中线中线右侧时，Z 取正值。泸定县新城建设 一期工程施工 技术四川三一工程建设（集团）有限公司 第 12 页/共 17 页 2011-11-20(3) 当线元为直线时，其起点、止点的曲率半径为无穷大，以 10的 45 次代替。(4) 当线元为圆曲线时，无论其起点、止点与什么线元相接，其曲率半径均等于圆弧的半径。(5) 当线元为完整缓和曲线时，起点与直线相接时，曲率半径为无穷大，以 10 的 45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半径为无穷大，以 10 的 45 次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。(6) 当线元为非完整缓和曲线时，起点与直线相接时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。2、输入与显示说明输入部分：1. SZ = XY2. XY = SZ N ? 选择计算方式，输入 1 表示进行由里程、边距计算坐标 ；输泸定县新城建设 一期工程施工 技术四川三一工程建设（集团）有限公司 第 13 页/共 17 页 2011-11-20入 2 表示由坐标反算里程和边距。X0 ？线元起点的 X 坐标 Y0 ？线元起点的 Y 坐标 S0 ？线元起点里程F0 ？线元起点切线方位角LS ？线元长度R0 ？线元起点曲率半径RN ？线元止点曲率半径Q ？ 线 元左右偏标志(左偏 Q=-1，右偏 Q=1，直线段 Q=0）S ？ 正算时所求点的里程Z ？正算时所求点距中线的边距(左侧取负，值右侧取正值，在中线上取零)X ？反算时所求点的 X 坐标Y ？反算时所求点的 Y 坐标显示部分：XS= 正算时，计算得出的所求点的 X 坐标YS= 正算时，计算得出的所求点的 Y 坐标S= 反算时，计算得出的所求点的里程Z= 反算时，计算得出的所求点的边距19 楼一、坐标反算程序18.203.182.*主程序：FS泸定县新城建设 一期工程施工 技术四川三一工程建设（集团）有限公司 第 14 页/共 17 页 2011-11-20Lbl 1 8？M：?N：?V：?W 8(VM) 2 +(W-N)2 )C 8cos-1(VM)C) T 8If WN M : Then Z-M+TL:F+AV:VU:Goto 2 : IfEnd 8Lbl 2 8“X=”:N+Lcos(U) X W“Y=”:E+ Lsin(U) Y W“U=”:U WGoto 6 8Lbl 3 8?W 8“XL=”:X+Wcos(U-90) P W“YL=”:Y+ Wsin(U-90) Q W“XR=”:X+Wcos(U+90) P W“YR=”:Y+ Wsin(U+90) Q WGoto 1 8Lbl 4 8泸定县新城建设 一期工程施工 技术四川三一工程建设（集团）有限公司 第 16 页/共 17 页 2011-11-20“X=”:N+Tcos(P)+Vcos (Q) X W“Y=”:E+ Tsin(P)+Vsin (Q) Y WIf U360:Then U-360 U:Else UU:IfEnd 8“U=”:U WGoto 6 8Lbl 5 8“X=”:B+ Rcos(L) X W“Y=”:O+ Rsin(L) Y WIf U360:Then U-360 U:Else UU:IfEnd 8“U=”:U 8Goto 6 8Lbl 6 8J=1 Goto 3 8Goto 1 8程序说明：输入数据中， JD 为交点里程，A 为曲线偏角，R 为曲线半径， LS 为缓和曲线长度，(N,E)为交点坐标，F 为曲线起始方位角，J 为判断值，当 J=1 时计算左右边桩坐标，Z 为所求点的里程，W 为左右边距。输出显示中，T 为切线长，E 为切曲差，L 为曲线总长，ZH 为直缓点里程，HY 为缓圆点里程，QZ 为曲中点里程，YH 为圆缓点里程，HZ 为缓直点里程，（X,Y）为所求里程的中桩坐标，(XL,YL)为所求里程左边桩坐标， (XR,YR)为所求里程右边桩坐标。 W 27 楼Deg:FreqOn:Clrstat:Fix6 行符号100DimZ 换行符号“X”？A 换行符号“Y”？B 换行符号“FWJ” ？C 换行符号“QD ZH” ？D 换行符号LbI 0:“ZH” ？List X1 换行符号List X1- DE 换行符号A+Ecos(C) List Y 1 换行符号B+Esin(C) List Freq1 换行符号“X”: List Y 1 显示符号 59.48.153.*“Y”: List Freq1 显示符号29 楼Deg:FreqOn:Clrstat:Fix6 行符号 100DimZ 换行符号 “X”？A 换行符号 “Y”？B 换行符号 “FWJ” ？C 换行符号 “QD ZH” ？D 换行符号 LbI 0:“ZH” ？List X1 换行符号 List