4800计算器使用方法
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∧33 Q=C/2-C∧3/240/R∧24 B=90C/兀/R5 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: J14 A＜0=>S=-1:≠=>S=1⊿15 U=F+A/2+90S16 V=W+R17 B=N+VcosU18 O=E+VsinU19 Lbl 120 {Z}21 Z≤G=>L=T+G-Z22 V=F+18023 U=F24 Goto 2⊿25 Z≤H=>L=Z-G26 V=L-L∧5/(90R∧2C∧2)27 L=30L∧2S/(兀RC)28 P=F+18029 Q=F+L30 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-Z36 V=L-L∧5/(90R∧2C∧2)37 L=30SL∧2/(兀RC)38 P=F+A39 Q=F+A+180-L40 U=F-3L+A◢41 Goto4⊿42 Z>M=>L=Z-M+T43 U=F+A44 V=U45 Goto 246 Lbl 247 X=N+LcosV◢48 Y=E+LsinV◢49 Goto 6⊿50 Lbl 351 {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 157 Lbl 458 X=N+TcosP+VcosQ◢59 Y=E+TsinP+VsinQ◢60 Goto 661 Lbl 562 X=B+R cosL◢63 Y=O+RsinL◢64 Goto 665 Lbl 666 J=1=> Goto 3⊿67 Goto 1。
fx4800P-1章
第1章 CASIO fx-4800P 操作说明§1.1 CASIO fx-4800P 的特点众所周知，CASIOfx-4500PA 可编程函数计算器已经在工程计算中得到了广泛的应用，fx-4800P 是比fx-4500PA 更高一个级别的产品(见图1-1)，它除了具有fx-4500PA 的全部功能以外，还主要改进了如下特性：1) 具有16列×4行显示屏(fx-4500PA 只有12列×2行)，可以显示更多的信息，这对于编写与修改程序特别方便。
2) 在程序区域中最多可以存储4500字节的程序与数据(fx-4500PA 只能存储1103字节)。
3) 求方程的数值解，例如可以求方程09622=-+x x 的数值解。
4) 复数计算功能，例如进行下列复数表达式的运算i i i 53)32()21(+=+++5) 一、二次微分计算，例如 52)64(323=-++=x x x x dx d 26)64(32322=-++=x x x x dx d 6) 求和计算，例如55)53(622=+-∑=K K K与普通科学计算器相同的＋、－、×、÷四则运算及函数计算方法本节不再介绍，只重点介绍统计、微分与积分、表达式存储、存储器操作、程序编制及编程技巧。
§1.2 CASIO fx-4800P 的基本操作 按键打开计算器电源，按键可以关闭电源，6分钟不操作，计算器自动关闭电源。
图1-1 CASIOfx-4800P 计算器键面(1) 键盘区简介fx-4800P的键盘分三个区排列。
1) 第一键盘区有模式键、功能键和四个光标移动/重演键。
计算器的微分、积分、表达式存储、程序编制等功能都是通过按和键调出相应的菜单选项选择来实现的，四个光标移动/重演键主要用于重复计算和编辑表达式。
2) 第二键盘区有4行6列共24个键，其键面功能主要是数学函数运算；3) 第三键盘区有4行5列共20个键，其键面功能主要是数字和＋、－、×、÷四则运算。
正式-CASIO fx-4800P计算器的使用-基础知识
表1-3 功能菜单的意义
§1.2 CASIO fx-4800P的基本操作
(4) fx-4800P与普通科学计算器常规操作的主要区别
1) 键与 键 在普通科学计算器中，
键的功能是计算前
已输入的表达式；而对fx-4800P，在COMP模式
下，
键的功能是计算前已输入的表达式，在
PROG的编程模式下，
按
键，屏幕显示功能菜单。
在不同模式菜单下，按 键，屏幕显示的功能
菜单内容是有差别的，图1-3为在COMP模式下的功能
菜单，图1-4为在SD或LR模式下的功能菜单。键入模
式前的数字就可以选中一种选项。各选项的功能见表1-3。
图1-3 COMP模式下的功能菜单
图1-4 SD或LR模式下的功能菜单
§1.2 CASIO fx-4800P的基本操作
键的功能是换行，
键的功能是为等号前的变量赋值。
§1.2 CASIO fx-4800P的基本操作
(4) fx-4800P与普通科学计算器常规操作的主要区别
2) 函数计算
执行函数计算时，普通科学计算器是先输入函数变
量的数值，再按函数键，如30
；而在fx-
4800 P中，函数分A型和B型两类，对于B型函数，
是先按函数键，再输入函数的变量，如
30。
§1.2 CASIO fx-4800P的基本操作
(4) fx-4800P与普通科学计算器常规操作的主要区别 3) 表普通达科式学计计算算器不能完全显示用户输入的表达式，按 键
后只能对前以输入的表达式计算一次并显示计算结果，按 键
删除显示后，计算结果不被保存；而fx-4800P可以完整地显示
【例1-2】计算表达式2πsin30°÷cos10°÷sin20°的值。
卡西欧4800教学讲解
(4)fx-4800与普通科学计算器常规操作的主要区别
1)=键与EXE键
在普通科学计算器中，=键的功能是计算前已输入的表达 式；而对fx-4800，在COMP模式下，EXE键的功能是计算前 已输入的表达式，在PROG的编程模式下，EXE键的功能是换 行，=键的功能是为等号前的变量赋值。
2)函数计算
执行函数计算时，普通科学计算器是先输入函数变量的数 值，再按函数键，如30sin；而在fx-4800中，函数分A型和B型 两类，对于B型函数，应先按函数键，再输入函数的变量，如 sin30。
3)表达式计算
普通科学计算器不能完全显示用户输入的表达式，按=键 后只能对前以输入的表达式计算一次并显示计算结果，按 ACON键删除显示后，计算结果不被保存；而fx-4800可以完整 地显示用户输入的表达式，按EXE键显示的计算结果被保存在 Ans存储器中，按ACON键删除显示后，可以按SHIFTAns键调 出最近一次表达式的计算结果。还可以在完成表达式的计算后，
角度单位的换算关系为：360°=2π弧度=400梯度。 我国测量计算中应选用Deg为角度单位。欧洲国家使 用Grd角度单位。
数值显示格式的设置
按键FUNCTION6，屏幕显示图1-13所示的菜单，其中前4项为设置数 值显示格式选项，后两项为清除存储器变量选项。
1)Fix:指定显示数值的小数位数，其后可以输入数字0~9.设置了Fix显 示格式后，状态栏显示FIX。如要取消Fix格式显示，需选择Norm1或 Norm2格式显示。
立即按重演键◁或▷调出并显示最近执行的表达式，再应用◁或 ▷键移动光标、输入新字符覆盖当前光标处的字符、应用DEL
键删除字符、应用SHIFTINS键插入输入的字符可以编辑当前 显示的表达式，按EXE键可以执行修改后的表达式。表达式的 调出、编辑、执行可以多次进行。
卡西欧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 卩。
CASIO 4800计算器小程序使用说明
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子程序---计算中桩坐标以及前进方位角的子程序。
4800使用程序-好-不
§1.4 fx-4800P的统计计算普通计算器一般都有单变量统计计算功能，fx-4800P具有单变量和双变量统计计算功能。
(1) 单变量统计计算按键进入单变量统计模式，状态行显示；按键清除统计存储器P、Q、R、U、V、W 后，使用键输入数据项。
【例1-9】对某段距离等精度独立丈量了6次，距离丈量值分别为49.988、49.975、49.981、49.978、49.987、49.984，试计算其平均值x和一次丈量误差m。
进入单变量统计模式并清除了统计存储器后，按键操作如下：按键49.98849.97549.98149.97849.98749.984输入数据6个数据，按键调出统计计算结果，屏幕显示结果如下：Deviationx=49.98216666nσ=4.66964E-031-nσ=5.11533E-03再按键，屏幕显示结果如下：Sum∑2x=14989.30203∑x=299.893n=6其中1-nσ即为子样中误差。
也可以通过按键，在屏幕显示的图1-16所示的菜单中选择显示其中的某一个统计计算结果。
如果在程序中，不便于将存储器变量出现的顺序按照输入变量命令{}表中的顺序排列，当存储器变量只需要在程序中输入一次时，可以直接使用变量名并用连接符号“:”连接。
如编写一个程序，计算任意两点的边长和坐标方位角，其中第一点的坐标11,yx定义为X,Y存储器变量，第二点的坐标22,yx定义为U,V存储器变量，要求存储器变量提示的顺序为X=?,Y=?,U=?,V=?。
程序如下：X”X1”: Y”Y1”: U”X2”: V”Y2”G=U-X : H=V-YPol(G ,H): IJ0J=J+360变量X后的”X1”为提示字符，也可以不要，但加上后更便于理解输入数据项的意义。
上述程序执行完成后，再按键，程序开始重新计算并顺序提示X1=?,Y1=?,X2=?,Y2=?。
如果该程序由记数转移语句控制循环运算，则第二次运算时，程序将不会提示输入第一行的存储器变量。
卡西欧4800坐标计算程序
QL（坐标反算）Lbi 0:C“X0”:D“Y0”:{XY}:X“X2”Y“Y2”:(X-C)=O=>Goto 1:≠Lbi 1:W“Q”=0◢Goto 0Lbi 2:Prog“FWJ”Fix 4W“Q”=IntW+0.01Int(60FracW)+0.006Frac(60FracW) ◢NormT“L”= ((X-C)2+(Y-D)2)◢Goto 0说明：（已知两点坐标，反算方位角及两点间的距离）先按FILE键，光标选择QL，按EXE运行。
输入：X0? 测站点（或起算点）X轴坐标，按EXEY0? 测站点（或起算点）Y轴坐标，按EXEX2? 后视点（或方向点）X轴坐标，按EXEY2? 后视点（或方向点）Y轴坐标，按EXE显示： Q 方位角（如：125.0325即表示125。
03’25”）,按EXE L 两点间距离再按EXE进行循环运算，重复输入X2？、Y2?否则按AC键退出。
XY(坐标正算)Lbi 0:C“X0”:D“Y0”:{WM}:W“Q”M“L”:X=C+McosW◢Y=D+MsinW◢Goto 0说明：（已知一点坐标、方位角、距离，求另一点坐标）先按FILE键，光标选择XY，按EXE运行。
输入：X0? 测站点（或起算点）X轴坐标，按EXE Y0? 测站点（或起算点）Y轴坐标，按EXE Q? 已知方位角，按EXEL? 两点间距离，按EXE显示：X 所求点X轴坐标，按EXEY 所求点Y轴坐标，按EXE再按EXE进行循环运算，重复输入Q? 、L?否则按AC键退出。
ZX（直线坐标计算）Lbi 0:G“QD”：A“QDX”: B“QDY”:Q“Q”:{L,K}:Prog“ZZ”:Goto 0说明：（计算直线段任意里程桩号坐标）先按FILE键，光标选择XY，按EXE运行。
输入：QD? 直线段起点里程，按EXEQDX? 起点X轴坐标，按EXEQDY? 起点Y轴坐标，按EXEQ? 已知方位角，按EXEL? 所求点里程，按EXEK? 所求点距中线的宽度（左负右正），按EXE显示：X 所求点X轴坐标，按EXEY 所求点Y轴坐标，再按EXE进行循环运算，重复输入L? 、K?否则按AC键退出。
4800计算器使用方法
4800计算器使用方法1.基本功能：4800计算器具备基本的算术运算功能，例如加法、减法、乘法和除法。
具体使用方法如下：-加法：输入第一个数字，按下“+”键，然后输入第二个数字，最后按下“=”键得到结果。
-减法：输入第一个数字，按下“-”键，然后输入第二个数字，最后按下“=”键得到结果。
-乘法：输入第一个数字，按下“×”键，然后输入第二个数字，最后按下“=”键得到结果。
-除法：输入第一个数字，按下“÷”键，然后输入第二个数字，最后按下“=”键得到结果。
注意，如果除数为零，将会显示错误。
2.百分比计算：4800计算器可以用于计算百分比。
具体使用方法如下：-除法计算百分比：输入需要计算的数值，按下“÷”键，然后输入百分数，并按下“%”键，最后按下“=”键得到结果。
-乘法计算百分比：输入需要计算的数值，按下“×”键，然后输入百分比，并按下“%”键，最后按下“=”键得到结果。
3.平方和平方根计算：4800计算器可以进行平方和平方根的计算。
具体使用方法如下：-平方计算：输入需要计算的数值，按下“ײ”键，最后按下“=”键得到结果。
-平方根计算：输入需要计算的数值，按下“√”键，最后按下“=”键得到结果。
4.三角函数计算：4800计算器可以计算正弦、余弦和正切值。
具体使用方法如下：- 正弦计算：输入需要计算的角度值，按下“sin”键，最后按下“=”键得到结果。
- 余弦计算：输入需要计算的角度值，按下“cos”键，最后按下“=”键得到结果。
- 正切计算：输入需要计算的角度值，按下“tan”键，最后按下“=”键得到结果。
5.小数值计算：4800计算器可以进行小数计算。
具体使用方法如下：-输入小数：直接输入小数，可以进行基本的四则运算计算。
-显示小数：按下“=”键得到的结果将显示为小数形式。
6.括号运算：4800计算器可以进行括号运算。
具体使用方法如下：-输入括号：按下“(”键表示左括号，“)”键表示右括号。
CASIO4800系列计算器线路正反算程序
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Δ...按里程由小到大，每条线元输一行。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
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.当所求点里程大于终点时，显示终点坐标。
之后要求输入下一线型终点里程，终点半径。
继续计算。