Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2004
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2004

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

Search the Archive

converting table output and plotting

  • To: mathgroup at smc.vnet.net
  • Subject: [mg49071] converting table output and plotting
  • From: "seferiad" <seferiad at pacbell.net>
  • Date: Wed, 30 Jun 2004 05:34:16 -0400 (EDT)
  • Sender: owner-wri-mathgroup at wolfram.com

Hello,
I have the following equation:

Table[{v, NSolve[{i == v/r2 + i1, i1==i1(r1+r2)/r2  + a/r2*Log[i1/io +
1] - v/r2} /. {r2 -> 200, r1 -> .025, io -> 10^-9, a -> .05}, {i,
i1}]},{v, 1, 1.2, .1}]//ColumnForm


OUTPUT IS:

{1, {{i->.402, i1->.397}}}
{1.1{{i->1.611,i1->1.60}}}
{1.2,{{i->3.86, i1->3.85}}}


The first terms 1, 1.1,1.2 are Voltage (v) and the second term is
Current (i), the third term is Current1 (i1).

My objective is to vary my equation above and then create the output
in such a form that I can directly plot v vs. i, that is "1st term"
vs. "2nd term".  Unfortunately, I don't know how to do this since the
outputs in the table aren't as I like.

Note: My original approach was to write the transcendental equation in
a single form whereby, NSolve[ i == function (v, i) ]  Unfortunately,
Mathematica seems to choke on this one.  By calculating an additional
(uninteresting) value (namely, v1), it gives me the output I'm looking
for. Again, except that I don't know how to convert this into a set of
numbers that I can plot.

Hopefully this makes sense. Any help would be greatly appreciated.
Thanks,
Vince


  • Prev by Date: Re: Union - simple question
  • Next by Date: RE: extracting powers and coefficients from a polynomial
  • Previous by thread: Accuracy problem in Mathematica