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

合集下载

卡西欧fx-4800P计算器程序集(小刚)

计算器对应程序名称：{ZDZB}（转点坐标）A“XZ”B“YZ”C“XH”D“YH”：{RL}I=1：J=1：Pol（（C－A），（D－B））：F=R＋JRec（L，F）X“X”=I＋A◢Y“Y”=J＋B◢注：用于已知两点坐标，及待测点与测站点的连线与已知边（两已知点的连线）的水平夹角和待测点至测站点的水平距离求待测点坐标。

XZ、YZ—测站点坐标；XH、YH—后视点坐标；R—水平角（顺时针为正，逆时针为负）；L—待测点至测站点水平距离。

计算器对应程序名称：{FWJ}(方位角)X“X1”：Y “Y1”：U“X2”：V“Y2”G=U-X:H=V-YPol(G,H):I◢J<0==>J=+360⊿J“J0=”注：用于已知两点坐标，求两点之间的方位角和距离。

X1、Y1—前视（后视）点坐标；X2、Y2—测站点坐标；L—测站点至前视（后视）点距离；J0—方位角(按SHIFT键再按°′″键转换为60制角度)。

任意多边形面积计算程序fx-4800p（三）计算器对应程序名称：{MJ}Lbl 0:M“N”：N“E”：E=M：F=N：S=0Lbl 1:{XY}:S=S-(XN-YM)/2:X=E==>Y=F==>“㎡”:S ◢Goto O ⊿⊿M=X:N=Y:Goto 1注：用于计算任意多边形的面积。

N-起始点X坐标（闭合点X坐标）E-起始点Y坐标（闭合点Y坐标）X-前进点X坐标Y-前进点Y坐标S-多边形面积（取绝对值）应顺序依次输入点坐标，输完所有点坐标后应再次输入起点坐标，这样就形成了多边形的闭合，程序将自动计算出多边形的面积。

极坐标测设建筑物（放样）计算程序fx-4800p（四）计算器对应程序名称：{ZBCS}E:F:K:LG=K-E:H=L-FPOL(G,H):J<0==>B=J+360：≠==>B=J⊿Lbl 0{XY}:X=0==>G o t o E⊿G=X-E:H=Y-FPol(G,H):I◢J<0==>J=J+360⊿C=J-B:C<0==>C=C+360⊿C◢Goto 0Lbl E注：用于计算已知方向边AB（已知点A、B两点的连线）与A（测站点）点至任意放样点i方向边（测站点与待放样点的连线）的水平夹角Bi和水平距离。

卡西欧计算器坐标计算程序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÷（2 40R2）▲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^4 SR））：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－Ws in 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=Vsi n 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＋20Goto 0程序运行输入：JD？——交点桩号R？——圆曲线半径LS？——缓和曲线长度PJ——L－R＋？——偏角右偏为正ZH——N？——ZH点N坐标ZH——E？——ZH点E坐标JD——N？——JD点N坐标JD——E？——JD点E坐标输出：ZH= ——ZH点桩号HY= ——HY点桩号QZ= ——QZ点桩号YH= ——YH点桩号HZ= ——HZ点桩号T= ——切线长L= ——曲线长E= ——外矢距再输入：ZHUANG HAO？——输入任一点桩号I——B OUT＋IN－？——距中线距离（外侧为正）再输出：COM——N= ——计算出N坐标COM——E= ——计算出E坐标以此循环——再输入——再输出程序中各字母所代表的含义：A——ZH点N坐标B——ZH点E坐标C——JD点N坐标D——JD点E坐标E——外矢距F——偏角（右偏为正）G——弯道内任一点桩号H——弯道内任一点切线角I——计算出的N坐标J——计算出的E坐标K——交点桩号L——曲线长M——ZH点桩号N——HY点桩号O——QZ点桩号P——ZH--JD方位角Q——HZ点桩号R——圆曲线半径S——缓和曲线长度T——切线长U——距中线距离（外侧为正）V——支距W——支距X——弯道内坐标Y——弯道内坐标Z——任一点曲线长度Z[1]——YH点桩号。

卡西欧4800P计算器程序

环运算语句J 子程序名称H=X+DcosG◣ 公式运算、数据显示语I=Y+DsinG◣ 公式运算、数据显示语T=X—EcosG◣ 公式运算、数据显示语U=Y—EsinG◣ 公式运算、数据显示语最后计算器状态设定语句是大家最容易忽视的。

如果将单位进行预设那么计算器就会默认其使用单位在进行下一单位换算时要一定要进行单位转换，否者会使计算结果错误。

在显示屏幕的左下角可以清楚地发现小提示符号：如D代表度为现在的缺省单位、R代表弧度为现在的缺省单位、G 代表梯度为现在的缺省单位。

首页┊ GPS测量┊工程测量┊遥感测量┊地籍测量┊控制测量┊数字测图┊地图制图┊数据处理┊测绘仪器┊软件应用┊房产测量┊地理信息┊测量管理┊程序开发┊理论文章┊其他┊ 文章更新列表┊游客发布论文所属分类：程序开发来源：作者：更新日期：2006-8-25 阅读次数：156 文章更新列表查看公告列表00-54700”Lbl 1:｛ZKB｝:Z:K:B:O=1=＞Goto 2△O=2=＞Goto 3△O=3=＞Goto 4△Lbl 2:Z＜47264=＞Goto 5△Z＞501▲Goto 0Lbl 6:Prog“DQXY”:“X=”:X:Pause 0:“Y=”:Y▲Pol（X-Q,Y-U）:J＜0=＞J=360+J△:I=Intg（1000I+.5）Z、待求点的桩号。

K、待求点在左幅输0右幅输1。

B、待求点距中距离。

Goto 5前的桩号为起止点或断链点桩号。

P T÷100T-Int T）÷.6X=Q+Rec（L,T）:Y=U+J:“X=”:X:Pause 0:“Y=”:Y▲Lbl 1:Prog“55”:Prog“YS”:Z＞48980 oto 4△Prog“FQ”: Goto ZLbl 4:Prog“57-1”:Prog“YS”:Z＞50354.96=＞Goto 5△Prog“FQ”Z＞50167.16 =＞Z og“FQ”: Goto ZLbl 7:Prog“60”:Prog“YS”:Z＞52546.8=＞Goto 8△Prog“FQ”: Goto ZLbl 8:Prog“61”:Pro B△Prog“FQ”: Goto ZLbl B:“CX ERROR”▲ Goto 0Lbl Z:Z=Intg（1000Z+.5）÷1000:B=Intg（1000B+.5）÷100号为第2个曲线组合的ZH点桩号，以后类推。

卡西欧计算器程序fx-4800p

Casio Fx-4800P计算器测量计算程序抚顺市市政建设(集团)有限公司第一工程处：张和光Casio Fx-4800P一、整机概况Fx-4800P计算器是日本Casio公司的产品，它除了具备函数型计算器的全部功能之外，还具备如下特殊功能：1、二进制和八进制字组显示；2、二进制、八进制、十进制和十六进制的转换和加、减、乘、除运算。

3、进行f（x）函数的输入与积分的计算；4、进行标准差和回归计算。

Fx-4800P计算器具有同时显示运算表达式和计算结果的四行式显示的特点。

该计算器具有记存4500个程序步的记忆储存装置，计算器储存了程序之后，只要您输入数据，再按一下EXE键，计算器就会用数据进行程序执行,对于随数据而变化的反复计算的运用十分方便。

Fx-4800P计算器具备条件指令转移和非条件指令转移的能力，还具备逻辑判断能力，因此它可以进行测量工作中比较复杂的计算，当然其它专业的计算工作也同样可以解决。

（1）Fx-4800P计算器操作方法比较简单、易学，程序编排灵活、易懂，可称之谓各专业技术人员的物美、价廉、得心应手的计算工具。

每一台Fx-4800P计算器都具备一本说明书，该计算器各部键的功能以及操作方法，只要认真按照说明书各章节学习，很快就能掌握和运用，现将我在生产实践中应用的部分计算程序介绍给测绘界的同行以便共同探讨。

（2）二、程序库1．坐标反算：程序步骤：C”X1”:D”Y1”:E”X2”:F”Y2”:Fixm:Pol(E-C ,F-D:I”S1-2=”◢J≤O=>J=J+360△J”A1-2=”操作过程：ZBFS→EXE→输入X1值→EXE→输入Y1值→EXE→输入X2值→EXE→Y2→EXE→EXE→EXES1-2：计算得出的距离；A1-2：计算得出的角度。

（按shift°′″转换为60进制的角度）注：此程序可循环计算。

（3）2．坐标正算：程序步骤：C”X1”:D”Y1”:S”S1-2”:R”A1-2”:Fixm:X”X 2”=C+Rec(S,R◢Y” Y2”=D+J操作过程：ZBZS→EXE→输入X1值→EXE→输入Y1值→EXE→输入S1-2距离→EXE→输入A1-2角度（例125°31′23.25″）→EXE→EXE注：此程序可循环计算。

CASIO_fx4800P与fx4850P说明书

次并显示计算结果，按键删除显示后，计算结果不被保存；而 fx-4800P 可以完整地显示用户输
入的表达式，按键显示的计算结果被保存在 Ans 存储器中，按键删除显示后，可以按键调出最近一次表达式的计算结果。还可以在完成表达式的计算后，立即按重演键或调出
并显示最近执行的表达式，再应用或键移动光标、输入新字符覆盖当前光标处的字符、应
第 1 章 CASIO fx-4800P 与 fx-4850P 的操作方法与编程技巧
§1.1 fx-4800P 的特点
众所周知，CASIOfx-4500PA 可编程函数计算器早在 80 年代末就已经在我国工程界得到了广泛的应用， fx-4800P 是比 fx-4500PA 更高一个级别的产品(见图 1-1)，它采用硬翻盖设计，除了具有 fx-4500PA 的全部功能以外，还主要改进了下列特性：
30，但π 2 不可以输入为 2，4 3 显然也不可以输入为 43。
③ 计算器遵循括号内的表达式、A、B 型函数，×、÷、＋、－的运算规则，而在 A、B 型函
数内的表达式，省略了×号的乘法运算级别最高。对于有同级别的运算，遵循由左至右的运算规则。
如输入表达式 2π sin 30 最简单的按键方式为 2
。
③ 2500 加上其 15%(答案为 2875)。按键：2500 15
。
④ 3500 减去其 25%(答案为 2625)。按键：3500 25
。
⑤ 168、98 及 734 的和减去其 20%(答案为 800)。
按键操作：168 98 734
20
。
⑥ 原重量为 543 克，将其重量加上 345 克后，总重量为原重量的百分之几(答案为 163.54%)?

4800程序

卡西欧Fx-4800P计算器测量程序一、坐标放样源程序ZBFYU“Xc”:M“Yc”:O“XH”:Q“YH”:I=O-U:J=Q-M: Pol(I，J):J＜0＝＞J=J+360:≠＞J=J:⊿T“HF” =J◢I“HL”◢X=0=＞W“XQ” =U+Lcos(T+P“a”)◢S“YQ” =M+Lsin(T+P)◢≠＞I=X-U:J=Y-M: Pol(I，J):J＜0＝＞J=J+360:≠＞J=J⊿I“QL=”◢H“QF” =J◢J=H-T:J＜0=＞J=J+360◢≠＞J=J使用说明:XH—后视点X坐标 YH—后视点Y坐标XC—置镜点X坐标 YC—置镜点Y坐标HF—后视方位角 QF—前视方位角HL—后视距离 QL—前视距离X、Y—前视点坐标 J—仪器后视归零后拨角当X=0时运行坐标反算QL—测设点到置镜点的距离а—测设点与后视点夹角XQ—测设点的X坐标 YQ—测设点的Y坐标二、复合辛卜生公式计算曲线元坐标源程序XBS—XY(已知里程求坐标)A“QD”:Z“ZD”:R“R0”:V“RN”:D“X0”:E“Y0”:F“F0”:K:L“B”:P“а”:J:Prog “SIM1”:W＜0＝＞W=W+360:≠＞W=W⊿W“FWI=”◢X=X◢Y=Y◢XBS—L、B(已知坐标求里程和边距)A“QD”:Z“ZD”:R“R0”:V“RN”:D“X0”:E“Y0”:F“F0”:K”K”(输入大致里程)I=X:B=Y:K=A+Abs((Y-E)cos(F+P“a”-180)+(X-D)sin(F+P-180):Lbl 1:L=0:Prog“SIM1”:C=(B-Y)cos(W+P-180)- (I-X)sin(W+P-180): AbsC＜10∧-4＝＞Goto2: ≠＞K=K+C∶Goto1:⊿Lbl2:L=0:Prog“SIM1”:C=(B-Y)÷sin(W+P):K=K◢C“B=”◢子程序SIM1T=(J÷V-J÷R)÷(Z-A)H=(K-A)÷NS=90H÷πW=F+((TNH+J÷R)+J÷R)NS: G=1:X=D+H÷6×(cosF+cosW+4×Σ(cos(F+((G+0.5)HT+2J÷R)(G+0.5)S),G,0,(N-1))+2Σ(cos(F+(THG+2J÷R)GS,G,1, (N-1)))+Lcos(W+P):Y=E+H÷6×(sinF+sinW+4×Σ(sin(F+((G+0.5)HT+2J÷R)(G+0.5)S,G,0,(N-1))+2×Σ(sin(F+(THG+2J÷R)GS,G,1,(N-1)))+Lsin(W+P)使用说明:QD—起点里程 ZD—终点里程R0—起点半径 RN—终点半径J—曲线转向 (左转为-1 直线为0 右转为+1)X0、Y0—线元起点坐标 F0—起点方位角K—待求点里程 N—计算精度(可取4～12的整数)а—边桩与中线右交角 B—边桩到中桩的距离，左“-”右“+”X、Y —待求点坐标 K—待求点里程三、数据库的编制以每个线元为一段先付参数值，例K≥542.759＝＞K≤686.148＝＞A”起点里程”=542.7590:Z终点里程=163.5:R起点半径=10^45: V终点半径=10^45:D起点坐标=22236.147:E起点坐标=32145.669:F起点切线方位角=81°22′42″:J＝0:⊿⊿K≥987.324＝＞K＜10234.021＝＞A=……J=－1⊿⊿……Prog“XBS—XY”四、纵断高程计算Lbi 0R:T:D”K(JD)”:H”H(JD)”:U”I1”:V”I2”:｛K｝V＞U=＞G=1:≠＞V＜U=＞G=-1⊿⊿K≤D-T=＞L=D-KP=H-LU/100≠＞K≤D=＞L=K-D+TP=H-U(D-K)/100+GL2/2R≠＞K≤D+T=＞L=D+T-KP=H+V(K-D)/100+GL2/2R≠＞K＞D+T=＞L=K-DP=H+LV/100⊿⊿⊿⊿P”H=”▲Goto 0H:高程、 K：变坡点里程、H：变坡点高程、I1、I2前后坡度五、中轴旋转、超高计算: (1)IR,(2)IL线路左转输2，W（Z）：中分带宽度，K：桩号，H（Z）：中桩设计高程，W（L）左侧宽度，W（R）：右侧宽度Lbi 1G”(1)IR,(2)IL”:D”K(ZH)”:S”LS1”:H”LS2”:Q”LY”:W”W(Z)”:I”I1”:J”IB”｛KVAE｝:K:V”h(Z)”:A”W(L)”:E”W(R)”G=2=＞G=-1⊿｛KPAB｝:K:P”H(Z)”:A”W(L)”:B”W(R)”Prog”XZ”:U”H(L)=”▲V”H(R)=”▲Goto11、子程序：XZG=1=＞U=A：V=B：≠＞G=-1=＞U=B：V=A⊿⊿K≤D=＞R=P-I（U-W/2）/100：E=P-I（V-W/2）/100：≠＞K≤D+S=＞Prog”ZXA”: ≠＞K≤D+S+Q=＞R=P+J(U-W/2)/100:E=P-J(V-W/2)/100: ≠＞K≤D+S+Q+H=＞Prog”ZXB”: ≠＞K＞D+S+Q+H=＞R=P-I(U-W/2)/100:E=P-I(V-W/2)/100⊿⊿⊿⊿⊿G=1=＞U=R:V=E: ≠＞G=-1=＞U=E:V=R⊿⊿2、子程序： ZXAL=K-DR=P-I(U-W/2)/100+L(U-W/2)(I+J)/100SL≤2IS/(I+J) =＞E=P-I(V-W/2)/100: ≠＞L＞2IS/(I+J) =＞E=P-LJ(V-W/2)/100S ⊿⊿3、子程序： ZXBL=D+S+Q+H-KR=P-I(U-W/2)/100+L(U-W/2)(I+J)/100HL≤2IH/(I+J) =＞E=P-I(V-W/2)/100: ≠＞L＞2IH/(I+J) =＞E=P-IJ(V-W/2)/100H ⊿⊿六：边轴旋转超高计算：L：平曲线长度，I1正常横坡，IB超高横坡。

CASIO fx-4500P、4800P计算器程序

CASIO fx－4500P与CASIO fx－4800P计算器部分按键及程序语句不同之处比较【坐标反算程序】文件名：ZBFS（调用子程序文件名：Z.FS）L1 Lbl 0L2 {XY}:X″X1″:Y″Y1″:U″X0″:Z″Y0″L3 Prog ″Z.FS″L4 ″DIST=″:D:Pause 0L5 D=0=>Goto 0:◣A″ANGLE=″◢Goto 0使用说明屏幕提示执行操作屏幕显示计算结果X1? 输入视点坐标XDIST= 置镜点与视点的距离Y1? 输入视点坐标YX0? 输入置镜点坐标XANGLE= 置镜点→视点方位角Y0? 输入置镜点坐标Y注意fx-4500P型计算器将L3行改成：Prog Z.FS【坐标正算程序】文件名：ZBZSL1 Lbl 0L2 {DA}:D″DIST″:A″ANGLE″:U″X0″:Z″Y0″L3 ″X=″:X=U+Dcos A:Pause 0L4 Y=Z+Dsin A◢Goto 0使用说明屏幕提示执行操作屏幕显示计算结果DIST? 输入置镜点与视点的距离X= 视点坐标X ANGLE? 输入置镜点→视点方位角X0? 输入置镜点坐标XY= 视点坐标Y Y0? 输入置镜点坐标Y 【转角放样程序】文件名：ZJFY（调用子程序文件名：Z.FS）L1 Lbl 0L2 {STUZ}:X=S″HSX″:Y=T″HSY″:U″X0″:Z″Y0″L3 Prog ″Z.FS″L4 D=0=>Goto 0:◣J=AL5 Lbl 1L6 {XY}:X″QSX″:Y″QSY″L7 Prog ″Z.FS″L8 ″DIST=″:D:Pause 0L9 D=0=>Goto 1:◣A≥J=>A″R-ANGLE″=A-J◢≠=>A″R-ANGLE″=A-J+360◢◣Goto 1使用说明屏幕提示执行操作屏幕显示计算结果HSX? 输入后视点坐标XDIST= 置镜点与前视点距离HSY? 输入后视点坐标YX0? 输入置镜点坐标XY0? 输入置镜点坐标YR-ANGLE=置镜点→后视点到置镜点→前视点的转角QSX? 输入前视点坐标XQSY? 输入前视点坐标Y注意fx-4500P型计算器将L3、L7行改成：Prog Z.FS【单交点基本型（对称、非对称）平曲线要素、中桩、边桩坐标计算程序】文件名：PQXJS（调用子程序文件名：PQXZB）L1 R:H″LS1″:H=0=>I=0:◣I″LS2″:Z:D″JD″:S=Abs Z L2 N=H2÷24R-H^4÷2384R^3L3 P=I2÷24R-I^4÷2384R^3L4 K=H÷2-H^3÷240R2L5 M=I÷2-I^3÷240R2L6 B=H÷2R:C=I÷2RL7 T″T1″=(R+P-(R+N)cos S)÷sin S+K◢U″T2″=(R+N-(R+P)cos S)÷sin S+M◢L=H+I+(Sπ÷180-B-C)R◢H=I=>E=(R+N)÷cos (S÷2)-R◢J=2T-L◢◣N″LY″=L-H-I◢B″ZH″=D-T◢C″HY″=B+H◢E″YH″=C+L-H-I◢F″HZ″=E+I◢G″QZ″=C+N÷2◢Prog ″PQXZB″使用说明屏幕提示执行操作屏幕显示计算结果R? 输入圆曲线半径T1= 小里程段切线长LS1?输入小里程段缓和曲线长（不设缓和曲线时，输入0）T2= 大里程段切线长LS2?输入大里程段缓和曲线长（不设缓和曲线时，不提示）L= 平曲线总长Z? 输入转向角(左转负、右转正) E= 外距(T1=T2时显示)JD? 输入交点桩号J= 校正数(T1=T2时显示)LY= 圆曲线长ZH= 直缓点桩号不设缓和曲线时，ZH=HY，为直圆点桩号HY= 缓圆点桩号YH= 圆缓点桩号不设缓和曲线时，YH=HZ，为圆直点桩号HZ= 缓直点桩号QZ= 曲中点桩号XJD? 输入交点的X坐标XZH= 直缓点X坐标（不设缓和曲线时，为直圆点X坐标）YJD? 输入交点的Y坐标YZH= 直缓点Y坐标（不设缓和曲线时，为直圆点Y坐标）F1? 输入小里程段导线的方位角XHZ= 缓直点X坐标（不设缓和曲线时，为圆直点X坐标）YHZ= 缓直点Y坐标（不设缓和曲线时，为圆直点Y坐标）XHY= 缓圆点X坐标不设缓和曲线时，不显示YHY= 缓圆点Y坐标XYH= 圆缓点X坐标YYH= 圆缓点Y坐标DQD? 输入待求点桩号FWJ= 待求点切线方位角X= 待求点中桩X坐标Y= 待求点中桩Y坐标ZB? 输入左幅宽度XZ= 待求点左幅边桩X坐标YZ= 待求点左幅边桩Y坐标YB? 输入右幅宽度XY= 待求点右幅边桩X坐标YY= 待求点右幅边桩Y坐标注意fx-4500P型计算器将L7行最后一句改成：Prog PQXZB；子程序中Prog ″PQX.F″改成Prog PQX.F，Prog ″PQX.BZ″改成Prog PQX.BZ【单交点基本型（对称、非对称）平曲线中桩、边桩坐标计算子程序】文件名：PQXZB（可单独执行，调用子程序PQX.F，PQX.BZ）L1 R:H″LS1″:H=0=>I=0:◣I″LS2″:Z:{XY}:X″XJD″:Y″YJD″:T″T1″:H=0=>U=T:◣U″T2″:B″ZH″:H=0=>C=B:◣C″HY″:E″YH″:H=0=>F=E:◣F″HZ″:{A}:A″F1″:Q=A+Z:Z>0=>S=1:≠=>S=-1:◣ J″XZH″=X+Tcos (A+180)◢K″YZH″=Y+Tsin (A+180)◢P″XHZ″=X+Ucos Q◢O″YHZ″=Y+Usin Q◢H≠0=>V=C-B-(C-B)^5÷40R2H2:W=(C-B)^3÷6RH-(C-B)^7÷336R^3H^3:M″XHY″=J+Vcos A+Wcos (A+90S)◢N″YHY″=K+Vsin A+Wsin (A+90S)◢V=F-E-(F-E)^5÷40R2I2:W=(F-E)^3÷6RI-(F-E)^7÷336R^3I^3:Z ″XYH″=P+Vcos (Q+180)+Wcos (Q+90S)◢Z ″YYH″=O+Vsin (Q+180)+Wsin (Q+90S)◢◣Lbl 0L2 {Z}:Z″DQD″L3 Z<B=>Goto 0:◣Z>F=>Goto 0:◣H=0=>G=A+180(Z-B)S÷πR:Prog ″PQX.F″:M=J:N=K:Goto 1:◣Z≤C=>G=A+90(Z-B)2S÷πRH:Prog ″PQX.F″:V=Z-B-(Z-B)^5÷40R2H2:W=(Z-B)^3÷6RH-(Z-B)^7÷336R^3H^3:X=J+Vcos A+Wcos (A+90S)◢Y=K+Vsin A+Wsin (A+90S)◢Prog ″PQX.BZ″:Goto 0:◣Lbl 1L4 Z≤E=>G=A+90(C-B)2S÷πRH+180(Z-C)S÷πR:Prog ″PQX.F″:V=90H÷πR:W=90(Z-C)÷πR:X=M+2Rsin Wcos (A+SV+SW)◢Y=N+2Rsin Wsin (A+SV+SW)◢Prog ″PQX.BZ″:Goto 0:◣Z>E=>G=Q-90(F-Z)2S÷πRI:Prog ″PQX.F″:V=F-Z-(F-Z)^5÷40R2I2:W=(F-Z)^3÷6RI-(F-Z)^7÷336R^3I^3:X=P+Vcos (Q+180)+Wcos (Q+90S)◢Y=O+Vsin (Q+180)+Wsin (Q+90S)◢Prog ″PQX.BZ″:◣Goto 0【平曲线切线方位角计算结果处理子程序】文件名：PQX.FL1 G>0=>G<360=>G″FWJ=″◢≠>G″FWJ″=G-360◢◣≠>G″FWJ″=G+360◢◣【平曲线边桩坐标计算子程序】文件名：PQX.BZL1 {L}:V=G-90:W″XZ″=X+L″ZB″cos V◢W″YZ″=Y+Lsin V◢{L}:V=G+90:W″XY″=X+L″YB″cos V◢W″YY″=Y+Lsin V◢【契形体体积计算程序】文件名：XXTTJL1 V=H÷6×(A″A1″×B″B1″+C″A2″×D″B2″+(A+C)(B+D)) 【竖曲线要素及高程计算程序】文件名：SQXJSL1 M″BZH″:G″BGC″:A″I1″:B″I2″:RL2 W=B-A◢L=RAbs W◢T=L÷2◢E=T2÷2R◢F″QZH″=M-T◢J″ZZH″=M+T◢Lbl 0L3 {Z}:Z″ZH″L4 Z≤F=>H=G-(M-Z)A◢Goto 0:◣Z≥J=>H=G+(Z-M)B◢Goto 0:◣Y=(Z-F)2÷2RL5 H=G-(M-Z)AL6 W≥0=>H=H+Y◢≠=>H=H-Y◢◣Goto 0 使用说明屏幕提示执行操作屏幕显示计算结果BZH? 输入变坡点桩号W= 前后纵坡坡度差BGC? 输入变坡顶点高程L= 竖曲线长度I1? 输入小里程段纵坡(前进方向上坡为+，下坡为-) T= 竖曲线切线长I2? 输入大里程段纵坡(前进方向上坡为+，下坡为-) E= 竖曲线外距R? 输入竖曲线半径QZH= 竖曲线起点桩号ZH? 输入计算点的桩号ZZH= 竖曲线终点桩号H= 计算点的中桩高程【无竖曲线段纵坡高程连续计算程序】文件名：ZPGC L1 F″ZH0″:G″GC0″:IL2 Lbl 0:{N}:N=0=>Goto 0:◣Z=FL3 Lbl 1L4 ″ZH=″:Z=Z+N:Pause 0L5 ″H=″:H=G+(Z-F)I:Pause 2L6 Goto 1使用说明屏幕提示执行操作屏幕显示计算结果ZH0? 输入已知桩号ZH= 计算点的桩号GC0? 输入已知桩号的高程I? 输入纵坡(前进方向下坡为负，上坡为正)H= 计算点的高程N? 输入桩号增量【余弦定理的坐标运用】文件名：YXDL-ZBL1 A″AX″:B″AY″:C″BX″:D″BY″:E″CX″:F″CY″L2 G″AB″=√((C-A)2+(D-B)2)◢H″BC″=√((E-C)2+(F-D)2)◢I″CA″=√((E-A)2+(F-B)2)◢J″<A″=cos-1 ((G2+I2-H2)÷2GI)◢J″360°-<A″=360-J◢J″<B″=cos-1 ((G2+H2-I2)÷2GH)◢J″360°-<B″=360-J◢J″<C″=cos-1 ((H2+I2-G2)÷2HI)◢J″360°-<C″=360-J使用说明屏幕提示执行操作屏幕显示计算结果AX? 输入A点坐标X AB= AB距离AY? 输入A点坐标Y BC= BC距离BX? 输入B点坐标X CA= CA距离BY? 输入B点坐标Y <A= <A角度CX? 输入C点坐标X <B= <B角度CY? 输入C点坐标Y <C= <C角度【施工坐标与大地坐标相互转换程序】文件名：ZBZH（调用子程序文件名：Z.FS，Z.ZH）L1 Lbl 0L2 {XYFG}:X″AX1″:Y″AY1″:U=F″OX1″:Z=G″OY1″L3 Prog ″Z.FS″L4 D=0=>Goto 0:◣E=AL5 Lbl 1L6 {XYHI}:X″AX2″:Y″AY2″:U=H″OX2″:Z=I″OY2″L7 Prog ″Z.FS″L8 D=0=>Goto 1:◣E≥A=>E″ANGLE1->2″=E-A◢≠=>E″ANGLE1->2″=E-A+360◢◣Prog ″Z.ZH″使用说明屏幕提示执行操作屏幕显示计算结果AX1? 输入A点在坐标系1中的坐标XANGLE1->2= 坐标系1到坐标系2的转角AY1? 输入A点在坐标系1中的坐标Y OX1? 输入O点在坐标系1中的坐标X OY1? 输入O点在坐标系1中的坐标Y AX2? 输入A点在坐标系2中的坐标X AY2? 输入A点在坐标系2中的坐标YOX2? 输入O点在坐标系2中的坐标XX2= 计算点在坐标系2中的坐标XOY2? 输入O点在坐标系2中的坐标YX1? 输入计算点在坐标系1中的坐标XY2= 计算点在坐标系2中的坐标YY1? 输入计算点在坐标系1中的坐标Y注意fx-4500P型计算器将L3、L7行改成：Prog Z.FSL8行最后一句改成：Prog Z.ZH【坐标反算子程序】文件名：Z.FSL1 B=X-U:C=Y-ZL2 D=√(B2+C2)L3 D=0=>Goto 0:◣C≥0=>A=cos-1(B÷D):≠=>A=360-cos-1(B÷D):◣Lbl 0【坐标转换子程序】文件名：Z.ZH（可单独执行，调用子程序：Z.FS）L1 U=F″OX1″:Z=G″0Y1″:H″0X2″:I″OY2″:E″ANGLE1->2″L2 Lbl 0L3 {XY}:X″X1″:Y″Y1″L4 Prog ″Z.FS″L5 D=0=>Goto 0:◣A=A-EL6 ″X2=″:X=H+Dcos A:Pause 0L7 Y″Y2″=I+Dsin A◢Goto 0使用说明屏幕提示执行操作屏幕显示计算结果OX1? 输入O点在坐标系1中的坐标XX2=计算点在坐标系2中的坐标XOY1? 输入O点在坐标系1中的坐标YOX2? 输入O点在坐标系2中的坐标XY2=计算点在坐标系2中的坐标YOY2? 输入O点在坐标系2中的坐标YANGLE1->2? 输入坐标系1到坐标系2的转角X1? 输入计算点在坐标系1中的坐标XY1? 输入计算点在坐标系1中的坐标Y注意fx-4500P型计算器将L4行改成：Prog Z.FS【仁宗海交通桥拱圈悬链线坐标计算程序】文件名：XLXL1 M=2.514:F=12.195:L=30.484L2 Lbl 0L3 {X}:J=30.484-XL4 P=-0.00011837194X2+0.0072169X◢A=Jln (M+√(M2-1))÷LL5 D=tan-1(FAsinh A÷J(M-1))◢Y″YZ″=F-F(cosh A-1)÷(M-1)+2363.821+P◢Z″YS″=Y+0.7÷cosD◢{H}:U=Z-H◢W″YX″=Y-0.7÷cosD◢Q=W-H◢Goto 0使用说明屏幕提示执行操作屏幕显示计算结果X? 输入拱圈X坐标(以拱圈左下角为坐标原点)P= 计算点的设计预拱度YZ= 中轴设计高程（已加了设计预拱度P）YS= 上缘设计高程（已加了设计预拱度P）H? 输入实测高程U=上缘设计高程与实测高程的高差：负数表明实测高程高于设计高程正数表明实测高程低于设计高程YX= 下缘设计高程（已加了设计预拱度P）Q=下缘设计高程与实测高程的高差：负数表明实测高程高于设计高程正数表明实测高程低于设计高程注意fx-4500P型计算器将L5行中sinh A改成(e A-e-A)÷2；将coshA改成(e A+e-A)÷2【高斯坐标转换程序】文件名：GSZHL1 A″H0″:Lbl 1:{BCH}:E=B″H1″+C″H2″:F″HD0″=(1+(A-.5E)÷6378245)H″HD″◢Goto 1【高斯坐标转换程序1】文件名：GSZH1L1 A″H0″:R=6378245:Lbl 1:{BCH}:E=B″H1″+C″H2″:F″HD0″=(R+A)H″HD″÷(R+.5E)◢Goto 1使用说明屏幕提示执行操作屏幕显示计算结果H0? 输入投影面高程HD0=高程投影后的平距H1?、H2? 输入该边两端点的高程HD? 输入平距【40米T型梁梁底模反拱度高程控制程序】文件名：FGD-Q（使用全站仪）L1 Lbl 0L2 {XQ}L3 P=.003X-.04+(20-X)2÷10000◢Z=P+2717.90358◢B=Z-Q◢Goto 0使用说明屏幕提示执行操作屏幕显示计算结果X? 输入X坐标（以0＃台梁端为(0,0)点，输入范围0～40）P= 计算点与0,0点的设计高差Z= 计算点的设计高程Q? 输入实测高程B= 设计高程－实测高程（正值表示该点偏低，负值表示该点偏高）注意fx-4500P型计算器将L3行中“÷”改为“/”，0＃台梁端高程为2717.90358【40米T型梁梁底模反拱度高程控制程序】文件名：FGD-S（使用水准仪）L1 Lbl 0L2 {XQ}L3 P=.003X-.04+(20-X)2÷10000◢Z=P+2717.90358◢B=Z-S+Q◢Goto 0使用说明屏幕提示执行操作屏幕显示计算结果X?输入X坐标（以0＃台梁端为(0,0)点，输入范围0～40）P= 计算点与0,0点的设计高差Z= 计算点的设计高程S?输入视线高程（单位：m，只输入一次）B=设计高程－实测高程（正值表示该点偏低，负值表示该点偏高）Q? 输入前视读数（单位：m）注意fx-4500P型计算器将L3行中“÷”改为“/”，0＃台梁端高程为2717.90358。

单条曲线坐标计算程序(新) 卡西欧4800计算器

单条曲线坐标计算程序(casio fx-4800P)(只限于对称型综合曲线使用)包含1个主程序和2个子程序1、主程序: “QU-XIAN”O“JDLC”：A“JDX”：B“JDY”：R：G“L0”：Z“ZUAN-JIAO”：H“FANG-XIANG”：V“Z-1，Y+1”LbL 1{S,M}G>0=>Prog“ZH-Y-HZ”:≠=>Prog“YY”⊿U<360=>U:≠=>U=U-360⊿E=X+cos(U-90)×MF=Y+sin(U-90)×MK=X+cos(U+90)×MP=Y+sin(U+90)×MX◢Y◢E“ZX”◢F“ZY”◢K“YX”◢P“YY”◢U“HUANG-XIANG”◢Goto 12、子程序：“ZH-Y-HZ”T=(R+G2÷24R)tg(Z÷2)+G÷2－G3÷240R2L=R(Z－G÷R×180÷π)×π÷180+2GC=O－TD=C+GI=C+L－GN=C+LE=A+Tcos(H+180)F=B+Tsin(H+180)K=E+cos(H+VG2÷6÷R÷G×180÷π)×(G－G5÷90÷(RG)2)P=F+sin(H+VG2÷6÷R÷G×180÷π)×(G－G5÷90÷(RG)2)Q=A+cos(H+VZ)×TW=B+sin(H+VZ)×TS<c=>L=C－S:X=A+cos(H+180)×(T+L):Y=B+sin(H+180)×(T+L):U=H⊿S>C=>L=S－C:J=H+VL2÷6÷R÷G×180÷π:L=L－L^5÷90÷(RG)2:X=E+cosJ ×L: Y=F+sinJ×L:U=H+3V(S－C)2÷6÷R÷G×180÷π⊿S>D=>L=S－D:J=H+VG÷R×90÷π+90VL÷π÷R:L=2R×sin(90L÷R÷π):X=K+cosJ×L:Y=P+sinJ×L:U=H+VG÷R×90÷π+V×180(S－D)÷π÷R⊿S>I=>L=N－S:J=H+VZ－VL2÷6÷R÷G×180÷π:L=L－L^5÷90÷(RG)2:X=Q+cosJ×(－L): Y=W+sinJ×(－L):U=H+VZ－3V(N－S)2÷6÷R÷G×180÷π⊿S>N=>L=S－N:J=H+VZ:X=A+cosJ×(T+L):Y=B+sinJ×(T+L):U=J⊿3、子程序：“YY”T=Rtg(Z÷2)L=RZ×π÷180C= O－TN=C+LE=A+Tcos(H+180)F=B+Tsin(H+180)S<C=>L=C－S:X=A+cos(H+180)×(T+L):Y=B+sin(H+180)×(T+L):U=H⊿S>C=>L=S-C:J=H+90VL÷πR:X=E+cosJ×(2Rsin(90L÷πR)):Y=F+sinJ×(2Rsin(90L÷πR)):U=H+180VL÷πR⊿S>N=>L=S-N:J=H+VZ:X=A+cosJ×(T+L):Y=B+sinJ×(T+L):U=J⊿使用说明：JDLC--------------交点里程JDX---------------交点X坐标JDY---------------交点Y坐标R-----------------圆曲线半径L0----------------缓和曲线长ZUAN-JIAO---------线路转角FANG-XIANG--------ZH（ZY）方向角V“Z-1，Y+1”-----系数，左转输“-1”，右转输“+1”S-----------------待求点桩号M-----------------边桩距离显示计算结果：X、Y--------------- 待求点中桩坐标ZX、ZY--------------待求点左边桩坐标YX、YY--------------待求点右边桩坐标HUANG-XIANG---------待求点方向角匝道上回旋线元任意点坐标计算程序(casio fx-4800P)文件名：ZA DAO HUANC ：O ：LbL 1{S,J,W}H=1=>M=0△R=0=>G=0:≠=>G=C ÷R △ I=G+S-K H=2=>M=C ÷RD:G=C ÷R:I=G-S+K △ V=1=>L=M+S-K △ V=-1=>L=M-S+K △ T=O-90VM 2÷C ÷π：A=L-M-(L^5-M^5)÷40C 2+(L^9-M^9)÷3456C^4-(L^13-M^13)÷599040C^6：B=(L^3-M^3)÷6C-(L^7-M^7)÷336C^3+(L^11-M^11)÷42240C^5-(L^15-M^15) ÷9676800C^7： U=X+V ACosT-BSinT ◢Z=Y+V ASinT+BCosT ◢P=O+Abs(G 2-I 2) ÷2C×180÷π×DP<360=>P ◢≠=>P=P-360◢△E=U+JCos(P-90) ◢F=Z+JSin(P-90) ◢N=U+WCos(P+90) ◢Q=Z+WSin(P+90) ◢Goto 1一、使用说明C ——为回旋线曲率半径变化率，C=A 2=RL 0O ——为（ZH 、YH ）方向角S ——回旋上待求点里程K ——回旋线起算点（ZH 、YH ）里程X 、Y ——起算点（ZH 、YH ）的横、纵坐标U 、Z ——待求点横、纵坐标P ——待求点方向角J 、W ——待求点左、右边桩距离E 、F ——待算点左边桩横、纵坐标N 、Q ——待算点右边桩横、纵坐标D ——线路转向判断值，左转为“-1”，右转为“+1”二、注意事项H ——缓和曲线类型判断值，第一缓和曲线为“1”，第二缓和曲线为“2”（起算点半径为无穷大为第一缓和曲线，起算点为YH 点时为第二缓和曲线）V ——曲率半径大小比较值，曲率半径ρ由大变小为“+1”，反之为“-1”，线路左转时，曲率半径ρ要带负号进行比较R ——起算点（ZH 、YH ）的半径值，不需输入正负号，在ZH 时，半径为∞（无穷大），此时半径输入0 。

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

O —X N Y N计算L1 ZX？输入置镜点X 坐标X “ ZX ” Y “ ZY ” ZKA “ ZH ” B ZY？输入置镜点丫坐标“ XZH ” S“ YZH ” O“ EJ”：R“ R Z？输入置镜点高程(L- , R+ ) ” = 9 — Goto E / I “ LS ”K？输入仪器高度L : Lbl E : Q= 9 : J “ HX ” U ZH？输入直缓点里程Goto 6 ： Lbl 9 XZH？输入直缓点X 坐标L2 YZH？输入直缓点丫坐标G : “ — E ” 丄Lbl 1 : {N} : N “ —L” ：EJ？输入直缓点方位角W=Abs ( A-AbsN ： N= 9 — Goto 9 R(L— , R +)？输入圆曲线半径,/ E=O: F= 9 : P= 9 : R 工9 — Q=90/ 左偏为负, 右偏为正n R : Goto2 / Rec ( W, 18 9 +O : LS？输入直缓点至缓圆点长度Goto4 / Lbl 2 L？输入完整曲线长度,即两倍L3 LS 加圆曲线长I < W — E=Q ( W-I : Goto 3 / HX？输入后视点X 坐标P=QW2/I Rec( W-Wx y5/9 9 R2I 2 , HY？输入后视点丫坐标P/3+O : Goto4 / Lbl 3 —E 显示后视方位角L4 —L？输入计算里程W > L-I — Goto 1 / F=2RsinE : E = 显示视方位角P=E+O+IQ FcosP+Rec ( I － Ix y3/9 S = 显示前视距离9 R2, IQ/3+O Lbl 4 M？输入1 进入①中桩计算模L5 式, 输入9 进入②边桩计算模式 , Q=B+Ans J=Q F=S+W+FsinP 输入竖直角度进入③测距仪计算U=Ans : N > 9 — Goto 6 / Lbl 5 模式L6{D} : D= 9 — Goto 1 / D=1 — Goto 8 ① 中桩计算模式/ H=P+E — 9 9 AbsD/D : J=Q+Rec XD = 显示计算里程中桩X 坐标( Abs D , P+E-9 9 AbsD/D YD = 显示计算里程中桩Y 坐标U=F+W Lbl 6 —L？输入下一计算里程L7 ② 边桩计算模式Pol ( J-X , U-Y : W v 9 — W+36 D？输入边桩距离,左侧输正值, 9 :工—W / Q=9 —G=Ans : Goto 右侧输负值9 / “ E=” 丄V: “ S=” 丄Lbl 7 E = 显示前视方位角L8 s= 显示前视距离{CMTH} : M= 9 — Goto 5 / M =1 M？输入1 显示边桩坐标—Goto 8 / C Abs sinM : “ — D= ”—L？输入下一计算里程丄V— Ans : “ / S=” 丄Z= 9 — Goto 7 ③测距仪计算模式/ T= 9 — Goto 7 / C？输入斜距K-T+H+Z+CcosM : “ —H ” 丄Goto —D = 显示平距5 / Lb1 8 / S= 显示距离仪器？mL9 说明“ 9 ” 为零 , O 为英文字J: “XD= ” 丄U: “ YD = ” 丄Goto 1C “ X 9 = ”：D “ Y 9 = ”：E “ W 9 = ”： N=Ans : R “ R= ”： L “ L 卩。

CASIOfx-4800P 路线计算(偏角法对称型)

CASIO fx-4800P 路线放样计算程序(偏角法对称型计算)程序说明：1、本程序是计算对称型圆曲线中、边桩坐标。

2、程序所占内存2400步左右。

3、本程序单个交点输入。

4、程序运行计算时有五大桩号提示。

L1 DegL2 Defm 19L3 Fixm 程序菜单1-设站，2-数据输入，3-路线坐标计算，4-设新点L4 Lbl 0L5 {A}:A”SZ-1,INPUT.SJ-2,LXFY-3,XD-4”L6 A=1=> Goto 1L7 A=2=> Goto 2L8 A=3=> Goto 3L9 A=4=> Goto BL10 Goto 0 输入站点与后视点坐标L11 Lbl 1L12 {BCDE}:B”ZDX”:C”ZDY”:D”HDX”:E:”HDY”L13 Pol(D-B,E-C)L14 Z[1]”HD”=I◢L15 J>0=>Z[2]”HA”=J◢≠>Z[2]”HA”=360+J◢L13 Goto 0 交点要素数据输入L14 Lbl 2L15 {FGHIKLMNRP}:F”JD1X”:G”JD2Y”:H”JDX”:K”JDY”:L”JD2X”:M”JD2Y”:N”JDLC”:R”JDR”:P”JDLS1”L16 Pol(H-F,K-G)L17 J>0=>Z[3]”1=>0”=J◢≠>Z[3]”1=>0”=360+J◢L18 Pol(L-H,M-K)L19 J>0=>Z[4]”0=>2”=J◢≠>Z[4]”0=>2”=360+J◢Z[3]+180>360=>Z[18]=Z[3]-180 计算交点转角和判断是左角还是右角Z[3]+180<360=>Z[18]=Z[3]+180Z[18]<Z[4]=>Z[19]=Abs(Z[18]+360-Z[4]])Z[18]>Z[4]=>Z[19]=Abs(Z[18]-Z[4])Z[19]>180=>U=1:O=Z[19]-180Z[19]<180=>U=-1:O=180-Z[19]L20 Z[5]=90P/R/πL21 Z[6]=(R+P^2/24/R)Tan(O/2)+(P/2-P^3/240/R^2) 切线长L22 Z[7]= πON/180+P 曲线长L23 Z[8]= πR(O-2Z[5])/180 圆曲线长L24 Z[13]=N-Z[6] ZH点L25 Z[14]=Z[13]+P HY点L26 Z[15]=Z[14]+Z[8]/2 QZ点L27 Z[16]=Z[14]+Z[8] YH点L28 Z[17]=Z[16]+P HZ点L29 Goto 0 路线计算输入里程桩号L30 Lbl 3L31 {S}:S”INPUT LC”L32 S<Z[13]+10=>S>Z[13]-10=>Goto C ZH点L33 P≠0=>S<Z[14]+10=>S>Z[14]-10=>Goto D YH点L34 S<Z[15]+10=>S>Z[15]-10=>Goto E QZ点L35 P≠0=>S<Z[16]+10=>S>Z[16]-10=>Goto F HY点L36 S<Z[17]+10=>S>Z[17]-10=>Goto G HZ点L37 S>Z[13]=>S≤Z[14]=>T=S-Z[13]:Goto 4 ZH点至HY点段L38 S>Z[14]=>S<Z[16]=>T=S-Z[14]:Goto 6 HY点至YH点段L39 S≥Z[16]=>S<Z[17]=>T=Z[17]-S: Goto 4 YH点至ZH点段L40 S≤Z[13]=>Goto 8 ZH点前直线段L41 S≥Z[17]=>Goto 9 HZ点后直线段L42 Goto 0 计算缓和段长偏角L43 Lbl 4L44 P≠0=>Z[9]=30T^2/π/R/PL45 P≠0=>Z[10]=√((T-T^5/(40R^2P^2))^2+(T^3/6RP)^2)L46 P≠0=>S≥Z[13]=>S≤Z[14]=>Goto 5 ZH点至HY点段L47 P≠0=>S≥Z[16]=>S≤Z[17]=>Goto 7 YH点至HZ点段L48 S>Z[14]=>S<Z[16]=>T=S-Z[14]:Goto 6 HY点至YH点段L49 S≤Z[13]=>Goto 8L50 S≥Z[17]=>Goto 9L48 Goto 0 计算ZH点至YH点段中线坐标L51 Lbl 5L52 U=1=>V=Z[3]-Z[9]:Z[11]”H1”=Z[3]-3Z[9] ◢U=-1=>V=Z[3]+Z[9]:Z[11]”H1”=Z[3]+3Z[9] ◢L53 Rec(Z[10],V)L54 X=H+Z[6]COS(180+Z[3])+IL55 Y=K+Z[6]SIN(180+Z[3])+JL56 Goto A 计算圆曲线段中线坐标L57 Lbl 6L58 Z[9]=90T/π/RL59 U=1=>V=Z[3]-Z[5]-Z[9]:Z[12]=Z[3]-Z[5]/3:Z[11]”YQ”=Z[3]-Z[5]-2Z[9] ◢U=-1=>V=Z[3]+Z[5]+Z[9]:Z[12]=Z[3]+Z[5]/3:Z[11]”YQ”=Z[3]+Z[5]+2Z[9] ◢L60 Rec(ABS(2RSinZ[9]),V)L61 X=H+Z[6]Cos(180+Z[3])+ √((P-P^3/40/R^2)^2+(P^2/6/R)^2)CosZ[12]+IL62 Y=K+Z[6]Sin(180+Z[3])+ √((P-P^3/40/R^2)^2+(P^2/6/R)^2)SinZ[12]+JL63 Goto A 计算YH点至HZ点段坐标L64 Lbl 7L65 U=1=>V=Z[4]+180+Z[9]:Z[11]”H2”=Z[4]+3Z[9] ◢U=-1=>V=Z[4]+180-Z[9]:Z[11]”H2”=Z[4]-3Z[9] ◢L66 Rec(Z[10],V)L67 X=H+Z[6]CosZ[4]+IL68 Y=K+Z[6]SinZ[4]+JL69 Goto A 计算ZH点前直线坐标L70 Lbl 8L71 Z[11]=Z[3]L72 Rec(N-S,Z[3])L73 X=H-IL74 Y=K-JL75 Goto A 计算HZ点后直线坐标L76 Lbl 9L77 Z[11]=Z[4]L78 Rec(S-N+2Z[6]-Z[7],Z[4])L79 X=H+IL80 Y=K+jL81 Goto A 计算边桩坐标与站点到计算点的平距和方位角L82 Lbl AL83 {W}:W”INPUT FX”L84 X”X”=X+WCos(90+Z[11]) ◢L85 Y”Y”=Y+WSin(90+Z[11]) ◢L86 Pol(X-B,Y-C)L87 I”HD”=I◢L88 J>0=>J”HA”=J◢≠>J”HA”=360+J◢L89 {A}:A”Cont.FY-3,EXT-4”L90 A=3=>Goto 3L91 A=4=>Goto 0 计算新点的坐标L92 Lbl bL93 {O}:O”XD.HD”:{Z}:Z”XD.HA”L94 Rec(O,Z)L95 X”XP”=B+I◢L96 Y”YP”=C+J◢L97 Goto 0 ZH点L98 Lbl CL99 P=0=>Z[13]”ZYD”=Z[13] ◢P≠0=>Z[13]”ZHD”=Z[13] ◢L100 {A}:A”WuDZ-1,NO-3”L101 A=1=>S=Z[13]: T=S-Z[13]:Goto 4L102 A=3⇒S<Z[13]⇒Goto 8≠> T=S-Z[13]:Goto 4L103 Lbl D YH点L104 Z[14]”HYD”=Z[14] ◢L105 {A}:A”WuDZ-1,NO-3”L106 A=1=>S=Z[14]:T=S-Z[13]:Goto 4L107 A=3=> T=S-Z[13]:Goto 4L108 Lbl E QZ点L109 Z[15]”QZD”=Z[15] ◢L110 {A}:A”WuDZ-1,NO-3”L111 A=1=>S=Z[15]:T=S-Z[14]:Goto 6L112 A=3=> T=S-Z[14]:Goto 6L113 Lbl F YH点L114 Z[16]”YHD”=Z[16] ◢L115 {A}:A”WuDZ-1,NO-3”L116 A=1=>S=Z[16]:T=Z[17]-S:Goto 4L117 A=3=> T=Z[17]-S:Goto 4L118 Lbl G HZ点L119 P=0=>Z[17]”YZD”=Z[17] ◢P≠0=>Z[17]”HZD”=Z[17] ◢L120 {A}:A”WuDZ-1,NO-3”L121 A=1=>S=Z[17]:T=Z[17]-S:Goto 4L122 A=3=>T=Z[17]-S:Goto 4。

CASIOfx-4500P,4800P程序

/
N
+
计算曲线长。G、H加E-21的目的是防止“0”溢出，增强程序的通用性。
(
O
+
U
)
/
2
:
″
Q
X
C
=
″
◢
G
=
R
O
+
EXP
(-)
2
1
:
H
=
R
U
+
EXP
(-)
2
1
L3
V(I)
=
O
:
W(J)
=
L
-
O
-
U
:
K
=
U
调用子程序Z2，计算曲线坐标。
:
Prog
Z
2
L4
Y
=
Y
Z
/
Sin
P
:
X
-
Y
Cos
P
:
″
计算第一切线长L1、第二切线长L2。
(
O
+
W(J)
)
/
2
R
L4
E
=
K
-
(
U
xy
5
-
(
U
-
K
)
xy
求第二缓和曲线坐标增量计算元素E和F。
5
)
/
4
0
H2
:
F
=
(
U
xy
3
-
(
U
-
K
)
xy
3
)
/
6
H
-
(
U
xy

卡西欧计算器程序fx-4800p

3、进行f（x）函数的输入与积分的计算；4、进行标准差和回归计算。

Fx-4800P计算器具有同时显示运算表达式和计算结果的四行式显示的特点。

（1）Fx-4800P计算器操作方法比较简单、易学，程序编排灵活、易懂，可称之谓各专业技术人员的物美、价廉、得心应手的计算工具。

（按shift°′″转换为60进制的角度）注：此程序可循环计算。

CASIO-fx4800P型计算器连续计算线路高程、坐标

CASIO-fx4800P型计算器连续计算线路高程、坐标及放样程序【简述】为了适应现场快速、准确、灵活的放样要求，作者根据线路施工测量特点，运用计算器的编程功能，使整条线路的施工测量计算数据能连续快速的计算，只要把整条线路各个交点处的计算要素输入子程序中，你便拥有整条线路的“数据库”。

在忙碌的施工现场，你不必携带大量的施工图和资料来查找平面、纵断面的设计要素，更不必担心设计要素的输入错误，从而使得计算和放样轻松、方便、快捷。

【计算范围】坐标部分包括：各等级公路和高速路的直线段、圆曲线段、加对称缓和曲线的圆曲线段中、边桩坐标及放样计算。

高程部分包括：各等级公路和高速路的直线段、竖曲线段、缓和超高段中、边桩高程及放样计算。

一、坐标及放样程序【起算数据】：交点里程桩号、交点坐标、前直线方位角、交点转角、圆曲线半径、缓和曲线长（一）主程序：XYFY2Fix4M"Xc=":P"Yc=" ＇如须放样输入测站坐标值,否则输入0Lbl0{HS}:H"K0+0":S"B=(-B,0,B)":Prog"A" ＇变量输入和声明S=0=>E=0:≠>E=90 ＇求边桩坐标时的偏角值判定L=πRN÷180+V ＇含有缓曲线的曲线总长T=(V÷2-V^3÷(240R^2))+(R+(V^2÷(24R)-V^4÷(2688R^3)))tan(N÷2)  ＇切线长A=Q-T:B=A+V:D=A+L:C=D-V ＇A-ZH(ZY)点桩号,B-HY点桩号,C-YH点桩号,D-HZ(YZ)点桩号Rec(T,F+180) ＇求ZH(ZY)点的坐标增量Z[1]=W+I:Z[2]=K+J ＇ZH(ZY)点坐标值Rec(T,F+GN) ＇求HZ(YZ)点的坐标增量Z[3]=W+I:Z[4]=K+J ＇HZ(YZ)点的坐标值Lbl1U=S÷(Abs(S+10E-19)):S=AbsS ＇左右偏角每件判定H<A=>Goto2: ≠> ＇第一直线上坐标计算判定H<B=>Goto3: ≠> ＇第一缓和曲线上坐标计算判定H<C=>Goto4: ≠> ＇净圆曲线上坐标计算判定H<D=>Goto5: ≠> Goto6⊿⊿⊿⊿ ＇第二缓和曲线和第二直线上坐标计算判定Lbl2Rec(Q-H,F+180) ＇第一直线上中桩坐标增量计算X=W+I:Y=K+J ＇中桩坐标值计算Rec(S,F+180-(180-E)U) ＇第一直线上与中桩同一断面的边桩增量计算X=X+I:Y=Y+J ＇边桩坐标值计算S=SU ＇边长条件判定Goto8Lbl3 ＇进入第一缓曲线段计算Z=H-A ＇待求点至ZH点的距离O=90Z^2÷(πRV) ＇所求点缓曲线对应的圆心角X=Z-Z^5÷(40R^2V^2)+Z^9÷(3456R^4V^4) ＇缓曲线上ZH点至待求的支距X坐标Z=Z^3÷(6RV)-Z^7÷(336R^3V^3)+Z^11÷(42240R^5V^5) ＇缓曲线上ZH点至待求点的支距Y坐标Lbl7Rec(X,F)X=Z[1]+I:Y=Z[2]+JRec(Z,F+90G) ＇把中桩支距坐标转换成测量统一坐标X=X+I:Y=Y+JRec(S,F+O G+EU) ＇曲线边桩坐标增量计算X=X+I:Y=Y+J ＇坐标计算结果S=SU ＇边长条件Goto8Lbl4 ＇进入主圆计算部分Z=H-A-V÷2 ＇曲线上待求点到HY点的里程O=180Z÷(Rπ) ＇待求点方位角所对应的圆心角X=Rsin O+(V÷2-V^3÷(240R^2))Z=R(1-cos O)+(V^2÷(24R)-V^4÷(2688R^3)) ＇主圆部分待求点支距坐标XY Goto7Lbl5 ＇进入第二缓和曲线计算Z=D-H ＇曲线上待求点到HZ点的里程O=90Z^2÷(πRV) ＇待求点方位角所对应的圆心角X=Z-Z^5÷(40Z R^2V^2)+^9÷(3456R^4V^4)Z=Z^3÷(6RV)-Z^7÷(336R^3V^3)+Z^11÷(42240R^5V^5) ＇待求点支距坐标XY Rec(X,F+GN+180)X=Z[3]+I:Y=Z[4]+J ＇把中桩支距坐标转换成测量统一坐标Rec(Z,F+GN+180-90G)X=X+I:Y=Y+JRec(S,F+GN+180-O G-(180-E)U) ＇曲线边桩坐标增量计算X=X+I:Y=Y+J ＇坐标计算结果S=SUGoto8Lbl6 ＇进入第二直线段计算部分Rec(H-D+T,F+GN) ＇中桩坐标增量计算X=W+I:Y=K+J ＇中桩坐标计算结果Rec(S,F+GN+EU) ＇边桩坐标增量计算X=X+I:Y=Y+J ＇边桩坐标计算结果S=SUGoto8Lbl8X=X◢ ＇显示坐标计算结果Y=Y◢M≠0=>Goto9: ≠>Goto0 ⊿Lbl9 ＇进入放样部分计算Pol(X-M,Y-P) ＇增量计算J<0=>J=J+360: ≠>J=J ⊿J"A"=Int J+0.01Int(60Frac J)+0.006Frac(60Frac J) ◢ ＇方位角计算结果（此显示值为度分秒格式）I"L"=I◢ ＇极距计算结果Goto0∙(二)子程序:AH≤ZY2(ZH2)=>Q=JD1:W=X1:K=Y1:R=R1:F=F0:N=N1:V=Ls1:G=1(-1):=>H≤ZY3(ZH3)=>Q=JD2:W=X2:K=Y2:R=R2:F=F1:N=N2:V=Ls2:G=1(-1):=>H≤ZY4(ZH4)=>Q=JD3:W=X3:K=Y3:R=R3:F=F2:N=N3:V=Ls3:G=1(-1):=>H≤ZY5(ZH5)=>Q=JD4:W=X4:K=Y4:R=R4:F=F3:N=N4:V=Ls4:G=1(-1):=>……………………………H≤ZY n+1(ZH n+1)=>Q=JD n:W=X n:K=Y n:R=R n:F=F n-1:N=N n:V=Ls n:G=1(-1)注:H—待求点桩号ZY n+1(ZH n+1)—后曲线起点桩号 Q—本曲线交点桩号 W—本曲线交点X坐标K—本曲线交点Y坐标 R—本曲线内圆曲线半径 F—前直线方位角 N—本交点转角V—本曲线内缓和曲线长 G—线路转向符,左转角-1,右转角为+1二、高程及放样程序【起算数据】：变坡点桩号A、变坡点高程B、前后纵坡C D、竖曲半径R、横坡度F、最大超高横坡度G、ZH点桩号、YH点桩号、HZ点桩号、施工层厚度N、视线高W （一）主程序：GCFYW"SXG="：N ＇常量输入（视线高程、施工层厚度）Lbl 1｛LО｝:L"K0+0"：О"B=" :Prog"B" ＇变量输入及声明K=C-D ＇坡度差及竖曲线偏角K>0=>J=-1:≠>J=1⊿ ＇凹凸竖曲线判断条件T=Abs(RK)÷2 ＇竖曲线切线长,如需显示则在后面加上◢H=A-T ＇竖曲线起点ZY桩号,如需显示则在后面加上◢X=A+T ＇竖曲线终点YZ桩号,如需显示则在后面加上◢M=L-A ＇待求点至变坡点的距离L≤H=>P=B+MC-N-W: ≠> ＇前纵坡直线段中桩高程计算L≤A=>P=B+MC+J(T-AbsM)2÷(2R)-N-W: ≠>  ＇前纵坡竖曲线中桩高程计算L≤X=>P=B+MD+J(T-AbsM)2÷(2R)-N-W: ≠> ＇后纵坡竖曲线中桩高程计算L>X=>P=B+MD-N-W⊿⊿⊿⊿⊿ ＇后纵坡直线段中桩高程计算E=0=>Goto 2 ＇直线部分中、边桩计算判断条件≠>L≤E=> Goto 2 ＇直线部分中、边桩计算判断条件≠>L>V=> Goto 2 ＇直线部分中、边桩计算判断条件≠>L>E=> Goto 3 ＇前缓曲超高部分中、边桩计算判断条件≠> L>U=> Goto 4⊿⊿⊿⊿ ＇后缓曲超高部分中、边桩计算判断条件Lbl 2O=0=>Z“H”=AbsP◢＇显示直线部分中、边桩高程计算结果≠>Y“HB”=Abs(P-OF)◢不需放样显示高程,否则显示放样水准尺计数⊿Goto 1Lbl 3S=（L-E）（F+G）÷（V-U）-F  ＇前缓曲线超高横坡度计算S≤F=> Goto 5：≠>S≤G=> Goto 6 ＇超高起点(终点)至零界面、零界面至全超高及全超高≠> Goto 7 ⊿⊿ 部分的计算判断条件Lbl 4S=（V-L）（F+G）÷（V-U）-F  ＇后缓曲线超高横坡度计算S≤F=> Goto 5：≠>S≤G=> Goto 6 ＇超高起点(终点)至超高变坡零界面、零界面至全≠> Goto 7 ⊿⊿ 超高、全超高部分计算判断条件Lbl 5O=0=>Z“H1”=AbsP◢＇超高起点(终点)至超高变坡零界面中、边桩高程≠>Y“H-D1”=Abs(P-OF)◢计算结果显示Q“H-G1”=Abs(P+OS)◢⊿Goto 1Lbl 6O=0=>Z“H2”=AbsP◢＇超高变坡零界面至全超高中、边桩高程≠>Y“H-D2”=Abs(P-OS)◢计算结果显示Q“H-G2”=Abs(P+OS)◢⊿Goto 1Lbl 7O=0=>Z“H3”=AbsP◢＇全超高中、边桩高程计算结果显示≠>Y“H-D3”=Abs(P-OG)◢Q“H-G3”=Abs(P+OG)◢⊿Goto 1∙∙注：W“SXG”-视线高N-施工层厚度L"K0+0"-待求点桩号О"B="-中桩至边桩距离（二）子程序：BL≤ZY2=>A=JD1:B=H1:C=I0:D=I1: R=R1:F=I h:E=ZH1:U=YH1:V=HZ1:G=I max1 :≠>L≤ZY3=>A=JD2:B=H2:C=I1:D=I2: R=R2:F=I h:E=ZH2:U=YH2:V=HZ2:G=I max2 :≠>L≤ZY4=>A=JD3:B=H3:C=I2:D=I3: R=R3:F=I h:E=ZH3:U=YH3:V=HZ3:G=I max3 :≠>L≤ZY4=>A=JD3:B=H3:C=I2:D=I3: R=R3:F=I h:E=ZH3:U=YH3:V=HZ3:G=I max3 :≠> ……………………L≤ZY n+1=>A=JD n:B=H n:C=I n-1:D=I n: R=R n:F=I h:E=ZH n:U=YH n:V=HZ n:G=I maxn注:ZY N+1:-下一个竖曲线起点桩号（如：变坡点2的计算范围为前竖曲线终点YZ1至后竖曲线起点ZY3，则在程序中“L≤ZY3”就应输入ZY3的里程桩。

正式-CASIO-fx-4800P计算器的使用-基础知识上课讲义

(3) 键与键的使用
表1-3 功能菜单的意义
§1.2 CASIO fx-4800P的基本操作
(4) fx-4800P与普通科学计算器常规操作的主要区别
1) 键与键在普通科学计算器中，
键的功能是计算前
已输入的表达式；而对fx-4800P，在COMP模式
下，
键的功能是计算前已输入的表达式，在
PROG的编程模式下，
用户输入的表达式，按键显示的计算结果被保存在Ans存储
器中，按键删除显示后，可以按
键调出最近一次
表达式的计算结果。还可以在完成表达式的计算后，立即按重演
键或调出并显示最近执行的表达式，再应用或
键移动光标、直接输入新的字符覆盖当前光标处的字符、应用
键删除字符、应用
键插入输入的字符可以编辑当前显示
模式菜单
§1.2 CASIO fx-4800P的基本操作
(1) 键盘区简介
3) 第三键盘区有4行5列共20个键，其键面功能主要是数字和＋、－、×、÷四则运算。
每个按键一般有键面字符、键上部1~2个字符三种功能。
直接按一个键则输入该键面白色字符的功能；先按
键，再按一个键，则输入该键左上方橘色字符的功
§1.2 CASIO fx-4800P的基本操作
(3) 键与键的使用
按键，屏幕显示图1-2所示的模式菜单。fx-4800P 共有8种模式，键入模式前的数字就可以选中该模式，各模式的意义见表1-2。
表1-2 模式菜单的意义
§1.2 CASIO fx-4800P的基本操作
(3) 键与键的使用
(5) 基本操作
2) A型函数和B型函数
提示
§1.2 CASIO fx-4800P的基本操作

全站仪与卡西欧4800P编程计算器

全站仪与卡西欧4800P编程计算器全站仪与卡西欧4800P 编程计算器在线路施工放样中的应用(中铁隧道股份隧道十三公司)曾庆元隧道开挖断面的成型（超欠挖的控制）是隧道工程施工的一个重要内容。

快速、有序、高效、准确地将隧道横断面开挖轮廓线标定在掌子面，一直是隧道施工测量工作者所追求的目标。

在兰渝铁路有轨斜井隧道施工中，我采用程序计算器编制程序，全站仪来测定点的空间坐标，并将该空间坐标与之对应的设计点位空间坐标比较，得出测点相对位置的方法。

将大量繁琐的测量计算工作纳入计算器中，通过电算程序运行，在几秒钟内得出结果。

与传统的测量断面方法（钢尺量距、水准仪抄平、经纬仪定中线）相比较，具有工序简单，效率高、测点选择灵活、无误差积累及施工干扰小等优点，较大的提高了工作效率。

在开挖轮廓线的放线过程中，将传统的五寸台支距法放线变为坐标放线，直接测轮廓线上的点，不仅大大提高了轮廓线的放线精度，而且比传统的五寸台支距法放线节省2-3人，特别是在检查断面超欠挖更为方便快捷，且精度提高很多。

实践证明此法切实可行，对隧道超欠挖的控制非常有效，受到公司领导的好评。

摘要：通过坐标转换公式，将中桩在各个独立局部坐标系的坐标统一到线路控制坐标系中，线路控制坐标系转换成独立局部坐标系，推导出中桩及边桩的坐标或者线路的里程和偏距，结合全站仪的先进功能12 2.1如图1所示，XOY 为测量坐标系，Y ″ZHX ″为施工坐标系，直线段上中桩P 点的坐标为：XP=XZH+X ″cos α YP=YZH+X ″sin α式中XP 、YP 为P 点在测量坐标系中的坐标，X ″为P 点距直缓点的距离。

2.2 、ZH-YH计算。

P X ″P=l-l5/40R2l20Y ″P=l3/6Rl0 P 点在圆曲线，X ″P= Rsin φ+q Y ″P=R （1-cos φ）+p φ=（l-l0180）/R π+β把X ″ZHY 转换成测量坐标系XOY 中的坐标变换公式为XP= XZH+XP ″cos α-?Yp ″sin α YP= YZH+XP ″sin α为“+”曲线左转为“-2.3、 YH ～HZ 标计算。