Quote:
Originariamente inviato da Lampo89
Inserisci queste due righe:
sol = NDsolve[{y[x] + y''[x] == -y'[x] Abs[y'[x]], y[0] == 1, y'[0] == 0},y[x],{x,xmin,xmax}];
Plot[y[x] /. sol,{x,xmin,xmax}]
metti al posto di xmin e xmax il valore di x rispettivamente minimo e massimo che vuoi plottare (ocio alla singolarità a x = -1.7)
|
Ti ringrazio, purtroppo però provando tra 0 e 10 mi da una serie di errori tipo questo:
ReplaceAll::reps:
poi sembra che provi a calcolare numericamente (cioè compaiono prorio dei numeri al posto di x nelle espressioni ) ed infine si blocca dopo alcuni tentativi.
Ogni ulteriore scontato dettaglio è gradito perchè non ho mai usato prima questo sw. Ho solo aperto il notebook di mathematica e ficcato dentro la tua espressione tra 0 e 10.