RE: problems with mathematica plot command
- To: mathgroup at smc.vnet.net
- Subject: [mg41107] RE: [mg41098] problems with mathematica plot command
- From: "David Park" <djmp at earthlink.net>
- Date: Sat, 3 May 2003 03:28:13 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
Your only problem is that you haven't specified a value for C[1], which appears in your definition. Since the Plot routine doesn't have a numerical value for it, it can't calculate the plot points. David Park djmp at earthlink.net http://home.earthlink.net/~djmp/ From: DuncanTKD at aol.com [mailto:DuncanTKD at aol.com] To: mathgroup at smc.vnet.net 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"];