MathGroup Archive 2011

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

Search the Archive

Having some trouble with plot and solve

  • To: mathgroup at smc.vnet.net
  • Subject: [mg115437] Having some trouble with plot and solve
  • From: r_berg <rberg1270 at gmail.com>
  • Date: Tue, 11 Jan 2011 00:34:08 -0500 (EST)

Hi i am new to mathematica, i have tried to combine this simple
problem of showing a Reaction speed but i cannot plot the tangent line
on a plot, and i don't seem to be able to have my regression in the
same notebook

data = {{0, .005}, {100, .00465}, {200, .00432}, {400, .00374}, {600,
\
.00323}, {900, .00260}, {1200, .00209}, {1500, .00168}};
N2O5 = Exp[Fit[data /. {x_, y_} -> {x, Log[y]}, {1, x}, x]] //
  Simplify (*not in same notebook as the rest*)

f[x_] := 0.00499929 E^(-0.000726892 x) (*this works*)
g=B4[x_] := -3.63394*10^-6 E^(-0.000726892 x) (*this works*)

Plot[0.00499929 E^(-0.000726892 b), {b, 0, 4000},
 PlotRange -> {0, .006}](*this works*)

Show[Plot[0.00499929 E^(-0.000726892 x), {x, -1000, 4000}],
 ListPlot[data, PlotRange -> {0, .006}, PlotStyle -> {Red}]] (*this
works*)

Manipulate[
 Solve[g=B4[x0]*{x - x0} + f[x0] == y], {x0, 0, 1500, 1, Appearance ->
"Labeled"}] (*this works*)

But i cannot combine it together, not even this small thing
Manipulate[
 Plot[y /. Solve[g\.b4[x0]*{x - x0} + f[x0] == y], {x0, 0, 1500, 1,
   Appearance -> "Labeled"}], {x, 0, 4000}, PlotRange -> {0, .006}]

Please help me, thanks


  • Prev by Date: Re: Number of zeros finite or infinite?
  • Next by Date: FittedModel Objects... How does Mathematica do it?
  • Previous by thread: Re: Problems "Import"ing with Mathematica running Unbuntu
  • Next by thread: Re: Having some trouble with plot and solve