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

```

• Prev by Date: Re: plot
• Next by Date: Re: plot
• Previous by thread: Re: plot
• Next by thread: Re: plot