Re: Problem with the range of a plot
- To: mathgroup at smc.vnet.net
- Subject: [mg94694] Re: [mg94669] Problem with the range of a plot
- From: Bob Hanlon <hanlonr at cox.net>
- Date: Sat, 20 Dec 2008 06:23:02 -0500 (EST)
- Reply-to: hanlonr at cox.net
F[v_] = 0.0652 8.04*^23 10*^-9 *
Exp[0.0000385/(1*^-3 (12.7*^-6/60 - v) 3*^-9/
(1.38*^-23 300))]*
Gamma[0, 0.00003847/((1*^-3 (12.7*^-6/60 - v) 3*^-9)/
(1.38*^-23 300))] 1.38*^-23 300/
(2 3*^-9 12.07)*20*^-6 5*^-6;
pt = {v /. FindRoot[F[v] == 0, {v, 1.9*10^-7}] // Chop, 0}
{2.1166499287101463*^-7, 0}
Plot[F[v], {v, 0, 2.2*10*^-7},
PlotRange -> {{0, 2.5*10^-7}, {0, 5*^-8}}] /.
Line[pts__] :> Line[Append[pts, pt]]
Bob Hanlon
---- Christian Schreiber <cs359 at removethis.cam.ac.uk> wrote:
=============
Hi there,
I got the following problem with Mathematica:
When executing the following commands, the plot of the curve does not go
all the way down to the x-axis. Any ideas?
Best wishes,
Christian
#############
F[v_] = 0.0652 8.04*^23 10*^-9 Exp[
0.0000385/(1*^-3 (12.7*^-6/60 - v ) 3*^-9/(1.38*^-23 300))] Gamma[
0, 0.00003847/((1*^-3 (12.7*^-6/60 -
v) 3*^-9)/(1.38*^-23 300))] 1.38*^-23 300/(2 3*^-9 \
12.07)*20*^-6 5*^-6
Plot[F[v], {v, 0, 10*^-7}, PlotRange -> {0, 5*^-8}]