Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2008

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

Search the Archive

Re: parametric plot extremely slow

  • To: mathgroup at smc.vnet.net
  • Subject: [mg90657] Re: parametric plot extremely slow
  • From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
  • Date: Fri, 18 Jul 2008 04:01:09 -0400 (EDT)
  • Organization: Uni Leipzig
  • References: <g5n413$s7j$1@smc.vnet.net>
  • Reply-to: kuska at informatik.uni-leipzig.de

Hi,

on my machine the plot below take 4.8 *seconds*

And you are sure that your computer is not a 33 MHz
386 without a co-processor ??

It is complete useless to draw
cx[t_] := Sin[t*2*Pi]
cy[t_] := Cos[t*2*Pi]
from t in [0,1000] that is 1000 time the same circle

and
ParametricPlot[{{cx[t], cy[t]}, {zr0[10 t], zi0[10 t]}, {zr1[10 t],
    zi1[10 t]}, {zr2[t], zi2[t]}, {zr3[100 t], zi3[100 t]}}, {t, 0, 1},
   PlotRange -> 6, PlotStyle -> {Black, Red, Blue, Magenta, Purple},
  PerformanceGoal -> "Speed"]

need 0.13 seconds ..

If possible try to update the driver for the graphics card,
add memory, a new processor, a better graphics card ..

Regards
   Jens

Cristina Ballantine wrote:
>  Hi,
> 
>  I am working on a project involving many parametric plots and Mathematica 
> 6 is extremely slow. The plot below takes about 5 minutes. I also need 
> plots coloring regions with specific colors depending on the plotted 
> point. They take about two hours.
> 
>  Any hints on increasing plot speed are very much appreciated. I am new to 
> Mathematica and I cannot use Version 5 for Graphics. The plot below takes 
> less than 10 seconds in other systems (but but they cannot be used for the 
> more complicated region plots).
> 
>  Here is the code I used for the plot.
> 
> 
>  a1 := 2/3*Exp[I*Pi/4]
> a2 := 2/5 Exp[I*4*Pi/5]
> 
>  zr0[t_] :=
>   Re[(Exp[I*0*Pi/4]*t - Abs[a1])/(Exp[I*0*Pi/4]*t*Abs[a1] - 1)*a1/(Abs[a1])]
> 
>  zr1[t_] :=
>   Re[(Exp[I*2*Pi/4]*t - Abs[a1])/(Exp[I*2*Pi/4]*t*Abs[a1] - 1)*a1/(Abs[a1])]
> 
> zr2[t_] :=
>  Re[(Exp[I*4*Pi/4]*t - Abs[a1])/(Exp[I*4*Pi/4]*t*Abs[a1] - 1)*a1/(Abs[a1])]
> 
>  zr3[t_] :=
>   Re[(Exp[I*6*Pi/4]*t - Abs[a1])/(Exp[I*6*Pi/4]*t*Abs[a1] - 1)*a1/(Abs[a1])]
> 
>  zr0[t_] :=
>   Re[(Exp[I*0*Pi/4]*t - Abs[a1])/(Exp[I*0*Pi/4]*t*Abs[a1] - 1)*a1/(Abs[a1])]
> 
>  zi1[t_] :=
>   Im[(Exp[I*2*Pi/4]*t - Abs[a1])/(Exp[I*2*Pi/4]*t*Abs[a1] - 1)*a1/(Abs[a1])]
> 
> zi2[t_] :
>   Im[(Exp[I*4*Pi/4]*t - Abs[a1])/(Exp[I*4*Pi/4]*t*Abs[a1] - 1)*a1/(Abs[a1])]
> 
>  zi3[t_] :=
>   Im[(Exp[I*6*Pi/4]*t - Abs[a1])/(Exp[I*6*Pi/4]*t*Abs[a1] - 1)*a1/(Abs[a1])]
> 
>  zi0[t_] :=
>   Im[(Exp[I*0*Pi/4]*t - Abs[a1])/(Exp[I*0*Pi/4]*t*Abs[a1] - 1)*a1/(Abs[a1])]
> 
> 
> cx[t_] := Sin[t*2*Pi]
> cy[t_] := Cos[t*2*Pi]
> 
>  plotbasic :=
>   ParametricPlot[{{cx[t], cy[t]}, {zr0[t], zi0[t]}, {zr1[t],
>      zi1[t]}, {zr2[t], zi2[t]}, {zr3[t], zi3[t]}}, {t, 0, 1000},
>    PlotRange -> 6, PlotPoints -> 150, MaxRecursion -> 10,
>    PlotStyle -> {{Black, Thick}, Red, Blue, Magenta, Purple},
>    PerformanceGoal -> "Speed" ]
> 
>  Show[plotbasic]
> 
> 
> Thank you in advance for your help.
> 
> Best wishes,
> 
> Cristina
> 


  • Prev by Date: Re: simplifying definite vs indefinite integrals
  • Next by Date: Re: parametric plot extremely slow
  • Previous by thread: parametric plot extremely slow
  • Next by thread: Re: parametric plot extremely slow