14.12.2012 Views

Método de Cramer Introdução - Rubén Panta Pazos

Método de Cramer Introdução - Rubén Panta Pazos

Método de Cramer Introdução - Rubén Panta Pazos

SHOW MORE
SHOW LESS

Create successful ePaper yourself

Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.

d1<br />

d2<br />

d3<br />

x =<br />

b<br />

b<br />

b<br />

1<br />

2<br />

3<br />

D<br />

c<br />

c<br />

c<br />

1<br />

2<br />

3<br />

,<br />

e em<br />

forma análog<br />

a<br />

a1<br />

a2<br />

a3<br />

y =<br />

d<br />

d<br />

d<br />

1<br />

2<br />

3<br />

D<br />

c<br />

c<br />

c<br />

1<br />

2<br />

3<br />

e<br />

a1<br />

a2<br />

a3<br />

z =<br />

.<br />

Com certeza, o método anterior, conhecido como regra <strong>de</strong> <strong>Cramer</strong> exten<strong>de</strong>-se a um sistema <strong>de</strong> n<br />

equações lineares com n incógnitas.<br />

Ilustração<br />

> with(linalg):<br />

Warning, the protected names norm and trace have been re<strong>de</strong>fined and<br />

unprotected<br />

Problema. Resolva o sistema <strong>de</strong> equações lineares seguinte:<br />

2 x + y − 3 z = −1<br />

− x + 3 y + 2 z = 12<br />

3 x + y − 3 z = 0<br />

> A:= matrix([[2,1,-3],[-1,3,2],[3,1,-3]]);<br />

> B:=[-1,12,0];<br />

⎡ 2 1 -3⎤<br />

⎢ ⎥<br />

A := ⎢-1<br />

3 2⎥<br />

⎢ ⎥<br />

⎣ 3 1 -3⎦<br />

B := [ -1, 12, 0]<br />

Define-se o <strong>de</strong>terminante da matriz do sistema.<br />

> Delta[A]:=<strong>de</strong>t(A);<br />

∆ A<br />

:= 11<br />

Agora <strong>de</strong>finem-se os três <strong>de</strong>terminantes que resultam <strong>de</strong> susbtituir a coluna n-ésima (n = 1, 2 ou 3)<br />

da matriz do sistema pelo vetor coluna dos termos in<strong>de</strong>pen<strong>de</strong>ntes (vetor B)<br />

> Delta[x]:=<strong>de</strong>t(augment(B,submatrix(A,1..3,[2,3])));<br />

∆ x<br />

:= 11<br />

> Delta[y]:=<strong>de</strong>t(swapcol(augment(B,(submatrix(A,1..3,[1,3]))),1,2)<br />

);<br />

:= 33<br />

> Delta[z]:=<strong>de</strong>t(augment(B,submatrix(A,1..3,[1,2])));<br />

A solução do sistema é consequentemente:<br />

> x0:=Delta[x]/Delta[A];<br />

> y0:=Delta[y]/Delta[A];<br />

∆ y<br />

∆ z<br />

:= 22<br />

x0 := 1<br />

y0 := 3<br />

b<br />

b<br />

b<br />

1<br />

2<br />

3<br />

D<br />

d<br />

d<br />

d<br />

1<br />

2<br />

3

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!