Anim. Punkt über einen Graphen < Mathematica < Mathe-Software < Mathe < Vorhilfe
|
| Aufgabe | | Einen Graphen einer beliebigen Funktion erstellen und einen Punkt auf einem beliebigen Punkt des Graphen setzen. Dann sollen wir den Punkt per "Do-Schleife" über den Graphen laufen lassen. |
Wie bekomme ich es hin, den Punkt über den graphen wandern zu lassen?
Bei meinem Ansatz:
PunktKoordA = -5;
PunktKoordB = -5;
Do[
PlotFunktion[x_] := x
Plot[PlotFunktion[x], {x, -5, 5},
Epilog -> {PointSize[0.05], Hue[
1], Point[{PunktKoordA, PunktKoordB}]}],
{PunktKoordA, -5, 5}, {PunktKoordB, -5, 5}
]
Wird der Graph garnicht erst gezeichnet.
Was mache ich falsch?
Provisorisches (Ja ich lese die Regeln^^)
Ich habe diese Frage in keinem Forum auf anderen Internetseiten gestellt.
|
|
| |
|
Ich habe es geschafft, dass ich den Graphen gezeichnet habe. Ich musste die Funktionsdefinition auserhalb der Do-Schleife platzieren.
Der Punkt bewegt sich auch, allerdings zuerst von (-5/-5) nach (-5/5) und anschließend von (-4/-5) nach (-4/5) und so weiter. Was mache ich da falsch?
PunktKoordA = -5;
PunktKoordB = -5;
PlotFunktion[x_] := x
Do[
Plot[PlotFunktion[x], {x, -5, 5},
Epilog -> {PointSize[0.05], Hue[
1], Point[{PunktKoordA, PunktKoordB}]}],
{PunktKoordA, -5, 5}, {PunktKoordB, -5, 5}
]
|
|
|
| |
|
> Ich habe es geschafft, dass ich den Graphen gezeichnet
> habe. Ich musste die Funktionsdefinition auserhalb der
> Do-Schleife platzieren.
> Der Punkt bewegt sich auch, allerdings zuerst von (-5/-5)
> nach (-5/5) und anschließend von (-4/-5) nach (-4/5) und so
> weiter. Was mache ich da falsch?
>
> PunktKoordA = -5;
> PunktKoordB = -5;
> PlotFunktion[x_] := x
>
> Do[
> Plot[PlotFunktion[x], {x, -5, 5},
> Epilog -> {PointSize[0.05], Hue[
> 1], Point[{PunktKoordA, PunktKoordB}]}],
![[notok]](/images/smileys/notok.gif "[notok]")
> {PunktKoordA, -5, 5}, {PunktKoordB, -5, 5}
> ]
zum Anpassen an Deine Funktion:
| 1: | PlotFunction[x_]:=Cos[Pi*x/5];
| | 2: | funcPlot=Plot[PlotFunction[x],{x,-5,5},DisplayFunction->Identity];
| | 3: | Do[
| | 4: | DisplayTogether[funcPlot,
| | 5: | Graphics[{PointSize[0.05],Red,Point[{lauf,PlotFunction[lauf]}]}],
| | 6: | DisplayFunction->$DisplayFunction],
| | 7: | {lauf,-5,5}
| | 8: | ]
|
späte Grüße 
Peter
|
|
|
|
