Re: Re: Creating graph with only a view data points

*To*: mathgroup at smc.vnet.net*Subject*: [mg28936] Re: [mg28905] Re: Creating graph with only a view data points*From*: Hugh Goyder <goyder at rmcs.cranfield.ac.uk>*Date*: Sat, 19 May 2001 22:27:53 -0400 (EDT)*References*: <9dqdf2$4j7@smc.vnet.net> <9dta7t$f60@smc.vnet.net>*Sender*: owner-wri-mathgroup at wolfram.com

Oliver, try this As you do not have a singled value function, you cannot use Plot. However, ListPlot with the option PlotJoined -> True will join up your points. Note the need to include PlotRange -> All otherwise extreme points will be cut off. (I usually change the default option so that I see all my points.) This may be good enough for your purposes. However, if you want smoother curves you will have to use some interpolation. Split out the x and y values and make interpolations for each set of points using the point number as the dependent variable. Finally, use ParametricPlot to plot the curve as a function of point number. You can try using different amounts of smoothing by setting InterpolationOrder to 1,2 3 etc but it is better to try to use more points in the original data set. I hope the example below is clear (plots removed for simplicity). Hugh In[19]:= data = {{0, 0}, {1, 0.5}, {2, 0.5}, {3, 0.5}, {2.1, 1.5}, {1, 5}}; In[20]:= p1 = ListPlot[data, PlotJoined -> True, PlotRange -> All]; (* if you wish to have smooth curves *) In[21]:= xx = Interpolation[Transpose[data][[1]]]; yy = Interpolation[Transpose[data][[2]]]; In[23]:= p2 = ParametricPlot[{xx[r], yy[r]}, {r, 1, 6}, PlotRange -> All]; In[24]:= Show[p1, p2, PlotRange -> All]; At 01:13 18/05/01 -0400, you wrote: >First of all thanks for your help. >I'm sorry, but your solution don't work in my case. >It could happen, that I have to go back on the x and y axis. >For example: > >{{0,0},{1,0.5},{2,0.5},{3,0.5},{2.1,1.5},{1,5}} > >Mathematica isn't realy happy with that. > >Do you, or anybody else, have a solution for that? > >Greetings Oliver > >> >>Hi, >> >>Needs["Graphics`Legend`"] >>(* Enter the data *) >>data = {{-1, 0.1}, {-0.5, 0.15}, {-0.25, 0.5}, {0, 1}, {0.25, 2}, {0.5, >>4}}; >>(* make a smooth function *) >>ip = Interpolation[data] >> >>(* plot the data *) >>Plot[ip[u], {u, -1, 0.5}, PlotLegend -> {{"Some Function"}}] >> >>Look very complicated! >> >>Regards >> Jens >> >> >>Oliver Tonn wrote: >>> >>> Hello, >>> >>> I'm a student at a school for technicians (electronic). I'm making my >>> calculations with Mathematica. >>> For a documentation I want to create a graph with the characteristic of a diode >>> and a transistor. I'm looking for a software, with which I only have to enter >>> some significant points of the graph, the scale, and the legend. Then the >>> software should create the graph. >>> Does anybody know a software which could do that, or is it possible to do this >>> with Mathematica. >>> >>> Greetings Oliver >> > > > >