روش حذفی گوس

[میثم66]

حل دستگاه n معادله n مجهولی در محیط اکسل توسط روش حذفی گوس.

[~M*E*H*D*I~]

به لینک زیر سری بزن

http://www.ce.sc.edu/DeptInfo/members/faculty/ray/web1/Ugrad/ECIV%20301/Eciv201_Assignments.htm

[میثم66]

این کد برنامه با متلب هست حالا معادل vba آن چی میشه

clear all;
clc;
disp('This program solves a linear equation system Ax=b with Gauss Elimination method):');
 A=[3 4 -2 2;4 9 -3 5;-2 -3 7 6;1 4 6 7]
 b=[2;8;10;2]
 disp('Matrices before elimination are:');
 c=[A b]
 [m,n]=size(c);
 for j=1:m-1
     for z=2:m
        if c(j,j)==0
            t=c(j,:);
            c(j,:)=c(z,:);
            c(z,:)=t;
        end
     end
     for i=j+1:m
         c(i,:)=c(i,:)-c(j,:)*(c(i,j)/c(j,j));
     end
 end
 x=zeros(1,m);
 for s=m:-1:1
     y=0;
     for k=2:m
         y=y+c(s,k)*x(k);
     end
     x(s)=(c(s,n)-y)/c(s,s);
 end
 disp('Matrices after elimination are:');
c
disp('And the solution of the system is:');
 x