[Date Index]
[Thread Index]
[Author Index]
Re: Re: Graph of some built-in functions blows up Mathematica V7
*To*: mathgroup at smc.vnet.net
*Subject*: [mg95034] Re: [mg95006] Re: Graph of some built-in functions blows up Mathematica V7
*From*: "Benedetto Bongiorno" <bongiob at sbcglobal.net>
*Date*: Sun, 4 Jan 2009 07:31:07 -0500 (EST)
*References*: <gjjqnb$n9l$1@smc.vnet.net> <200901031053.FAA02614@smc.vnet.net>
To All,
The same happens when producing graphics from large data sets.
"Formatting Notebook" appears a number of times along with a windows notice
of "Windows Not Responding" and a white screen.
If I wait long enough everything comes back.
Windows Vista Premium 64 Bit, AMD Opteron, 8 Gigs
-----Original Message-----
From: Sjoerd C. de Vries [mailto:sjoerd.c.devries at gmail.com]
Sent: Saturday, January 03, 2009 4:53 AM
To: mathgroup at smc.vnet.net
Subject: [mg95034] [mg95006] Re: Graph of some built-in functions blows up Mathematica
V7
Roger,
The same happens on my system which is the same as yours. A complete
crash of Mathematica 7 and Mathematica 6 runs just fine. I'd suggest you
contact
the Wolfram support guys on this (http://support.wolfram.com/ if they
haven't read this already) as it seems a serious issue.
Cheers -- Sjoerd
On Jan 2, 3:30 am, congruentialumina... 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), {Autom=
atic, {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: Re: Aspect Ratio**
Next by Date:
**What Am I Doing Wrong?**
Previous by thread:
**Re: Graph of some built-in functions blows up Mathematica V7**
Next by thread:
**Re: Graph of some built-in functions blows up Mathematica V7**
| |