Re: Plotting a function dynamically in a loop
- To: mathgroup at smc.vnet.net
- Subject: [mg112913] Re: Plotting a function dynamically in a loop
- From: pratip <pratip.chakraborty at gmail.com>
- Date: Tue, 5 Oct 2010 05:37:46 -0400 (EDT)
- References: <i8c8ub$g9p$1@smc.vnet.net>
Hi,
This question makes not much sense. Nothing time dependent is
happening inside the Do loop. Nothing depends on "time". An example of
making movie is here. Use manipulate. However there are many other
ways available.
imax=10;
jmax=10;
kmax=10;
Manipulate[Show[ListLinePlot[Flatten[Table[Sin[Log[Exp[time](alfa*i
+beta*j+gamma*k)]],{i,1,imax},{j,2,jmax+1},{k,1,kmax}],1],Frame->
True],ListPlot[Flatten[Table[Sin[Log[Exp[time](alfa*i+beta*j
+gamma*k)]],{i,1,imax},{j,2,jmax+1},{k,1,kmax}],1],Frame-> True]],
{time,0,20,.1}]
If you want to form a 3D array by setting values to different part
specifications you have to allocate necessary space to the symbol "ex"
before. Though its not the way people form arrays in mathematica.
Example follows.
ex=Table[0.,{i,1,imax},{j,2,jmax+1},{k,1,kmax}];(*Allocate space to
ex*)
With[{time=1},Table[ex[[i,j-1,k]]=Exp[Sin[time (alfa*i+beta*j
+gamma*k)]],{i,1,imax},{j,2,jmax+1},{k,1,kmax}]];
ex//Dimensions
Hope this helps.
Pratip