Re: Re: Non-algebraic solution
- To: mathgroup at smc.vnet.net
- Subject: [mg52473] Re: [mg52429] Re: Non-algebraic solution
- From: DrBob <drbob at bigfoot.com>
- Date: Sun, 28 Nov 2004 01:07:10 -0500 (EST)
- References: <co6m44$qh1$1@smc.vnet.net> <200411270640.BAA17102@smc.vnet.net>
- Reply-to: drbob at bigfoot.com
- Sender: owner-wri-mathgroup at wolfram.com
We can take that method quite a bit farther, too:
plot = Plot[-(Log[y/2] + 3*Log[5 + y/7]), {y, 0, 10}, AxesLabel -> {y, x}];
data = Sort[Reverse /@ First@Cases[plot, Line[a_] -> a, Infinity]];
ListPlot[data]
interp = Interpolation@data;
Plot[interp@x, {x, -7, 10}, PlotRange -> All, AxesLabel -> {x, y}];
Bobby
On Sat, 27 Nov 2004 01:40:22 -0500 (EST), astanoff <astanoff_otez_ceci at yahoo.fr> wrote:
> B.Ravinder wrote:
>> Dear all,
>> I want to plot the following type of logarithmic equation having
>> dependent variable y and independent variable x.
>> Log[y/a] + b*Log[c+y/d] = -x
>> where a,b,c and d are some arbitrary constants.
> [...]
> Why don't you plot x against y?
> For instance :
> Plot[-(Log[y/2]+3*Log[5+y/7]),{y,0,10},AxesLabel->{y,x}]
> looks like a nice flipped exponential
>v.a.
>
> --
> 0% de pub! Que du bonheur et des vrais adhérents !
> Vous aussi inscrivez-vous sans plus tarder!!
> Message posté à partir de http://www.gyptis.org, BBS actif depuis 1995.
>
>
>
>
>
>
--
DrBob at bigfoot.com
www.eclecticdreams.net
- References:
- Re: Non-algebraic solution
- From: astanoff_otez_ceci@yahoo.fr (astanoff)
- Re: Non-algebraic solution