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
>