f



[Mathematica 6]3 lines of code which crashes Mathematica every time

(* WARNING, SAVE ALL YOUR WORK BEFORE RUNNING THIS *)

m = 100; n = 70;
A = Table[Table[RandomReal[{0, 100.}], {n}], {m}];
ListPlot3D[A, Mesh -> None, InterpolationOrder -> 0, ColorFunction -> 
"SouthwestColors", Filling -> Axis]


(*Now Mathematica will spin for sometime then disappear.*)

Nasser 


0
Nasser
5/22/2007 7:14:50 AM
comp.soft-sys.math.mathematica 28821 articles. 0 followers. Follow

2 Replies
662 Views

Similar Articles

[PageSpeed] 51

Nasser,
On my computer, your code runs fine. It seems you need about 2.5 GB of
RAM to run it, though, and it takes more than 5 minutes.
Roman.

On May 22, 9:14 am, "Nasser Abbasi" <n...@12000.org> wrote:
> (* WARNING, SAVE ALL YOUR WORK BEFORE RUNNING THIS *)
>
> m = 100; n = 70;
> A = Table[Table[RandomReal[{0, 100.}], {n}], {m}];
> ListPlot3D[A, Mesh -> None, InterpolationOrder -> 0, ColorFunction ->
> "SouthwestColors", Filling -> Axis]
>
> (*Now Mathematica will spin for sometime then disappear.*)
>
> Nasser



0
rschmied (79)
5/23/2007 9:52:58 AM
I have only 2 GB RAM, so I got the same results as Nasser.

Bobby

On Wed, 23 May 2007 04:26:13 -0500, Roman <rschmied@gmail.com> wrote:

> Nasser,
> On my computer, your code runs fine. It seems you need about 2.5 GB of=

> RAM to run it, though, and it takes more than 5 minutes.
> Roman.
>
> On May 22, 9:14 am, "Nasser Abbasi" <n...@12000.org> wrote:
>> (* WARNING, SAVE ALL YOUR WORK BEFORE RUNNING THIS *)
>>
>> m = 100; n = 70;
>> A = Table[Table[RandomReal[{0, 100.}], {n}], {m}];
>> ListPlot3D[A, Mesh -> None, InterpolationOrder -> 0, ColorFunction ->=

>> "SouthwestColors", Filling -> Axis]
>>
>> (*Now Mathematica will spin for sometime then disappear.*)
>>
>> Nasser
>
>
>
>



-- =

DrMajorBob@bigfoot.com

0
drmajorbob (532)
5/24/2007 10:12:26 AM
Reply: