RE: Finding solutions to differential eqns
- To: mathgroup at smc.vnet.net
- Subject: [mg40114] RE: [mg40091] Finding solutions to differential eqns
- From: "David Park" <djmp at earthlink.net>
- Date: Fri, 21 Mar 2003 02:36:39 -0500 (EST)
- Sender: owner-wri-mathgroup at wolfram.com
David, Certainly, but you have to study some Mathematica basics, learn how to use the various brackets, how to write derivatives, how % works, how Functions work, read the Help for DSolve, learn how solutions are returned as rules, and how to convert the rule to a definition of the function that solves your equation. Here is your last equation... Clear[x, c, t]; DSolve[x'[t] == (t - 4)*E^(4*t) + t*x[t], x, t][[1,1]] % /. C[1] -> c x[c_][t_] = Simplify[x[t] /. %] which gives... x -> Function[{t}, -((-4*E^(4*t) + E^(4*t)*t)/ (-4 + t)) + E^(t^2/2)*C[1]] x -> Function[{t}, -((-4*E^(4*t) + E^(4*t)*t)/ (-4 + t)) + E^(t^2/2)*c] -E^(4*t) + c*E^(t^2/2) 1) First the symbols used in the equation were cleared. 2) DSolve solves the differential equation and the first solution was picked out with [[1,1]]. 3) Mathematica solves in terms of a general constant C[1]. But this is an expression so it it replaced with the symbol c. 4) Then the definition for x[c][t] is given. c is a parameter and t is the variable. It is done by writing x[t] and then using the DSolve solution to substitute for x. We can now use the definition. For example... x[1][t] -E^(4*t) + E^(t^2/2) x[1][0.5] -6.25591 Plot[x[1][t], {t, -1, 1}]; The solution does solve the equation. x[c]'[t] == (t - 4)*E^(4*t) + t*x[c][t]//Simplify True David Park djmp at earthlink.net http://home.earthlink.net/~djmp/ From: David [mailto:davidol at hushmail.com] To: mathgroup at smc.vnet.net Subject: [mg40114] [mg40091] Finding solutions to differential eqns Is there a method where you can get Mathematica to find general solutions for differential equations? For example: [2xt(1 + t)]dx/dt = 1 + x^2 dx/dt = (t/x)e^(-x/t) + x/t and dx/dt = (t - 4)e^4t + tx I have access to version 4.0 Cheers, David