fx4800p
ABCDXY←I1：J1：Pol（C－A）（D－B）：FJ←（，）Pol（X－A）（Y－B）：RJ－F←（，）R36θRR－36θ：≠RθRR＋36θR“R”I“L”注：A、B置镜点坐标；C、D后视点坐标；X、Y前视点坐标；输出R水平角，L置镜点至前视点水平距离。
6
f方位角计算程序fx4800p
X“X1”Y“Y1”A“XZ”B“YZ”Fixm：Pol（X－A，：：：：Y－B）I“L”：JθJJ＋36θJ“J0”注：X1、Y1前视（后视）点坐标；XZ、YZ置镜点坐标；L置镜点至前视（后视）点距离；J0方位角。
7
f直、圆、缓线计算程序fx4800p复化辛普森公式
A“QDLC”B“ZDLC”R“QDR”V“ZDR”C“XA”D“YA”E“ALFA”：Lb1θ：L：L“Li”：T（1÷V－1÷R）÷（B－A）：H（L－A）÷N：PTNH1÷R：S9θH÷π：WE（P1÷R）NSG1：X“Xi”CH÷6×（cosEcosW4×∑（cos（E（G05）HT2÷R）G05）（（S），G，θ，N－1）（）2∑（cos（E（THG2÷R）GS），G，1，（N－1）））YYi”“DH÷6×si
Esi
W4（×∑（si
（E（G05）HT2（÷R）G05）S，G，θ，N－（（1）2×∑（si
（E（THG2）÷R）GS，G，1（N－1）））IF：IZBJ”“YBJ”“XZ”“：F：Z
XIcos（W－90o）J“YZ”YIsi
（W－90o）Z“XY”XFcos（W＋90o）J“YY”YFsi
（W＋90o）Gotoθ注：QDLC起点里程；ZDLC终点里程；QDR、ZDR起、终点半径（左负右正）XA、YA起点坐标；ALFA起点方位角；Li待求点里程；N2；W所求点切线方位角；Xi、Yi待求点中桩坐标ZBJ左边桩距离；YBJ右边桩距离；XZ、YZ左边桩坐标；XY、YY右边桩坐标。
8
f卡西欧计算器FX4800P测量程序
Z