/ gears / hpc / education / tutorials / mathematica / win
NIntegrate function
GIVEN: A Second Order ODE with non-constant coefficients
t^2x''+tx'-x = sint
REQUIRED: Solve the ODE
SOLUTION:Generate example09.nb C1[t_] := NIntegrate[Sin[u]/u^4, {u, 1, t}]; C2[t_] := NIntegrate[Sin[u]/u, {u, 1, t}]; xp[t_] := 2 t C1[t] - 2/t C2[t];
Plot[xp[t], {t, 1, 10}]
Homework:
Change the initial condition
Please send questions or suggestions about this web page to beatnic@aset.psu.edu ASET | ITS | Penn State