常用4800

常用CASIO4800计算程序集

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” ?

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}?

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” ?

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}?

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?

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

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?

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

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}?

Pol(X-F，Y-G) ?

J〈0 =〉J=J+360⊿A=J-H?

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

I“S=” ◢

Goto 1

程序运行说明：

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

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

程序清单：

F“X0”：G“Y0”：M“XH”：N“YH”?

Pol(M-F，N-G)：Fixm：H=J?

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

I“S-H=” ◢

Lb1 1:{XY}: Pol(X-F，Y-G) ?

J〈0 =〉J=J+360⊿?

A=J-H?

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

I“S=” ◢

Goto 1

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

程序名“FY”

程序清单：

I“I=1 =>1-D≠>2-D”?

I=1=> Goto 1:≠> Goto2?

Lb1 1：F“X0”：G“Y0”：H“T0-H”：Goto 3?

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?

Lb1 3：{XY}?

Pol(X-F，Y-G) ：Fixm ?

J〈0 =〉J=J+360⊿A=J-H?

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）” ?

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

Lbl 2:K Goto3:≠> Goto4?

Lbl 3:“K—OVER”: Goto1?

Lbl 4:K>Q+L => Goto3:≠> Goto5?

Lbl 5:K≤Q+B => Goto6:≠> Goto7?

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?

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

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?

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?

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?

子程序“BQXYS”

A:R:B“L01”:C“L02” ?

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”(V1.1，2005年12月7日星期三升级于秦岭公司)

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

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

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

Goto3：≠> Goto4?

Lbl 3：“K-SMALL”：Goto2?

Lbl 4：O>Q => Goto5：≠> Goto7?

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

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

Lbl 7: {DZ}：Z“JIA-JIAO=”：D“W AIYI=（Z-，Y+）”?

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

Rad：W=A+∫（cos（C°+0.5×(2E+(F-E)(X-P)÷(Q-P))(X-P)）,P,V,4）+

D×cos(T°+Z°) ?

Y=B+∫（sin（C°+0.5×(2E+(F-E)(X-P)÷(Q-P))(X-P)）,P,V,4）+

D×sin(T°+Z°)：Deg：Goto9?

Lbl 9：O≤Q => GotoB：≠> GotoA?

Lbl A：A=W：B=Y：C=T：E=F：P=Q： Goto1?

Lbl B：W“X=”◢

Y“Y=”◢

T“T=”◢

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

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”，输入新的测站点、后视点坐标并保持原曲线参数不变即可。

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

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

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

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

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=”?

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×6 3712)×1000:D=S+( V+W)÷1000?

“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时，为计算隧道平均高程面的投影改正。

隧道的施工放样程序及CAD计算超欠挖量

隧道的施工放样程序及C A D计算超欠挖量 隧道测量的程序及运用： 在测量隧道中由于时代的变化、科学的进步，我们运用的计算工具也在不断的变化。在如今我们测量工作中一般运用的是CASIO4500、4800、4850等型号的科学计算器还是一种有编程功能的计算器。 在隧洞测量时测量人员要根据现场的要求来进行编程，边角程序如： 边角后方交会 BJHFJH L1 ABCD：Lbl5：{KSP} L2 pol(C-A,D-B) L3 Q=90(1-K)+K SIN-1(S SIN P/V) L4 T=W+180-P-Q L6 Rec (S,T) : X=A+V◢ Y=B+W◢ L7 Goto5 说明： 1、测边的已知点作为P1（A,B），未测边的已知点作为P2（C,D）。 测边对角为锐角时K=1，测边对角为钝角时 2、 K=-1。 3、角度P是以测边方向为起始方向，顺时针观测另一个已知点方向的右角。 注：理想图形要求实测的S边相对于已知边P1P2越短越好，角P越接近180°越好。 坐标反算 ZBFS L1 AB：Fixm：{CD} L2 pol(C-A,D-B)◢ L3 W＜0W=W+360 L4 lntW +(60 Frac W )+ Frac(60 FracW) ◢ 说明： 1、本程序用于计算直角坐标值已知的两点间的边长和坐标方位角。 2、起算点和目标点的坐标分别为（A，B）、（C，D）。 3、起算点改变时应重新调用程序以改变A、B的值。 4、边长值和方位角值分别自动存放在“V”和“W”中。“W”的单位为：度“°”。 隧洞断面图如上的程序如下： 直线断面放样程序（2） ZXFY2 L1 Lbl0：{ABH}：ABH:POL(A-X,B-Y): L2 L=ICos (J-G)◢ L3 M=Isin(J-G) ◢ L4 V=H-N◢

4800计算器程序

CASIO4800坐标计算程序 CASIO4800缓和曲线、圆曲线和直线段上的任意中、边桩坐标计算程序 1、该程序适用于计算器 CASVO fx-4800P，可计算与线路中心成任意夹角的缓和曲线、圆曲线、直线段中、边桩坐标及切线方位角。 2、A？输入转角：左转为负，右转为正 3、R？输入圆曲线半径 4、LS？输入缓和曲线长度 5、JD？输入交点桩号 6、J？输入0程序计算中桩，输入1程序计算边桩 7、N？ E？输入交点X、Y坐标 8、FW 待求点切线方位角 9、当计算交角为60°时，则公式改为（U+60），（U-120） 1 A：R：C“LS”：D“JD” 2 P=C∧2/24/R-C∧4/2688/R∧3 3 Q=C/2-C∧3/240/R∧2 4 B=90C/兀/R 5 T=(R+P)tan(AbsA/2)+Q◢ 6 W=(R+P)/cos(A/2)-R◢ 7 L=((AbsA)-2B)兀R/180+2C◢ 8 G=D-T◢ 9 H=G+C◢ 10 I=G+L/2◢ 11 K=G+L-C◢ 12 M=G+L◢ 13 N：E：F: J 14 A＜0=>S=-1:≠=>S=1⊿ 15 U=F+A/2+90S 16 V=W+R 17 B=N+VcosU 18 O=E+VsinU 19 Lbl 1 20 {Z} 21 Z≤G=>L=T+G-Z 22 V=F+180 23 U=F 24 Goto 2⊿ 25 Z≤H=>L=Z-G 26 V=L-L∧5/(90R∧2C∧2) 27 L=30L∧2S/(兀RC) 28 P=F+180 29 Q=F+L

30 U“FW”=F+3L◢ 31 Goto 4⊿ 32 Z≤K=>L=F+A/2+90S+180+180(Z-I)S/R/兀 33 U“FW”=L+90S◢ 34 Goto 5⊿ 35 Z≤M=>L=M-Z 36 V=L-L∧5/(90R∧2C∧2) 37 L=30SL∧2/(兀RC) 38 P=F+A 39 Q=F+A+180-L 40 U=F-3L+A◢ 41 Goto4⊿ 42 Z>M=>L=Z-M+T 43 U=F+A 44 V=U 45 Goto 2 46 Lbl 2 47 X=N+LcosV◢ 48 Y=E+LsinV◢ 49 Goto 6⊿ 50 Lbl 3 51 {W} 52 P“XL”=X+Wcos(U-90) ◢ 53 Q“YL”=Y+Wsin(U-90) ◢ 54 P“XR”=X+Wcos(U+90)◢ 55 Q“YR”=Y+Wsin (U+90) ◢ 56 Goto 1 57 Lbl 4 58 X=N+TcosP+VcosQ◢ 59 Y=E+TsinP+VsinQ◢ 60 Goto 6 61 Lbl 5 62 X=B+R cosL◢ 63 Y=O+RsinL◢ 64 Goto 6 65 Lbl 6 66 J=1=> Goto 3⊿ 67 Goto 1

最新卡西欧计算器fx-4800P

卡西欧计算器f x- 4800P

福建林业职业技术学院工程系土木工程室 高国兴

CASIO fx-4500PA计算中桩、边桩坐标程序 直线、圆曲线中桩及左、右边桩计算程序fx-4800p C“Xθ=”：D“Yθ=”：E“Wθ=”：N=Ans：R“R=”：L“Lμo=”：K“D=”：M“Jμ =”： o Q=9θL÷（πR）：S=2RsinQ ： O =C＋Scos（N-Q）◢ P=D+Ssin（N-Q）◢ W=E-2Q◢ X=O+Kcos（N-2Q-M）◢ Y=P+Ksin（N-2Q-M）◢ 注： Xθ=起算点坐标 Yθ=起算点坐标 Wθ=起算点方位角 R=曲线半径，线路前进方向，左+，右－ 直线R为无穷大 Lμo=置镜点到待求点距离 D左、右边距离 Jμo=前进方向左（+90），右（－90） O=中桩坐标

P=中桩坐标 W=待求点方位角 X=左、右边桩坐标 Y=左、右边桩坐标 缓和曲线中桩及左、右边桩计算程序Fx-4800p C“Xθ=”：D“Yθ=”：E“Wθ=”：N=Ans：R“R=”：F“Lθ=”：L“Lμo=”：K “D=”：M“Jμo=”← U=L－L^5÷（40R2F2）：V=L^3÷（6RF）－L^7÷（336R^3F^3）：Q=tan－1（V÷U）：S=√（U2+V2）← B=9θL2÷（πRF）：O=C+Scos（N－Q）◢ P=D+Ssin（N－Q）◢ W=E－B◢ X=O+Kcos（N－B－M）◢ Y=P+Ksin（N－B－M）◢ 注： Xθ=起算点坐标 Yθ=起算点坐标

Wθ=起算点方位角 R=曲线半径，线路前进方向，左+，右－ Lθ=缓和曲线长 Lμo=置镜点到待求点距离 D左、右待求距离 Jμo=前进方向左（+90），右（－90） O=中桩坐标 P=中桩坐标 W=待求点方位角 X=左、右边桩坐标 Y=左、右边桩坐标 放样程序fx-4800p RL I“XZ”：W：“YZ”：G“XH”：H“YH”← B=H－W ← C=G－I ← Prog“P”：U=A← K=√（B2＋C2）← C=X“X－”－I← B=Y“Y－”－W←

各大计算器速度

HP Articles Forum [Return to the Index ] [ Previous | Next ] Calculator Benchmark Posted by Xerxes on 12 Feb 2007, 7:35 a.m. Calculator Speed Benchmark using the N-Queens Problem ------------------------------------------------------- - - 5:00:00 MK-52 Keystroke / RPN - - 4:45:00 MK-61 Keystroke / RPN - - 1:50:00 TI-66 Keystroke - - 1:37:50 HP-16C Keystroke / RPN - - 1:19:10 HP-15C Keystroke / RPN - - 1:13:10 HP-34C Keystroke / RPN - - 1:03:50 HP-11C Keystroke / RPN - - 58:20 TI-58C Keystroke - - 56:15 SR-52 Keystroke - - 55:52 HP-12C Keystroke / RPN - - 53:47 FX-201P Keystroke / Fortran Style - - 47:57 HP-67 Keystroke / RPN - - 46:20 PC-1211 Basic - - 43:40 TI-59 Keystroke - - 42:33 PC-1212 Basic - - 42:00 HP-29C Keystroke / RPN - - 40:50 TI-66 Keystroke / Turbo x2.7 - - 26:42 DM-41 Keystroke / RPN / @ 12 MHz

4800计算器使用方法

4800 L1 Defm 10 L2 Lb1 0:{FG}:C"QX":D"QY":A"Q >":E"QDZH":F"ZDZH":H"QR":G"ZR":O"ZDX":U"ZDY" L2 Lb1 1:{K}:K>F＝＞Goto 3△ L3 Lb1 2:P=A+(1/G+1/H)/Abs(F-E):L=Abs(K-E):J=P×L L4 I=A+90(J+2/H)L/π▲ L5 Z[1]=A+45(J/4+2/H)L/(2π) L6 Z[2]=A+135(3J/4+2/H)L/(2π) L7 Z[3]=A+45(J/2+2/H)L/π L8 Z[4]=A+(J/8+2/H)L(90/8π) L9 Z[5]=A+(3J/8+2/H)L(3*90/8π) L10Z[6]=A+(5J/8+2/H)L(5*90/8π) L11Z[7]=A+(7J/8+2/H)L(7*90/8π) L12 {B}:X“X”=C+L(CosA+4(CosZ[4]+CosZ[5]+CosZ[6]+CosZ[7])+2(CosZ[1]+CosZ[2]+Cos Z[3])+CosI)/24+BCos(I+ 90)▲ L13 Y“Y” =D+L(SinA+4(SinZ[4]+SinZ[5]+SinZ[6]+SinZ[7])+2(SinZ[1]+SinZ[2]+SinZ[3])+SinI)/24+BSin (I+90)▲ L14 K=F＝＞Goto 4: ≠＞Goto 5△△ L15 Lb1 3:K=F:Goto 2 L16 Lb1 4:C=X:D=Y:E=F:H=G:A=I:Goto 0 L17 Lb1 5:Pol(X-O,Y-U):W<0 ＝＞W=W+360 :Ｗ“FWJ＞”＝Int W+Int（100Frac W）/ 60+Frac （100W）/36▲Fix 3:V“S ”=V▲Norm: Goto 1△ L18 ≠＞W =W:Ｗ“FWJ＞”＝Int W+Int（100Frac W）/ 60+Frac （100W）/36▲Fix 3:V“S ”=V▲Norm:Goto 1 说明：本程序是根据复化辛普生公式（n=4）编制的，适合各种线型的正反算。 QX起点X坐标QY起点Y坐标Q>起点方位角QDZH起点桩号ZDZH 终点桩号 QR起点半径ZR终点半径ZDX测站点X坐标ZDY测站点Y坐标K 所求点里程 注意事项：⒈直线半径输入EXP 99 。 ⒉线路左偏时半径输入“-”值。 ⒊线路前进方向左侧坐标计算“B”取“-”值，右侧取”+“值，中桩取零， 如：左侧6米B=-6，右侧8米B=8，中桩B=0。 ⒋如需要所求点方位角可在L4行末尾加显示符“▲”。 ⒌显示“FWJ ＞”即所求点与测站点的方位角，如：36.254121即为36°25′41.21″。 “S=”即所求点与测站点的距离。 6.1/G，1/H可以输入G的-1次方，H的-1次方。 7.当所求点里程大于终点时，显示终点坐标。之后要求输入下一线型终点里程，终点半径。继续计算

卡西欧计算器用法

第1讲货币时间价值原理与卡西欧财务计算器用法 CASIOFC100-200V 入门 1、开机ON 2、关机SHIFT+AC=OFF 3、设置与记忆（存储）清除 SHIFT+9=CLR Clear?清除吗？ SETUP ：EXE 清除设置请按EXE Memory ：EXE 清除记忆（存储）请按EXE All ：EXE 清除所有请按EXE Reset All?重新设置所有吗？ [EXE]：Yes 选择“是的”，请按EXE [ESC]：Cancel 选择“取消”，请按ESC Clear Setup?清除设置吗？ [EXE]：Yes 选择“是的”，请按EXE [ESC]：Cancel 选择“取消”，请按ESC Clear Memory?清除记忆（存储）吗？ [EXE]：Yes 选择“是的”，请按EXE [ESC]：Cancel 选择“取消”，请按ESC Complete!更改工作完成！ Press[AC]Key 请按AC 键 4、Replay 是计算器指令状态移动方向键上下左右均可移动，按左箭头指令光标跑到最右边，按右箭头指令光标跑到最左边。 5、Solve 不能按EXE 键执行的，都是按这个键来求解。 6、EXE 四则运算的执行、输入的确认 7、ESC 取消返回上一个界面当计算器没反应时都是按这个键 8、DEL 删除刚刚输入的一个数字 9、AC 清除刚刚输入的一行数字 10、∧乘方例如5乘5次方，输入5∧5即可 11、开x 次方 开方shift+∧= () 23x = 12、开机出现的就是加减乘除四则运算的模式COMP ，中间用其他模式后，如果需要用该模式计算，请直接按COMP 键调用这个模式。 13、计算器的屏幕小，提供的功能多，因此，往往一个键提供两个功能，一个功能直接按，另一个功能要按SHIFT 后再按该键才行。如55的计算，直接输入5，再按∧，再输入5，然后按EXE 即运算出结果。又如324的计算，按SHIFT ，然后按∧， 调出，向左移动方向键使光标到达x 的前面，输入3，右移光标到达根号里面，输入24，再按

卡西欧4800P程序合集

对称缓和曲线任意点坐标计算公式 （缺陷：非对称缓和曲线无算） 1、Lb1 1 2、｛Z｝：Z”｛XY｝JI SUAN – K ” 3、Z≥11100?Z＜13300? A=101°15°19°:R=780： C=281.13:D=12510.916：N=3133280: E=511103:F=227°46°36°：J=1: ?? 4、Z≥13300?Z＜14200?A=-20°44°10°：R=1000： C=140:D=13827.501:N=3134865.578:E=510151.503:F=329°01°56°：J=1: ?? 5、P=C^2÷24÷R-C^4÷2688÷R^3 6、Q=C÷2-C^3÷240÷R^2 7、B=90C÷π÷R 8、T=(R+P)tan(AbsA÷2)+Q◢ 9、W”E”=(R+P) ÷cos(A÷2)-R◢ 10、L=((AbsA)-2B) πR÷180+2C◢ 11、G”ZH-K”=D-T◢ 12、H”HY-K”=G+C◢ 13、I”QZ-K”=G+L÷2◢ 14、K”YH-K”=G+L-C◢ 15、M”HZ-K”=G+L◢ 16、A<0?S=-1:≠>S=1? 17、U=F+A÷2+90S 18、V=W+R 19、B=N+VcosU 20、O=E+VsinU 21、Z≤G?L=T+G-Z 22、V=F+180 23、U=F 24、Goto 2? 25、Z≤H?L=Z-G 26、V=L-L^5÷(90R^2C^2) 27、L=30L^2S÷(πRC) 28、P=F+180 29、Q=F+L 30、U=F+3L 31、Goto 4?

卡西欧fx-4800测量计算程序

CASIO fx-4500PA计算中桩、边桩坐标程序 O→X N Y N ●L1 X“ZX”Y“ZY”ZKA “ZH”B “XZH”S“YZH”O“EJ”：R“R （L-，R+）”=θ→Goto E⊿I “LS”L：Lbl E：Q=θ：J“HX”U“HY”：Goto 6：Lblθ ●L2 G：“→E”◢Lbl 1：{N}：N“→L”：W=Abs（A-AbsN：N=θ→Gotoθ⊿E=O：F=θ：P=θ：R≠θ→Q=90/πR：Goto2⊿Rec（W，18θ+O：Goto4⊿Lbl 2 ●L3 I≤W→E=Q（W-I：Goto 3⊿P=QW2/I：Rec（W-Wx y5/9θR2I2，P/3+O：Goto4⊿Lbl 3 ●L4 W＞L-I→Goto 1⊿F=2RsinE：P=E+O+IQ：FcosP+Rec（I－Ix y3/9θR2，IQ/3+O：Lbl 4 ●L5 Q=B+Ans：J=Q：F=S+W+FsinP：U=Ans：N＞θ→Goto 6⊿Lbl 5 ●L6 {D}：D=θ→Goto 1⊿D=1→Goto 8⊿H=P+E－9θAbsD/D：J=Q+Rec （Abs D，P+E-9θAbsD/D：U=F+W Lbl 6 ●L7 Pol（J-X，U-Y：W＜θ→W+36θ：≠→W⊿Q=θ→G=Ans：Goto θ⊿“E=”◢V：“S=”◢Lbl 7 ●L8 {CMTH}：M=θ→Goto 5⊿M=1→Goto 8⊿C Abs sinM：“→D=”◢V－Ans：“⊿S=”◢Z=θ→Goto 7⊿T=θ→Goto 7⊿K-T+H+Z+CcosM：“→H”◢Goto 5⊿Lb1 8 ●L9 J：“XD=”◢U：“YD=”◢Goto 1 计算： ZX？输入置镜点X坐标ZY？输入置镜点Y坐标 Z？输入置镜点高程 K？输入仪器高度 ZH？输入直缓点里程XZH？输入直缓点X坐标YZH？输入直缓点Y坐标EJ？输入直缓点方位角 R（L－，R +）？输入圆曲线半径，左偏为负，右偏为正 LS？输入直缓点至缓圆点长度 L？输入完整曲线长度，即两倍LS加圆曲线长 HX？输入后视点X坐标HY？输入后视点Y坐标 →E 显示后视方位角 →L？输入计算里程 E＝显示视方位角 S＝显示前视距离 M？输入1进入①中桩计算模式，输入θ进入②边桩计算模式，输入竖直角度进入③测距仪计算模式 ①中桩计算模式： XD＝显示计算里程中桩X坐标YD＝显示计算里程中桩Y坐标→L？输入下一计算里程 ②边桩计算模式 D？输入边桩距离，左侧输正值，右侧输负值 E＝显示前视方位角 S＝显示前视距离 M？输入1显示边桩坐标 →L？输入下一计算里程 ③测距仪计算模式 C？输入斜距 →D＝显示平距 ⊿S＝显示距离仪器？m 说明：“θ”为零，O为英文字母

卡西欧4500、4800计算器计算程序

卡西欧4500/4800计算器程序 任意里程桩号计算程序 1.主程序(TYQXjs) "1.SZ => XY"："2.XY => SZ"：N：U"X0"：V"Y0"：O"S0"：G"F0"：H"LS"：P"R0"：R"RN"：Q：C =1÷P：D=(P-R)÷(2HPR)：E=180÷π：N=1=>Goto 1：≠>Goto 2Δ←┘ Lbl 1：{SZ}：SZ：W=Abs(S-O)：Prog "SUB1"：X"XS"=X◢ Y"YS"=Y◢ F”FS”=F-90◢ Goto 1←┘ Lbl 2：{XY}：XY：I=X：J=Y：Prog "SUB2"：S"S"=O+W◢ Z"Z"=Z◢ Goto 2 2. 正算子程序(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+QE M W(C+M WD))):Y=V+W(Asin(G+QEKW(C+KWD))+Bsin(G+QELW(C+LWD))+Bsin(G+QEFW(C+FWD)) +Asin(G+QE M W(C+M WD))) :F=G+QEW(C+WD)+90:X=X+ZcosF：Y=Y+ZsinF 3. 反算子程序(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：AbsZ<1E-6=>Goto1：≠>W=W+Z：Goto 0Δ←┘ Lbl 1：Z=0：Prog "SUB1"：Z=(J-Y)÷sinF 二、使用说明 1、规定 (1) 以道路中线的前进方向（即里程增大的方向）区分左右； 当线元往左偏时， Q=-1；当线元往右偏时，Q=1；当线元为直线时，Q=0。 (2) 当所求点位于中线时，Z=0；当位于中线左铡时，Z取负值； 当位于中线中线右侧时，Z取正值。 (3) 当线元为直线时，其起点、止点的曲率半径为无穷大，以 10的45次代替。 (4) 当线元为圆曲线时，无论其起点、止点与什么线元相接，其曲率 半径均等于圆弧的半径。 (5) 当线元为完整缓和曲线时，起点与直线相接时，曲率半 径为无穷大，以10的45次代替；与圆曲线相接时，曲率半

fx-4800P缓和曲线和圆曲线坐标正反算程序(正确版)

缓和曲线和圆曲线坐标正反算程序主程序“TYQXJS” Lb1 0↙→（EXE） {NUVOGHPRQ}:“1.SZ=>XY”: “2.xy=>SZ”: N:U“QDX”:V“QDY”:O“QDLC”:G“FWJ”: H“LS”:P“RO”:R“RN”:Q“ZP=-1,YP=+1,ZZ=0” :C=1÷P:D=(P-R)÷(2HPR):E=180÷π:N=1=>Goto 1:≠=>Goto 2◣↙Lb1 1:{SZ}:SZ:W= Abs(S-O): Prog“1”: X“XS”=X◢ Y“YS”=Y◢ F“FS”=F-90◢ Goto 3↙ Lb1 2:{XY}:XY:I=X:J=Y: Prog“2”:S“S”=O+W◢ Z“Z”=Z◢ Goto 3↙ Lb1 3↙ {DE}:E“QX-JJ,Z-1,Y+1”:D“BZ-JL”↙ F=F+E↙ X=X+D Cos F◢ Y=Y+D Sin F◢ {DE}:D“BZ-JJ”:E“JJ,Z-1,Y+1”↙ F=F+E↙

X=X+D Cos F◢ Y=Y+D Sin F◢ Goto 0 子程序1：“1” 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+Q EFW(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+QE W(C+WD)+90:X=X+Z Cos F:Y=Y+Z Sin F 子程序2: “2” T=G-90:W=Abs((Y-V)Cos T-(X-U)Sin T):Z=0: Lb1 0:Prog“1”:L=T+QEW(C+WD):Z=(J-Y)Cos L-(I-X)Sin L:Abs Z<1E-6=>Goto 1: ≠=>W=W+Z:Goto 0◣↙(E为：4800P键盘的EXE键) Lb1 1:Z=0Prog“1”:Z=(J-Y)÷Sin F◣ 注：第一缓和曲线起点半径输入无穷大（10 45），终点输入圆曲线半径；第二缓和曲线起点半径输入圆曲线半径，终点半径输入无穷大（10 45）；圆曲线输入给出的起点和终点半径；直线段则都输入无穷大（10 45）。 其中起点切线方位角用此程序计算。 ◣(代替空心) 坐标正算 程序“ZBZS” Lb1 0↙ X“HSX”:Y“HSY”:U“CZX”:V“CZY”↙ X-U≥0=>Goto 1: ≠=>Goto 2◣↙

4800公路测量放样计算程序

4800公路测量放样计算程序 CASIO fx-4800P计算器程序 DA DI——N E (公路弯道坐标计算) K“JD”：R：S“LS”：F“PJ——L－R＋”：A“ZH——N”：B“ZH——E”：C“JD——N”： D“JD——E” M“ZH”=K－（R＋S2÷（24R））tan（Abs F÷2）－S÷2＋S^3÷（240R2）▲ N“HY”=M＋S▲ O“QZ”=M＋（πRAbs F÷180＋S）÷2▲ Z[1]“YH”=M＋πRAbs F÷180▲ Q“HZ”= Z[1]＋S▲ T=K－M▲ L=Q－M▲ E=（R＋S2÷（24R））÷cos（F÷2）－R▲ Lb1 0：{G}：G“ZHUANG HAO”：G＜O＝=＞Z=G－M≠=＞Z=Q－G：△ {U}：U“I——B OUT＋IN－” Z＜S＋0.005＝=＞H=tan-1（24Z2S2R2－Z^6）÷（48Z^3R^3－6Z^4SR））：V=Z－Z^5÷（40S2R2）＋Usin H：W=Z^3÷（6SR）－Z ^7÷（336Z^3R^3）－Ucos H：≠=＞H=180（Z－S÷2）÷（πR）：V=Rsin H＋S÷2－S^3÷（240R2）＋Usin H：W=R－Rcos H＋S2÷（24R）－Ucos H：△ F＜0＝=＞G＜O＝=＞X=V：Y=W：≠=＞X=T＋Tcos F－Vcos F－Wsin Abs F：Y=Tsin Abs F －Vsin Abs F＋Wcos F：△≠=＞G＜O＝=＞X=V：Y=－W：≠=＞X=T＋Tcos F－Vcos F－Wsin Abs F：Y=Vsin Abs F－Tsin Abs F－Wcos F：△△ C=A＝=＞D≥B＝=＞P=90：≠=＞P=270：△≠=＞C＜A＝=＞P= tan-1（（D－B）÷（C－A））＋180：≠=＞P= tan-1（（D－B）÷（C－A））：△△ I“COM——N”=A＋√（X2＋Y2）cos（P－tan-1（Y÷X））▲ J“COM——E”=B＋√（X2＋Y2）sin（P－tan-1（Y÷X））▲ G=G＋20 Goto 0 程序运行 输入：JD？——交点桩号 R？——圆曲线半径 LS？——缓和曲线长度 PJ——L－R＋？——偏角右偏为正 ZH——N？——ZH点N坐标 ZH——E？——ZH点E坐标

4800P放样程序(2)

1.)TYQXJS(程序名) Defm 2:“1.SZ=>XY”: “1.XY=>SZ”:N:N=1=>Goto 1≠>Goto 2⊿← Lb1 1:｛SZ｝:SZ← S≤每段线终点桩号=>J=1：Prog“DAT1”: Goto 3⊿← S≤每段线终点桩号=>J=2：Prog“DAT1”: Goto 3⊿← S≤每段线终点桩号=>J=3：Prog“DAT1”: Goto 3⊿← S≤每段线终点桩号=>J=4：Prog“DAT1”: Goto 3⊿← S≤每段线终点桩号=>J=5：Prog“DAT1”: Goto 3⊿← S≤每段线终点桩号=>J=6：Prog“DAT1”: Goto 3⊿← S≤每段线终点桩号=>J=7：Prog“DAT1”: Goto 3⊿← Lb1 3:W=Abs(S-O): Prog“SUB1”:X“XS”=X▲Y“YS”=Y▲Z[5]=X：Z[6]=Y：F“FS”=F-90▲ Lb12:Prog“DAT1”: ｛XY｝:XY:I=X:J=Y:Prog“SUB2”:S“S”=O+W▲Z“Z”=Z▲Goto 2 2.)SUB1(程序名) A=0.1739274226:B=0.3260725774:K=0.0694318442:L=0.3300094782:F=1-L:Z[1]=1-K:X=U+ W(A COS(G+QEKW(C+KWD))+B COS(G+QELW(C+LWD))+B COS(G+QEFW(C+FWD))+A COS(G+QE Z[1]W(C+Z[1]WD))):Y=V+W(A SIN(G+QEKW(C+KWD))+B SIN(G+QELW(C+L WD))+B SIN(G+QEFW(C+FWD))+A SIN(G+QEZ[1]W(C+Z[1]WD))):M=90:F=G+QEW(C+W D)+M:X=X+Z COS F:Y=Y+Z SIN F← 3.)SUB2(程序名) M=90:T=G-M:W=Abs((Y-V)COS T-(X-U)SIN T):Z=0:Lb10:Prog“SUB1”:L=T+QEW(C+WD):Z= (J-Y)COS L-(I-X) SIN L: Abs Z＜1E-6=> Goto 1:≠>W=W+Z: Goto 0⊿← Lb1 1:Z=0: Prog“SUB1”:Z=(J-Y)÷SIN F 4.)DAT1(程序名) J=1=>U=起点X坐标：V=起点Y坐标：O=起点桩号：G=起点方位角：H=线形长度：P=XXXXXX ：R=XXXXXX：Q=XXXX⊿ J=2=>U=起点X坐标：V=起点Y坐标：O=起点桩号：G=起点方位角：H=线形长度：P=XXXXXX ：R=XXXXXX：Q=XXXX⊿ J=3=>U=起点X坐标：V=起点Y坐标：O=起点桩号：G=起点方位角：H=线形长度：P=XXXXXX ：R=XXXXXX：Q=XXXX⊿ J=4=>U=起点X坐标：V=起点Y坐标：O=起点桩号：G=起点方位角：H=线形长度：P=XXXXXX ：R=XXXXXX：Q=XXXX⊿ J=5=>U=起点X坐标：V=起点Y坐标：O=起点桩号：G=起点方位角：H=线形长度：P=XXXXXX ：R=XXXXXX：Q=XXXX⊿ J=6=>U=起点X坐标：V=起点Y坐标：O=起点桩号：G=起点方位角：H=线形长度：P=XXXXXX ：R=XXXXXX：Q=XXXX⊿ J=7=>U=起点X坐标：V=起点Y坐标：O=起点桩号：G=起点方位角：H=线形长度：P=XXXXXX ：R=XXXXXX：Q=XXXX⊿ …………………………………………………… U“X0”：V“Y0”：O“S0”：G“F0”：H“LS”：P“R0”：R“RN”：Q：C=1÷P：D=（P-R）÷（2HPR）：E=180÷∏← 说明： 1．Q-------以道路中线前进方向，直线输0，左拐曲线输-1，右拐曲线输1

卡西欧计算器编程指导

卡西欧计算器编程指导 在计算能力飞速发展的今天，各种计算工具应运而生代替了以往我们大量、繁琐的分析计算工作，简化了计算步骤节省了计算时间。在种类繁多的计算工具中适合测量工作的计算器也大有所在。比如有一款SHAPPC-E500计算器，它相当于是基于BASIC语言的微型电脑，功能也相当齐全能编写较复杂的程序、内存也相当大有32KB、64 KB、128 KB、256 KB、几种型号，同时具有输入输出通讯设备。但价格不菲，现在市场价格大约为2000元到3000元，个人经济承受能力有限。通过几年的实际测量工作我个人为认为真正适合测量人员较为专业的计算器应首推基于科学计算器具有简单程序语言的casio4x00计算器。它有很多优点：一、使用简单，最大的一个优点就是只要具有初中水平会运用数学公式对函数有一般的了解的人，能基本理解casio4x00的内装函数即可进行简单的编程。非常适合测量初学者和数学程序爱好者学习，也适合专业的测量人员的使用和能力提高。不像其它的专业一定要具有较高的专业技术水平才能进行电脑编程。二、成本低廉，价格在400元左右。三、携带方便，体积很小可随时放在口袋里随拿随用。casio系列较好的编程型号有casio4500（以下简称4500）、casio4800（以下简称4800），（好象近来还推出了一款casio4850）前者较内存小，只有1103个字节，能应付一些较为简单的公式计算和科学计算，但由于内存有限，对一些较复杂或子程序过多的程序就力不从心了，不能出色的完成测量任务。4800就比4500有较大的改进，4800内存达到的4500个字节，而且显示屏是4500的几倍大，能更准确的显示数据，内装函数字符一目了然。且具有简单的人机对话功能，出现了菜单子菜单。4800还在4500增加了啊佛加德罗

工程测量中fx5800P计算器基本程序

工程测量中fx-5800P计算器基本程序 的编写及实际放线的应用 刘兵策刘杰 摘要在日常工程测量工作中，计算器是必不可少的工具。目前行业内用fx-5800P。 本文介绍测量工作中坐标正反算、大地转施工、施工转大地等常用程序的原理及编写，并 对其比较复杂的实际放线的灵活应用进行解析，为类似的测量工作提供借鉴。 关键词工程测量fx-5800P程序应用 1 引言 控制测量是施工的基础，为了便于施工，放线一般使用施工坐标系，坐标轴平行于建筑物主轴线。对于建筑物主轴线与坐标轴不平行的，为了方便放线，一般不再改变坐标系，用计算器程序进行计算，迅速判断需要定位的点。 利用fx-5800P计算器根据测出的坐标数据计算出与设计图纸上的差值，指挥棱镜进行移动，找到准确的设计位置。测量工作中主要用到坐标正反算，大地转施工，施工转大地等常用程序，下面介绍这几个程序的原理和编写，总结一些在实际工作中的应用。 2 Fx-5800计算器程序的原理与编写 2.1 大地坐标转换为施工坐标 大地坐标转换为施工坐标见图1。 Xp、Yp分别是P点在XOY坐标系中的纵横坐标，xp， yp分别是xo’y坐标系中的纵横坐标值，Xo，Yo分别是 xo’y坐标系的坐标原点o’在XOY坐标系中的纵、横坐 标值，Δα为两坐标系坐标纵轴的夹角。 将P点从XOY坐标系转换到xo’y坐标系中， 即大地转施工的公式如下：图1 大地坐标与施工坐标转换图 xp=（Yp-Yo）sinΔα+（Xp-Xo）cosΔα； yp=（Yp-Yo）cosΔα-（Xp-Xo）sinΔα； 用fx-5800P编制程序时，只要输入大地坐标的原点o’的坐标和要转换的点P点的大地坐标，即在坐标系XOY坐标系中的坐标，再用上述公式带入，输出P点的施工坐标。基本程序如下：

4800计算器程序

CASI04800坐标计算程序 CASI04800缓和曲线、圆曲线和直线段上的任意中、边桩坐标计算程序 1、该程序适用于计算器CASVO fx-4800P，可计算与线路中心成任意夹角的缓和曲线、圆曲线、直线段中、边桩坐标及切线方位角。 2、 A ？输入转角：左转为负，右转为正 3、R？输入圆曲线半径 4、LS ？输入缓和曲线长度 5、JD ？输入交点桩号 6、J ？输入0程序计算中桩，输入1程序计算边桩 7、N ？E ？输入交点X、Y坐标 8、FW待求点切线方位角 9、当计算交角为60°时，则公式改为（U+60），（U-120） 1 A : R: C “LS” D “ JD” 2P=C A 2/24/R-C A 4/2688/R A 3 3Q=C/2-C A 3/240/R A 2 4B=90C/ 兀/R 5T=(R+P)tan(AbsA/2)+Q 丄 6W=(R+P)/cos(A/2)-R 丄 7L=((AbsA)-2B)兀R/180+2C 丄 8G=D-T 丄 9H=G+C 丄 10I=G+L/2 丄 11K=G+L-C 丄 12M=G+L 丄 13N : E: F: J 14A v 0=>S=-1:工=>S=0 15U=F+A/2+90S 16V=W+R 17B=N+VcosU 18O=E+Vsi nU 19Lbl 1 20{Z} 21Z< G=>L=T+GZ 22V=F+180 23U=F 24Goto 2 / 25Z< H=>L=ZG 26V=L-L A 5/(90R A 2C A 2)

27L=30L A 2S/(兀RC) 28P=F+180 29Q=F+L 30U “FW =F+3U 31Goto 4 / 32Z< K=>L=F+A/2+90S+180+180(Z -l)S/R/ 兀33U “FW =L+90S J 34Goto 5 / 35Z< M=>L=M-Z 36V=L-L A 5/(90R A 2C A 2) 37L=30SL A 2/(兀RC) 38P=F+A 39Q=F+A+180-L 40U=F-3L+A 丄 41Goto4 / 42Z>M=>L=Z-M+T 43U=F+A 44V=U 45Goto 2 46Lbl 2 47X=N+LcosV 丄 48Y=E+LsinV 丄 49Goto 6 / 50Lbl 3 51{W} 52P “ XL” =X+Wcos-U0)丄 53Q “ YL” =Y+Wsin(U0)丄 54P “ XR' =X+Wcos(U+90)J 55Q “ YR' =Y+WsinU+90)丄 56Goto 1 57Lbl 4 58X=N+TcosP+VcosQ 丄 59Y=E+TsinP+VsinQ 丄 60Goto 6 61Lbl 5 62X=B+R cosL 丄 63Y=O+RsinL 丄 64Goto 6 65Lbl 6 66J=1=> Goto 3 /

4800计算器放线程序

4800计算器坐标正算、反算编程程序完美版 悬赏分：+72 http://坐标计算源程序 1.主程序(TYQXjs) "1.SZ => XY"："2.XY => SZ"：N：U"X0"：V"Y0"：O"S0"：G"F0"：H"LS"：P"R0"：R"RN"：Q：C=1P：D=(P-R)(2HPR)：E=180π：N=1=>Goto 1：≠>Go to 2Δ←┘ Lbl 1：{SZ}：SZ：W=Abs(S-O)：Prog "SUB1"：X"XS"=X◢ Y"YS"=Y◢ Goto 1←┘ Lbl 2：{XY}：XY：I=X：J=Y：Prog "SUB2"：S"S"=O+W◢ Z"Z"=Z◢ Goto 2 2. 正算子程序(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+F WD))+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+ZsinF 3. 反算子程序(SUB2) T=G-90：W=Abs((Y-V)cosT-(X-U)sinT)：Z=0：Lbl 0：Prog "SUB1"：L=T+QEW(C+W D)：Z=(J-Y)cosL-(I-X)sinL：AbsZ<1E-6=>Goto1：≠>W=W+Z：Goto 0Δ←┘ Lbl 1：Z=0：Prog "SUB1"：Z=(J-Y)sinF 二、使用说明 1、规定 (1) 以道路中线的前进方向（即里程增大的方向）区分左右； 当线元往左偏时， Q= -1；当线元往右偏时，Q=1；当线元为直线时，Q=0。 (2) 当所求点位于中线时，Z=0；当位于中线左铡时，Z取负值； 当位于中线中线右侧时，Z取正值。

4800及4500程序

CASIO4800及4500缓和曲线、圆曲线、直线段坐标计算程序 1、该程序适用于计算器CASVO fx-4800P，可计算与线路中心成任意夹角的缓和曲线、圆曲线、直线段中、边桩坐标及切线方位角。 2、A？输入转角：左转为负，右转为正 3、R？输入圆曲线半径 4、LS？输入缓和曲线长度 5、JD？输入交点桩号 6、J？输入0程序计算中桩，输入1程序计算边桩 7、N？E？输入交点X、Y坐标 8、FW 待求点切线方位角 9、当计算交角为60°时，则公式改为（U-60），（U+120） 括号内为4500程序 1 A：R：C“LS”：D“JD” 2 P=C∧2/24/R-C∧4/2688/R∧ 3 （P=C2/24/R-C2C2/2688/R3） 3 Q=C/2-C∧3/240/R∧2 (Q=C/2-C3/240/R2 ) 4 B=90C/兀/R 5 T=(R+P)tan(AbsA/2)+Q◢ 6 W=(R+P)/cos(A/2)-R◢ 7 L=((AbsA)-2B)兀R/180+2C◢ 8 G=D-T◢ 9 H=G+C◢ 10 I=G+L/2◢ 11 K=G+L-C◢ 12 M=G+L◢ 13 N：E：F: J 14 A＜0=>S=-1:≠=>S=1⊿ 15 U=F+A/2+90S 16 V=W+R 17 B=N+VcosU 18 O=E+VsinU 19 Lbl 1 20 {Z} 21 Z≤G=>L=T+G-Z 22 V=F+180 23 U=F 24 Goto 2⊿ 25 Z≤H=>L=Z-G 26 V=L-L∧5/(90R∧2C∧2) ( V=L-L5/(90R2C2) )

卡西欧计算器坐标的正反算

可以算任意斜交涵洞轴线的坐标，增加T为斜交角度，规定T为涵轴右侧方向与“线路前进方向切线”之间的夹角，当涵轴与线路正交时，T=90,其他操作与原程序一样； 1. 正算子程序(SUB1) [color=Red]A=0.26：B=0.74：K=0.02：L=0.82：F=1-L： M=1-K：X=U+W(Acos(G+57.2958QKW(1/P+KWD))+Bcos(G+57.2958QLW(1/P+LW D))+Bcos(G+57.2958QFW (1/P+FWD))+Acos(G+57.2958QMW(1/P+MWD)))：Y=V+W(Asin(G+57.2958QKW(1/ P+KWD))+Bsin(G+ 57.2958QLW(1/P+LWD))+Bsin(G+57.2958QFW(1/P+FWD))+Asin(G+57.2958QMW (1/P+MWD)))：F=G+57.2958QW(1/P+ WD)+90：X=X+Zcos(F-90+T)：Y=Y+Zsin(F-90+T) 2. 反算子程序(SUB2) W=Abs((Y-V)cos(G-90)-(X-U)sin(G-90))：Z=0：Lbl 0：Prog "SUB1"：L=(G-90)+5 7.2958QW(1/P+ WD)：Z=(J-Y)cosL-(I-X)sinL：AbsZ<1E-6=>Goto1：≠>W=W+Z：Goto 0Δ←┘ Lbl 1：Z=0：Prog "SUB1"：Z=(J-Y)÷sinF 二.增设数据库程序（ＳＪＫ主程序） Lb1 4："1.SZ => XY"："2.XY => SZ"：｛NS｝：S∠下一线元起点里程＝＞O =本线元起点里程：U=本线元起点X：V=本线元起点Y：G=本线元起算方位角：H =本线元长度：P=起点曲率半径：R=终点曲率半径：Q=0或1、-1：Prog“TYQXJS”：Goto0Δ←┘(第一线元数据要素) S∠下一线元起点里程＝＞O=本线元起点里程：U=本线元起点X：V=本线元起点Y：G=本线元起算方位角：H=本线元长度：P=起点曲率半径：R=终点曲率半径：Q=0或1、-1：Goto0Δ←┘(第二线元数据要素)