Graph plotting problem
- To: mathgroup at smc.vnet.net
- Subject: [mg120770] Graph plotting problem
- From: "DaleJenk" <dale.jenkins8 at deletegooglemail.com>
- Date: Tue, 9 Aug 2011 07:21:39 -0400 (EDT)
- Delivered-to: l-mathgroup@mail-archive0.wolfram.com
I'm trying to get a graph of displacement versus time but only the axes
appear. Thanks for any help.
Animate[m = 1.0;
b1 = .1;
b2 = .1;
b3 = .1;
soln = {x1, x2, x3} =
c = b1*Cos[t]*{1, 0, -1} +
b2*Cos[Sqrt[(2 + Sqrt[2])]*t]*{1, -Sqrt[2], 1} +
b3*Cos[Sqrt[(2 - Sqrt[2])]*t]*{1, Sqrt[2], 1};
balls = Graphics[{Black,
Line[{{0, 0}, {1, x1}, {2, x2}, {3, x3}, {4, 0}}],
Red, {Disk[{1, x1}, .1 Sqrt[m]], Disk[{2, x2}, .1 Sqrt[m]],
Disk[{3, x3}, .1 Sqrt[m]]}}, PlotRange -> {{0, 4}, {-1, 1}},
Frame -> True, ImageSize -> {400, 250}], {t, 0, 2 Pi}]
disp = Plot[
Evaluate[{x1[t], x2[t], x3[t]}, {t, 0, 2 Pi},
ImageSize -> {200, 150},
AxesLabel -> {Row[{"time ", Style["t", Italic]}], "displacement"},
ImagePadding -> {{35, 35}, {10, 20}}], AspectRatio -> Automatic]