{VERSION 6 1 "Windows XP" "6.1" }
{USTYLETAB {PSTYLE "Warning" -1 7 1 {CSTYLE "" -1 -1 "Courier" 1 12 0 
0 255 1 0 0 0 2 2 1 0 0 0 1 }1 0 0 -1 -1 -1 1 0 1 0 2 2 -1 1 }{PSTYLE 
"Dash Item" -1 16 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 
0 0 0 1 }1 1 0 -1 3 3 1 0 1 0 2 2 -1 3 }{PSTYLE "Heading 4" -1 20 1 
{CSTYLE "" -1 -1 "MS Serif" 1 12 0 0 0 0 1 0 0 2 2 2 0 0 0 1 }1 1 0 
-1 0 0 1 0 1 0 2 2 -1 1 }{PSTYLE "Heading 3" -1 5 1 {CSTYLE "" -1 -1 "
MS Serif" 1 14 0 0 0 0 1 1 0 2 2 2 0 0 0 1 }1 1 0 -1 0 0 1 0 1 0 2 2 
-1 1 }{PSTYLE "Error" -1 8 1 {CSTYLE "" -1 -1 "Courier" 1 12 255 0 
255 1 0 0 0 2 2 1 0 0 0 1 }1 0 0 -1 -1 -1 1 0 1 0 2 2 -1 1 }{PSTYLE "A
uthor" -1 19 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 0 0 0 0 2 2 2 0 0 
0 1 }3 1 0 -1 8 8 1 0 1 0 2 2 -1 1 }{PSTYLE "Heading 2" -1 4 1 
{CSTYLE "" -1 -1 "MS Serif" 1 16 0 0 0 0 0 1 0 2 2 2 0 0 0 1 }1 1 0 
-1 8 2 1 0 1 0 2 2 -1 1 }{PSTYLE "Text Output" -1 2 1 {CSTYLE "" -1 
-1 "Courier" 1 12 0 0 255 1 0 0 0 2 2 1 0 0 0 1 }1 0 0 -1 -1 -1 1 0 1 
0 2 2 -1 1 }{PSTYLE "Heading 1" -1 3 1 {CSTYLE "" -1 -1 "MS Serif" 1 
18 0 0 0 0 0 1 0 2 2 2 0 0 0 1 }1 1 0 -1 8 4 1 0 1 0 2 2 -1 1 }
{PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 
2 2 0 0 0 1 }1 1 0 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "Maple Plot" -1 13 
1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 }3 0 0 -1 -1 -1 
1 0 1 0 2 2 -1 1 }{PSTYLE "Line Printed Output" -1 6 1 {CSTYLE "" -1 
-1 "Courier" 1 12 0 0 255 1 0 0 0 2 2 1 0 0 0 1 }1 0 0 -1 -1 -1 1 0 1 
0 2 2 -1 1 }{PSTYLE "Title" -1 18 1 {CSTYLE "" -1 -1 "Times" 1 18 0 0 
0 0 0 1 1 2 2 2 0 0 0 1 }3 1 0 -1 12 12 1 0 1 0 2 2 -1 1 }{PSTYLE "Map
le Output" -1 11 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0
 }3 3 0 -1 -1 -1 1 0 1 0 2 2 -1 1 }{PSTYLE "List Item" -1 14 1 
{CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 0 0 0 1 }1 1 0 -1 3 
3 1 0 1 0 2 2 -1 5 }{PSTYLE "Bullet Item" -1 15 1 {CSTYLE "" -1 -1 "Ti
mes" 1 12 0 0 0 1 2 2 2 2 2 2 0 0 0 1 }1 1 0 -1 3 3 1 0 1 0 2 2 -1 2 }
{CSTYLE "Maple Input" -1 0 "Courier" 1 12 255 0 0 1 0 1 0 2 1 2 0 0 0 
1 }{CSTYLE "2D Input" -1 19 "Times" 1 12 255 0 0 1 0 0 0 2 1 2 0 0 0 
1 }{CSTYLE "Hyperlink" -1 17 "MS Serif" 1 12 0 128 128 1 0 0 1 2 2 2 
0 0 0 1 }{CSTYLE "Text" -1 200 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 0 0 0 
1 }{CSTYLE "2D Math" -1 2 "Times" 1 12 0 0 0 1 0 0 0 2 2 2 0 0 0 1 }
{CSTYLE "Dictionary Hyperlink" -1 45 "MS Serif" 1 12 147 0 15 1 0 0 1 
2 2 2 0 0 0 1 }{CSTYLE "Maple Input Placeholder" -1 201 "Courier" 1 
12 200 0 200 1 0 1 0 2 1 2 0 0 0 1 }{CSTYLE "2D Output" -1 20 "Times" 
1 12 0 0 255 1 0 0 0 2 2 1 0 0 0 1 }{CSTYLE "Page Number" -1 33 "Times
" 1 10 0 0 0 0 0 0 2 2 2 2 0 0 0 1 }{PSTYLE "_pstyle1" -1 200 1 
{CSTYLE "" -1 -1 "Courier" 1 12 255 0 0 1 0 1 0 2 1 2 1 0 0 1 }1 1 0 
0 0 0 2 0 2 0 2 2 -1 1 }{CSTYLE "_cstyle1" -1 202 "Courier" 1 12 255 
0 0 1 0 1 0 2 1 2 0 0 0 1 }{PSTYLE "_pstyle2" -1 201 1 {CSTYLE "" -1 
-1 "MS Serif" 1 18 0 0 0 0 0 1 0 2 2 2 0 0 0 1 }1 1 0 -1 8 4 1 0 1 0 
2 2 -1 1 }{PSTYLE "_pstyle3" -1 202 1 {CSTYLE "" -1 -1 "Times" 1 12 0 
0 0 1 2 2 2 2 2 2 1 0 0 1 }3 1 0 0 0 0 2 0 2 0 2 2 -1 1 }{CSTYLE "_cst
yle2" -1 203 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 0 0 0 1 }{PSTYLE "_pstyl
e4" -1 203 1 {CSTYLE "" -1 -1 "Courier" 1 12 255 0 0 1 0 1 0 2 1 2 0 
0 0 1 }0 0 0 -1 -1 -1 1 0 1 0 2 2 -1 1 }{CSTYLE "_cstyle3" -1 204 "Tim
es" 1 12 0 0 0 1 2 1 2 2 2 2 0 0 0 1 }{CSTYLE "_cstyle4" -1 205 "Times
" 1 12 0 0 0 1 2 2 2 2 2 2 0 0 0 1 }{CSTYLE "_cstyle5" -1 206 "Times" 
1 12 255 0 0 1 2 1 2 2 2 2 0 0 0 1 }{CSTYLE "_cstyle6" -1 207 "Times" 
1 12 255 0 0 1 2 2 2 2 2 2 0 0 0 1 }{PSTYLE "_pstyle5" -1 204 1 
{CSTYLE "" -1 -1 "Courier" 1 12 255 0 0 1 0 1 0 2 1 2 1 0 0 1 }3 1 0 
0 0 0 2 0 2 0 2 2 -1 1 }{CSTYLE "_cstyle7" -1 208 "Times" 1 24 0 0 0 
1 2 1 1 2 2 2 0 0 0 1 }{CSTYLE "_cstyle8" -1 209 "Courier" 1 12 0 0 
153 1 0 1 0 2 1 2 0 0 0 1 }{CSTYLE "_cstyle9" -1 210 "Courier" 1 12 0 
0 204 1 0 1 0 2 1 2 0 0 0 1 }{CSTYLE "_cstyle10" -1 211 "Courier" 1 
12 204 0 0 1 0 1 0 2 1 2 0 0 0 1 }{CSTYLE "_cstyle11" -1 212 "Courier"
 1 12 153 0 153 1 0 1 0 2 1 2 0 0 0 1 }{CSTYLE "_cstyle12" -1 213 "Cou
rier" 1 12 0 0 255 1 0 1 0 2 1 2 0 0 0 1 }{CSTYLE "_cstyle13" -1 214 "
Courier" 1 12 0 153 0 1 0 1 0 2 1 2 0 0 0 1 }{PSTYLE "_pstyle6" -1 
205 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 255 1 0 0 0 2 2 1 0 0 0 1 }3 
3 0 -1 -1 -1 1 0 1 0 2 2 -1 1 }{CSTYLE "_cstyle14" -1 215 "Times" 1 
12 0 0 255 1 0 0 0 2 2 2 0 0 0 1 }{PSTYLE "_pstyle7" -1 206 1 {CSTYLE 
"" -1 -1 "" 0 1 0 0 0 0 0 0 0 2 2 2 0 0 0 1 }0 0 0 -1 -1 -1 1 0 1 0 2 
2 -1 1 }{CSTYLE "_cstyle15" -1 216 "Times" 0 1 0 0 0 0 0 0 0 2 2 2 0 
0 0 1 }}
{SECT 0 {EXCHG {PARA 200 "> " 0 "" {MPLTEXT 1 202 8 "restart;" }
{MPLTEXT 1 202 0 "" }{MPLTEXT 1 202 1 "\n" }}}{SECT 1 {PARA 201 "" 0 "
" {TEXT -1 0 "" }}{EXCHG {PARA 200 "> " 0 "" {MPLTEXT 1 202 15 "taille
:=proc(A)" }{MPLTEXT 1 202 0 "" }{MPLTEXT 1 202 16 "\n local t,u,n,p;"
 }{MPLTEXT 1 202 0 "" }{MPLTEXT 1 202 24 "\n   t:=[op(2,evalm(A))];" }
{MPLTEXT 1 202 0 "" }{MPLTEXT 1 202 33 "\n   n:=op(2,t[1]);p:=op(2,t[2
]); " }{MPLTEXT 1 202 0 "" }{MPLTEXT 1 202 10 "\n   [n,p];" }{MPLTEXT 
1 202 0 "" }{MPLTEXT 1 202 5 "\nend:" }{MPLTEXT 1 202 0 "" }}}{EXCHG 
{PARA 202 "" 0 "" {TEXT 203 0 "" }}}{EXCHG {PARA 200 "> " 0 "" 
{MPLTEXT 1 202 25 "Permut_ligne:=proc(i,j,A)" }{MPLTEXT 1 202 0 "" }
{MPLTEXT 1 202 13 "\nlocal B,k,t;" }{MPLTEXT 1 202 0 "" }{MPLTEXT 1 
202 14 "\nt:=taille(A);" }{MPLTEXT 1 202 0 "" }{MPLTEXT 1 202 27 "\nB:
=array(1..t[1],1..t[2]);" }{MPLTEXT 1 202 0 "" }{MPLTEXT 1 202 13 "\nB
:=evalm(A);" }{MPLTEXT 1 202 0 "" }{MPLTEXT 1 202 24 "\nfor k from 1 t
o t[2] do" }{MPLTEXT 1 202 0 "" }{MPLTEXT 1 202 33 "\n B[i,k]:=A[j,k];
 B[j,k]:=A[i,k];" }{MPLTEXT 1 202 0 "" }{MPLTEXT 1 202 4 "\nod;" }
{MPLTEXT 1 202 0 "" }{MPLTEXT 1 202 10 "\nevalm(B);" }{MPLTEXT 1 202 
0 "" }{MPLTEXT 1 202 6 "\nend: " }{MPLTEXT 1 202 0 "" }}}{EXCHG {PARA 
200 "> " 0 "" {MPLTEXT 1 202 24 "Dilat_ligne:=proc(a,i,A)" }{MPLTEXT 
1 202 0 "" }{MPLTEXT 1 202 13 "\nlocal k,t,B;" }{MPLTEXT 1 202 0 "" }
{MPLTEXT 1 202 14 "\nt:=taille(A);" }{MPLTEXT 1 202 0 "" }{MPLTEXT 1 
202 27 "\nB:=array(1..t[1],1..t[2]);" }{MPLTEXT 1 202 0 "" }{MPLTEXT 
1 202 13 "\nB:=evalm(A);" }{MPLTEXT 1 202 0 "" }{MPLTEXT 1 202 24 "\nf
or k from 1 to t[2] do" }{MPLTEXT 1 202 0 "" }{MPLTEXT 1 202 19 "\n B[
i,k]:=a*A[i,k];" }{MPLTEXT 1 202 0 "" }{MPLTEXT 1 202 4 "\nod;" }
{MPLTEXT 1 202 0 "" }{MPLTEXT 1 202 10 "\nevalm(B);" }{MPLTEXT 1 202 
0 "" }{MPLTEXT 1 202 5 "\nend:" }{MPLTEXT 1 202 0 "" }}{PARA 203 "> " 
0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 200 "> " 0 "" {MPLTEXT 1 202 
30 "Transvect_ligne:=proc(i,a,j,A)" }{MPLTEXT 1 202 0 "" }{MPLTEXT 1 
202 13 "\nlocal k,t,B;" }{MPLTEXT 1 202 0 "" }{MPLTEXT 1 202 14 "\nt:=
taille(A);" }{MPLTEXT 1 202 0 "" }{MPLTEXT 1 202 27 "\nB:=array(1..t[1
],1..t[2]);" }{MPLTEXT 1 202 0 "" }{MPLTEXT 1 202 13 "\nB:=evalm(A);" 
}{MPLTEXT 1 202 0 "" }{MPLTEXT 1 202 24 "\nfor k from 1 to t[2] do" }
{MPLTEXT 1 202 0 "" }{MPLTEXT 1 202 26 "\n B[i,k]:=A[i,k]+a*A[j,k];" }
{MPLTEXT 1 202 0 "" }{MPLTEXT 1 202 4 "\nod;" }{MPLTEXT 1 202 0 "" }
{MPLTEXT 1 202 10 "\nevalm(B);" }{MPLTEXT 1 202 0 "" }{MPLTEXT 1 202 
5 "\nend:" }{MPLTEXT 1 202 0 "" }}}{EXCHG {PARA 200 "> " 0 "" 
{MPLTEXT 1 202 31 "CherchePivot_colonne:=proc(A,i)" }{MPLTEXT 1 202 0 
"" }{MPLTEXT 1 202 12 "\n local t,k;" }{MPLTEXT 1 202 0 "" }{MPLTEXT 
1 202 16 "\n  t:=taille(A);" }{MPLTEXT 1 202 0 "" }{MPLTEXT 1 202 44 "
\n  if is(i>t[1])then RETURN(IMPOSSIBLE); fi;" }{MPLTEXT 1 202 0 "" }
{MPLTEXT 1 202 26 "\n  for k from i to t[1] do" }{MPLTEXT 1 202 0 "" }
{MPLTEXT 1 202 40 "\n   if is(A[k,i]<>0) then RETURN(k); fi;" }
{MPLTEXT 1 202 0 "" }{MPLTEXT 1 202 6 "\n  od;" }{MPLTEXT 1 202 0 "" }
{MPLTEXT 1 202 13 "\n  RETURN(0);" }{MPLTEXT 1 202 0 "" }{MPLTEXT 1 
202 5 "\nend:" }{MPLTEXT 1 202 0 "" }}}{EXCHG {PARA 200 "> " 0 "" 
{MPLTEXT 1 202 27 "Permut_colonne:=proc(i,j,A)" }{MPLTEXT 1 202 0 "" }
{MPLTEXT 1 202 13 "\nlocal B,k,t;" }{MPLTEXT 1 202 0 "" }{MPLTEXT 1 
202 14 "\nt:=taille(A);" }{MPLTEXT 1 202 0 "" }{MPLTEXT 1 202 27 "\nB:
=array(1..t[1],1..t[2]);" }{MPLTEXT 1 202 0 "" }{MPLTEXT 1 202 13 "\nB
:=evalm(A);" }{MPLTEXT 1 202 0 "" }{MPLTEXT 1 202 24 "\nfor k from 1 t
o t[1] do" }{MPLTEXT 1 202 0 "" }{MPLTEXT 1 202 33 "\n B[k,i]:=A[k,j];
 B[k,j]:=A[k,i];" }{MPLTEXT 1 202 0 "" }{MPLTEXT 1 202 4 "\nod;" }
{MPLTEXT 1 202 0 "" }{MPLTEXT 1 202 10 "\nevalm(B);" }{MPLTEXT 1 202 
0 "" }{MPLTEXT 1 202 6 "\nend: " }{MPLTEXT 1 202 0 "" }}}{EXCHG {PARA 
200 "> " 0 "" {MPLTEXT 1 202 26 "zero_sous_pivot:=proc(i,A)" }
{MPLTEXT 1 202 0 "" }{MPLTEXT 1 202 14 "\n local t,B,k;" }{MPLTEXT 1 
202 0 "" }{MPLTEXT 1 202 17 "\n t:=taille(A);  " }{MPLTEXT 1 202 0 "" 
}{MPLTEXT 1 202 28 "\n B:=array(1..t[1],1..t[2]);" }{MPLTEXT 1 202 0 "
" }{MPLTEXT 1 202 14 "\n B:=evalm(A);" }{MPLTEXT 1 202 0 "" }{MPLTEXT 
1 202 74 "\n if is(i>t[2]) or is(i>t[1]) or is(B[i,i]=0) then RETURN(I
MPOSSIBLE); fi;" }{MPLTEXT 1 202 0 "" }{MPLTEXT 1 202 39 "\n B:=Dilat_
ligne(1/B[i,i],i,B);        " }{MPLTEXT 1 202 0 "" }{MPLTEXT 1 202 27 
"\n for k from i+1 to t[1] do" }{MPLTEXT 1 202 0 "" }{MPLTEXT 1 202 
38 "\n  B:=Transvect_ligne(k,-B[k,i],i,B); " }{MPLTEXT 1 202 0 "" }
{MPLTEXT 1 202 5 "\n od;" }{MPLTEXT 1 202 0 "" }{MPLTEXT 1 202 10 "\ne
valm(B);" }{MPLTEXT 1 202 0 "" }{MPLTEXT 1 202 6 "\nend: " }{MPLTEXT 
1 202 0 "" }}}{EXCHG {PARA 200 "> " 0 "" {MPLTEXT 1 202 25 "zero_sur_p
ivot:=proc(i,A)" }{MPLTEXT 1 202 0 "" }{MPLTEXT 1 202 14 "\n local t,B
,k;" }{MPLTEXT 1 202 0 "" }{MPLTEXT 1 202 17 "\n t:=taille(A);  " }
{MPLTEXT 1 202 0 "" }{MPLTEXT 1 202 28 "\n B:=array(1..t[1],1..t[2]);"
 }{MPLTEXT 1 202 0 "" }{MPLTEXT 1 202 16 "\n B:=evalm(A);  " }{TEXT 
204 1 " " }{TEXT 205 0 "" }{TEXT 205 2 "\n " }{MPLTEXT 1 202 74 " if i
s(i>t[2]) or is(i>t[1]) or is(B[i,i]<>1) then RETURN(IMPOSSIBLE); fi;"
 }{MPLTEXT 1 202 0 "" }{MPLTEXT 1 202 26 "\n  for k from 1 to i-1 do "
 }{MPLTEXT 1 202 0 "" }{MPLTEXT 1 202 39 "\n  B:=Transvect_ligne(k,-B[
k,i],i,B);  " }{MPLTEXT 1 202 0 "" }{MPLTEXT 1 202 5 "\n od;" }
{MPLTEXT 1 202 0 "" }{MPLTEXT 1 202 10 "\nevalm(B);" }{MPLTEXT 1 202 
0 "" }{MPLTEXT 1 202 6 "\nend: " }{MPLTEXT 1 202 0 "" }{MPLTEXT 1 202 
2 "\n " }{MPLTEXT 1 202 0 "" }}}{EXCHG {PARA 200 "> " 0 "" {MPLTEXT 1 
202 29 "Gauss_systeme_cramer:=proc(A)" }{MPLTEXT 1 202 0 "" }{MPLTEXT 
1 202 20 "\n local T,i,j,t,sol;" }{MPLTEXT 1 202 0 "" }{MPLTEXT 1 202 
16 "\n t:=taille(A); " }{MPLTEXT 1 202 0 "" }{MPLTEXT 1 202 28 "\n T:=
array(1..t[1],1..t[2]);" }{MPLTEXT 1 202 0 "" }{MPLTEXT 1 202 15 "\n T
:=evalm(A); " }{TEXT 206 1 " " }{MPLTEXT 1 202 0 "" }{MPLTEXT 1 202 
48 "\n if (t[1]<>t[2]-1) then RETURN(IMPOSSIBLE) fi; " }{MPLTEXT 1 
202 0 "" }{MPLTEXT 1 202 25 "\nfor j from 1 to t[1] do " }{MPLTEXT 1 
202 0 "" }{MPLTEXT 1 202 32 "\n  i:=CherchePivot_colonne(T,j);" }
{MPLTEXT 1 202 0 "" }{MPLTEXT 1 202 40 "\n  if i<>0 then T:=Permut_lig
ne(i,j,T); " }{MPLTEXT 1 202 0 "" }{MPLTEXT 1 202 47 "\n              \+
 T:=zero_sous_pivot(j,T);       " }{MPLTEXT 1 202 0 "" }{MPLTEXT 1 
202 6 "\n  fi;" }{MPLTEXT 1 202 0 "" }{MPLTEXT 1 202 5 "\n od;" }
{MPLTEXT 1 202 0 "" }{MPLTEXT 1 202 63 "\n if (sum(T[k,k],k=1..t[1])<>
t[1]) then RETURN(IMPOSSIBLE) fi; " }{TEXT 207 1 " " }{MPLTEXT 1 202 
0 "" }{MPLTEXT 1 202 12 "\n sol:=NULL;" }{MPLTEXT 1 202 0 "" }
{MPLTEXT 1 202 35 "\n for j from  t[1] to 1 by -1  do  " }{TEXT 207 1 
" " }{MPLTEXT 1 202 0 "" }{MPLTEXT 1 202 33 "\n    T:=zero_sur_pivot(j
,T);     " }{MPLTEXT 1 202 0 "" }{MPLTEXT 1 202 25 "\n    sol:=T[j,t[2
]],sol; " }{TEXT 207 1 " " }{MPLTEXT 1 202 0 "" }{MPLTEXT 1 202 5 "\n \+
od;" }{MPLTEXT 1 202 0 "" }{MPLTEXT 1 202 8 "\n [sol];" }{MPLTEXT 1 
202 0 "" }{MPLTEXT 1 202 5 "\nend:" }{MPLTEXT 1 202 0 "" }}}}{EXCHG 
{PARA 204 "> " 0 "" {MPLTEXT 1 202 0 "" }}{PARA 204 "> " 0 "" {TEXT 
208 10 "Exercice 6" }{MPLTEXT 1 202 0 "" }}}{EXCHG {PARA 200 "> " 0 ""
 {TEXT 204 11 "question b)" }{MPLTEXT 1 202 0 "" }}}{EXCHG {PARA 200 "
> " 0 "" {MPLTEXT 1 202 36 "zero_sur_pivot_historique:=proc(i,A)" }
{MPLTEXT 1 202 0 "" }{MPLTEXT 1 202 14 "\n local t,B,k," }{MPLTEXT 1 
209 5 "hist;" }{MPLTEXT 1 202 0 "" }{MPLTEXT 1 202 2 "\n " }{MPLTEXT 
1 209 11 "hist:=NULL;" }{MPLTEXT 1 202 0 "" }{MPLTEXT 1 202 17 "\n t:=
taille(A);  " }{MPLTEXT 1 202 0 "" }{MPLTEXT 1 202 28 "\n B:=array(1..
t[1],1..t[2]);" }{MPLTEXT 1 202 0 "" }{MPLTEXT 1 202 15 "\n B:=evalm(A
); " }{MPLTEXT 1 202 0 "" }{MPLTEXT 1 202 75 "\n if is(i>t[2]) or is(i
>t[1]) or is(B[i,i]<>1) then RETURN(IMPOSSIBLE); fi;" }{MPLTEXT 1 202 
0 "" }{MPLTEXT 1 202 25 "\n  for k from 1 to i-1 do" }{MPLTEXT 1 202 
0 "" }{MPLTEXT 1 202 3 "\n  " }{MPLTEXT 1 209 36 " hist:=hist,[\"Trans
vection_ligne\",k," }{MPLTEXT 1 210 8 "-B[k,i]," }{MPLTEXT 1 209 3 "i]
;" }{TEXT 205 7 " hist c" }{TEXT 205 64 "ontient la s\351quence des op
\351rations \351l\351mentaires effectu\351es sur B" }{MPLTEXT 1 202 0 
"" }{MPLTEXT 1 202 40 "\n   B:=Transvect_ligne(k,-B[k,i],i,B);  " }
{MPLTEXT 1 202 0 "" }{MPLTEXT 1 202 5 "\n od;" }{MPLTEXT 1 211 0 "" }
{MPLTEXT 1 211 10 "\nevalm(B)," }{MPLTEXT 1 209 7 "[hist];" }{MPLTEXT 
1 202 0 "" }{MPLTEXT 1 202 6 "\nend: " }{MPLTEXT 1 202 0 "" }{MPLTEXT 
1 202 2 "\n " }{MPLTEXT 1 202 0 "" }}}{EXCHG {PARA 200 "> " 0 "" 
{MPLTEXT 1 202 37 "zero_sous_pivot_historique:=proc(i,A)" }{MPLTEXT 1 
202 0 "" }{MPLTEXT 1 202 14 "\n local t,B,k," }{MPLTEXT 1 209 5 "hist;
" }{MPLTEXT 1 202 0 "" }{MPLTEXT 1 202 3 "\n  " }{MPLTEXT 1 209 11 "hi
st:=NULL;" }{MPLTEXT 1 202 0 "" }{MPLTEXT 1 202 17 "\n t:=taille(A);  \+
" }{MPLTEXT 1 202 0 "" }{MPLTEXT 1 202 28 "\n B:=array(1..t[1],1..t[2]
);" }{MPLTEXT 1 202 0 "" }{MPLTEXT 1 202 14 "\n B:=evalm(A);" }
{MPLTEXT 1 202 0 "" }{MPLTEXT 1 202 74 "\n if is(i>t[2]) or is(i>t[1])
 or is(B[i,i]=0) then RETURN(IMPOSSIBLE); fi;" }{MPLTEXT 1 202 0 "" }
{MPLTEXT 1 202 4 "\n   " }{MPLTEXT 1 209 39 "hist:=hist,[\"Dilate_lign
e\",1/B[i,i],i];" }{TEXT 205 1 " " }{MPLTEXT 1 202 0 "" }{MPLTEXT 1 
202 36 "\n   B:=Dilat_ligne(1/B[i,i],i,B);   " }{MPLTEXT 1 202 0 "" }
{MPLTEXT 1 202 26 "\nfor k from i+1 to t[1] do" }{MPLTEXT 1 202 0 "" }
{MPLTEXT 1 202 2 "\n " }{MPLTEXT 1 209 48 "  hist:=hist,[\"Transvectio
n_ligne\",k,-B[k,i],i];" }{TEXT 205 71 " hist contient la s\351quence \+
des op\351rations \351l\351mentaires effectu\351es sur B" }{MPLTEXT 1 
202 0 "" }{MPLTEXT 1 202 39 "\n   B:=Transvect_ligne(k,-B[k,i],i,B); "
 }{MPLTEXT 1 202 0 "" }{MPLTEXT 1 202 5 "\n od;" }{MPLTEXT 1 202 0 "" 
}{MPLTEXT 1 202 11 "\n evalm(B)," }{MPLTEXT 1 209 7 "[hist];" }
{MPLTEXT 1 202 0 "" }{MPLTEXT 1 202 5 "\nend:" }{MPLTEXT 1 202 0 "" }}
}{EXCHG {PARA 200 "> " 0 "" {MPLTEXT 1 202 40 "Gauss_systeme_cramer_hi
storique:=proc(A)" }{MPLTEXT 1 202 0 "" }{MPLTEXT 1 202 16 "\n local T
,i,j,t," }{MPLTEXT 1 209 5 "hist," }{MPLTEXT 1 212 5 "temp;" }
{MPLTEXT 1 202 0 "" }{MPLTEXT 1 202 2 "\n " }{MPLTEXT 1 209 11 "hist:=
NULL;" }{MPLTEXT 1 202 0 "" }{MPLTEXT 1 202 16 "\n t:=taille(A); " }
{MPLTEXT 1 202 0 "" }{MPLTEXT 1 202 28 "\n T:=array(1..t[1],1..t[2]);"
 }{MPLTEXT 1 202 0 "" }{MPLTEXT 1 202 15 "\n T:=evalm(A); " }{TEXT 
206 1 " " }{MPLTEXT 1 202 0 "" }{MPLTEXT 1 202 46 "\n if (t[1]<>t[2]) \+
then RETURN(IMPOSSIBLE) fi; " }{MPLTEXT 1 202 0 "" }{MPLTEXT 1 202 25 
"\nfor j from 1 to t[1] do " }{MPLTEXT 1 202 0 "" }{MPLTEXT 1 202 32 "
\n  i:=CherchePivot_colonne(T,j);" }{MPLTEXT 1 202 0 "" }{MPLTEXT 1 
202 40 "\n  if i<>0 then T:=Permut_ligne(i,j,T); " }{MPLTEXT 1 202 0 "
" }{MPLTEXT 1 202 16 "\n               " }{MPLTEXT 1 209 34 "hist:=his
t,[\"Echange_ligne\",i,j]; " }{TEXT 205 71 " hist contient la s\351que
nce des op\351rations \351l\351mentaires effectu\351es sur B" }
{MPLTEXT 1 202 0 "" }{MPLTEXT 1 202 15 "\n              " }{MPLTEXT 1 
212 39 " temp:=zero_sous_pivot_historique(j,T);" }{MPLTEXT 1 202 2 "  \+
" }{MPLTEXT 1 202 0 "" }{MPLTEXT 1 202 27 "\n               T:=temp[1]
;" }{MPLTEXT 1 202 0 "" }{MPLTEXT 1 202 16 "\n               " }
{MPLTEXT 1 210 23 "hist:=hist,op(temp[2]);" }{MPLTEXT 1 202 20 "      \+
              " }{MPLTEXT 1 202 0 "" }{MPLTEXT 1 202 6 "\n  fi;" }
{MPLTEXT 1 202 0 "" }{MPLTEXT 1 202 5 "\n od;" }{MPLTEXT 1 202 0 "" }
{MPLTEXT 1 202 63 "\n if (sum(T[k,k],k=1..t[1])<>t[1]) then RETURN(IMP
OSSIBLE) fi; " }{TEXT 207 1 " " }{MPLTEXT 1 202 0 "" }{MPLTEXT 1 202 
35 "\n for j from  t[1] to 1 by -1  do  " }{TEXT 207 1 " " }{MPLTEXT 
1 202 0 "" }{MPLTEXT 1 202 5 "\n    " }{MPLTEXT 1 212 37 "temp:=zero_s
ur_pivot_historique(j,T);" }{MPLTEXT 1 202 2 "  " }{MPLTEXT 1 202 0 ""
 }{MPLTEXT 1 202 16 "\n    T:=temp[1];" }{MPLTEXT 1 202 0 "" }
{MPLTEXT 1 202 5 "\n    " }{MPLTEXT 1 210 23 "hist:=hist,op(temp[2]);"
 }{MPLTEXT 1 202 4 "    " }{MPLTEXT 1 202 0 "" }{MPLTEXT 1 202 7 "\n  \+
 od;" }{MPLTEXT 1 202 0 "" }{MPLTEXT 1 202 9 "\n [hist];" }{MPLTEXT 1 
202 0 "" }{MPLTEXT 1 202 5 "\nend:" }{MPLTEXT 1 202 0 "" }}}{EXCHG 
{PARA 200 "> " 0 "" {MPLTEXT 1 202 0 "" }}}{EXCHG {PARA 200 "> " 0 "" 
{TEXT 204 11 "question c)" }{MPLTEXT 1 202 0 "" }}}{EXCHG {PARA 200 ">
 " 0 "" {MPLTEXT 1 202 22 "Gauss_inverse:=proc(A)" }{MPLTEXT 1 202 0 "
" }{MPLTEXT 1 202 25 "\n local T,j,k,q,t,m,hist;" }{MPLTEXT 1 202 0 ""
 }{MPLTEXT 1 202 16 "\n t:=taille(A); " }{MPLTEXT 1 202 0 "" }
{MPLTEXT 1 202 29 "\n  T:=array(1..t[1],1..t[2]);" }{MPLTEXT 1 202 0 "
" }{MPLTEXT 1 202 27 "\n  for j from 1 to t[1] do " }{MPLTEXT 1 202 0 
"" }{MPLTEXT 1 202 49 "\n   for k from 1 to t[1] do    T[j,k]:=0;   od
;  " }{TEXT 205 46 "tous les coefficients de la ligne j sont nulls" }
{MPLTEXT 1 202 0 "" }{MPLTEXT 1 202 15 "\n   T[j,j]:=1; " }{TEXT 205 
21 "sauf celui d'indice j" }{MPLTEXT 1 202 0 "" }{MPLTEXT 1 202 7 "\n \+
 od; " }{MPLTEXT 1 202 0 "" }{MPLTEXT 1 202 3 "\n  " }{TEXT 205 43 "On
 a a obtenu jusqu'ici la matrice identit\351" }{MPLTEXT 1 202 0 "" }
{MPLTEXT 1 202 44 "\n hist:=Gauss_systeme_cramer_historique(A); " }
{MPLTEXT 1 202 0 "" }{MPLTEXT 1 202 17 "\n m:=nops(hist); " }{MPLTEXT 
1 202 0 "" }{MPLTEXT 1 202 2 "\n " }{TEXT 205 110 "On applique les m\3
52mes op\351rations sur les lignes \340 l'identit\351 In que celles ap
pliqu\351e \340 A pour passer de A \340 In" }{MPLTEXT 1 202 0 "" }
{MPLTEXT 1 202 22 "\n for j from 1 to m do" }{MPLTEXT 1 202 0 "" }
{MPLTEXT 1 202 14 "\n  q:=hist[j];" }{MPLTEXT 1 202 0 "" }{MPLTEXT 1 
202 12 "\n  if q[1]=\"" }{MPLTEXT 1 212 13 "Echange_ligne" }{MPLTEXT 
1 202 10 "\" then T:=" }{MPLTEXT 1 212 12 "Permut_ligne" }{MPLTEXT 1 
202 14 "(q[2],q[3],T);" }{MPLTEXT 1 202 0 "" }{MPLTEXT 1 202 15 "\n   \+
elif q[1]=\"" }{MPLTEXT 1 210 12 "Dilate_ligne" }{MPLTEXT 1 202 10 "\"
 then T:=" }{MPLTEXT 1 213 11 "Dilat_ligne" }{MPLTEXT 1 202 14 "(q[2],
q[3],T);" }{MPLTEXT 1 202 0 "" }{MPLTEXT 1 202 15 "\n   elif q[1]=\"" 
}{MPLTEXT 1 214 18 "Transvection_ligne" }{MPLTEXT 1 202 10 "\" then T:
=" }{MPLTEXT 1 214 15 "Transvect_ligne" }{MPLTEXT 1 202 19 "(q[2],q[3]
,q[4],T);" }{MPLTEXT 1 202 0 "" }{MPLTEXT 1 202 6 "\n  fi;" }{MPLTEXT 
1 202 0 "" }{MPLTEXT 1 202 5 "\n od;" }{MPLTEXT 1 202 0 "" }{MPLTEXT 
1 202 12 "\n  evalm(T);" }{MPLTEXT 1 202 0 "" }{MPLTEXT 1 202 5 "\nend
:" }{MPLTEXT 1 202 0 "" }}}{EXCHG {PARA 200 "> " 0 "" {MPLTEXT 1 202 
0 "" }}}{EXCHG {PARA 200 "> " 0 "" {MPLTEXT 1 202 0 "" }}{PARA 200 "> \+
" 0 "" {MPLTEXT 1 202 0 "" }}{PARA 200 "> " 0 "" {MPLTEXT 1 202 0 "" }
}{PARA 200 "> " 0 "" {MPLTEXT 1 202 0 "" }}{PARA 200 "> " 0 "" {TEXT 
204 11 "question d)" }{MPLTEXT 1 202 0 "" }}}{EXCHG {PARA 200 "> " 0 "
" {MPLTEXT 1 202 87 "A:=array(1..4,1..4): for i from 1 to 4 do for j f
rom 1 to 4 do A[i,j]:=min(i,j): od:od:" }{MPLTEXT 1 202 0 "" }}}
{EXCHG {PARA 200 "> " 0 "" {MPLTEXT 1 202 11 "A=evalm(A);" }{MPLTEXT 
1 202 0 "" }}{PARA 205 "" 1 "" {XPPMATH 20 "6#/I\"AG6\"-I'matrixGF%6#7
&7&\"\"\"F+F+F+7&F+\"\"#F-F-7&F+F-\"\"$F/7&F+F-F/\"\"%" }{TEXT 215 0 "
" }}}{EXCHG {PARA 205 "" 1 "" {TEXT 215 0 "" }}}{EXCHG {PARA 200 "> " 
0 "" {MPLTEXT 1 202 17 "Gauss_inverse(A);" }{MPLTEXT 1 202 0 "" }}
{PARA 205 "" 1 "" {XPPMATH 20 "6#-I'matrixG6\"6#7&7&\"\"#!\"\"\"\"!F+7
&F*F)F*F+7&F+F*F)F*7&F+F+F*\"\"\"" }{TEXT 215 0 "" }}}{EXCHG {PARA 
200 "> " 0 "" {MPLTEXT 1 202 0 "" }}{PARA 203 "> " 0 "" {MPLTEXT 1 0 
0 "" }}}{EXCHG {PARA 200 "> " 0 "" {MPLTEXT 1 202 0 "" }}}{PARA 206 ""
 0 "" {TEXT 216 0 "" }}{PARA 206 "" 0 "" {TEXT 216 0 "" }}{PARA 206 ""
 0 "" {TEXT 216 0 "" }}{PARA 206 "" 0 "" {TEXT -1 0 "" }}}{MARK "0 0 0
" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }