Re: plot

*To*: mathgroup at smc.vnet.net*Subject*: [mg58192] Re: [mg58184] plot*From*: Bob Hanlon <hanlonr at cox.net>*Date*: Wed, 22 Jun 2005 01:55:35 -0400 (EDT)*Reply-to*: hanlonr at cox.net*Sender*: owner-wri-mathgroup at wolfram.com

sol=Log[v]==-0.829923*(Log[size])+ 0.05652*(Log[size])^2+ .000737*(Log[size])^3- .002805*pop+.288472*(Log[elev])- .020531*soil1-.086192*soil2- .109929*Log[x]+.15501*Log[y]- .192311*Log[mall]+.024088*Log[town]+ .044958*year; sol2=Solve[sol,v]; sol3=D[v/.sol2[[1]],size]; Plot[sol3/.{elev->379.82,soil1->0, soil2->1,mall->8861.89, town->8828.68,pop->5.9, x->24888.27,y->16881 .90, year->0},{size,100,1000}]; Bob Hanlon > > From: "Bosch, Darrell" <bosch at vt.edu> To: mathgroup at smc.vnet.net > Date: 2005/06/21 Tue AM 06:03:11 EDT > Subject: [mg58192] [mg58184] plot > > 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}]] > > >