Schnitt Ebenen Mathematica < Mathematica < Mathe-Software < Mathe < Vorhilfe
|
Hallo,
wer kann mir bei der Berechnung und insbesondere bei der Darstellung der Schnittlinie zweier Ebenen mit Mathematica helfen?
Ich habe folgende zwei Ebenen bzw. Flächen, die sich schneiden:
g1 = [mm] Plot3D[{\bruch{1.5-0.6 v}{1.5-0.6 u}}, [/mm] {v, 0, 1}, {u, 0, 1}, AxesLabel -> {v, u, W}]
g2 = [mm] Plot3D[{\bruch{(1-u)^{0.5}}{(1-v)^{0.5}}}, [/mm] {v, 0, 1}, {u, 0, 1}, AxesLabel -> {v, u, W}]
Wenn ich mir die beiden Flächen in einer Graphik anzeigen lasse, so kann man sehen, dass sie sich schneiden:
Show[g1,g2]
Ich benötige für meine Analyse die Berechnung und insbesondere die Darstellung der Schnittlinie der beiden Flächen!
Kann mir jemand sagen, wie mir Mathematica die Schnittlinie berechnet und (wichtig!) wie Mathematica mir die Schnittlinie in dem 3D-Raum darstellt?
Vielen Dank für Eure Hilfe!!!
Ich habe diese Frage in keinem Forum auf anderen Internetseiten gestellt.
|
|
| |
|
Hallo Gummibärchen  )
das ist ein Fall für Reduce:
| 1: |
| | 2: | In[1]:=
| | 3: | Reduce[(3/2 - (3/5)*v)/(3/2 - (3/5)*u) == Sqrt[1 - u]/Sqrt[1 - v] && 0<u<1>v>0, {u, v}]
| | 4: | Out[1]=
| | 5: | 0 < u < 1 && v == u
|
und diese Gerade läßt sich dann per
ParametricPlot3D[{u,u,1},{u,0,1}]
darstellen.
Grüße,
Peter
|
|
|
|
