Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2007

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

Search the Archive

Implicit plotting issues

  • To: mathgroup at smc.vnet.net
  • Subject: [mg82188] Implicit plotting issues
  • From: nateomason at gmail.com
  • Date: Sun, 14 Oct 2007 06:12:57 -0400 (EDT)


So I am plotting an implicit function the that has small y values(0
to .5) and large x values(0 to 74).
the graph i get is not readable and i can 't resize it using the edges
it is lame.
So does anyone know how to rescale the the implicit plot so that i
could read it. I have included my code, below. I am using Mathematica
5.2

-----------------------------------------------------------------------------

\!\(<< Graphics`ImplicitPlot`\[IndentingNewLine]
  \(u0 = 76;\)\n
  \(\[Omega] = \[Pi]/12;\)\[IndentingNewLine]
  \(uh = u0*\[ExponentialE]^\((\(-k\)*t)\);\)\[IndentingNewLine]
  \(up = 7\ \((5 -
            5\ \[ExponentialE]\^\(\(-k\)\ t\) - \(1\/\(k\^2 + \[Omega]
\^2\)\) \
\((2\ \[ExponentialE]\^\(\(-k\)\ t\)\ k\ \((\(-k\)\ Cos[
                          3\ \[Omega]] + \[Omega]\ Sin[
                          3\ \[Omega]] + \[ExponentialE]\^\(k\ t\)\ \
((k\ \
Cos[\((\(-3\) + t)\)\ \[Omega]] + \[Omega]\ Sin[\((\(-3\) +
                                      t)\)\ \[Omega]])\))\))\))\);\)\
\[IndentingNewLine]
  \(myANS = uh + up;\)\[IndentingNewLine]
  \(U = myANS\ ;\)\n
  ImplicitPlot[U == 30, {t, 0, 72}, {k, 0.2, 0.48}]\n
  Plot3D[U, {t, 0, 72}, {k, 0.2, 0.48}]\)



  • Prev by Date: Re: Locator in Manipulate's graphic.
  • Next by Date: Re: Re: Re: [Mathematica 6] Format->Magnification
  • Previous by thread: Evaluation in Mathematica: Until no rules apply? Or until the expression
  • Next by thread: Re: Implicit plotting issues