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