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