clear?
clc??
A=[2?4?1?0;?6?2?1?-1;?1?1?4?-1;?-1?0?-1?3];
B=[1;6;5;-5];
n=length（B）;?
X=zeros（n1）;?
c=zeros（1n）;?
d1=0;?
for?i=1:n-1?
max=abs（A（ii））;?
?m=i;?
for?j=i+1:n??
if?maxmax=abs（A（ji））;?
end
end
?if?（m~=i）?
for?k=i:n?
c（k）=A（ik）;?
A（ik）=A（mk）;?
A（mk）=c（k）;?
end
d1=B（i）;?
B（i）=B（m）;?
B（m）=d1;?
?end??
for?k=i+1:n?
for?j=i+1:n??
A（kj）=A（kj）-A（ij）*A?（ki）/A（ii）;?
end
B（k）=B（k）-B（i）*A?（ki）/A（ii）;?
A（ki）=0;?
end?
end
X（n）=B?（n）/A（nn）;?
for?i=n-1:-1:1
?m=j;??
?sum=0;?
for?j=i+1:n??
sum=sum+A（ij）*X（j）;?
end?
X（i）=（B（i）-sum）/A（ii）;?
end
X

?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----

?????文件????????621??2018-11-12?09:49??數值計算方法\Gauss.m

?????文件????????405??2018-07-12?16:55??數值計算方法\lagrange.m

?????文件????????423??2018-07-12?14:52??數值計算方法\LandUsanjiao.m

?????文件????????629??2018-12-05?22:20??數值計算方法\Newton.m

?????文件????????624??2018-07-12?14:08??數值計算方法\page20.m

?????文件?????????92??2018-10-28?21:12??數值計算方法\page5.m

?????文件????????161??2018-11-03?22:03??數值計算方法\Steffensen.m\c.m

?????文件?????????52??2018-11-03?21:19??數值計算方法\Steffensen.m\fun.m

?????目錄??????????0??2018-11-03?21:29??數值計算方法\Steffensen.m

?????目錄??????????0??2018-12-16?21:25??數值計算方法

-----------?---------??----------?-----??----

?????????????????3007????????????????????10