可以给我个卡西欧5800计算器公路高程计算程序吗

（坐标正反算，程序模块化设计,可自行升级，扩展功能）

建议录入程序次序

KEYLOCK　 锁键程序　可独立测试能正常运行　1

DISPLAYXYZ主程序可独立测试能正常运行　2

READDAT要素数据库文件　（请改为自已路线的要素）　3

ZBJS 坐标计算程序　4

INZHANDZBJS桩号、横距输入程序　5

TURNZH　坐标反算6

INNEZ实测坐标输入程序7

如正确输入以上程序，运行DISPLAYXYZ，按“0”进行坐标反算，按“”进行坐标正算。

技术支持：Q285507730

FileName:INZHANDZBJS

//:桩号、横距输入程序://

Lbl S

Cls:Norm 1

"ZH"G ;桩求桩号

"JL"B ;输入横向距离

"JJ"W ;输入斜桩角，一般为90

Wπ÷180→W

Prog"ZBJS" ;080702晚添加

Return

FileName：ZBJS 坐标计算程序

Prog"READDAT"

Rad

G-M→Q

05(R-A)÷L→K

AQ→I

KQ2→J

00469100770→P:H+IP+JP2→O

02307653449→P:H+IP+JP2→T

05→P :H+IP+JP2→D

07692346551→P:H+IP+JP2→F

09530899230→P:H+IP+JP2→P

01184634425→I

02393143352→J

02844444444→Y

N+Q(ICos(O)+JCos(T)+YCos(D)+JCos(F)+ICos(P))→X

E+Q(ISin(O)+JSin(T)+YSin(D)+JSin(F)+ISin(P))→Y

H+AQ+KQ2→F

X+BCos(F+W)→X

Y+BSin(F+W)→Y

Return

FileName:TURNZH(坐标反算)

Prog"INNEZ"

0→B：M+L÷2→G：Prog"ZBJS"

Lbi S:Rad

U-X→I:V-Y→J

If I=0 And J=0 :Then Goto A:IfEnd

Pol(I,J)

Lbi A:Rec(I,J-F)

G+I→G:IF Abs(I)>00001 :Then Prog"ZBJS":Goto S↙

J→B

FileName：INNEZ 实测坐标输入程序

Lbl S

Norm 1:Cls

"DQD-N"U 输入待求点N坐标

"DQD-E"V 输入待求点E坐标

Return

FileName:KEYLOCK

//:本程序用于锁定键盘大部分按键，设定时间内无按键则反回默认健。只有“0”，“”,“x10x”,“(-)”这四个键可用，为了更方便说明程序，以后将分别定义这四个键为热键

“0” ===F1

“” ===F2

“x10x” ===F3

“(-)” ===F4

Exit 退出程序

://

1000→J ;无按键时间，5800设1000时大约为50秒。

Lbl S

0→I

Do:I+1→I:I≥J=>Goto E:LpWhile Not(Getkey=25 Or Getkey=26 OrGetkey=27 OrGetkey=57 OrGetkey=73)

Getkey=73=>Stop ;停止全部程序

Getkey=0=>Goto S

Getkey→I:Return

Lbl E

57→I:Retrutn ;默认按键值为F4

FileName:DISPLAYXYZ

//:<主程序>,显示：桩号，N，E，Z，横向偏移。

热键功能

F1 快捷坐标反算

F2 快捷坐标正算

F3

F4

://

7→DimZ

Z[1]→N　当前分段要素N坐标

Z[2]→E　当前分段要素E坐标

Z[3]→M　当前分段要素起点桩号

Z[4]→H　当前分段要素起点方位角（正北）单位：弧度

Z[5]→A　当前分段要素起点曲率有左偏负右偏正（注意不是半径）

Z[6]→R　当前分段要素终点曲率有左偏负右偏正（注意不是半径）

Z[7]→L　当前分段要素长度

Lbl S:Cls:Fix 3

"ZH=":Locate 4,1,G

"N=":Locate 3,2,X

"E=":Locate 3,3,Y

"Z":Locate 2,4,Z　注意，本程序无高程计算。所以这句无意义。

Locate 10,4,B

Prog "KEYLOCK"

If I=25:Then Prog "TURNZH":Goto S:IfEnd ;定义F1功能

If I=26:Then Prog "INZHANDZBJS":Goto S:IfEnd ;定义F2功能

Goto S

FileName:READDAT　要素数据库文件

π÷180→J

GM+L=>Goto 1

Return

Lbi 1

If G<30008396:Then Cls:Stop:IfEnd↙ ;判断待求桩号是否小于本要素起点，如小于就停止运行程序

If G<30661038(终点里程):Then 2851422090(起点X)→N:513896440(起点Y)→E:30008396→M:213°32′52″J(起点方位角)→H:0 (起点曲率)→A:0(终点曲率)→R:652642起点至终点长度→L:Goto E:IfEnd↙

If G<30921038:Then 2850878162→N:513535768→E:30661038→M:213°32′52″J→H:0→A:1÷1300→R:260→L:Goto E:IfEnd↙

If G<31426367:Then 2850666478→N:513385004→E:30921038→M:219°16′39″J→H:1÷1300→A:1÷1300→R:505328→L:Goto E:IfEnd↙

If G<31686367:Then 2850346483→N:512998015→E:31426367→M:241°32′56″J→H:1÷1300→A:0→R:260→L:Goto E:IfEnd↙

If G>31686367:Then Cls:Stop:IfEnd↙ ;判断待求桩号是否大于本要素终点，如大于就停止运行程序

Lbi E

N→Z[1]:E→Z[1]:M→Z[3]:H→[4]:A→Z[5]:R→Z[6]:L→Z[7] ;记忆当前要素以免重复搜索

Return

工程测量(1)小写o为大写字母“O”，与零区分。(2)程序中没有空格符号。 1、坐标正算 〝X0=〞X：〝Y0=〞Y：〝I=〞I：〝J=〞J X+ICos(J)→U：Y+ISin(J)→V 〝X=〞：U◢ 〝Y=〞：V◢ 说明：X0 Y0：已知点坐标，I：两点的距离，J：方位角 ２、坐标反算 Lbl 0 〝X1=〞X：〝Y1=〞Y：〝X2=〞U：〝Y2=〞V Pol(U-X，V-Y)： J<0J+360→J 〝I=〞：I◢ 〝J=〞：JDMS◢ Goto 0 说明：X1Y1：第一点的坐标，X2Y2第二点的坐标，I：两点的距离，J：方位角 ３、圆曲线 〝X0=〞X：〝Y0=〞Y：〝FWJ=〞D：〝QDHAO=〞G：〝ZDHAO=〞C：〝R=〞R Lbl 1 〝DQHAO=〞L L<G Or L﹥CGoto 2 〝PY=〞K 180(L-G)÷(πR)→E 2Rsin(05E)→F Rec(Abs(F)，D+05E) 〝X=〞：X+I+Kcos(D+E+90)→A◢ 〝Y=〞：Y+J+Ksin(D+E+90)→B◢ D+E→o：o<0360+o→o 〝FWJ=〞：oDMS◢ Goto 1 Lbl 2 〝END〞 说明：X0Y0：起始点的坐标，FWJ：起始点的方位角，QDHAO：起点里程，ZDHAO终点里程，R：半径，DQHAO：待求点里程，PY：偏移量 ４、竖曲线 〝QZHAO =〞J：〝HB〞=B：〝I1=〞C：〝I2=〞D：〝R=〞R：〝T=〞T： ((D-C)÷100)÷Abs((D-C)÷100)→A：Abs(05R(D-C)÷100)→S 〝T〞：S◢ J-T→X J＋T→Y Lbl 0 〝DQ=〞L If L<X：Then Goto1：Else If L﹥Y：Then Goto1：If End：If End 〝GC=〞：B+C(L-J)÷100+A(L-J+T)2÷(2R)→H◢ Goto 0 Lbl 1 〝END〞 说明：QZHAO：竖曲线中点里程，HB：交点高程（不是交点路面高），I1：第一坡度，I2：第二坡度，R：半径，T：切线长，DQ：待求点里程。 5．正算偏移 〝X0=〞A：〝Y0=〞B：〝FWJ=〞D： Lbl 0 〝LS=〞L：〝PY=〞C Rec(L，D) 〝X=〞：A+I+Ccos(D+90)→X◢ 〝Y=〞：B+J+Csin(D+90)→Y◢ Goto 0 说明：X0 Y0：已知点坐标，LS：两点距离（里程之差），FWJ：方位角 6万能公式 〝X0=〞A：〝Y0=〞B：〝FWJ=〞C：〝1÷R-QD=〞D：〝1÷R-ZD=〞E： 〝QDHAO=〞F：〝ZDHAO=〞G Lbl 1 〝DQHAO=〞H：〝PY=〞o If H<F：Then Goto 2：Else If H﹥G：Then Goto 2：If End：IfEnd (E-D)÷Abs(G-F)→P：Abs(H-F)→Q：PQ→I：C+90Q(I+2D)÷π→J：C+45Q(I÷8+D)÷π→M：C+135Q(3I÷8+D)÷π→N：C+45Q(I÷2+2D)÷π→K A+Q(cos(C) +4(cos(M)+cos(N))+2cos(K)+cos(J))÷12→U： B+Q(sin(C)+4(sin(M)+sin(N))+2sin(K)+sin(J))÷12→V 〝X=〞：U+oCos(J+90)→X◢ 〝Y=〞：V+oSin(J+90)→Y◢ 〝FWJ=〞：JDMS◢ Goto 1 Lbl 2 〝END〞 说明：X0Y0：起始点坐标，FWJ：起始点方位角，1÷R-QD：起始点曲率，1÷R-ZD终点曲率，QDHAO：起点里程，ZDHAO终点里程，DQHAO：待求点里程，XY：待求点坐标

在fx-5800中，字母变量 I 和 J 专用于储存极坐标函数 Pol() 的计算结果：距离赋值给 I ，角度赋值给 J，所以，在编程中一般不用字母 I 和 J，以免重复赋值使程序计算出错

字母 I 和 J 不用定义，只要有极坐标运算，系统便自动赋值定义

FX4800P常用测量程序集

1、由一个已知点坐标和一个已知方位角计算支导线坐标（程序名：ZBJS）

程序清单：

X：Y：T：Lb1 0：Fixm：{AS}：T=T+A-180：T〈0 =〉T=T+360⊿ T〉360 =〉T=T-360⊿T◢

X=X+Scos T◢

Y=Y+Ssin T◢

Goto 0

程序运行说明：

运行“ZBJS”，每运行一步按EXE键一次，显示X？时输入已知点X坐标，显示Y？时输入已知点Y坐标，显示T？时输入已知点由后视到前视的已知坐 标方位角，运行一次本程序只需输入一次已知数据。显示A？时输入第一个左转角值，显示S？时输入测站到前视的水平距离。接下来计算器显示的T是测站到前视的坐标方位角，按 + 可将显示的十进制角度换算为度分秒。如此继续可计算出所有支导线未知坐标。

2、由两个已知点坐标计算支导线坐标（程序名：ZBJS2）

程序清单：

M“X0”：N“Y0”：D“XH”：E“YH” �6�8

Pol(M-D，N-E)：Fixm：T=J：X=M：Y=N：T〈0=〉T=T+360⊿T“TH-J=” ◢

I“S=”◢

Lb1 0:{AS}: T=T+A-180：T〈0 =〉T=T+360⊿ T〉360 =〉T =T-360⊿T◢

X=X+Scos T◢

Y=Y+Ssin T◢

Goto 0

程序运行说明：

运行后，显示X0，Y0时输入已知置镜点坐标，显示XH，YH时输入已知后视点坐标，其它同ZBJS的输入与显示。

3、由一个已知点坐标和一个已知方位角进行放射型导线坐标计算（程序名FSXZBJS）

程序清单：

C“X0”：D“Y0”：E“T0”：Fixm：Lb1 1:{SA}�6�8

T=E+A-180：T〈0=〉T=T+360⊿ T〉360 =〉T=T-360⊿T◢

X=C+Scos T◢

Y=D+Ssin T◢

Goto 1

程序运行说明：

变量输入参照ZBJS程序。

4、由两个已知点坐标进行放射型导线坐标计算（程序名FSXZBJS2）

M“X0”：N“Y0”：D“XH”：E“YH” �6�8

Pol(M-D，N-E)：Fixm：F=J：X=M：Y=N：F〈0=〉F=F+360⊿F“TH-J=” ◢

I“S=” ◢

Lb1 1:{SA}�6�8

T=F+A-180：T〈0=〉T=T+360⊿ T〉360 =〉T=T-360⊿T◢

X=X+Scos T◢

Y=Y+Ssin T◢

Goto 1

5、坐标计算优化程序（可进行连续式（LX）、放射式（FS）已知一点（1-D）或者两点（2-D）进行坐标计算）：

V“1=>LX，≠>FS”：W“1 =>1-D≠>2-D”：W=1=> Goto 1:≠> Goto2�6�8

Lb1 1：F“X0=”：G“Y0=”：H“T H-0=”：Goto 3�6�8

Lb1 2:F“X0=”：G“Y0=”：M“XH=”：N“YH=”:Pol(F-M，G-N)：Fixm: J〈0=〉J=J+360⊿H=J：H“TH-0=”◢

I“S-H=”◢

Goto 3�6�8

Lb1 3: X=F：Y=G：T=H ： V=1=> Goto 4:≠> Goto 5�6�8

Lb1 4: {AS}: A:S:T=T+A-180：T〈0 =〉T=T+360⊿ T〉360 =〉T =T-360⊿T◢

X=X+Scos T◢

Y=Y+Ssin T◢

Goto 4

Lb1 5：{AS}:A:S

T=H+A-180：T〈0=〉T=T+360⊿ T〉360 =〉T=T-360⊿T◢

X=F+Scos T◢

Y=G+Ssin T◢

Goto 5

6、已知置镜点坐标和置镜点到后视点坐标方位角求放样角度和放样距离的放样程序（程序名FY1）

程序清单：

F“X0”：G“Y0”：H“T0-H”：Fixm：Lb1 1:{XY}�6�8

Pol(X-F，Y-G) �6�8

J〈0 =〉J=J+360⊿A=J-H�6�8

A〈0 =〉A=A+360⊿A“A=” ◢

I“S=” ◢

Goto 1

程序运行说明：

变量输入参照坐标计算，A=为放样顺时针角度，S=为放样距离。

7、已知置镜点和后视点坐标进行放样（FY2）

程序清单：

F“X0”：G“Y0”：M“XH”：N“YH”�6�8

Pol(M-F，N-G)：Fixm：H=J�6�8

H〈0=〉H=H+360⊿H“T-H=”◢

I“S-H=” ◢

Lb1 1:{XY}: Pol(X-F，Y-G) �6�8

J〈0 =〉J=J+360⊿�6�8

A=J-H�6�8

A〈0 =〉A=A+360⊿A“A=”◢

I“S=” ◢

Goto 1

8、放样优化程序（可分已知一点或者两点坐标进行放样角度距离的计算）

程序名“FY”

程序清单：

I“I=1 =>1-D≠>2-D”�6�8

I=1=> Goto 1:≠> Goto2�6�8

Lb1 1：F“X0”：G“Y0”：H“T0-H”：Goto 3�6�8

Lb1 2：F“X0”：G“Y0”：M“XH”：N“YH”:Pol(M-F，N-G)：Fixm:J〈0=〉J=J+360⊿H=J:H“T-H=”◢

I“S-H=”◢

Goto 3�6�8

Lb1 3：{XY}�6�8

Pol(X-F，Y-G) ：Fixm �6�8

J〈0 =〉J=J+360⊿A=J-H�6�8

A〈0 =〉A=A+360⊿A“A=” ◢

I“S=” ◢

Goto 3

程序运行说明：

变量输入参照坐标计算，A=为放样顺时针角度，S=为放样距离。

9、已知两点坐标，反算两点之间的坐标方位角和距离（程序名ZBFS）

程序清单：

A“X1=”：B“Y1=”：C“X2=”：D“Y2=”：P ol（C-A，D-B）：Fixm：J〈0 =〉J=J+360⊿J“T（1-2）=” ◢

I“S（1-2）=”

10、分别已知两条直线上一点的坐标和坐标方位角，求这两条直线的交点坐标（程序名JDZB）

程序清单：

X=（tan A“T1”×B“X1”-C“Y1”-tan D“T2” ×E“X2”+F“Y2”） V÷（tan A- tan D）◢

Y= tan A（X-B）+C

11、直线线路坐标计算（ZXXY）

程序清单：

V“X0=”：W“Y0=”：T“T0=”：U“K0=”：Lb1 0：Fixm：{KD}：X=V+（K-U）cos T+D×cos(T+90)◢

Y=W+（K-U）sin T+D×sin(T+90)◢

Goto 0

程序运行说明：

已知某一直线线路上一点的坐标为X0，Y0，该点里程为K0以及该直线沿前进方向的坐标方位角T0，按照提示输入以上数据，如果输入某一里程K和法线外移距离D（向右移为正值，向左移为负值）即可计算出该里程点的法线外移桩坐标X、Y，当D=0时计算结果为中桩坐标。

12、“缓+圆+缓”型曲线坐标计算

主程序（QXJS）

程序清单：

Prog “BQXYS”：Q“K—ZH”：F“ZHX=”：G“ZHY=”：N“TZH—JD”：I“（Y1，Z-1）” �6�8

Lbl 1:Fixm:{KD}:K“LICHENG=”：D“WAIYI=（Z-，Y+）”：Goto2�6�8

Lbl 2:K Goto3:≠> Goto4�6�8

Lbl 3:“K—OVER”: Goto1�6�8

Lbl 4:K>Q+L => Goto3:≠> Goto5�6�8

Lbl 5:K≤Q+B => Goto6:≠> Goto7�6�8

Lbl 6:S=K-Q：W=B：Prog “HQXY”：O=N+I×90S2÷(Л RB)：O<0 => O=O+360⊿O>360 => O=O-360⊿O“FANGWEI=” ◢

X=UcosN-VsinN+F+D×cos(O+90) ◢

Y=VcosN+UsinN+G+D×sin(O+90) ◢

Goto1�6�8

Lbl 7：K≤Q+L-C => Goto8:≠> Goto9�6�8

Lbl 8:S=K-Q：O=N+I×90(2S-B)÷(Л R)：O<0 => O=O+360⊿O>360 => O=O-360⊿O“FANGWEI=” ◢

Prog “YQXY”：X=UcosN-VsinN+F+D×cos(O+90) ◢

Y=VcosN+UsinN+G+D×sin(O+90) ◢

Goto1�6�8

Lbl 9: S= Q+L-K：W=C：Prog “HQXY”：E=N+IA+180：O=E-I×90S2÷(Л RC)+180：O<0 => O=O+360⊿O>360 => O=O-360⊿O“FANGWEI=”◢

V=-V�6�8

X=(U-H)cosE-VsinE+F+T cosN+D×cos(O+90) ◢

Y=VcosE+(U-H)sinE+G+T sinN+D×sin(O+90) ◢

Goto1�6�8

子程序“BQXYS”

A:R:B“L01”:C“L02” �6�8

M“M1”=B÷2-B3÷（240 R2）◢

J“M2”=C÷2-C3÷（240 R2）◢

P“P1”= B2÷（24 R）- B4÷（2688 R3）◢

Z“P2”= C2÷（24 R）- C4÷（2688 R3）◢

T“T1”=M+（R+P）tan(A÷2)+(Z-P) ÷sinA◢

H“T2”=J+（R+Z）tan(A÷2)+( P-Z) ÷sinA◢

L= B÷2+C÷2+A RЛ÷180◢

E= ◢

子程序“HQXY”

U=S-S5÷(40R2 W2)+ S9÷(3456 R4 W4)-S13÷(599040R6 W6):V=I×(S3÷(6RW)- S7÷(336 R3 W3) +S11÷(42240 R5 W5))

子程序“YQXY”

U=Rsin(180(S-B÷2)÷Л÷R)+M:V=I×(R×(1-cos(180(S-B÷2)÷Л÷R))+P)

程序说明：本程序可以计算等长和不等长“缓+圆+缓”型曲线或者单圆曲线的中线坐标、外移桩坐标以及中线的切线方位角。

先将主、子程序存入计算器，然后运行主程序“QXJS”，输入A（曲线偏角），曲线半径R，第一缓和曲线长L01，第二缓和曲线长L02，（等长缓和曲线时L01= L02），然后显示曲线逐要素，接着输入ZH坐标（ZHX，ZHY），ZH到JD坐标方位角TZH—JD，当曲线为左偏时（Y1，Z-1）输-1，右偏输1，输入计算里程K，外移距离D，计算中桩时D输0，计算左边桩时D输负数，算右边桩时D输正数，当所输里程不在本曲线计算范围内时，屏幕显示K—OVER，继续输入有效里程可继续计算。

对于单圆曲线，缓和曲线长输入0。

本程序缓和曲线X计算取了4项，Y计算取了3项，一般的曲线计算精度都可达到mm级。

13、采用积分进行任意曲线线路坐标计算程序（直线、圆曲线、卵型曲线）

程序名“XLJS”

程序名“XLJS”(V11，2005年12月7日星期三升级于秦岭公司)

G“XJ=”：H“YJ=”：R“XH=”：S“YH=”：A“XA=”：B“YA=”：C“TA=”：E“1÷RA ,Z-，Y+”：P“KA=”�6�8

Lbl 1：{FQ}：F“1÷RB, Z-，Y+”：Q“KB=” �6�8

Lbl 2：{V}：V“K=”：O=V：O

Goto3：≠> Goto4�6�8

Lbl 3：“K-SMALL”：Goto2�6�8

Lbl 4：O>Q => Goto5：≠> Goto7�6�8

Lbl 5：{I}：I“I=1=>ESC≠>NEXT”：I=1=> Goto2：≠> Goto 6�6�8

Lbl 6：“JISUAN：A-TXY”：V=Q：Z=0：D=0：Goto8�6�8

Lbl 7: {DZ}：Z“JIA-JIAO=”：D“WAIYI=（Z-，Y+）”�6�8

Lbl 8：T=C+90÷Л×（2E+（F-E）（V-P）÷（Q-P））（V-P）：T〈0=〉T=T+360⊿ T〉360 =〉T=T-360⊿�6�8

Rad：W=A+∫（cos（C°+05×(2E+(F-E)(X-P)÷(Q-P))(X-P)）,P,V,4）+ D×cos(T°+Z°) �6�8

Y=B+∫（sin（C°+05×(2E+(F-E)(X-P)÷(Q-P))(X-P)）,P,V,4）+ D×sin(T°+Z°)：Deg：Goto9�6�8

Lbl 9：O≤Q => GotoB：≠> GotoA�6�8

Lbl A：A=W：B=Y：C=T：E=F：P=Q： Goto1�6�8

Lbl B： W“X=”◢

Y“Y=”◢

T“T=”◢

Pol(R-G，S-H)：Fixm：M=J：Pol(W-G，Y-H) ：J=J-M�6�8

J<0 =>J=J+360⊿J>360 =>J=J-360⊿J“A=”◢

I“S=”◢

Goto 2

程序积分式中“°”的编辑输入为：“FUNCTION”键+5（DRG）+4（°）。

程序功能

由于程序根据线路曲线坐标计算通用数学模型编制，所以，对于任意线型的一段线路曲线（直线、圆曲线可看作是通用计算模型的特例），只要输入曲线信息和测站信息，都可以迅速地计算出该曲线上任意里程点处的切线方位、中桩或与该里程切线成任意夹角的外移桩坐标、极坐标法放样的角度和距离。

程序运行

运行程序“XLJS”，按提示输入置镜点坐标（XJ，YJ），后视点坐标（XH，YH），曲线起点A的坐标（XA，YA）、沿线路前进方向的切线方位角TA、里程KA、曲率（直接在计算器上以1÷RA的形式输入，R表示半径，左偏曲线输负值右偏曲线输正值），继续输入终点B的曲率（1÷RB输入同A点）、里程KB。当屏幕显示“K=？”时，输入该段曲线要计算放样数据的里程值，按提示输入夹角“JIA-JIAO”（夹角的范围为0-180度）和外移量“WAIYI”，“JIA-JIAO”值为该里程自线路前进方向的切线方位角顺时针至该里程中桩与右边桩连线间的角度，当为法线方向时JIA-JIAO为90度，“WAIYI”值中桩左侧输负值右侧输正值，计算中桩时“WAIYI”值输0即可，按“EXE键”屏幕即可依次显示计算中桩或外移桩的坐标、中桩切线方位角、放样角度A，放样距离S。

程序的输入输出都按通俗易懂的提示或测量习惯显示，为确保计算结果无误，编制程序时专门设置了错误里程输入提示，当输入的计算里程K小于该曲线起点里程时，程序将提示里程太小“K-SMALL”，继续输入正确的里程，当第一条曲线计算完毕需计算紧接的第二条曲线时，只需要给K输入一个大于第一曲线终点里程的里程值，这时屏幕显示“I=1=>ESC≠>NEXT”，如果不小心误输入一个大于终点里程的K时（ESC表示取消），可输入1“取消” *** 作，继续计算当前曲线，如果确认要计算下一曲线（NEXT表示要计算下一曲线），输入一个不等于1的数值，接下来屏幕将显示“JISUAN：A-TXY”，程序将自动计算第二曲线的起点信息，接着自动提示输入第二曲线终点的曲率和里程，当显示“K=？”时，即可进行第二曲线放样数据的计算。依次类推，直至计算完所有需计算的曲线中、边桩坐标和放样数据。

迁站时，直接按“AC”键终止程序的运行，到新的测站后重新运行“XLJS”，输入新的测站点、后视点坐标并保持原曲线参数不变即可。

当遇到线路曲线的曲率发生突变（如直线直接接圆曲线或者两个不同半径的圆曲线直接相接）的特殊情况时，可以将突变点两侧的曲线分开单独进行计算，也可以在突变点处增加输入一段微小长度的回旋线把突变点两侧的曲线连接起来，增加一段长度为00001米长度的回旋曲线，不会影响计算结果的精度。比如某直线直接连接半径为R的圆曲线，计算完直线段需要接着计算圆曲线时，先输入微小长度的回旋线（1/RB=1/R，KB=直线终点里程+00001），然后再输入圆曲线的终点曲率和里程即可继续计算。两个不同半径（半径分别为R1，R2）的圆曲线直接相接时，先输入微小长度的回旋线（1/RB=1/R2，KB=第一圆曲线终点里程+00001），然后输入第二圆曲线终点的曲率和里程即可。

有时会遇到逆向测设曲线情况，即从大里程方向向小里程方向测设曲线，采用本程序进行计算时，只需将曲线倒过来进行输入即可，这时，输入和计算的量都应反号（只有“JIA-JIAO”值符号保持不变），曲线偏角反号输入（左偏变为右偏，右偏变为左偏），曲线里程输入时按负值对待，计算右边桩时外移量为负，左边桩时外移量为正（与正向刚好相反）。

14、四等水准测量记录计算程序（红黑面常数为4687、4787）

Lbl 0:“H4687=>I=1”: Fixm: {IABCD}：I=1=> Goto1: ≠> Goto2�6�8

Lbl 1:U=4687:W=4787: Goto3: Lbl 2:U=4787:W=4687: Goto3: Lbl 3:

G“H1”=A“HOU1”-B“QIAN1”◢

E“V2”=B-C“QIAN2”+W◢

F“V1”=A-D“HOU2”+U◢

P“H2”=D-C◢

H=（G+P+W-U）÷2

程序按后-前-前-后的观测顺序编制，当后尺为4687时I赋值1，否则赋不等于1的值。

15、高斯抵偿高程投影面边长改正计算FX-4850程序

E“YI-CHANG：hm=”：F“DI-CHANG：Hm=”�6�8

Lbl 1:{HYS}：H“PING-JUN：Hp=”:Y“PING-JUN：Ym =”:S“GUAN-CE:S=”:V=-S×(H+E-F)÷(6371000+H+E)×1000:W=S×Y2÷(2×63712)×1000:D=S+( V+W)÷1000�6�8

“V1=”:V◢

“V2=”:W◢

“D=”:D◢

Goto 1

说明：该程序可计算高斯投影或抵偿高程面高斯投影的边长投影，hm为异常高程值，当设计资料中没有提供或者未知时取hm=0，即认为高程异常可忽略，Hm为抵偿高程，当没有设抵偿高程面时取Hm=0，即为一般的高斯投影。S为观测水平距离，Hp为导线边两端高程概略平均值（m），Ym为导线边两端点Y坐标平均值减去500公里后的平均值（Km），D为改正到高斯投影面后的边长（m）。

hm=0，Hm取隧道平均高程面高程，Ym=0时，为计算隧道平均高程面的投影改正。

1首先排除病毒原因，使用杀毒软件,比如最新版本的360杀毒快速查杀3－5分钟，根据检查结果，点击立即处理。

2如果应用程序出错的提示是缺少某个文件，那就可能是这个文件损坏，根据这个组件查询是哪个系统组件损坏，重新安装相关组件，恢复程序文件，一般即可解决。

3若是相关软件自身的组件缺失，只需要重新安装这个软件即可。比如运行迅雷时提示缺少某个文件，可以尝试重新安装迅雷。

4若以上方法无效，可能是软件之间的冲突导致出错。解决办法是尝试关闭几个无关的正在运行的应用程序，看看错误是否还会重现。若已解决，就知道是哪两个软件冲突，不再同时运行这两个软件即可解决。或者向厂商反馈故障，督促厂商升级解决。如果不清楚是哪几个软件冲突，可行的解决办法是使用360安全卫士的系统优化，在一键优化里，关闭一些不常用的软件启动。这样开机后运行的程序少一些，冲突的概率会下降。

5对于另一种应用程序出错，截图显示“应用程序出错，内存地址不能读或不能写”，这种情况最复杂，若以上方法不能解决，则很可能是硬件（主要是内存）故障，可能是兼容性不良，只能联系硬件供应商修理。或者重装系统，重装后短时间内可能会有效。

果有的话价格应该不便宜咯

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

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

亦文轩文具官方网站

卡西欧5800计算器主程序调用子程序：

"ZBZS(1),ZBFS(-1)="→Z↙ (坐标正算输入1，坐标反算输入-1，把选择存入变量Z）

Z =1=>Prog"ZBZS":Z=-1=>Prog"ZBFS"↙ （Z=1时，调用“坐标正算”程序，Z=-1时，调用“坐标反算”程序）

本程序调用，算完后，仍会返回这个程序头的。

以上就是关于可以给我个卡西欧5800计算器公路高程计算程序吗全部的内容，包括:可以给我个卡西欧5800计算器公路高程计算程序吗、求卡西欧CASIO fx－5800P编程里（纯输入符号）四等水准测量计算程序、在卡西欧5800编程中，未定义I,J的含义，与未定义就可以使用吗程序见问题补充，这是直线的坐标反算程序等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！