fonction de newton

[collinm]

salut

jais le code suivant dans ma ti:

Code: Select all

newton(a,to,trop)
func
local m,xn
0-m:0-xn
loop
    m+1-m
    if(d(f(x),x)|x=a)=0 then @@@@@
        exit
    else
        a-f(a)/d(f(x),x)|x=a)-xn
        if m= trop or abs(xn-a)tol
            exit
        endif
    xn-a
endloop
if (d(f(x),x|x=a)=0 then
    "la methode echoue"
else
    {m,xn}
endif
endfunc


si je fais:

newton(3*x,x,4)

j'obtient

a test did not resolve to true or false

et ça m'amène à la ligne @@@@@


une idée?

[collinm]

euh, c'est pour quoi faire ce @@@@@ ?? .o

@@@@@ n'est là que pour montrer où est le problème... il n'est pas dans le code de la ti...

[collinm]

dans les paramètres si je change a par f(x), il me dit que: Error: Arugment must be a variable name

[collinm]

Déjà essais de mettre un espace après le if :
if (d(f(x),x)|x=a)=0 then @@@@@

Ensuite si tu prends pour a, 3*x, tu as x=3x et ça doit poser pb, ça ne doit pas savoir directement interpréter x=0 dans le d(.


Mais si tu veux bien nous expliciter clairement la méthode de Newton.

en gros je veux faire comme: http://lumimath.univ-mrs.fr/~jlm/cours/ ... node3.html

comme paramètre f(x), x0 (approximation initiale), n n'ombre d'itération

Code: Select all

  newton(f(x),x0,n)
  func
  local m,xn
  0-m:0-xn
  loop
      m+1-m
      if d(f(x),x)=0 then
          exit
      else
          x-f(x)/d(f(x),x)-xn
          if m=n trop or abs(xn-a)x0
              exit
          endif
      xn-a
  endloop
  if  d(f(x),x)=0 then
      "la methode echoue"
  else
      {m,xn}
  endif
  endfunc
 

j'ai l'erreur:

Error: Argument must be a variable name

[collinm]

pour le moment j'ai enlever le calcul de la dérivé 0... étant donné que ça cause problème...

j'ai fait un programme et la méthode de newton fonctionne j'ai fait la même chose avec une fonction.... et ça passe pu

le programme

Code: Select all

ttt()
prgm
local f,m,xn,uu,n,x0
clrio
input "valeur ini", x0
x0-uu
1-
3-n
x^2-2-f(x)
loop
    uu-f(uu)/d(f(uu),uu))-xn
    if m=n then
        exit
    endif
    xn-uu
    m+1-m
endloop
disp "nb ite: "string(m),"
u(n)="string(uu)
endprgm


j'obtient si je met 1 pour la valeur initiale:

nb ite: 3
u(n)=17/12

avec le programme

Code: Select all

newton(x^2-2,1,3)

newton(a,x0,n)
func
clrio
local f,m,xn,uu
1-m
a-f(x)
x0-uu
loop
    uu-f(uu)/d(f(uu),uu))-xn
    if m=n then
        exit
    endif
    xn-uu
    m+1-m
endloop
return uu
endfunc


j'obtient underf

une idée