Hi, So i am trying to solve this differential equation. However when i press shift+enter Mathematica just rewrites the equation, not giving an answer. I would like to graph the result aswell. This is what it looks like:
Equation1 =
Dsolve[{L''[
t] == (((0.01*4 \[Pi]*10^-7*
L[t]*(440*e^(-t/(0.5*0.0025)))^2/\[Pi])*(0.01^2 + (L[t]^2 -
L[t]*Sqrt[0.01^2 + L[t]^2]))/Sqrt[0.01^2 + L[t]^2])/
0.01), L[0] == 0.001, L'[0] == 0.01}, L, {t, 0, 0.1}]
And it gives me the answer:
Dsolve[{(L^\[Prime]\[Prime])[t] == (
0.07744 e^(-1600. t)
L[t] (0.0001 + L[t]^2 - L[t] Sqrt[0.0001 + L[t]^2]))/Sqrt[
0.0001 + L[t]^2], L[0] == 0.001,
Derivative[1][L][0] == 0.01}, L, {t, 0, 0.1}]
which is basically only a rewriting... what should i do to solve it? I am new to mathematica so i guess it is a typing-error somewhere, can anyone assist me? I attach the file below if you want to try yourself and my goal is to find the L. Regards Mattias Pettersson :)
Attachments: