Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2005
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2005

[Date Index] [Thread Index] [Author Index]

Search the Archive

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


  • Prev by Date: Re: Solving an integral in the limit.
  • Next by Date: Re: Timing of looping operators
  • Previous by thread: Re: Time needed for calculation
  • Next by thread: Re: Time needed for calculation