Método de Gauss-Seidel em SCILAB
Publicado por Ariel Galante Dalla Costa (última atualização em 20/01/2014)
[ Hits: 25.157 ]
Homepage: http://arielgdc.wordpress.com
Solução computacional para o método de solução de sistemas de equações lineares.
//Verificar sempre se a diagonal principal é dominante sobre a diagonal secundária A = [3, -1, -1; 1, 5, 1; 1, 1, 7]; //coeficientes do sistema I = eye(A); n = 3; b = [-2, 14, 24]; //vetor de termos independentes eps=10^(-2); //Precisão x0 = [0;0;0]; //Solução inicial p = 10; x = x0; x1 = x; it=0; i=0; s=0; for i=1:n bc(i) = b(i)/A(i, i); end; big = 0; num = 0; while p > eps & it<=1000 for i=1:n num = 0; for j=1:n if j <> i then num = num + A(i,j)*x(j); end; end; x(i) = (1/A(i,i))*(b(i)-num); end; p = norm((A*x)-b'); it = it+1; end; if(it>999) then printf("Não converge nesse intervalo"); abort; else printf("Sucesso! Total de iteracoes %f", it); end;
Zfehwallpaper - wallpaper no Openbox
Nenhum comentário foi encontrado.
Atenção a quem posta conteúdo de dicas, scripts e tal (1)
Manutenção de sistemas Linux Debian e derivados com apt-get, apt, aptitude e dpkg
Melhorando o tempo de boot do Fedora e outras distribuições
Como instalar as extensões Dash To Dock e Hide Top Bar no Gnome 45/46
Instalar Google Chrome no Debian e derivados
Consertando o erro do Sushi e Wayland no Opensuse Leap 15
Instalar a última versão do PostgreSQL no Lunix mantendo atualizado
Flathub na sua distribuição Linux e comandos básicos de gerenciamento
[Shell Script] Script para desinstalar pacotes desnecessários no OpenSuse
[Shell Script] Script para criar certificados de forma automatizada no OpenVpn
[Shell Script] Conversor de vídeo com opção de legenda
[C/C++] BRT - Bulk Renaming Tool
[Shell Script] Criação de Usuarios , Grupo e instalação do servidor de arquivos samba