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}]]