Services & ResourcesWolfram ForumsMathGroup Archive

[Date Index] [Thread Index] [Author Index]

Re: Plot a function with constants

• To: mathgroup at smc.vnet.net
• Subject: [mg36019] Re: [mg35998] Plot a function with constants
• From: Tomas Garza <tgarza01 at prodigy.net.mx>
• Date: Mon, 12 Aug 2002 03:34:36 -0400 (EDT)
• References: <200208110914.FAA10423@smc.vnet.net>
• Sender: owner-wri-mathgroup at wolfram.com

You have to somehow specify the values of your constants (unless you want to
go to a 3D graphic). One possibility would be as follows

In[1]:=
n[e_,b_,mu_]:=1/(Exp[b(e-mu)]+1);

In[2]:=
Plot[n[e, b, mu] /. {b -> 1, mu -> 1}, {e, 0, 10},
   AxesLabel -> {"e", "n(e)"},
   Epilog -> {Line[{{1, 0}, {1, n[1, 1, 1]}}],
     Text["mu", {0.91, -0.02}]}];

Tomas Garza
Mexico City
----- Original Message -----
From: "Remi Dumas" <remi.dumas at club-internet.fr>
To: mathgroup at smc.vnet.net
Subject: [mg36019] [mg35998] Plot a function with constants


> I would like to plot this function :
>                      1
> n(e)=______________
>          Exp[b(e-mu)]+1
>
> and get a graphic like that, with the letters
>
> n(e)
>  ^
>   |
>   |
> 1|   ____________
>   |                           \
>   |                             \
>   |                              |
>   |_______________ \_____________________\ e
>                               mu
/
>
> how can i do it, i specified
> SetAttributes{b,constant} etc ... but it don't work
>
> please help me, i use mathematica 4
>
>
>
>

• References:
  • Plot a function with constants
    • From: "Remi Dumas" <remi.dumasNOSPAM@club-internet.fr>