casio4800坐标正反算程序

果有的话价格应该不便宜咯
CASIO FX-4850 4800工程计算器在2008年3月停产
现在的升级产品FX-5800P
1.Fx-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程序的反算与斜交功能
理论上用我们最新研发的拟合圆弧直接解算法
使缓和曲线正交与斜交反算时间
由2.5分钟减小到→7秒钟，计算速度提高21倍。
QH2-7/QH2-8/QH2-9程序
大量使用了fx-5800P先进的复数与串列功能
其中，QH2-8/QH2-9程序
最多可以对含150个线元的任意路线或匝道
进行坐标正反、算与斜交计算
计算精度超高，坐标计算误差≤0.5mm
而高速公路或高速铁路一个标段的线元数≤50
可以全面满足公路与铁路工程用户的测算需求

亦文轩文具官方网站

Casio4800坐标正反算测量程序
核心提示：主程序ZHU：Lbi 0：P0.NE=KL 2.KL=NE 4.ZP0={B，W}ΔBKW：P=1=W=0ΔWL(R)m：P3=Prog10：P=4
=ZZ= ◢ ΔΔP3
主程序ZHU：
Lbi 0：P“0.NE=>KL 2.KL=>NE
4.Z”P≠0=>{B，W}ΔB“KW”：P=1=>W=0ΔW“L(R)m”：P≥3=>Prog“10”：P=4 =>Z“Z=” ◢

ΔΔP≤3=>Prog“20”：Prog“1”：P=1=>D=B：O=X：K=Y：Lbi
1：{B,W,G}：B“KW”W“L(R)m”G“PQ”：L=B-D：L≥0=>F=Q：Prog“7”：≠=>L=-L：F=Q+180：Prog“7”ΔProg“8”0
◢

Goto 1ΔΔP=0=>H“NP”U“EP”：Pol(H-X+1p，U-Y)：J≤0=>J=J+360ΔC=I：D=J：C≤1m=>B：“KW=”：Pause
0：W“L(R)m=” ◢

{H,U}：H“NP”U“EP” ΔRec(C，D-Q)：B=B+I：W=W+J：Goto 0ΔP≤3=>Prog“8” ◢ΔP=3=>Prog“3”
ΔGoto 08

子程序1：

R＜0=>R=-R：N=-1：≠=>N=1Δ(T2-RD)
≥0.03=>J=T2÷R：A=A-J+D：L=J-D：D=J：C=DR：Prog“5”：F=F-E：Rec(L，F+J+180)：O=O+I：K=K+JΔL=B-A+10∧-9：R=0=>R=1ΔD=0=>D=10∧-9ΔM=0=>M=10∧-9ΔS=0=>S=10∧-9ΔT=D+M+S：L≥T=>Prog“2”：L=B-A-T：Q=F：Prog“7”：≠=>L≤D=>C=RD：Prog“5”：Q=F+E：F=F+J：Prog“7”：≠=>L≥T-S=>Prog“2”：L=T-B+A：C=RS：Prog“5”：Q=F-E：F=F+180-J：Prog“7”：≠=>L=D：C=RD：Prog“5”：L=B-A：Prog“6”：Q=F+E：F=F+J：Prog“7”程
ΔΔΔ8

子程序2：

L=D：C=RD：Prog“5”：L=D+M：Prog“6”：Rec(L，F+J)：O=O+I：K=K+J：F=F+E：L=S：C=RS：Prog“5”：C=(S÷(2R))r：F=F+NC：Rec(L，F-J)：O=O+I：K=K+J8

子程序3：（本段子程序可以不输入）

Prog“30”：{V}：V“EV”：W=0=>A“T(w)”=Z-V+A◢

ΔW≠0=>{E，Z}：E“BL”Z“PH”：L=Z-V：L≥0=>A=L-A：E=E+C：L≤R=>L=X(Z-V)+E：≠=>L=Y(Z-V-R)+XP+E+SΔ≠=>L=-L：I=Z+0.06：A=Z-V：E=E+F+C：L≤I=>L=(V-Z)D+E：M=(AbsW-L)÷O：≠=>L≤3I=>L=(V-Z-2I)K+I(D=0)+M+N+E：M=(AbsW-L)÷K≠=>L≤4I=>L=(V-Z-3I)Q+I(D+O+K)+M+N+T+E：M(AbsW-L)÷Q：≠=>L=(V-Z-4I)J+I+(D+O+K+Q)

+M+N+2T+E：M=(AbsW-L)÷JΔΔΔΔΔW≥0=>E=L-W：≠=>E=L+W：L=-LΔA：“TW=”：Pause 0：E“LC=” ◢

F=Z-V：F≤0=>M：“PT(w)=”：Pause 3ΔL：“LR=”：Pause 0：V“EV” ◢8

子程序4：（计算高程用）

L=B-A：R=0=>R=1ΔM=0=>M=10∧-9ΔL≥M=>L=MΔZ=C+LF+L2÷(2R)：L=B-A：F=F+M÷R：L≥M+T=>C=Z+TF：≠=>L≥M=>Z=Z+(L-M)FΔ8

子程序5：

E=(L2÷(2C))r：J=L∧3÷(6C)-L∧7÷(336C∧3)+ L∧11÷(42240C∧5)-L∧15÷(9676800C∧7)：I=L-
L∧5÷(40C2)+ L∧9÷(3456C∧4)- L∧13÷(599040C∧6)：Y=J-R(1-Cos E)：X=I-RSin
E：Pol(I+1p，J)：L=I：J=NJ：E=NE8

子程序6：

E=((L-D÷2)÷R)r：J=R(1-Cos E)+Y：I=RSin E+X：Pol(I+1p，J)：L=I：J=NJ：E=NE8

子程序7：

Rec(L，F)：X=O+I：Y=K+J：W=0=>X：“X=”：Pause 0：Y“Y=” ◢

ΔP=3=>G=90ΔW≠0=>G“PQ”：W＜0=>A=-W：C=-GΔW＞0=>A=W：C=GΔRec(A，Q+C)：X=X+I：Y=Y+J：P≠0=>X：“N=”：Pause=
0：Y“E=” ◢

ΔΔ8

子程序8：

H“P(N)” U“P(E)”Pol(X-H+1p，Y-U)：Fixm：J≤0=>J=J+360ΔI：“HD=”：Pause 0：J“HRA=” 8

程序运行说明：

1、运行主程序ZHU，输入“2”为坐标正算“2.KL=>NE”；输入“0”为桩号和边距反算“0.NE=>KL”；输入“4”为高程计算4.Z。

2、正算程序中有关符号的意义：

P(N)：测站点X坐标；P(E)：测站点Y坐标；KW：任意点桩号；L(R)m：距道路中心线距离，左负右正；HD：待求点至测站点的距离；HRA：待求点至测站点方位角。

3、反算程序中有关符号的意义：

NP：待求桩号点的X坐标；EP：待求桩号点的Y坐标；KW：解算后某点桩号：L(R)m：解算后某点距道路中心线的距离，左负右正；PQ：反算参数值，必须输入90。

4、高程程序中有关符号的意义：

KW：任意桩号；L(R)m：距道路中心线距离，求中桩高程时该值为零；Z：待求点高程值。

5、文件名修改：MODE→5.PROG→3.EDIT→选定需要修改的文件→FUNCTION→2.RENAME→重新输入文件名。