'Il demo mette in P la funzione che ha per grafico la tangente a y=F(x) in (#x,F(#x)) 'L'utente deve definire F e assegnare #x e il passo iniziale #h (con #x+#h nel dominio) 'Il demo usa (oltre a F, #x, #h) w[] ' w[4] funge da DeltaX (#h iniziale rimane invarato), w[1] da f'(x0) 'Se fai il grafico di F e poi quello di P ottieni la retta tangente 'Il demo non funziona per i punti agli estremi dell'intervallo di definizione tempo 0 noscrivi=1 ' salta i calcoli se non sono stati definiti #x e #h (1=1)= (abs(#x+#h)=abs(#x))= goto 9 if %=1 ' modifica casuale di H iniziale: h = h*(0.5+rnd/10) w[4]=#h*(0.5+rnd/10) 'memorizzo h iniziale ' a = (f(x0+h)-f(x0-0.99h) / (1.99h) stima di f'(x0) w[1]= (f(#x+w[4])-f(#x-0.99*w[4])) / (w[4]*1.99) w[2]=3 label1 w[4]=w[4]/2 ' la vecchia stima di f'(x0) w[3]=w[1] w[1]=(f(#x+w[4])-f(#x-0.99*w[4])) / (w[4]*1.99) ' valore per una delle condizioni di arresto w[3]= abs(w[3]-w[1])/(abs(w[3])+abs(w[1])) goto 2 IF w[3] > w[2] w[2]=w[3]*3 ' valore per una delle condizioni di arresto w[3]=abs(#h+w[4]-#h) goto 1 if w[3] > 0 label2 ' p(x) = f'(x0)*(x-x0)+f(x0) w[0]=f(#x) noscrivi=0 p(x)=w[1]*(x-#x)+w[0] w[1]= w[0]= "Ultimo Delta x = w[4]= -------- label9 "SE NON HAI DEFINITO F, x e h fallo "LEGGI i COMMENTI nel DEMO noscrivi=0 nolista=0 noimp=0 ------