[Date Index]
[Thread Index]
[Author Index]
Re: Putting an If in my function
 To: mathgroup at smc.vnet.net
 Subject: [mg101073] Re: Putting an If in my function
 From: "Sjoerd C. de Vries" <sjoerd.c.devries at gmail.com>
 Date: Tue, 23 Jun 2009 07:06:27 0400 (EDT)
 References: <h1neun$8rk$1@smc.vnet.net>
Dear lobotomy,
"Nomen est omen", the old Romans used to say. And they were often
right.
I'm not sure what you are trying to do here, with your function in an
unneccessary, overly complex, pure function notation. Why not write:
myFun[a_, g_, f_, x_, d_, w_] := d (1 + (E^g  E^w)/f)^(f x) + (a (1
+ (1 + (E^g  E^w)/f)^(f x)) f)/( E^g  E^w)
which is much more readable (at least in Mathematica)?
In[31]:= Limit[myFun[a, g, f, x, d, w], g > w]
Out[31]= d + a f x
You use the undefined 'n' in d + a n. I guess this must be f x...
You can add a definition for myFun for this special case like this (no
If[ ] necessary):
myFun[a_, g_, f_, x_, d_, w_] := d + a f x /; g == w
In[36]:= myFun[a, w, f, x, d, w]
Out[36]= d + a f x
If you want to use an If in the definition this would be something
like:
myFun[a_, g_, f_, x_, d_, w_] := If[g===w, d (1 + (E^g  E^w)/f)^(f=
x)
+ (a (1 + (1 + (E^g  E^w)/f)^(f x)) f)/( E^g  E^w),d + a f x]
Cheers  Sjoerd
On Jun 22, 10:21 am, Lobotomy <labb... at gmail.com> wrote:
> Hi, this is my function
>
> #5 (1 + ((E^#2  1)  (E^#6 
> 1))/#3)^(#3*#4) + (#1*((1 + (((E^#2  1)  (E^#6 =

> 1))/#3))^(#3*#4) 
> 1))/(((E^#2  1)  (E^#6  1))/#3) &[a, g, f, x, d, w]
>
> in the case when w==g the denominator equals zero.
>
> in this case i would like to rewrite the formula above to the much
> simpler
> d+a*n. How is this done? I've tried
>
> If[w == g, % = d + a*n], but this is not working. Another thing is
> where to put the "If"
Prev by Date:
Re: Slow performance gathering property data from fitted
Next by Date:
Re: laptop recommendation to run mathematica fast?
Previous by thread:
Re: Putting an If in my function
Next by thread:
Re: Re: Putting an If in my function
 