Re: plot

*To*: mathgroup at smc.vnet.net*Subject*: [mg58190] Re: plot*From*: "Jens-Peer Kuska" <kuska at informatik.uni-leipzig.de>*Date*: Wed, 22 Jun 2005 01:55:34 -0400 (EDT)*Organization*: Uni Leipzig*References*: <d98pto$elv$1@smc.vnet.net>*Sender*: owner-wri-mathgroup at wolfram.com

Hi, 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 - .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 -> 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}] ?? Regards Jens "Bosch, Darrell" <bosch at vt.edu> schrieb im Newsbeitrag news:d98pto$elv$1 at smc.vnet.net... > 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}]] > >