源程序:
FMLD A=F÷（M-1)：S=L÷2
Lbl 1: {X}:B=D－D(1-4X *X÷L÷L）
K=Ln(M+√（M*M－1) Z=(e(KX÷S）+1÷e（KX÷S））÷2
Y=A（Z－1)＋B⊿ Goto 1
注:
m——拱轴系数或称拱轴曲线系数
f——拱的计算矢高
D——预拱度
L——跨径
X、Y——以拱桥的跨中作为坐标原点