程序清单如下：Casiofx4800P道路中边桩坐标计算程序程序目的：依平曲线要素计算直线、圆曲线、缓和曲线的任意中桩、左、右桩坐标。程序说明：K0：起始桩号X0：起始X坐标Y0：起始Y坐标ALF：起始方位角R：半径LS：缓和曲线长N：曲线左转N1，右转N2K：待求桩号LL、LR：左、右桩距离Q：左、右桩与中线斜交角求得XZ、YZ、XL、YL、XR、YR分别为中桩、左、右桩坐标。一、直线段文件名：ZXCOMP程式：L”K0”O”X0”P”Y0”W”ALF”Lbl0KX”XZ”OKLcosWY”YZ”PKLsi
WBS”XL”XB”LL”cosWQT”YL”YBsi
WQCU”XR”XC”LR”cosWQV”YR”YCsi
WQGoto0注：在程序执行过程中，赋给的要素变数的值被固定不变，可对变数（K、LL、LR）赋予不同值，迅速求得所需坐标。
f二、圆曲线段文件名：YQXCOMP程式：L”K0”O”X0”P”Y0”W”ALF”Lbl1KJ1NKL÷R×180÷πD2Rsi
1NJ÷2X”XZ”ODcosWJ÷2Y”YZ”PDsi
WJ÷2BS”XL”XB”LL”cosWJQT”YL”YBsi
WJQCU”XR”XC”LR”cosWJQV”YR”YCsi
WJQGoto1注：若没有直接HY点方位角，则ALFHYALFZH±Ls2R×180π左转，右转。三、缓和曲线文件名：HHQXCOMP程式：L”K0”O”X0”P”Y0”W”ALF”M”LS”Lbl3KI1N×KL2÷M÷R÷6×180÷πDKLKL5÷90÷RM2X”XZ”ODcosWIY”YZ”PDsi
WIBS”XL”XB”LL”cosW3IQT”YL”YBsi
W3IQCU”XR”XC”LR”cosW3IQV”YR”YCsi
W3IQGoto3注：1、坐标计算方法是根据偏角法原理；2、缓和曲线（ZHHY或YHHZ）以ZH（或HZ）为起始点；3、平曲线左转（ZHHY段N1，YHHZ段N2），曲线右转（ZHHY段N2，YHHZ段N1）。
Casiofx4800P竖曲线计算程序