problems with mathematica plot command
- To: mathgroup at smc.vnet.net
- Subject: [mg41098] problems with mathematica plot command
- From: DuncanTKD at aol.com
- Date: Fri, 2 May 2003 03:59:53 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
I am a Math student at belhaven college in MS, and I am taking a class called mathematical investigation that uses mathematica to solve different calculus problems. I am having trouble with the plot command. It keeps giving me an machin-sized error message. any help you can giv me is welcome.
In[32]:=
Clear[P,M,t,e,P0,b,q];
P[t_,e_,P0_,M_,b_,q_]=(P[t]/.answerRule/.Exp[r_+Log[e_]]:>s Exp[r])
Out[32]=
\!\(\(-\(\(E\^\(b\ t\)\ M\ \((b - e\ q)\)\)\/\(\(-b\)\ E\^\(b\ t\) +
E\^\(e\ q\ t + C[1]\)\)\)\)\)
No Harvesting
In[33]:=
e=0;P0=10000;M=30000;b=1.3;q=0;
In[37]:=
Print["M=",M,",P0=",P0,",b=",b];
Plot[P[t,e,P0,M,b,q],{t,1,9},PlotRange->{Automatic,{0,Automatic}},
GridLines->Automatic,PlotStyle->{{AbsoluteThickness[2],RGBColor[1,0,0]}},
AxesLabel->{"years","population"},PlotLabel->"No Harvesting"];