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