Mathematica < Mathematica < Mathe-Software < Mathe < Vorhilfe
|
| Status: |
(Frage) beantwortet  | | Datum: | 00:17 So 30.10.2011 | | Autor: | quasimo |
| Aufgabe | Programm Mathematica:
Zeichnen Sie den Graphen
h(x,y) := cos (y-x) [mm] e^{(-x^2+y^2)/15}
[/mm]
und beschriften Sie die Achsen.
Weiters zeichnen Sie die vertikalen Schnitte durch diesen Funktionsgraphen entlang der x-Achse (y=0) und parallel zur y-Achse durch x=1 |
Ich hoffe es kann mir hier auch wer, bei dem Programm helfen. Hab es mir heute gekauft ;)
h[x_, y_] := Cos[y - x] E^^((-x^^2 + y^^2)/15)
natürlich nur ein Hochgestellt zeichen, aber sonst sieht man es hier ja nicht.
Plot3D[h[x, y], {x, -2, 2}, {y, -5, 5}, AxesLabel -> {x, y}]
Mit dem SChnitt hab ich meine probleme.Entlang der x-Achse schreib ich [x,0] aber wie schreibe ich dass parallel zur y-achse durch x=1?
Plot[{h[x, 0], h[??]}, {x, -2, 2}]
|
|
| |
|
Hallo quasimo,
> Programm Mathematica:
> Zeichnen Sie den Graphen
> h(x,y) := cos (y-x) [mm]e^{(-x^2+y^2)/15}[/mm]
> und beschriften Sie die Achsen.
> Weiters zeichnen Sie die vertikalen Schnitte durch diesen
> Funktionsgraphen entlang der x-Achse (y=0) und parallel zur
> y-Achse durch x=1
> Ich hoffe es kann mir hier auch wer, bei dem Programm
> helfen. Hab es mir heute gekauft ;)
> h[x_, y_] := Cos[y - x] E^^((-x^^2 + y^^2)/15)
>
> natürlich nur ein Hochgestellt zeichen, aber sonst sieht
> man es hier ja nicht.
>
> Plot3D[h[x, y], {x, -2, 2}, {y, -5, 5}, AxesLabel -> {x,
> y}]
>
> Mit dem SChnitt hab ich meine probleme.Entlang der x-Achse
> schreib ich [x,0] aber wie schreibe ich dass parallel zur
> y-achse durch x=1?
Das wird dann so geschrieben:[mm]\left[1,y\right][/mm]
> Plot[{h[x, 0], h[??]}, {x, -2, 2}]
Gruss
MathePower
|
|
|
| |
|
Damit auch die Achsen richtig beschriftet werden:
h[x_, y_] := Cos[y - x] E^((-x^2 + y^2)/15)
Plot3D[h[x, y], {x, -2, 2}, {y, -5, 5}, AxesLabel -> {"x", "y", "h[x,y]"}]
Plot[{h[x, 0]}, {x, -2, 2}, AxesLabel -> {x, "h[x,0]"}]
Plot[{h[1, y]}, {y, -5, 5}, AxesLabel -> {y, "h[1,y]"}]
Und: damit der Code hier richtig angezeigt wird
(ohne dass du etwa doppelte Hoch-Zeichen setzen
musst), fasse ihn z.B. zeilenweise zwischen
$\ [ code ]$ und $\ [mm] [\slash [/mm] code]$
LG Al-Chw.
|
|
|
| |
|
| Status: |
(Frage) beantwortet | | Datum: | 10:58 So 30.10.2011 | | Autor: | quasimo |
Danke an euch beide
Plot[{h[x, 0]}, {x, -2, 2}, AxesLabel -> {x, "h[x,0]"}]
Plot[{h[1, y]}, {y, -5, 5}, AxesLabel -> {y, "h[1,y]"}]
Kann ich diese beiden auch in einer Grafik zeichnen?
weil so:
Plot[{h[x, 0], h[1, y]}, {x, -2, 2}]
Zeichnet er nur die h[x,0]
und wen ich ´versuche noch die grenzen von y einzugeben, dann funktioniert es gar nicht.
|
|
|
| |
|
> Danke an euch beide
>
> Plot[{h[x, 0]}, {x, -2, 2}, AxesLabel -> {x, "h[x,0]"}]
>
> Plot[{h[1, y]}, {y, -5, 5}, AxesLabel -> {y, "h[1,y]"}]
>
> Kann ich diese beiden auch in einer Grafik zeichnen?
>
> weil so:
> Plot[{h[x, 0], h[1, y]}, {x, -2, 2}]
> Zeichnet er nur die h[x,0]
> und wen ich ´versuche noch die grenzen von y einzugeben,
> dann funktioniert es gar nicht.
Hallo quasimo,
Ich dachte nur, dass es nicht unbedingt sinnvoll ist, die
beiden Schnitte, die ja "kreuz und quer" gelegt sind, in
einem Graph zu vereinen.
Wenn du das trotzdem willst, kannst du es schon haben
(mit einem gemeinsamen Definitionsbereich von -5 bis 5),
etwa so:
Plot[{h[t,0], h[1, t]}, {t, -5, 5},
PlotStyle -> {{RGBColor[1, 0,0]}, {RGBColor[0, 0, 1]}}]
Dabei habe ich jetzt die Variable, die einmal die Rolle
von x und dann die von y übernimmt, in t umbenannt.
Dazu verschiedene Farben für die zwei Kurven.
LG Al-Chw.
|
|
|
| |
|
| Status: |
(Frage) beantwortet | | Datum: | 11:48 So 30.10.2011 | | Autor: | quasimo |
Warum hast du die jetzt genau in t umbenannt?
|
|
|
| |
|
> Warum hast du die jetzt genau in t umbenannt?
weil diese Variable einmal die Rolle des (vorherigen)
x und dann die von y übernimmt
Du kannst die Variable natürlich nennen wie du willst ...
|
|
|
|
