{VERSION 3 0 "IBM INTEL LINUX" "3.0" }
{USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 
1 0 0 0 0 }{CSTYLE "" -1 256 "" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 }
{CSTYLE "" -1 257 "" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 }{CSTYLE "" -1 258 
"" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 }{CSTYLE "" -1 259 "" 0 1 0 0 0 0 0 
1 0 0 0 0 0 0 0 }{PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "" 0 1 0 0 
0 0 0 0 0 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }}
{SECT 0 {EXCHG {PARA 0 "" 0 "" {TEXT 256 34 "Calcul du n-ieme terme de
 la suite" }{MPLTEXT 1 0 1 "\n" }{TEXT -1 128 "Entr\351e : n= indice e
ntier du terme \340 calculer, a et b valeurs initiales rationnelles ou
 r\351elles, d=nombre de chiffres en base 10" }{MPLTEXT 1 0 1 "\n" }
{TEXT -1 28 "Sortie : le terme d'indice n" }{MPLTEXT 1 0 196 "\nsuite \+
:= proc(n,a,b,d)\n  local i,u,v,t; \n  Digits := d;  \n  u := a;\n  v \+
:= b;\n  for i from 1 to n do\n    t := v;\n    v := 111 - 1130/v+3000
/(u*v);\n    u := t;\n  od;\n  RETURN(evalf(v));      \nend;" }}}
{EXCHG {PARA 0 "" 0 "" {TEXT 257 10 "Exemple :\n" }{TEXT -1 41 "si le \+
coefficient de d\351part est rationnel" }{TEXT 258 1 "\n" }{MPLTEXT 1 
0 25 "suite(10,11/2,61/11,10);\n" }{TEXT -1 36 "si le coefficient de d
\351part est r\351el" }{MPLTEXT 1 0 24 "\nsuite(10,5.5,61/11,10);" }}}
{EXCHG {PARA 0 "" 0 "" {TEXT 259 29 "Stabilit\351 des points fixes :\n
" }{TEXT -1 32 "calculons la matrice jacobienne\n" }{MPLTEXT 1 0 78 "w
ith(linalg);\ng:= [y,111 - 1130/y+3000/(x*y)];\nv := [x,y];\nJ := jaco
bian(g,v);" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 43 "Calculons cette mat
rice aux points fixes :\n" }{MPLTEXT 1 0 159 "J5 := subs(x=5,y=5,eval(
J));\nevalf(Eigenvals(J5));\nJ6:= subs(x=6,y=6,eval(J));\nevalf(Eigenv
als(J6));\nJ100 := subs(x=100,y=100,eval(J));\nevalf(Eigenvals(J100));
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "0 0 2" 103 
}{VIEWOPTS 1 1 0 1 1 1803 }