Services & ResourcesWolfram ForumsMathGroup Archive

[Date Index] [Thread Index] [Author Index]

Schaums outline Mathematica 2nd ed, prob. 11.3 help

• To: mathgroup at smc.vnet.net
• Subject: [mg125696] Schaums outline Mathematica 2nd ed, prob. 11.3 help
• From: "pennsylvaniajake at gmail.com" <pennsylvaniajake at gmail.com>
• Date: Thu, 29 Mar 2012 02:59:57 -0500 (EST)
• Delivered-to: l-mathgroup@mail-archive0.wolfram.com

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]

• Follow-Ups:
  • Re: Schaums outline Mathematica 2nd ed, prob. 11.3 help
    • From: Murray Eisenberg <murray@math.umass.edu>
  • Re: Schaums outline Mathematica 2nd ed, prob. 11.3 help
    • From: Bob Hanlon <hanlonr357@gmail.com>