romanticide
Inscrit le: 13 Mar 2005 Messages: 47
|
Posté le: 26 Avr 2005 20:12 Sujet du message: lignes polygonales |
|
|
bonjour
je dois étudier la courbe de Lissajous sin2*t
sin3*t
je dois relier les points de la courbes par des lignes polygonales
j'arrive à avoir une liste de points de la courbe mais qd je relie les points
maple les relie mais il ne" suit pas la courbe "
pouvez vous m'aider ?
> TracCurv:=proc(Expr,Min,Max)
> local g1,g2,Curv;
> g1:=op(1,Expr);g2:=op(2,Expr);
> Curv:=[g1,g2,t=Min..Max];
> plot(Curv,scaling=constrained,numpoints=100,color=blue);
> end:
> TracCurv(w,-10,10);
> List:=[];
List := []
> for i to 50 do
> x:=subs(t=i,G1);
> y:=subs(t=i,G2);
> Pt:=[x,y];List:=[op(List),Pt];
> od;
Polygon:=proc(ListPts)local GrPt,GrSeg;
> GrPt:=plot(ListPts,style=point,symbol=circle,color=red):
> GrSeg:=plot(ListPts,style=line,color=green);
> display({GrPt,GrSeg});
> end:
Polygon(List);
c'est mon code pour tracer la courbe puis trouver la liste puis la procédure pour les lignes polygonales
mais on ne retrouve pas la courbe !!!
je comprends pas !!!
merci d'avance |
|