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


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