找列主元高斯消去法來求解線性代數方程組解的matlab程式

1樓：匿名使用者

function x=gauss_pivot(a,b)% 用gauss列主主元消去法解線性方程組ax=b%x是未知向量

n=length(b);

x=zeros(n,1);

c=zeros(1,n);

d1=0

for i=1:n-1

max=abs(a(i,i));

m=i;

for j=i+1:n

if max

max=abs(a(j,i));

m=j;

endend

if(m~=i)

for k=i:n

c(k)=a(i,k);

a(i,k)=a(m,k);

a(m,k)=c(k);

endd1=b(i);

b(i)=b(m);

b(m)=d1;

endfor k=i+1:n

for j=i+1:n

a(k,j)=a(k,j)-a(i,j)*a(k,i)/a(i,i);

endb(k)=b(k)-b(i)*a(k,i)/a(i,i);

a(k,i)=0;

endend

%回代求解

x(n)=b(n)/a(n,n);

for i=n-1:-1:1

sum=0;

for j=i+1:n

sum=sum+a(i,j)*x(j);

endx(i)=(b(i)-sum)/a(i,i);end

2樓：eleven紅毛

function x=gauss_pivot(a,b)n=length(b);

x=zeros(n,1);

c=zeros(1,n);

d1=0

for i=1:n-1

max=abs(a(i,i));

m=i;

for j=i+1:n

if max~

62616964757a686964616fe59b9ee7ad9431333264663032=i)

for k=i:n

c(k)=a(i,k);

a(i,k)=a(m,k);

a(m,k)=c(k);

endd1=b(i);

b(i)=b(m);

b(m)=d1;

endfor k=i+1:n

for j=i+1:n

a(k,j)=a(k,j)-a(i,j)*a(k,i)/a(i,i);

endb(k)=b(k)-b(i)*a(k,i)/a(i,i);

a(k,i)=0;

endend

x(n)=b(n)/a(n,n);

for i=n-1:-1:1

sum=0;

for j=i+1:n

sum=sum+a(i,j)*x(j);

endx(i)=(b(i)-sum)/a(i,i);end

用matlab求代數方程3*x^5+4*x^4+7*x^3+2*x^2+9*x+12=0的所有根

3樓：書宬

^x=roots([3 4 7 2 9 12])或zhi

x=double(solve('3*x^dao5+4*x^4+7*x^3+2*x^2+9*x+12'))

結果版：權

x =-0.9583

0.6737 + 1.0159i

-0.8612 - 1.4377i

-0.8612 + 1.4377i

0.6737 - 1.0159i

找一本小說，男主重生，女主穿越，找一本小說，男主重生，女主穿越

於自己權穿越成極品惡女，外帶有極品老媽極品哥哥這種事情很是淡定。當然了，她還是對洗心革面重新做人什麼的抱著那麼一小丟丟的希望。於是穿越大神被感動了 那就賜你個極品男人吧。一句話概括 坑爹穿越女與自戀重生男的雞飛狗跳生活 ps 女主穿越，男主重生，不喜此設定者請慎重跳坑。求一本 女主穿越 男主重生 的...

找一本女主重生小說,找一本女主重生小說？

我在橘子bai 裡，倒是du看了幾本空間的 其中一zhi本叫空間之農dao女無雙，講述了回21世紀的白意萱為了救人搭上了答自己一條命，一朝穿越到古代被退婚的貧窮少女身上。醫毒雙絕，慢慢成了遠近聞名的小神醫，開啟逆天空間，幫她掃清一切障礙，帶領親友齊奔小康 在橘子 裡可以免費看完全文的，它家主要都是女...

找一本女主重生的小說，找一本女主重生小說？

豪門權婦 如果愛我，就請為我去死吧！我會感激你的。十年的婚姻和付出，葉嫵等來的就是這句話。君明翊，世人稱頌的絕世好丈夫，親手把妻子葉嫵逼上絕路，一邊親吻著情人面頰，一邊用刀捅上妻子的心臟，還那般繾綣深情的問她 葉嫵，你為什麼還不肯去死？為什麼不肯成全我和她的愛情？那個溫柔入骨的男人，結婚十年，卻以真...