4800缓和曲线坐标正反算计算程序，哪位高人发一个给我啊。。谢谢了。要简单点的。

　　缓和曲线段任意点实测坐标计算桩号及超欠挖反算：（HQXCQWFS）（适用于隧道） 　　Lbl 0 　　｛X，Y，N｝ 　　L＂LS″：R：S：T：B＂ZH″：O＂RHQXZHAO″：H＂X0″：F＂Y0″：M＂BPZHAO″：P＂BH″：A＂I1″：Q＂I2″：V＂SQR″：U＂SDR″：X：Y：N＂CH″：Defm 20 　　D=Abs（O－B）：Z[10]=（O－B）÷D：Z[0]=D-D5÷（90R2L2）： 　　Z[1]=30D²÷（∏RLS Z[10]）：Z[7]= Z[