Re: Graph of some built-in functions blows up Mathematica V7
- To: mathgroup at smc.vnet.net
- Subject: [mg95013] Re: Graph of some built-in functions blows up Mathematica V7
- From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
- Date: Sat, 3 Jan 2009 05:54:25 -0500 (EST)
- References: <gjjqnb$n9l$1@smc.vnet.net>
Hi, that is a bug and you should remove the GraphicsArray[] (f0 = {1/Pi \[Epsilon]/(x^2 + \[Epsilon]^2), \[Epsilon] Abs[ x]^(\[Epsilon] - 1), 1/2/Sqrt[Pi \[Epsilon]] Exp[-x^2/4/\[Epsilon]], 1/Pi/x Sin[x/\[Epsilon]], 1/\[Epsilon] AiryAi[x/\[Epsilon]], 1/\[Epsilon] Re[BesselJ[1/\[Epsilon], (x + 1)/\[Epsilon]]], Abs[1/\[Epsilon] Exp[-x^2/\[Epsilon]] LaguerreL[n, 2 x/\[Epsilon]]]}) Partition[ Plot[Evaluate[ Table[# /. {\[Epsilon] -> e, n -> 1}, {e, .1, .2, .02}]], {x, -3, 3}, PlotRange -> If[# === \[Epsilon] Abs[x]^(\[Epsilon] - 1), {Automatic, {0, 3}}, {Automatic, All}], AxesLabel -> TraditionalForm /@ {x, HoldForm[#] /. n -> 1}, PlotStyle -> {Red, Orange, Yellow, Green, Blue, Brown}] & /@ f0, 2] work fine. Regards Jens congruentialuminaire at yahoo.com wrote: > Hello Mathematica UG: > > $Version = 7.0 for Microsoft Windows (32-bit) (November 10, 2008) > > The following commands are from a notebook downloaded from this > Mathworld page: http://mathworld.wolfram.com/DeltaFunction.html > > > (f0 = {1/Pi \[Epsilon]/(x^2 + \[Epsilon]^2), \[Epsilon] Abs[ > x]^(\[Epsilon] - 1), > 1/2/Sqrt[Pi \[Epsilon]] Exp[-x^2/4/\[Epsilon]], > 1/Pi/x Sin[x/\[Epsilon]], 1/\[Epsilon] AiryAi[x/\[Epsilon]], > 1/\[Epsilon] Re[BesselJ[1/\[Epsilon], (x + 1)/\[Epsilon]]], > Abs[1/\[Epsilon] Exp[-x^2/\[Epsilon]] > LaguerreL[n, 2 x/\[Epsilon]]]}) // > ColumnForm // TraditionalForm > > << Graphics`Colors` (* gets deprecation errors in V7 *) > > Show[GraphicsArray[ > Block[{$DisplayFunction = Identity}, > Partition[ > Plot[Evaluate[ > Table[# /. {\[Epsilon] -> e, > n -> 1}, {e, .1, .2, .02}]], {x, -3, 3}, > PlotRange -> > If[# === \[Epsilon] Abs[x]^(\[Epsilon] - 1), {Automatic, {0, > 3}}, {Automatic, All}], > AxesLabel -> TraditionalForm /@ {x, HoldForm[#] /. n -> 1}, > PlotStyle -> {Red, Orange, Yellow, Green, Blue, Violet}] & /@ > f0, 3, 3, {1, 1}, {}]]] (*,GraphicsSpacing->{-.15,.2} *)] > > It runs for a while then a box comes up titled "Formatting Notebook > contents". Then Mathematica blows up. > > This same code does run in Mathematica V6. > > Since it does not issue an error message, I am not sure how to isolate > what is wrong other than removing the functions from f0, one-by-one. > > If anyone has another approach to take, I would appreciate any advice. > > TIA. > > Regards... > > Roger Williams > Franklin Laboratory >