Re: Schaums outline Mathematica 2nd ed, prob. 11.3 help
- To: mathgroup at smc.vnet.net
- Subject: [mg125743] Re: Schaums outline Mathematica 2nd ed, prob. 11.3 help
- From: Murray Eisenberg <murray at math.umass.edu>
- Date: Fri, 30 Mar 2012 04:40:12 -0500 (EST)
- Delivered-to: l-mathgroup@mail-archive0.wolfram.com
- References: <201203290759.CAA21786@smc.vnet.net>
- Reply-to: murray at math.umass.edu
This is one of those "kick yourself" situations: you mistyped the input
variable "x" as upper-case "X" in the DSolve expression! If you fix
that, everything will work.
However, the Schaum's Outline code is not very good. Here's a more
direct way to do the same thing, without the very artificial device of
setting up a Do loop, and even without any need to index into s1:
v1 = VectorPlot[{1, x^2 + y}, {x, 0, 1}, {y, 0, 12},
Axes -> Automatic, VectorScale -> Tiny];
s1 = y[x] /.
Table[DSolve[{y'[x] == x^2 + y[x], y[0] == k}, y[x], x], {k, 0, 4}];
Show[{Plot[s1, {x, 0, 1}, PlotStyle -> Thick, PlotRange -> All], v1},
Frame -> True, AspectRatio -> 1]
There I arbitrarily changed the PlotStyle option to make use of symbolic
value Thick.
By default, done this way, the different solution curves will have
different colors. If you want them all the same color, you could change
your PlotStyle option to, e.g.:
PlotStyle -> Directive[Thick, Darker@Blue]
On 3/29/12 3:59 AM, pennsylvaniajake at gmail.com wrote:
> I cannot get this code to show the solutions to the equation, only the vector plot. Whats wrong? It came from Schum's Outline, Mathematica 2n ed, solved problem 11.3 on page 272-3. The only changes I made was using v1 for vf and s1 for solutions.
>
> v1 = VectorPlot[{1, x^2 + y}, {x, 0, 1}, {y, 0, 12},
> Axes -> Automatic, VectorScale -> Tiny];
>
> s1 = Table[
> DSolve[{y'[x] == X^2 + y[x], y[0] == k}, y[x], x], {k, 0, 4}];
>
> Do[g[k] =
> Plot[s1[[k, 1, 1, 2]], {x, 0, 1}, PlotStyle -> Thickness[0.007],
> PlotRange -> All], {k, 1, 5}]
>
> Show[g[1], g[2], g[3], g[4], g[5], v1, Frame -> True,
> AspectRatio -> 1]
>
--
Murray Eisenberg murray at math.umass.edu
Mathematics & Statistics Dept.
Lederle Graduate Research Tower phone 413 549-1020 (H)
University of Massachusetts 413 545-2859 (W)
710 North Pleasant Street fax 413 545-1801
Amherst, MA 01003-9305
- References:
- Schaums outline Mathematica 2nd ed, prob. 11.3 help
- From: "pennsylvaniajake@gmail.com" <pennsylvaniajake@gmail.com>
- Schaums outline Mathematica 2nd ed, prob. 11.3 help