Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2009

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

Search the Archive

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
> 


  • Prev by Date: Re: Problem in Dot Product of 4x4 Matrices with
  • Next by Date: Re: Re: Re: Test for composite digit
  • Previous by thread: Re: Problem in Dot Product of 4x4 Matrices with
  • Next by thread: Re: Re: Graph of some built-in functions blows up Mathematica V7