function [] = odezei3(F, t, y)
% ======================================================================
%  Zum Zeichnen eine Lösungskurve im R^3
%
%  Waehlt den Bildausschnitt
%  Zeichnet  die Kurve (y1(t),y2(t),y3(t)).
%
% Erstellt fuer die Veranstaltung
% Weiterbildenes Studium fuer Ingenieure WS 98/99
%
% S.F.
% ----------------------------------------------------------------------
[n,m]=size(y);
if m==3

  clf; 	%	Bild loeschen

  % Startpunkt:
  plot3(y(1,1),y(1,2),y(1,3),'go','markersize',10)

  hold on;

  % Endpunkt:
  plot3(y(n,1),y(n,2),y(n,3),'r*','markersize',10)

  % Berechnete Trajectorie einzeichnen
  plot3(y(:,1),y(:,2),y(:,3),'k','linewidth',2);
  hold off;
else
  error('y falsche Dimension');
end;

return;



