function?f?=?Atken（xyx0）
syms?t;
if（length（x）?==?length（y））
????n?=?length（x）;????
else
????disp（‘x和y的維數不相等！‘）;
????return;
end??????????????????????????????????????%檢錯

y1（1:n）?=?t;?????????????????????????????%符號函數數組要賦初值
for（i=1:n-1）???
????for（j=i+1:n）
????????y1（j）?=?y（j）*（t-x（i））/（x（j）-x（i））+y（i）*（t-x（j））/（x（i）-x（j））;????
????end
????y?=?y1;
????simplify（y1）;
end

if（nargin?==?3）
????f?=?subs（y1（n）‘t‘x0）;????????????%計算插值點的函數值
else
????simplify（y1（n））;???????????????????%化簡
????f?=?collect（y1（n））;????????????????%將插值多項式展開
????f?=?vpa（f6）;??????????????????????%將插值多項式的系數化成6位精度的小數
end

?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----
?????目錄???????????0??2012-05-08?17:58??m文件\
?????目錄???????????0??2012-05-08?17:58??m文件\插值\
?????文件???????12756??2012-05-08?17:58??m文件\插值.zip
?????目錄???????????0??2012-05-04?15:16??m文件\插值M\
?????文件?????????988??2012-05-04?14:37??m文件\插值M\BSample.m
?????文件?????????531??2012-05-04?14:37??m文件\插值M\DCS.m
?????文件????????1111??2012-05-04?14:36??m文件\插值M\DH.m
?????文件?????????731??2012-05-04?14:36??m文件\插值M\DL.m
?????文件????????1701??2012-05-04?14:36??m文件\插值M\DTL.m
?????文件????????2209??2012-05-04?14:36??m文件\插值M\Gauss.m
?????文件?????????661??2012-05-04?14:36??m文件\插值M\Hermite.m
?????文件?????????804??2012-05-04?14:36??m文件\插值M\Language.m
?????文件?????????616??2012-05-04?14:36??m文件\插值M\Neville.m
?????文件?????????734??2012-05-04?14:36??m文件\插值M\Newtonforward.m
?????文件?????????934??2012-05-04?14:36??m文件\插值M\SecSample.m
?????文件?????????844??2012-05-04?14:36??m文件\插值M\SubHermite.m
?????文件????????1352??2012-05-04?14:36??m文件\插值M\ThrSample1.m
?????文件????????1466??2012-05-04?14:35??m文件\插值M\ThrSample2.m
?????文件????????1573??2012-05-04?14:37??m文件\插值M\ThrSample3.m
?????文件?????????681??2006-11-24?22:27??m文件\插值\Atken.m
?????文件?????????988??2008-04-09?18:14??m文件\插值\BSample.m
?????文件?????????531??2006-11-25?00:51??m文件\插值\DCS.m
?????文件????????1111??2008-04-09?18:17??m文件\插值\DH.m
?????文件?????????731??2008-04-09?18:15??m文件\插值\DL.m
?????文件????????1701??2008-04-09?18:16??m文件\插值\DTL.m
?????文件?????????476??2008-04-09?18:15??m文件\插值\FCZ.m
?????文件????????2209??2006-11-24?23:56??m文件\插值\Gauss.m
?????文件?????????661??2006-11-24?10:49??m文件\插值\Hermite.m
?????文件?????????843??2012-04-27?17:12??m文件\插值\IDW.m
?????文件?????????658??2012-05-03?12:31??m文件\插值\kriging1.m
?????文件?????????798??2012-05-02?22:13??m文件\插值\kriging2.m
............此處省略260個文件信息