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}]}],
 
 
 
 
>    {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
 
 
 
      | 
     
    
   | 
  
 
 |   
  
   |