Acceso al documento en PDF - Biblioteca Nacional de Maestros

Comdex/Infocom Argentina'97 Roberto E. Caligaris, Graciela A. Mansilla y MartaC. Caligaris
En tales casos se debe solicitar al programa que resuelva la ecuación diferencial en
forma numérica y para ello basta con escribir una N delante de DSolve y un
pequeño cambió en las instrucciones como se indica a continuación:
NDSolve[{i V 1
[t]+(R/L)i l
[t]+l/(L c3 i[t]==
fern[t]/L,i[O]-0,i~[01==03,i,~t,0,4.31
y Mathematica nos indica que ha efectuado las cuentas en forma numérica con el
mensaje:
{{i -> Inter~olatingFunction[{O., 4.}, O]}}.
El intervalo de tiempo pedido al programa fue (0,4) y para cada caso es el
resultado o de un análisis cualitativo del problema, o, lo que es más común, por el
infalible sistema de prueba y error. Si el lector quiere dibujar la respuesta entre los
valores de t 0 seg y 4 seg es libre de hacerlo. Se lo advertimos. Nosotros
mostramos el siguiente dibujo:
Plot[Evaluate[i[t]/.%],{t,0,0.002),PlOtStYle->
{Text["i (t) ll,, {0.001,6 lo"{-633131;
- Eì
7.10
-6
6.10
-6
5.10
i(t)
-6J
4.10
I / -
O.OQO5 0.001 0.0015 0.002
Observe el lector los valores de i y de t.
El otro ejemplo discutido siguiendo con los valores ya conocidos es:
R-0.560; L=lO; c= 0.1;
los comandos que se utilizan y la curva que corresponde a la intensidad de
corriente en el circuito es:
NDSolve[(i "[t]+(R/L)i l
[t]+l/(L c) i[t]==
fern[t]/L,i[0]==0,i 1
[0]==03,i,{t,0,5031
81