Re: Time needed for calculation

*To*: mathgroup at smc.vnet.net*Subject*: [mg62448] Re: [mg62411] Time needed for calculation*From*: Bob Hanlon <hanlonr at cox.net>*Date*: Thu, 24 Nov 2005 06:33:48 -0500 (EST)*Reply-to*: hanlonr at cox.net*Sender*: owner-wri-mathgroup at wolfram.com

If your computer is properly ventilated it should run almost indefinately. You were missing a parentheses that I took a guess at. This may not be the same equation. I have a slower computer than yours and together these plots run in a couple of seconds Needs["Graphics`"]; L=48; a=1/10; A=1; r=1/10; t=Rationalize[0.046296296296296294`]; eqn=Simplify[A r L (1-a)((1-t) c k^a)== (a+(1-a)(1-t)) L^2 (1-a)^2 (1-t)^3 k^(3a-1)+ L(1-a) c (1-t) (-A(a+(1-a)(1-t))(2-t)- (1-a)(1-t)^2+A a(1-t)) k^(2a-1)+A c^2 (A(a+(1- a)(1-t))+(1-a)(1-t)- A a(1-t)) k^(a-1)+A^2 r c^2]; soln=c/.Solve[eqn,c]; Plot[Evaluate[soln],{k,0.8,1.5}, Frame->True,Axes->False,PlotStyle->Blue]; Bound the ImplicitPlot in both variables ImplicitPlot[eqn,{k,0.8,1.5},{c,21,41}, AspectRatio->1/GoldenRatio,ImageSize->288, Frame->True,Axes->False,PlotStyle->Blue]; Bob Hanlon > > From: JikaiRF at AOL.COM To: mathgroup at smc.vnet.net > Date: 2005/11/23 Wed AM 01:12:58 EST > Subject: [mg62448] [mg62411] Time needed for calculation > > > Dear Sirs, > I have some questions about how long a computer can calculate, without > damages on hard wear. > More specifically speaking, I intend to depict trajectories on (k, c) axis, > which are derived from programming on Mathematica. > My program is as follows: > > << Graphics`ImplicitPlot` > L = 48; > > a = 0.1; > > A = 1; > > r = 0.1; > > t = 0.046296296296296294`; > > ImplicitPlot[A r L (1 - a)((1 -t) c k^a == (a+(1-a)(1- t)) L^2 (1-a)^2 (1- t > )^3 k^(3a-1) > +L(1-a) c (1- t) (-A(a+(1-a)(1- t))(2- t)-(1-a)(1- t)^2 > +A a(1- t)) k^(2a-1) > +A c^2 (A(a+(1-a)(1- t))+(1-a)(1- t) -A a(1- t)) k^(a-1) > +A^2 r c^2, {k, 0.8, 1.5}] > > This program seems to work well. However, I cannot obtain the curve which > should be derived from the above program, though my computer continues to > calculate more than fifteen minutes. > > I would like to know how long a computer can calculate without damages on > hardware, and additionally how long it takes to obtain the required curve based > on my computer. > Especially, my computer is PowerBook G4 with 1.5 GHz processor. > > Sincerely, > Fujio Takata. > > >