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 >