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.
>
>
>