关于casio5800 程序 QH2-8

CAISO 4800现在全国市场应该都没有了，如果有的话价格应该不便宜咯

CASIO FX-4850 4800工程计算器在2008年3月停产

现在的升级产品FX-5800P

1Fx-5800价格和fx-4850相当，但程序不能共享，Fx-5800的编程语言更接近BASIC程序语言。

2、5800变量输入语句改为，赋值语句改为—＞。程序中和1850一样，除可以使用26个字母变量A~Z存储数据和独立于字母变量存储器的额外变量存储器Z[1]，Z[2]，Z[3]，Z[4]……外，另外可以使用统计串列存储器List X，List Y，List Freq。

3、程序命令由4850的16个增加到了34个，取消了⊿、≠=>、｛｝命令，使得由⊿、≠=>、｛｝等重要程序命令构成的fx-4850程序无法在5800上运行。

同时，5800的条件语句修改为更易于使用的If~Then~Else~IfEnd形式，新增For~To~Step~Next循环、条件循环Do~LpWhile与While~WhileEnd语句。

4、fx-4800p/FX-5800P没有程序通讯功能，不便于用户间相互交流程序，5800增加了数据通讯功能，使用SB-62数据线连接好两台机器的3Pin通讯口可方便地传输程序与数据，避免了4850只能以手工输入的方式录入程序，容易出现程序输入错误的弊端。

5、fx-4800p/FX-48500P采用普通内存,更换电池容易丢失程序，FX-5800P与普通U盘一样的闪内存作内存,电源为一节普通的7号电池，不需要备用电池，即使将电池取出也不丢失程序, 即使用细尖状物品触压机器背面的复位按钮P点开机，也不会删除机内程序。

6、fx-4800p/FX-4850P没有现场部分功能，运行程序的中途，如按SHIFT OFF 键关机，再按AC/ON 键开机，不能恢复到关机前的程序运行状态，FX-5800P,在任何情况下，包括正在运行程序时，都可以按SHITF OFF键关机，机器自动存储关机前的所有数据与状态，按AC键重新开机后，自动恢复到关机前的界面。

7、5800有矩阵计算功能，可以编写严密平差程序时组成与解算法方程，能够满足测量专业测量平差编程的计算要求。同时字母变量除了可以输入26个大写英文字母外，还能用小写英文字母、希腊字母。

近期卡西欧5800程序新书《fx-5800P公路与铁路施工测量程序》配套的多媒体教学光盘。

1）QH2-7程序，含SUBQ2-71~SUBQ2-77子程序

交点法非对称基本型曲线坐标正、反算程序

可输入测站与后视点坐标,计算极坐标放样参数

2) QH2-8程序，含SUBQ2-81~SUBQ2-87子程序

线元法任意路线与匝道曲线坐标正反、算程序

可输入测站与后视点坐标,计算极坐标放样参数

3) QH2-9程序，含SUBQ2-91~SUBQ2-94子程序

线元法任意路线与匝道曲线直线斜交程序

可输入测站与后视点坐标,计算极坐标放样参数

4) QH2-10程序，含SUBQ2-10子程序

任意个变坡点连续竖曲线高程计算程序

QH2-7/QH2-8/QH2-9程序的反算与斜交功能

理论上用我们最新研发的拟合圆弧直接解算法

使缓和曲线正交与斜交反算时间

由25分钟减小到→7秒钟，计算速度提高21倍。

QH2-7/QH2-8/QH2-9程序

大量使用了fx-5800P先进的复数与串列功能

其中，QH2-8/QH2-9程序

最多可以对含150个线元的任意路线或匝道

进行坐标正反、算与斜交计算

计算精度超高，坐标计算误差≤05mm

而高速公路或高速铁路一个标段的线元数≤50

可以全面满足公路与铁路工程用户的测算需求

亦文轩文具官方网站

CASIO-5800公路测量程序(自编) 文件名：HHQX 缓和曲线段内任意点坐标计算程序“FWJ=”？Q“ZHUAN XIANG L（-1），R（1）=”？N“R（m）=”R“LS(m)=”D“KZH=”G“XZH=”U“YZH=”VLbI 0“KP=”HAbs(H-G)→CC-C^5/(40R^2D^2)+C^9/(3456 R^4D^4) →JC^3/(6RD)-C^7/(336R^3D^3)+C^11/(42240R^5D^5) →KQ+N(C^2/(2RD)×(180/Π)) →FU+J×Cos(Q)+K Cos(Q+90N) →AV+J×Sin(Q)+K Sin(Q+90N) →BLbI 1“XP=”：A ◢“YP=”：B ◢“QIE XIAN FWJ=”：F ◢LbI 2“BIAN JU(m)=”SS=0＝＞Goto 0LbI 3“JIA JIAO L(-),R(+) =”EA+S Cos(F+E) →XB+S Sin(F+E) →YLbI 4“X[1]=”：X ◢“Y[1]=”：Y ◢Goto 2 FWJ=---输入交点间方位角ZHUAN XIANG L（-1），R（1）=？---输入曲线转向，左输-1，右输1R（m）=---输入曲线半径LS(m)=---输入缓和曲线长KZH=---输入ZH点桩号XZH= 、YZH=---输入ZH点坐标KP=---输入待求点桩号BIAN JU(m)=---输入边距(斜交时输入斜长),不论左右一律正值,当不计算边桩时输入OJIA JIAO L(-),R(+) =---输入边桩与中桩法线方向夹角,左边输负值,右边输正值

答案补充

5800中边桩坐标计算程序ZZZZZZ(主程序)Lb1 1:”NOI”H:Prog”Z1”换行(E-D)/Abs(G-F)→P: Abs(H-F)→Q: PQ→I换行C＋（I＋2D）×Q×90÷π→J换行C＋（I÷8＋2D）×Q×45÷（4π）→M换行C＋（3I÷8＋2D）×Q×135÷（4π）→N换行C＋（5I÷8＋2D）×Q×225÷（4π）→U换行C＋（7I÷8＋2D）×Q×315÷（4π）→V换行C＋（I÷4＋2D）×Q×45÷（2π）→K换行C＋（I÷2＋2D）×Q×45÷π→L换行C＋（3I÷4＋2D）×Q×135÷（2π）→Z换行A＋Q÷24×（cosC＋4×（cosM＋cosN＋cosU＋cosV）＋2×（cosK＋cosL＋cosZ）＋cosJ）→X换行B＋Q÷24×（sinC＋4×（sinM＋sinN＋sinU＋sinV）＋2×（sinK＋sinL＋sinZ）＋sinJ）→Y换行“X=”:X◢“Y=”:Y◢ “W L“O:"WR"R

答案补充

“XL=”:X＋O×cos（J－90）◢ “YL=”:Y＋O×sin（J－90）◢ “XR=”:X＋R×cos（J＋90）◢ “YR=”:Y＋R×sin（J＋90）◢Goto 1换行 Z1（数据库）If H≤终点桩号：Then起点桩号→F:终点桩号→G：起点X坐标→A:起点Y坐标→B：起点切线方位角→C：起点曲率→D:终点曲率→E: Goto 0:If End换行同上下一个线元要素。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。N个Lb1 0：Return换行曲率左偏为负右偏为正Return为程序命令线元要素可以用常规程序计算如有多条路数据库另建如Z2 Z3。。。等等需要使用时把主程序Z1改为Z2依次类推NOI？为要求点里程

因为路线上缓和曲线、圆曲线、直线、卵形曲线、回头曲线是不能互相使用统一参数的，而且每个程序的计算参数不一样；你的程序所需要的参数，你输入对可吗？。

你说的有两种情况：1、你输入的参数不正确。 （ 很有可能是你输入参数和程序不对应）

2、你的程序有问题。 （“万能程序” 名字好像有点夸张不靠谱）

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

F1 GL3－25PHF （K+，XY ≠ 0）输入其他进入反算。输入0时进入测站点、后视点坐标(X0,Y0,H0)、(X1,Y1)输入及两点距离(D0)、方位角(T0)输出。H0=0时，不计算竖曲线。

L1 Z［1→Q:Lbl 8:“GL3-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 CS3－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:“GL3-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

L2 While N≤Q:“N－H”？N: N＞Q=>Goto 8:？K: K→Z［4Q-1+N］:？H:H→Z［5Q-1+N］:N=1 Or N=Q=> Goto 2:？R:R→Z［6Q-2+N］:Lbl 2:WhileEnd

F3 P

L1 Prog“2”:If M=180:Then 0→T:Goto 1:IfEnd:L÷2－L^3÷240÷R2+(L2÷24÷R+R)tan(5M→T:Lbl 1:RMπ÷180+L→S:V≠0=>Goto 0:If K<A－T:Then“K+!”:K◢0→N:Goto 0:IfEnd:If G≥N And K>W－T+S:Then“K+!”:K◢0→N:Goto 0:IfEnd:If K>W－T+S:Then G+1→G:W+I－2T+S→W:－1→N:Goto 0:IfEnd:Prog“5” 警告桩号(K+!)的输入已超出范围。 测站点、放样点间的距离(Dp)、方位角(TpO)输出。放样点的坐标(Xp,Yp,Hp0)输出。

L2 X+TA－MA+NJ→X:Y +TJ－MJ－NA→Y:X－C→I:Y－D→J:Prog“Z1”:“TpO=”:J▲DMS◢“Dp=”:I◢“Xp”:X◢“Yp”:Y◢1→N:Lbl 0

F4 1

L1 If I=0 And J=0:Then 180→J:Else Pol(I,J:J<0=>J+360→J:IfEnd

F5 2

L1 O－J→M:M<0=>M+360→M:If M<180:Then 180－M→M:1→Q:Else M－180→M:－1→Q:IfEnd

F6 3

L1 90(2I－L)÷π÷R→A:RsinA+L÷2－L∧(3)÷240÷R2→M:L2÷24÷R+R(1－cosA→N:A－J→A:M－QBcosA→M:QN－BsinA→N

F7 4 (缓和段计算：可适当选取2至6项，当无缓和曲线时，可仅选1项，以减少字节。)

L1 RL→A:I－I∧(5)÷40÷A2+ I∧(9)÷3456÷A∧(4)－I∧(13)÷599040÷A∧(6)+I∧(17)÷175472640÷A∧(8)－I∧(21)÷78033715200÷A∧(10→M

L2 I∧(3)÷6÷A－I∧(7)÷336÷A∧(3)+I∧(11)÷42240÷A∧(5)－I∧(15)÷9676800÷A∧(7)+I∧(19)÷350096640÷A∧(9)－I∧(23)÷1880240947200÷A∧(11→N: 90I2÷π÷A－J→A:M－Qbcos(A→M:QN－Bsin(A→N

F8 5

L1 K－W+T→I:Z→J:If I<S－L:Then If I≤0:Then I+Bcos(Z→M:BsinZ→N:Goto 2:IfEnd:Q=1=>180－Z→J:If I≤L:Then Prog“4”:Else Prog“3”:IfEnd:Lbl 2:O→J:Goto 3:IfEnd:S－I→I

L2 If I≤0:Then I－Bcos(Z→M:－Bsin(Z→N:Else Q≠1=>180－Z→J:Prog“4”:－N→N:IfEnd:U→J:Lbl 3:cos(J→A:sin(J→J

F9 H （不需要计算中桩高程时，可取消此子程序） 警告桩号(K+!)的输入已超出范围

L1 Prog“2”:If M=180:Then 0→T:Goto 1:IfEnd:Rtan(5M→T:Lbl 1:If K< Tsin(O+A:Then“K+!”:K◢Goto 0:IfEnd:If G≥N And K>W－Tsin(O:Then“K+!”:K◢Goto 0:IfEnd:If K>W－Tsin(O:Then G+1→G:－1→N:Goto 0:IfEnd

L2 U+Tcos(O+Rcos(O－90Q→M:W+Tsin(O+Rsin(O－90Q→N:K－W－Tsin(O→L:If L≤0:Then U+(T+L÷sin(O))cos(O→H:“Hp0=”:H◢Goto 0:IfEnd:M+Q√(R2－(K－N)2)→H:“Hp0=”:H◢Lbl 0 中桩高程输出（Hp0=）

F10 F （不需要反算时，可取消此子程序） 转点半径为0时可能输出的两种桩号、偏离距离（K1+=、K2+=、Sp1=、Sp2=）情况

L1 Z－O→I:U－Z→J:IF Abs(I≤90:Then If T≤Pcos(I:Then W－Pcos(I→K:－Psin(I→B:If Abs(J≥90:Then Goto 9:Else“K1+=”:K◢“Sp1=”:B◢IfEnd:IfEnd:IfEnd:IF Abs(J≤90:Then If T≤Pcos(J:Then W－2T+S+ Pcos(J→K:－Psin(J→B:If Abs(I≥90:Then Goto 9: Else“K2+=”:K◢“Sp2=”:B◢Goto 0:IfEnd:IfEnd:IfEnd:If Pol(C－X－Tcos(O)，D－Y－Tsin(O))<Pol(C－X－Tcos(U)，D－Y－Tsin(U)):Then－1→H:Else 1→H:IfEnd:(R+L2÷24÷R)÷cos(5M→N:O－Q(90－5M→J:C－X－Ncos(J→I:D－Y－Nsin(J→J:Prog“1”

L2 cos-1((I2+N2－P2)÷2÷I÷N→N:If N≤5M－90L÷π÷R:ThenW－T+5S+HπNR÷180→K:Q(R－I→B:Goto9:IfEnd:If L=0:Then－2→N:G+H→G:Goto 0:IfEnd:“ZHY－100!－YHZ”◢0→B:0→Z警示准备进入缓和段的桩号反算，计算约需100秒。

L3 If H=－1:ThenW－T→E:E+L→G:ElseW－T+S→E:E－L→G:IfEnd:Lbl8:Z+1→Z:(E+G)÷2→F:Z=1=>E→K:Z=2=>F→K:Z=3=>G→K:Prog“5”

L4 C－X－TA+MA－NJ→I:D－Y－TJ+MJ+NA→J:C－I→M:D－J→N:Prog“1”

L5 If Z=1:Then I→P:Goto 8:IfEnd:If Z=2:Then I→V:Goto 8:IfEnd:If Abs(E－G>1μ:Then If P>V And P>I:then F→E:0→Z:Goto 8:IfEnd:If I>P And I>V:Then F→G:0→Z:Goto 8:IfEnd:IfEnd:F→K:I→B:J→V

L6 If H=－1:Then X+Tcos(O)－M→I:Y+Tsin(O)－N→J:Else X+Tcos(U)－M→I:Y+Tsin(U)－N→J:IfEnd:Prog“1”:J→O:V→J:Prog“2”:－HQB→B:Lbl 9:“K+=”:K◢“Sp=”:B◢N=0:Lbl 0 反算桩号、偏离距离输出（K+=、Sp=）

全站仪后方交会（两已知点，任意设站，观测两边多余一角可计算测站点坐标）

F D1�6�1D2–XY

L1 “X1”？C:“Y1”？D:“X2”？E:“Y2”？F:(E–C）2+（F–D）2→M:“D1”？S:T“D2”:“Ap°”？U

L2 cos -1（（M+S 2–T 2）÷2÷S÷√(M→V:cos -1（（M+T 2–S 2）÷2÷T÷√(M→W

L3 180–U–V–W→P:If Abs(P≥0°0°30°:Then“Μp°！”:P▲DMS◢IfEnd:1÷tan（V→V:1÷tan（W→ W

L4 （CW+EV+D–F）÷（V+W→X:（DW+FV+E–C）÷（V+W→Y:“Xp=”:X◢“Yp=”:Y

两线交点、坐标变换

F L×L�6�1XY–AB

L1 “0–1–2=>L×L�6�1X–A�6�1A–X”？I:If I=0:Then Lbl 0:“XA-1”？C:“YA-1”？D:“XA-2”？E:“YA-2”？F:C–E→K:D–F→L:“XB-1”？O:“YB-1”？P:“XB-2”？Q:“YB-2”？R:O–Q→M:P–R→N

L2 （K（OR–QP）–M（CF–ED））÷（ML–KN→X:“Yp”:（LX+CF–ED）÷K→Y:“Xp”:X◢“Yp”:Y◢Goto 0:IfEnd

L6 If I=1:Then“X0”？C:“Y0”？D:“T°=”？J:Lbl 1:“Xp=”？E:“Yp=”？F:（E–C）cos(J)+（F–D）sin(J)→A:（F–D）cos(J)–（E–C）sin(J)→B:“Ap=”:A◢“Bp=”:B◢Goto 1:IfEnd

L7 If I=2:Then:“X0”？C:“Y0”？D:“T°=”？J:Lbl 2:E“Ap=”:F“Bp=”:C+Ecos(J)–Fsin(J→X:“Xp=”:X◢D+Esin(J)+Fcos(J→Y:“Yp=”:Y◢Goto 2:IfEnd

坡顶开挖线放样程序

F P�6�1D�6�1×–– H0、H0×为任意点（下点）的设计、地面高程，S0×、H1δ为坡度方向到另外1点（上点）的距离、高程，i设计的坡度，上点平移⊿Sp距离后到达坡顶开挖线。

L1 “H0=”？H:“H0×=”？M:“S0×=”？P:“H1δ=”？N:“i=”？I:P（（M–H）÷（M–N+P×I）–1→S:B=P+S:“◢Sp=”:S

地形图等分线程序

F H1-0�6�15-H2

L1 Lbl 0:“H1”？A:“H2”？B:“S0”？S:（A–B）÷S→K

L2 10A–10 Int A→L:If L-5≥0:Then L–5→L:01L÷K→E:“S1=”:E◢05÷K→F:“Sn=”:F◢Int（KS÷05→G:“N=”:G◢Goto 0:IfEnd

方格网4点求格交点高程程序

F H1-H4�6�1�6�1S0-3

L1 “H1”？A:“H2”？B:“S01”？K:“SP1”？L: A+(B-A)L÷K→E:“H3”？C:“H4”？D:“S02”？M:“SP2”？N: C+(D-C)N÷M→F:“S03”？O:“SP3”？P:E+(F-E)P÷O→H:“H=”:H

方格网2点求格交点高程程序

F H1－H2�6�1�6�1S0－2

L1 “H1”？A:“H2”？B:“S0”？L:“S1”？M:A+(B-A)M÷L→H:“H=”:H

卵形曲线其实是同向的、两个不同半径的圆曲线相连的一种型式。其特点在于，在两个不同曲率半径（分别是R1、R2）的圆曲线之间，用一条缓和曲线Lf进行过渡，而Lf缓和曲线的曲率半径则是从R1过渡到R2，这样，卵形曲线的两圆曲线之间的过渡方式比C型曲线要好。

解决卵形曲线计算的思路很简单，我们把卵形曲线分解成两个基本型曲线：

把半径较大的那个曲线分离为基本型曲线1，这是一个一侧不带缓和曲线的不对称基本型曲线

把半径较小的那个曲线分离为基本型曲线2，这个曲线带Lf缓和曲线的那一侧，将不完整缓和曲线Lf恢复成一个完整缓和曲线，从而也变成一个基本型曲线。

通过有效计算范围的定义，把恢复后的完整缓和曲线的坐标计算限定在Lf范围内。

你求5800的程序，一般不会有人给你的，因为那都是个人的压箱底货，不会轻易转赠

建议你在网上搜索一些线元法程序，一般都能解决卵形曲线

你也可以留下****，我帮你算数据

以上就是关于关于casio5800 程序 QH2-8全部的内容，包括:关于casio5800 程序 QH2-8、卡西欧5800输入程序显示错误怎办、fx5800，自编万能道路线性计算程序，正算主程序由缓和曲线推出，但是输入到计算器里面为什么只能算圆曲线等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！