Mathematica < Mathe-Software < Mathe < Vorhilfe
|
| Status: |
(Frage) beantwortet  | | Datum: | 18:36 Mo 17.01.2011 | | Autor: | ensi_92 |
| Aufgabe | | Schreiben Sie ein Modul, das die Entstehung der Epizykloide animiert darstellt (Rastpolbahn, Gangpolbahn, Punkte P, Rollkurve). |
Hey!
Ich bin neu hier und mache hoffentlich alles richtig 
Könnt ihr mir helfen dieses Beispiel zu meistern? Bis jetzt habe ich es nur geschafft die Gangpolbahn zu plotten und nicht zu animieren und hab keinen blassen schimmer wies jetzt weiter gehen soll .... :-(
1. Versuch:
| 1: | Epizykloide[R_Integer, r_Integer] :=
| | 2: | [M = (R + r)/r;
| | 3: | vek = {r*(M*Cos[t] - Cos[M*t]), {y = r*(M*Sin[t] - Sin[M*t])};
| | 4: | Animate[ParametricPlot[vek, {t, 0, 2 \[Pi]},
| | 5: | ImageSize -> {100, 75}], {t, 0, 2 \[Pi]}]]
| | 6: | R_ = 10 r_ = 5 |
2.Versuch:
| 1: | R = 5; r = 1; M = (R + r)/r;
| | 2: | vek = {r (M Cos[t] - Cos[M t]), r (M Sin[t] - Sin[M t])};
| | 3: | ParametricPlot[vek, {t, 0, 2 \[Pi]}] |
Bitte helft mir
Lg eure ensi_92
Ich habe diese Frage in keinem Forum auf anderen Internetseiten gestellt.
|
|
| |
|
| Status: |
(Mitteilung) Reaktion unnötig  | | Datum: | 09:26 Mi 19.01.2011 | | Autor: | ensi_92 |
Hat niemand eine Idee was ich falsch mache oder anders machen könnte?
|
|
|
| |
|
| Status: |
(Mitteilung) Reaktion unnötig | | Datum: | 12:15 Mi 19.01.2011 | | Autor: | Sigma |
Hallo Enzi92,
![[willkommenmr]](/images/smileys/willkommenmr.png "[willkommenmr]")
Es ist meist hilfreich, wenn du nach der Aufgabenstellung kurz die Begriffe erklärst oder zumindest einen Seite zeigts, wo die Begriffe erklärt werden. Dann ist es für den Antwortenden um einiges leichter.
So nun aber zu deinen Versuchen. Der 1. funktioniert schonmal nicht. Der 2. geht schon besser. Da hab ich dann mal angeknüpft. Und habe folgendes Ergebnis.
| 1: | R = 5; r = 1; M = (R + r)/r;
| | 2: | vek = {r (M Cos[t] - Cos[M t]), r (M Sin[t] - Sin[M t])};
| | 3: | Manipulate[
| | 4: | Show[ParametricPlot[vek, {t, 0, x}, PlotRange -> 8],
| | 5: | ParametricPlot[{R Cos[t], R Sin[t]}, {t, 0, 2 \[Pi]}],
| | 6: | ParametricPlot[{r Cos[t] + (R + r) Cos[x],
| | 7: | r Sin[t] + (R + r) Sin[x]}, {t, 0, 2 \[Pi]}]], {x, 0.001,
| | 8: | 2 \[Pi]}] |
Du musst das ganze natürlich noch als Module schreiben wie in der Aufgabenstellung. Und vielleicht noch den Punkt auf dem Kreis hervorheben. Du kannst auch gern noch klein und groß R variable gestalten.
mfg sigma
|
|
|
| |
|
| Status: |
(Mitteilung) Reaktion unnötig | | Datum: | 14:05 Mi 19.01.2011 | | Autor: | ensi_92 |
Danke für deine Tipps und vor Allem deine Mühe!!!
Aber eine Fragen habe ich noch...
Der Befehl Show ist dazu da die zykloide zu zeichnen und Manipulate um sie zu animieren .... Hab ich das richtig verstanden?
lg ensi_92
|
|
|
| |
|
| Status: |
(Antwort) fertig  | | Datum: | 16:27 Mi 19.01.2011 | | Autor: | Sigma |
Freut mich geholfen zu haben,
übrigens hat Mathematica euch eine sehr gute Hilfe.
Gib mal ?Show ein. Zeigt mehrere Graphiken kombiniert an.
Mit Manipulate lassen sich einzelne Variablen verändern.
Aber wie gesagt, ganz ausgereift ist mein Vorschlag noch nicht. Geht bestimmt noch strukturierter und kürzer.
|
|
|
|
