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