plot
- To: mathgroup at smc.vnet.net
- Subject: [mg58184] plot
- From: "Bosch, Darrell" <bosch at vt.edu>
- Date: Tue, 21 Jun 2005 06:03:11 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
Dear Group, Thanks to several of you for providing good suggestions to
my previous inquiry. In the program below I am trying to solve an
equation for v, derive the solution with respect to size, and plot the
resulting solution. The problem I have is in running the plot command.
I am trying to set numerical values for variables in the derivative
(other than size) and plot the derivative for size, but Mathematica
won't recognize the settings for the other values. Would appreciate any
suggestions. Darrell
sol=Log[v]==-0.829923*(Log[size])+0.05652*(Log[size])^2+.000737*(Lo=
g[siz
e])^3-.002805*pop+.288472*(Log[elev])-.020531*soil1-.086192*soil2-.10992
9*Log[x]+.15501*Log[y]-.192311*Log[mall]+.024088*Log[town]+.044958*year
sol2=Solve[sol,v]
sol3=D[v /. sol2[[1]],size]
Plot [Evaluate[sol3/. elev(r)379.82, soil1(r)0,
soil2(r)1,mall(r)8861.89,town(r)8828.68,pop(r)5.9,x(r)24888.27,y(r)16881
.90,year(r)0,{size,100,1000}]]