Re: plot command

*To*: mathgroup at smc.vnet.net*Subject*: [mg58134] Re: plot command*From*: "Stefan Linnik" <sjl.news56 at tiscali.co.uk>*Date*: Sun, 19 Jun 2005 03:43:52 -0400 (EDT)*References*: <d90spv$8va$1@smc.vnet.net>*Sender*: owner-wri-mathgroup at wolfram.com

sol = Log[v] ==A*9100*Log[s] (* use == for 'equals' = is for assigment Did you mean A*9100 (or A space 9100 ) instead of the variable A9100 ? *) sol2 = Solve[sol,v] sol2a= sol2[[1, 1,-1]] (* This returns a rule suitable for Replace[] The [[1, 1,-1]] ( or Part[sol2, 1, 1,-1] ) extracts just the expression to plot *) sol3 = D[sol2a, s] A=0.0005; (* or whatever *) Plot[sol3,{s,0,100}]; Stefan Linnik ~~~~~~~~ "Bosch, Darrell" <bosch at vt.edu> wrote in message news:d90spv$8va$1 at smc.vnet.net... > > Dear Group: I am trying to solve an equation, take the derivative and > plot the derivative as shown below. I get a message below the Plot > request stating > > "Syntax::sntxi: "Incomplete expression; more input is needed." Any help > would be greatly appreciated. Darrell Bosch > > > > > > > > sol = Log[v]=A9100*Log(s) > > sol2 = Solve[sol,v] > > sol3 = D[sol2,s] > > Plot[Evaluate[sol3],{s,0,100}] > > > >