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
>
>