Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2005
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2005

[Date Index] [Thread Index] [Author Index]

Search the Archive

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



  • Prev by Date: Re: Converting a 3F2 to elementary functions
  • Next by Date: Re: plot
  • Previous by thread: plot
  • Next by thread: Re: plot