Re: plot question
- To: mathgroup at smc.vnet.net
- Subject: [mg71470] Re: [mg71453] plot question
- From: Christopher Arthur <caa0012 at unt.edu>
- Date: Mon, 20 Nov 2006 02:43:52 -0500 (EST)
- References: <200611190610.BAA23562@smc.vnet.net>
If you're wanting opinions, mine is that just glancing at it gives me a
headache. If you want the reader to concentrate on the math, then take
the math out of the Show[]. After glancing twice, I see that you're
essentially plotting 10 curves that differ by levels of recursion with
sine or cosine. Perhaps it would be more clear if you made a second
function F or G in each case, and took the Plot[] out of the mess also,
so I know that you're intention is to plot these functions. Consider
using Epilog/Prolog or SetOptions to take some of the other stuff out
of the Plot[], so you don't even need a Show[]. k=10;
f[x_, n_] := Nest[Sin, N[x], n]
F[x_]=Array[f[x,#1],{k}];
Plot[Evaluate[F[x]],{x,0,2*Pi}]
Quoting dimitris <dimmechan at yahoo.com>:
> Hello to all.
>
> "Less in More"!
>
> But do the following plot contain enough details for the reader to
> understand the "mathematics" and in the same time not discard him with
> a lot of useless details (such as many legends, a lot of colors
> e.t.c.)?
>
> f[x_, n_] := Nest[Sin, N[x], n]
>
> Show[(Plot[f[x, #1], {x, 0, 2*Pi}, PlotStyle -> Hue[#1/11],
> DisplayFunction -> Identity] & ) /@ Range[10],
> Graphics[{{Hue[1/11], Line[{{Pi + 0.5, 1 - 0.1}, {3*(Pi/2) - 0.5, 1
> - 0.1}}]},
> {Hue[10/11], Line[{{Pi + 0.5, 1/2 - 0.1}, {3*(Pi/2) - 0.5, 1/2 -
> 0.1}}]}, {Text["n=10", {3*(Pi/2), 1/2 - 0.1}]},
> {Text["n=1", {3*(Pi/2), 1 - 0.1}]}}], DisplayFunction ->
> $DisplayFunction, ImageSize -> 600,
> Frame -> {True, True, False, False}, Axes -> {True, False},
> AxesStyle -> {AbsoluteDashing[{2, 4}]},
> FrameLabel -> TraditionalForm /@ {x,
> HoldForm[Sin[Sin[Sin["..."*Sin[x]]]]*", n times"]},
> TextStyle -> {FontSize -> 14, FontFamily -> "Times"}, PlotLabel ->
> "Sin Iteration\n",
> FrameTicks -> {Range[0, 2*Pi, Pi/2], Range[-1, 1, 1/2]}, PlotRange
> -> {{-0.001, 2*Pi}, {-1.001, 1}}];
>
> g[x_, n_] := Nest[Cos, N[x], n]
>
> Show[(Plot[g[x, #1], {x, 0, 2*Pi}, PlotStyle -> Hue[#1/11],
> DisplayFunction -> Identity] & ) /@ Range[10],
> Graphics[{{Hue[10/11], Line[{{Pi, 1 - 0.05}, {3*(Pi/2) - 1, 1 -
> 0.05}}]},
> {Hue[1/11], Line[{{Pi, 1/2 - 0.1}, {3*(Pi/2) - 1, 1/2 - 0.1}}]},
> {Text["n=1", {3*(Pi/2) - 0.5, 1/2 - 0.1}]},
> {Text["n=10", {3*(Pi/2) - 0.5, 1 - 0.05}]}}], DisplayFunction ->
> $DisplayFunction, ImageSize -> 600,
> Frame -> {True, True, False, False}, Axes -> {True, False},
> AxesStyle -> {AbsoluteDashing[{2, 4}]},
> FrameLabel -> TraditionalForm /@ {x,
> HoldForm[Cos[Cos[Cos["..."*Cos[x]]]]*", n times"]},
> TextStyle -> {FontSize -> 14, FontFamily -> "Times"}, PlotLabel ->
> "Cosine Iteration\n",
> FrameTicks -> {Range[0, 2*Pi, Pi/2], Range[-1, 1, 1/2]}, PlotRange
> -> {{-0.001, 2*Pi}, {-1.001, 1}}];
>
>
> Thanks a lot.
>
>
- References:
- plot question
- From: "dimitris" <dimmechan@yahoo.com>
- plot question