3d Graphics problem

*To*: mathgroup at smc.vnet.net*Subject*: [mg28939] 3d Graphics problem*From*: "FRANCISCO GUTIERREZ" <rpena at elsitio.net.co>*Date*: Sat, 19 May 2001 22:27:56 -0400 (EDT)*Sender*: owner-wri-mathgroup at wolfram.com

Dear NG: I have the following problem. I want to draw a 2D simplex in a 3D space, and within the simplex some points and lines. First I create the line: gg1 = Graphics3D[Line[{{0.4, 0.3, 0.2}, {0.7, 0.15, 0.15}}]] The the simplex: gg2 = Graphics3D[Polygon[{{1, 0, 0}, {0, 1, 0}, {0, 0, 1}}]] Then I visualize both: Show[{gg1, gg2}, ViewPoint -> {1, 1.5, 2.5}] The line isn't visible. When I draw points, they are not visible either. If I give options to the line (thickness, or RGBColor) or to the points, I get an error message. How should I proceed? Thanks, Fg -----Mensaje original----- De: Oliver Tonn [mailto:nospam at newsranger.com] Enviado el: Viernes, 18 de Mayo de 2001 12:13 a.m. Para: mathgroup at smc.vnet.net Asunto: [mg28901] Re: Creating graph with only a few data points First of all, thanks for trying to help me. I'm sorry, but your solution seems not to be applicable for my problem. I'm afraid, but I don't know which parameters I've to use for Table and Plot. I know the plot command, but not in this context. The other problem is, that not only the y-values is up and down, also the x-value do so. For example: If you have the graph for a Thyristordiode, the x-axis would be the voltage over the diode and the y-axis is the current. Until a specific voltage is reached there is nearly no current floating. After that point a current is floating and the voltage is going down. Everytime I try to enter data, e.g. ({0,0},{1,0.5},{2,0.5},{3,0.5],{1,15}), I get an error. Has anybody another idea? Greetings Oliver >Hello Oliver, > >draw your curve on squared paper and identify the coordinates {x, y} of your >"significant points". >Then proceed as shown below: > >IN: >lst = {{1, 1}, {2, 1.5}, {2.5, 2}, {3, 3}, {4, 5}, {5, 6.5}}; >itp = Interpolation[lst, InterpolationOrder -> 3]; >Table[itp[x], {x, 1, 5, 0.5}] >Plot[itp[x], {x, 1, 5}] > >Best regards, > >Matthias Bode >Sal. Oppenheim jr. & Cie. KGaA >Koenigsberger Strasse 29 >D-60487 Frankfurt am Main >GERMANY >Tel.: +49(0)69 71 34 53 80 >Mobile: +49(0)172 6 74 95 77 >Fax: +49(0)69 71 34 6380 >E-mail: matthias.bode at oppenheim.de >Internet: http://www.oppenheim.de > > > >-----Ursprungliche Nachricht----- >Von: Oliver Tonn [mailto:nospam at newsranger.com] >Gesendet: Dienstag, 15. Mai 2001 06:59 >An: mathgroup at smc.vnet.net >Betreff: data points > > >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 > >