卡西欧4800教学讲解

4800程序使用说明书术语：连续曲线数据块、独立曲线数据块、长短链功能：1、放样对应里程中心点2、放样对应里程旋转任意角度外移点（图A点）3、放样对应里程旋转任意角度外移点的外移点（图B点）4、获取放样点坐标及对应里程中心点沿线路前进方向切线方位角程序输入注意事项：1、常用程序文件放在前面，便于调用，一般先建立“CIRC LE”、“XY-AL”、“AL-XY”三文件，文件名千万不能输错。

2、加粗带下划线词组为计算器中的函数或符号，只能从计算器中调出此函数或符号，不能从键盘输入。

符号←表示回车键“EX E”坐标输入通用格式：屏幕显示OPP NAME?（置镜点名称）或CPP NAME?（后视点名称）：1：输入-1：手动输入坐标X,Y2：输入大于1数字：输入用数字所代表的控制点名。

如数据库中没有本数字所代表的点名，则系统显示Syn ERROR in…（文件名）。

曲线放样程序（CIRCLE）运行说明：步骤1：屏幕提示“LOAD?”（输入曲线要素）1.1：输入 1（默认）：输入里程后将自动判断所在曲线并调用（此功能必须保证曲线数据库中有连续曲线数据块，具体详见数据库建立）。

1.2：输入-1：屏幕提示手动输入各曲线要素，ZJ（转角）、R（半径）、L0(缓和曲线长)、ZH KM(直缓里程)、JDX(曲线交点X坐标)、JDY(曲线交点Y坐标)、A0(起始直线边前进方向方位角)、1 R,-1 L(右偏输入1，左偏输入-1)。

1.3：输入大于1的数字：输入用数字代表的曲线名称，比如13，表示放样点位于曲线 13 上（曲线名称在建立数据库是自己命名，但一定要大于1）。

如库中没有此名称，系统显示“Syn ERROR in CI RCLE”。

（此功能必须保证曲线数据库中有独立曲线数据块）步骤2：屏幕提示“OPP NAME?”（输入置镜点名称）详见坐标输入格式。

步骤3：屏幕提示“DK+M?”（输入放样点对应中心里程）如K15+002.35应输入15002.35。

CASIO fx-4500PA计算中桩、边桩坐标程序O→X N Y N●L1X“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θ●L2G：“→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●L3I≤W→E=Q（W-I：Goto 3⊿P=QW2/I：Rec（W-Wx y5/9θR2I2，P/3+O：Goto4⊿Lbl 3●L4W＞L-I→Goto 1⊿F=2RsinE：P=E+O+IQ：FcosP+Rec（I－Ix y3/9θR2，IQ/3+O：Lbl 4●L5Q=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●L7Pol（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●L9J：“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为英文字母直线、圆曲线中心及左、右边桩计算程序fx-4800pC“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-4800pC“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-4800pRLI“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←Prog“P”←L“L”=√（B2＋C2）◢V=A－U：V<θ==>V=V＋36θ⊿V “V=”◢PA=tan－1（B÷C）←B≥θ==>C≥θ==>A=A：≠=>C<θ==>A=A＋18θ⊿⊿≠=>B<θ==> C≥θ==>A=A＋36θ: ≠=>C<θ==>A= A＋18θ⊿⊿⊿←XZ、YZ—置镜点X、Y坐标；XH、YH—后视点坐标；X-、Y-—前视点坐标；输出：R=水平角、L=置镜点至前视点水平距离。

竖曲线高程的计算公式1.在直线段上的计算公式：H=G±(K-B)*I2.在曲线段上的计算公式：H=G±(K-B)*I+N(K-Z)2/2R式中：K—待求点的桩号Z—直圆点桩号R—曲线半径H—待求点的高程G—变坡点的高程B—变坡点的桩号I —纵坡度N—常数（凸为-1，凹为+1）4500竖曲线计算实例Lbl 0{K}Lbl 1K≤A→H=G1+(K-变坡点1桩号)*I▲≠→Goto 2△Goto 最后一行Lbl 2K≤B→H=G1+(K-变坡点1桩号)*I-(K-A)2/2R ▲≠→Goto 3△Goto 最后一行Lbl 3K≤C→H=GJD1+(K-JD1桩号)*I▲≠→Goto 4△Goto 最后一行Lbl 4K≤D→H=GJD1+(K-JD1桩号)*I+(K-C)2/2R ▲≠→Goto 5△Goto 最后一行以此类推············Lbl 最后一行U=Y-(H-0.7+1.25*0.18+1.1*0.02) ▲V=U+0.02*14.03 ▲Goto04800竖曲线计算实例Lbl 0{k}Lbl 1K≤A→H=G1+(变坡点1桩号-K)*I▲≠→Goto 2△Goto 最后一行Lbl 2K≤B→H=G2+(变坡点2桩号-K)*I-(K-A)2/2R ▲≠→Goto 3△Goto 最后一行Lbl 3K≤C→H=GJD1+(K-JD1桩号)*I▲≠→Goto4△Goto最后一行Lbl 4K≤D→H=GJD1+(K-JD1桩号)*I+(K-C)2/2R ▲≠→Goto5△Goto最后一行以此类推············Lbl 最后一行U=Y-(H-0.7+1.25*0.18+1.1*0.02) ▲V=U+0.02*14.03 ▲Goto 05800竖曲线计算实例“SQXJSCX”↙Lb1 1↙CLs:Fix 3↙“K=”?k◢(计算点里程输入)If k<67549.755 AND K≥66894.3 :Then -0.00052→A : 0→B : 67394.3→S : 67.37→G : 600000→R : Goto 2 : IfEnd↙If k<68708.391 AND K≥67549.755 :Then -0.0048→A : -0.00052→B : 68494.3→S :66.8→G : 100000→R : Goto 2 : IfEnd↙If k<本段竖曲线终点里程AND K≥前一竖曲线终点里程:Then -0.0048→前坡（大里程向）A : -0.00052→后坡（小里程向）B : 68494.3→竖曲线交点里程S :66.8→交点高程G : 100000→曲率半径R : Goto 2 : IfEnd↙………依次类推，计算原始数据完成输入，坡度换算成小数。

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 卩。

CASIO 4800计算器程序使用说明一、程序列表：1。

PQX：主程序，计算路线的中边桩坐标。

(1)"L0"--- 输入测段的近似桩号，来调取合适的平曲线要素数据，输入0则默认上次输的平曲线要素。

输入-1可以手工输入交点桩号JL，交点X坐标JX，交点Y坐标JY，I0为前一交点与本交点的直线方位角，J0为本交点的偏角(左负右正)，R为圆曲线半径，LS为缓和曲线长度，L1为上一交点的HZ(或YZ)的桩号，L2为下一交点的ZH(或ZY)桩号。

(2)"L"---输入计算点的桩号(3)"JJ"---输入与路线前进方向的右交角（正交为90）(4)"YC"---输入与中桩的距离(左侧为负,右侧为正)注:若JJ和YC中任一个输入为0,则可返回上一级,重新输入桩号计算.若YC输入为-1,可以输入实测点的坐标X和Y来反算与中桩宽度YC,桩号差值DL和该点的近似桩号L.(5)"X,Y"数值1数值2显示计算点的坐标值X,Y(6)"A,D"ddd°mm′ss″数值4显示测站点与放样点的方位角及平距(7)"TMP"---进入自由运算状态,若计算结果为0则退出该状态.该状态会破坏变量I的内容.(8)"YC"---输入-1进入反算桩号模式,程序要求输x,y坐标,若x,y坐标其中任一输入为0则退出该状态.2.LYC程序:两个作用:一是根据实测坐标反算桩号L和与中桩宽度YC, 二是根据输入的三维坐标x,y,z和输入的设计标高SG以及"YC0","HC0","M"来进行边坡放样.(1)"L0"--- 输入测段的近似桩号，(2)"XF","YF","ZF"----输入测点的三维坐标x,y,z若ZF输为0则只反算桩号,若不为0则进行边桩放样.(3)"DL"---反算桩号时显示中间结果桩号差值DL,若DL值过大,可以重新输入测段的近似桩号来计算.(4) "L,YC"---显示桩号L和与中桩距YC(左负右正),存在变量L和O中.(5) "SG:"---输入路基边缘的设计高程(请分清左右),存在变量Z[10]中.(6) TW---显示填挖高度值(负值为挖方高度,正值为填方高度),存在变量C中.(7) "YC0"-路基横断面图上最后一个变坡点与中桩的水平宽度(左右均为正值),存在变量P中.(8)"HC0"---路基横断面图上最后一个变坡点与路基边缘设计标高的高差,挖方平台为正值,填方平台为负值,存在变量Q中.(9) "M="---路基横断面图上最后一级边坡的坡比,存在变量T中.(10) "BL"---显示在实测标高位置的路基设计宽度,存在变量U中.(11)"DB"---显示设计宽度和实测宽度的差值,存在变量J中.若DB为负值,则应往中桩位置移动(宽度减小),若DB为正值,则应往路线外侧移动(宽度增大).3、ZZ子程序---计算中桩坐标以及前进方位角的子程序。

1 XY边长及方位角反算Prog"A":L=J:Prog"B"◢Fix 3:I"D="◢Lbl 1:{S}:V"X"=X+Rec(S, L ◢U"Y"=Y+J ◢Goto 1输入：X1,Y1,X2,Y2.输出: L°=,D=.2 XY-1输入里程桩号计算中间点坐标Prog"A":L=J:Prog"B"◢Fix 3:I"D="◢{Z}: Z:Lbl 1:{G}:V"X"=X+Rec(Abs(G-Z, L ◢U"Y"=Y+J ◢Z-起始点里程桩号Goto 1Ｇ－任一点里程桩号3 JD两直线交点坐标计算Prog"A":Prog"C":L"L1":Prog"F":E=W+K:{L}:L"L2":Prog"F":C=V+K:S=tan E:T=tan C:G=S-T:A=A+0.0001U"X"=(SA-MT-B+N)/G◢Z"Y"=S(U-A)+B◢Pol(U-M,Z-N:I"D="输入X1,Y1,X2,Y2,X3,Y3.X4,Y4,L1,L2,输出X=,Y=,D=,4 ZBFD坐标放点Prog"A":Lbl 3:Fix 3:{MN}:Pol(M"X3"-A,N"Y3"-B:I"D="◢J=J-W+180:J<0=>J=J+360L=J:Prog"B"◢Goto 3输入:X1,Y1,X2,Y2,X3,Y3.输出:D,L°5 Z自由导线推算E=0:1F=0:Prog"A":Fixm:C=A:D=B:J[F]=J:Lbl 4:{LH}:L"L0":Prog"F":I[F]=J[F]+K-180:H[E+F]=H"D":Prog"R":C"X="◢D"Y="◢J[F]=I[F]:Goto 46 ZDX支导线计算X1Y1,X2Y2,为已知点坐标Prog"A":L°-角度用小数输入Lbl 4:输一组L°、D.得一个点的坐标{LS}:L:Prog"F":M"X3"=A+Rec(S,W+K+180◢N"Y3"=B+J◢Goto 4输入:X1,Y1,X2,Y2,L,S.输出:X3,Y3.L°—观测角度以下按小数点输入7 DX单一导线简易平差计算Prog"A":Prog"C":J=W:Ｉ=V:C=A-M:D=B-N:F=E"N":I[F]=J:Lbl 1:F=F-1:{GH}:I[F]=J[F]+G"L°"-180:I[F]<0=>I[F]=I[F]+360:≠>I[F]>360=>I[F]=I[F]-360H[E+F]=H"D":F>1=>Goto 1{G}:G=I[F]+G"L°"-180:G<0=>G=G+360:≠>G>360=>G=G-360I=G-I:W=12″[S]=620.790G"W"=602FracI ◢相对中误差:fS/[S]=1/88119fX=-0.007fY=0.000G=0:Lbl 2:I[F]=I[F]-I(E-F)/E:Prog"R":说明:F=F+1:N-观测角数,L°-左角按度分秒输入G=H+G:W-角度闭合差,fX,fY 坐标闭合差F<E=>Goto 2若用外(右)角计算闭合差程序中之I=G-I-360G"[S]="◢若用内(左)角计算闭合差程序中之I=G-II"fX"=C ◢本程序只能计算八个未知点,多于八个时每增加一个C=A:未知点,必需扩展两个储存器.A"fY"=D ◢D=B:B"fS/[S]"=Int(G/ √ (I I+AA ◢Lbl 3: F=F －1:Prog"R":C"X"=C-I H/G ◢D"Y"=D-AH/G ◢F>1=>Goto 38 WDX 无定向导线Prog"A":D=I:C=0:M=0:N=0:P:Lbl 0:P=P-1:{LS}:L"B°":Prog"F":F=K:C=C+F:C=0=>Goto 1C=C+180:Goto 1X1Y1,X2Y2,-已知点坐标Lbl 1:P-边数,B°-观测角,第一个角输入0,Rec(S,C:S-边长,Xf,Yf-增量累加数,记录侍用Fix 4:输入一组Xf,Yf,求得一组X Y,M"Xf"=M+I ◢用左角,度以下按小数输入.N"Yf"=N+J ◢P>0=>Goto 0Pol(-M,-N:R=W+180-J:K=D/I:V=Cos R:点号观测角边长Xf Yf X Y E=Sin R:Lbl 2:{HO}:H"Xf":O"Yf":Fix 3:T"X"=X+K(HV-OE ◢Z"Y"=Y+K(HE+OV ◢Goto 2B 为观测角,第一个角输入04119.5814110.7005102.2204969.5125029.9914887.630142.64164.8800-66.203843.11280.0000-211.5145-303.145023 0°00′00″ 42 28 06 277 33 42 A 1164.88313.274329.1104426.9529 QJD前交点(正弦公式)Prog"A":Prog"J":S=I Sin E/Sin(E+K:Prog"O"A°、B°-观测角,X1、Y1、X2、Y2-正切公式Prog"A":Prog"J":S=tan E:T=tan K:G=S －1＋T -1:M"X3"=(X/T+A/S-Y+B)/G ◢N"Y3"=(Y/T+B/S+X-A)/G 输入:X1,Y1.X2,Y2,A°,B°,输出:X3Y310 FX 方向交会Prog"A":Prog"J":S=tan E:T=tan K:G=S-T:M"X3"=(SX-AT-Y+B)/G ◢N"Y3"=S(M-X)+YX1Y1,X2Y2,为起算点坐标.A°,B°-方位角.X,Y--交点坐标11 CJ 侧方交会点Prog"A":Prog"J":S=I sin(E+K)/Sin K:{K}:K=0=>M"X"=A+Rec(S,W+E-180◢≠N"Y"=B+JX1Y1,X1'Y1',X2Y2--已知点坐标,A°B°-观测角,左右分开.左K=0,右K=1A=63° 33′06″B=92° 20′51″从左右两组算出坐标取中数为XYA ′=109° 59′39″B ′=50° 57′06″12 HJ后交点计算Prog"A":M"X3":X1=992.692X2=1012.499N"Y3":Prog"J":S=tan E:T=tan K:H=(Y-B)/S+X-A:F=(X-A)/S-Y+B:Q=(N-B)/T-M+A:V=(M-A)/T+N-B:K=(H+Q)/(F+V:X3=1063.248D=(H-FK)/(1+K2:Y4=999.997Y3=1000.000O"X4"=A+D◢X1Y1,X2Y2,X3Y3---已知点坐标P"Y4"=B+KD A°、B°----观测角X4Y4--测点坐标12HJ—1Prog〝A〞︰D=I︰（另一种后Pol（A－M〝X3〞，B－N〝Y3〞︰交公式）S=I︰G=J︰Prog〝J〞︰Z=180－（W－G＋E＋K）÷2︰Q=tan－1（D Sin C÷S Sin E︰H=tan－1（tan Z÷tan（45＋Q︰R=Z＋H︰T=D Sin（E＋R）÷Sin E︰O〝X〞=X＋T Cos（W＋R◢P〝Y〞=Y＋T Sin（J＋R13 LDHJ两点后交Prog"A": L"A°":Prog"F":C=K:{L}:X2=857.025X1=944.202L"B°":Prog"F":O=K:{L}:L"E°":Prog"F":E=K:{L}:L"F°":Prog"F":F=K:Y3=139.053N=Sin O/Sin(O+F:P=√(S2+M2-2SM Cos(C-O:观测角A°B°E°F°度以下按小数点输入.T=√(D2+N2-2DN Cos(F-E:K"D1"=2I"D0"/(P+T◢S"S1"=KS◢D"S2"=KD◢M"S3"=KM◢N"S4"=KN◢H=Cos-1((I2+S2-M2)/2IS:L=H:Prog"B":Z"H°="◢G=Cos-1((I2+N2-D2)/2IN:L=G:Prog"B":Z"G°="◢Fix 3:Q"X3"=A+Rec(S,W+H+180◢R"Y3"=B+J◢Q"X4"=A+Rec(D,W+E-F-L◢R"Y4"=B+JProg"A":Lbl 0:Prog"W":Fix 2:S=D(Sin K)2◢H=S/tan K+G◢{L}:Prog"F":输入:X1,Y1,X2,Y2,H0-起点高,T仪高,Prog"O"◢D-视距,S-平距,Z°—天顶距,P标高Goto 0输出:X3,Y3,S平距15 JZB极坐标法测碎部点坐标、高程Prog"A":G=E"H0"+T:Lbl 8:{LSV}:Prog"F":Prog"O"◢H=G+V"h"-P◢Goto 8输入:X1,Y1,X2,Y2, H0,T,L°，S，h求:X,Y,H.X3=273.29916 SD 垂距,垂点坐标计算Y3=208.502Prog"A":O=Sin J:P=CosJ:E=M"X3"-X:F=N"Y3"-Y:S=EP+FO ◢D=EO-FP ◢Y=252.157V"X"=X+Rec(S,W ◢U"Y"=Y+J注:D 为正时,3点在1-2之左侧;S 为正,3在1-2之线上;为负则在2--117 MM 坐标法计算多边形面积N: P=0: V=0:A"X":B"Y":E=A: F=B:Fix 3:Lbl 0:{XY}:X: Y:N=4(边数)Lbl 1:Pol(X-A,Y-B: I"S"◢P=P+(Y-B)(X+A)/2:A=X:B=Y:V=V+1:V ≠N=>Goto 0P"m 2"=Abs P ◢Q"mu"=1.5 m P18断面图封闭图形面积计算(高程相当于X,距离相当于Y,用相对坐标计算,)N:P=0:V=0:Y=0:A"H":B"D":E=A:69.8F=B: Fix 3:Lbl 0:N=V+1=>H=E: Y=F: Goto 1｛HD ｝:H:Y=Y+D:Lbl 1:m =32.795A=H:B=Y:N=多边形边数,V=V+1:H=转折点高程V ≠N=> Goto 0D=相邻两点距离P"m 2"=Abs P第一点D 输入0。

4800全套计算程序（吐⾎推荐）整套卡西欧计算器CASIO FX-4800 4500测量程序各位同⾏：我长年从事公路桥梁测绘⼯作，收集整理了⼀整套卡西欧计算器CASIOFX-4800P和卡西欧CASIO FX-4500P测量放线程序，该套程序经过反复修正，具有极⾼的可靠性。

现在免费提供给⼤家.程序⽬录：1.1 测边⼤地四边形的条件平差程序1.2 测边中点多边形的条件平差程序1.3 单⼀导线的严密平差程序1.4 单⼀结点导线的严密平差程序1.5 边、⾓后⽅交会的条件平差程序1.6 测边交汇点的条件平差程序1.7 单⼀⽔准路线的平差程序1.8 单结点的平差程序1.9 多结点⽔准⽹的平差程序1.10 多边形⽔准⽹的平差程序1.11 三⾓⾼程差的计算程序1.12 测距边⽔平距离的计算程序1.13 ⾼斯投影座标正、反解和换带的计算程序1.14 平⾯座标转移的计算程序2.1 单边、⾓后⽅交会的计算程序2.2 双边、⾓后⽅交会的计算程序2.3 碎部点座标的计算程序2.4 内、外分点座标的计算程序2.5 房⾓标的计算程序2.6 多次后⽅测⾓交会点2.7 测边交会点的计算程序2.8 导线三维值的计算程序2.9 圆⼼座标和半径的程序2.10 测站点、照准点归⼼改正的计算程序2.11 单边、双站后⽅交会的计算程序3.1 线路中⼼座标的计算程序3.3 红线交点座标的计算程序3.4 直线与圆曲线交点座标的计算程序3.5 垂⾜座标的计算程序3.6 道路不等宽时曲线要素的计算程序3.7 缓和曲线敷设时的计算程序3.8 圆曲线敷设时的计算程序3.9 极座标放线线的计算程序3.10 交点座标的计算程序3.11 宗地有关项⽬的计算程序3.12 丘地有关项⽬的计算程序4.1 导线X、Y、Z值的近似平差程序4.2 ⽆定向导线的计算程序4.3 测⾓前⽅交会点座标的计算程序4.4 测边交会座标的计算程序4.5 测⾓后⽅交会点座标的计算程序4.6 双边、⾓后⽅交会点座标的计算程序4.7 平⾯座标转移的计算程序4.8 测站点、照准点归⼼改正的计算程序4.9 三⾓⾼程⾼差的计算程序4.10 测距边⽔平距离的计算程序4.11 单⼀导线的严密平差程序4.12 边、⾓后⽅交会点的严密平差程序4.13 测边交会点的严密平差程序5.1 图跟导线点座标的计算程序5.2 碎部点座标的计算程序5.3 内、外分点座标的计算程序5.4 ⾓座标的计算程序5.5 圆⼼座标的和半径的计算程序5.6 交点座标的计算程序5.7 单边、⾓交会点座标的计算程序5.8 宗地有关项⽬的计算程序5.9 单边、双站后⽅交会座标的计算程序6.1 线路边桩座标的计算程序6.3 直线与曲线交点座标的计算程序6.4 道路不等宽时曲线元素的计算程序6.5 垂⾜座标的计算程序6.6 圆曲线敷设的计算程序6.7 缓各曲线敷设的计算程序6.8 极座标放线的计算程序6.9 单⼀⽔准路线的近似平差计算程序6.10 丘地有关项⽬的计算程序公路中、边桩坐标计算及放样程序功能：任意半径曲线中桩、任意交⾓边桩坐标计算放样、中桩切线⽅位⾓、任意点置仪放样、两点间距离计算、两点⽅位⾓计算。

一、程序简介本套程序是共有2个主程序，7个子程序。

包括了路线坐标正反算、竖曲线、超高加宽、边坡放样及断面计算等程序。

适用于CASIO4800/4850，4850用户需要修改清单内结果显示的字段（例如： X“X=”◢改为“X=”：X◢或G“Z”=H+G◢改为“Z=”：G=H+G◢）。

二、程序功能本着用最懒的方法做最繁杂的事（当然认真更重要！），根据不同需要，本程序共设置了6种计算模式J-JSMS：1-ZS，正算模式：适用于中、边桩计算，里程桩号及边距=>平面坐标。

2-FI，放样1模式：适用于路面施工放样，里程桩号及边距=>平面坐标、路面高程。

3-FS，反算模式：适用于任意点里程、边距计算，任意点坐标=>里程、边距。

4-F2，放样2模式：适用于路基施工放样，任意点坐标=>里程、边距、填挖高度，边坡超欠挖宽度，最近平台高度（<1.5）。

5-Z0，设计高程计算，即竖曲线计算，里程桩号=>设计高程。

6-DM，断面计算，里程桩号、边距=>设计高程、加宽值、指定边桩的高程。

三、计算范围平曲线：直线-缓和曲线（或无）-圆曲线-缓和曲线（或无）-直线中任意桩号，允许两缓和曲线不等长，即可以算卵形曲线，回头曲线竖曲线：前交点SYZ到后交点SZY中的任意桩号四、数据输入及各计算模式运行过程1、正算模式：1-ZS，运行主程序J-PQX（平曲线），计算过程如下：2、反算模式：3-FS，运行主程序J-PQX（平曲线），运行过程同“1、1-ZS，正算模式”；若平曲线数据已经输入了，或者计3、纵断面设计高程计算：5-Z0，步骤1：首先运行J-SQX（竖曲线），此步骤只是竖曲线数据输入，不进行计算。

若计算交点与上次计算交点相同，可跳过此步骤。

输入过程如下：之所以分开两个步骤，是因为当计算桩号超出计算范围时程序会自动切换到竖曲线数据输入状态，避免出现低级失误。

而且将计算放在J-JSMS中会使程序更加灵活。

C a s i o4800平曲线坐标计算Casio fx-4800P平曲线坐标计算程序湖南新光工程有限公司三板溪项目部李甲生程序目的：依平曲线要素计算直线、圆曲线、缓和曲线的任意中桩、左、右桩坐标。

程序说明：K0：起始桩号X0：起始X坐标Y0：起始Y坐标ALF：起始方位角R：半径LS：缓和曲线长N：曲线左转N=1，右转N=2 K：待求桩号LL、LR：左、右桩距离Q：左、右桩与中线斜交角求得XZ、YZ、XL、YL、XR、YR分别为中桩、左、右桩坐标。

一、直线段文件名：ZX (COMP)程式：L”K0”:O”X0”:P”Y0”:W”ALF”:Lbl 0:{K}:X”XZ”=O+(K-L)cosW◢Y”YZ”=P+(K-L)sinW◢{B}:S”XL”=X-B”LL”cos(W+Q)◢T”YL”=Y-Bsin(W+Q) ◢{C}:U”XR”=X+C”LR”cos(W+Q)◢V”YR”=Y+Csin(W+Q)◢Goto 0注：在程序执行过程中，赋给的要素变数的值被固定不变，可对变数（K、LL、LR）赋予不同值，迅速求得所需坐标。

二、圆曲线段文件名：YQX (COMP)程式：L”K0”:O”X0”:P”Y0”:W”ALF”:Lbl 1:{K}:J=(-1)^N (K-L)÷R×180÷π:D=2Rsin((-1)^N J÷2):X”XZ”=O+Dcos(W+J÷2)◢Y”YZ”=P+Dsin(W+J÷2)◢{B}:S”XL”=X-B”LL”cos(W+J+Q)◢T”YL”=Y-Bsin(W+J+Q) ◢{C}:U”XR”=X+C”LR”cos(W+J+Q)◢V”YR”=Y+Csin(W+J+Q) ◢Goto 1注：若没有直接HY点方位角，则ALFHY=ALFZH±Ls/2/R×180/π,(左转-，右转+)。

三、缓和曲线文件名：HHQX (COMP)程式：L”K0”:O”X0”:P”Y0”:W”ALF”:M”LS”:Lbl3:{K}:I=(-1)^N×(K-L)^2÷M÷R÷6×180÷π:D=(K-L)-(K-L)^5÷90÷(RM)^2:X”XZ”=O+Dcos(W+I)◢Y”YZ”=P+Dsin(W+I)◢{B}:S”XL”=X-B”LL”cos(W+3I+Q)◢T”YL”=Y-Bsin(W+3I+Q) ◢{C}:U”XR”=X+C”LR”cos(W+3I+Q)◢V”YR”=Y+Csin(W+3I+Q)◢Goto 3注：1、坐标计算方法是根据偏角法原理；2、缓和曲线（ZH~HY或YH~HZ）以ZH（或HZ）为起始点；3、平曲线左转（ZH~HY段N=1，YH~HZ段N=2），曲线右转（ZH~HY段N=2，YH~HZ段N=1）。

CASIO4800系列计算器线路线路正反算程序经本人苦心钻研，奋战多日，终于编写出了速度快，精度高，功能全的线路坐标正反算程序，欢迎试用并提出宝贵意见。

部分引用请注明出处。

功能简介及特点：1、选用高斯-勒让德公式作计算内核，保证精度，模块化设计，便于扩充功能。

2、线元数据可自动从数据库调用，也可手工输入。

3、可管理多条线路,如里程不在线路或线元范围，将警告里程偏大、偏小。

4、边桩计算设计为导线式递推方式，可用于由一个中桩推出结构物所有角点坐标。

5、反算实现了智能化操作，只需输入线路号（或手工输线元资料）、坐标，不需近似里程，即可自动从起点向后开始试算出里程、位置，如对算出里程、位置表示怀疑，还可以让计算器从终点起再向前试算下一个可能的位置（匝道、回头曲线同一坐标可能会有一个以上结果）。

6、程序代码规范简洁，便于阅读、理解。

程序清单:ZFS///正反算主程序Norm:Lbl 1:U"1 ZS 2 FS"=1=>Prog "ZS":≠>U=2=>Prog"FS":≠>Goto 1ZS///正算子程序{T}:Lbl 1:{K}:T"1 B"=1=>Prog"ZZ":Prog"WY":Goto 1△Prog"ZZ":Prog"ZB":Goto 1FS///反算子程序Lbl 1:{VW}:V"X"W"Y":U=2:Lbl 2:Prog "ZZ":Pol(V-X,W-Y:J=J-O:I=Rec(I,J:K=K+I:AbsI<0.001=>"KJ":K:Pause1:J◢{Z}:Z"0 NEXT"=0=>U=0:Goto 2△Goto 1△Goto 2GS///高斯法中桩子程序S=K-L:G=(P-R)÷2PQR:A=.1739274226:B=.5-A:C=.0694318442:D=.3300094782:E=1-C:F=1-D: I=4:Lbl 1:B[I]=O+180π-1SB[I](P-1+SGB[I]:Dsz I:Goto 1:O=O+180π-1S(P-1+SG：X=X+S(AcosC+BcosD+AcosE+BcosF:Y=Y+S(AsinC+BsinD+AsinE+BsinFZZ///中桩计算子程序Prog"XL":Prog"GS"WY///外移点计算子程序Lbl 1:I=0:J=90:{IJ}:I"L"≠0=>Z=J"<":J=O+J:O=O+Z:X=X+Rec(I,J:Y=Y+J:Prog"ZB":Goto 1ZB///坐标显示子程序"XY":X:Pause 1:Y◢YC///里程异常处理子程序U=2=>K=LΔU=0=>K=MΔU=1:K<L=>"<<!"◢H=1ΔK>M=>">>!"◢H=1Δ---------------------------以上为程序运算部分,以下为数据库部分-------------------------------------- XL///线路数据库选择子程序Lbl 1:H=0:N"0 SD":N=0=>Prog"0"△N=1=>Prog"1"△N=2=>Prog"2"△...有几条线路仿上行格式输几行H=1=>{NLXYOPQRK}:Goto 10///手工输入子程序L"K0"XYO"A0"Q"LS"P"R0"R"RN":M=L+Q:Prog"YC"1///线路一数据库子程序L=线路起点里程:M=线路终点里程:Prog"YC":H=1=>Goto EΔX=起点X坐标:Y=起点Y坐标:O=起点方位角:Q=线元长:P=起点半径:R=终点半径:K<L+Q=>Goto EΔL=123:X=123:Y=123:O=123:Q=123:P=123:R=123:K≤L+Q=>Goto EΔ...按里程由小到大，每条线元输一行。

[引用] 2006-12-29 09:34:39.0 第3楼这是我看了别人的后.改动了下.加了程序进去使大家更好的理解.在计算能力飞速发展的今天，各种计算工具应运而生代替了以往我们大量、繁琐的分析计算工作，简化了计算步骤节省了计算时间。

在种类繁多的计算工具中适合测量工作的计算器也大有所在。

比如有一款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增加了啊佛加德罗常数、万有引力长常数、详见《操作说明书》。