卡西欧5800计算器如何编程

卡西欧5800计算器如何编程

摘要：...

需要极坐标放样程序QH1－5地具体输入方法

最佳答案:

公路平/竖曲线放样、坐标反算桩号GL.3－25PHF程序fx-5800p

F1 GL.3－25PHF （K+，XY ≠ 0?）输入其她进入反算。输入0时进入测站点、后视点坐标(X0,Y0,H0)、(X1,Y1)输入及两点距离(D0)、方位角(T0)输出。H0=0时，不计算竖曲线。 L1 Z［1→Q:Lbl 8:“GL.3-25PHF=”？Q:Q→Z［1］:IF Q<3 Or Q>25:Then Goto

8:IfEnd:0→V:0→N:“K，X≠0”？V:V≠0=>Goto 0:“X0”？C:“Y0”？D:“H0”？H:“X1”？E:E－C→I:“Y1”？F:F－D→J:Prog“1”:“T0O=”:J▲DMS◢“D0=”:I◢ 放样点桩号(Kp+)斜交角(ApO)距离(Sp)输入 143

L2 Lbl 0:Z［1→Q:If V=0:Then 90→Z:“Kp+”？K:“ApO”？Z:“Sp”？B:Goto 4:IfEnd:If N≠－2:Then“Xp”？C:“Yp”？D:1T→P:1→G:IfEnd:Lbl 7:C－Z［4+G→I:D－Z［Q+4+G→J:Prog“1”:If N=－2:Then I→P:J→Z:G→B:Goto 4:IfEnd:If P－I>0:Then I→P:J→Z:G→B:IfEnd:If G<Q-2:Then G+1→G:Goto 7:IfEnd:Lbl 4:1→G:Z［3］→W:Lbl 5:Z［1→Q

L3 Q-2→N:Z［3→A:Z［4+G→X:Z［Q+4+G→Y:Z［2Q+3+G→R:R=0 =>1μ→R:Z

［3Q+1+G→L:Z［3+G］－X→I:Z［Q+3+G］－Y→J:Prog“1”:J→O:Z［5+G］－X→I:Z［Q+5+G］－Y→J:Prog“1”:J→U:Prog“P”

L4 If V≠0:Then If G<B:Then G+1→G:W+I－2T+S→W:Goto 5:IfEnd:Prog“F”:Goto 0:IfEnd:N=0=> Goto 0:N=－1=>Goto 5:H=0=>Goto 0:1→G:Lbl 6:Z［1→Q

L3 Q-2→N:Z［4Q+1→A:Z［4Q+G→W:Z［5Q+G→U:Z［6Q-1+G→R:Z［5Q-1+G］－U→I:Z［4Q-1+G］－W→J:Prog“1”:J→O:Z［5Q+1+G］－U→I:Z［4Q+1+G］－

W→J:Prog“1”:Prog“H”:N=－1=>Goto 6:Goto 0

F2 CS.3－25PHF （参数输入完成时，可取消此子程序） I?输入0时进入转点号N?(N－P为平曲线、N－H为竖曲线，均输入1至8、15、25地整数)及其参数地输入(平曲线K?、X?、Y?、R？、L?)、（竖曲线K?、H?、R?）输入桩号、坐标或高程、园半径、缓和曲线长度。 L1 ？I:If I=0:Then 172→DimZ:1→N:IfEnd:Z［1→Q:Lbl 8:“GL.3-25PHF=”？Q:Q→Z［1］:IF Q<3 Or Q>25:Then Goto 8:IfEnd:While N≤Q:“N－P”？N:N＞Q=>Goto 1:If N=2:Then ？

K:K→Z［3］:IfEnd:？X:X→Z［3+N］:？Y:Y→Z［Q+3+N］:N=1 Or N=Q=>Goto 0:？R:R→Z［2Q+2+N］:？L:L→Z［3Q+N］:Lbl 0:WhileEnd:Lbl 1:1→N