|
Apprendre Maple Site dédié au logiciel de calcul formel Maple
|
Voir le sujet précédent :: Voir le sujet suivant |
Auteur |
Message |
bendesarts
Inscrit le: 27 Fév 2009 Messages: 234
|
Posté le: 12 Jan 2016 12:35 Sujet du message: Tracé de droites verticales sur une courbe paramétrée |
|
|
Bonjour,
J'ai une courbe paramétrée qui me permet de tracer une ellipse.
J'aimerais au début de chaque phase où la fonction devient possible tracer une ligne verticale.
Voici le résultat que j'aimerais avoir :
J'aurais aimé trouvé une fonction me permettant de trouver la valeur la plus proche du zero dans une liste de nombres. En d'autres termes, une méthode proche à celle que j'ai utilisé pour déterminer le max et min mais je n'ai pas trouvé.
Je te mets mon code au lien suivant:
https://www.nextsend.com/download/lbziyOi2qIKY586r57ugYNnH1Z6UuKV6n5atfrBUaKaYf6+KZVKq/
Est-ce que tu aurais des idées afin d'obtenir les valeurs où ma courbe s'annule en devenant positive (dérivée positive) et tracer des droites verticales pour ces valeurs ?
Merci d'avance pour ton aide. |
|
Revenir en haut de page |
|
|
bendesarts
Inscrit le: 27 Fév 2009 Messages: 234
|
Posté le: 12 Jan 2016 17:04 Sujet du message: |
|
|
Je n'ai pas encore la solution mais je m'en rapproche.
Voici mes derniers developpements.
zeros:=Roots(v(t),t=0.5..2);
vdot:=unapply(diff(v(t),t),t);
map(vdot,zeros);
LignesVerticales=implicitplot(x=To complete, colour=yellow,linestyle=3, thickness=2):
Mais, j'ai du mal à sélectionner la liste de valeurs qui répond à mon soucis (zeros avec une dérivée positive) |
|
Revenir en haut de page |
|
|
ALS
Inscrit le: 11 Sep 2006 Messages: 647
|
Posté le: 13 Jan 2016 19:04 Sujet du message: |
|
|
Je pense qu'on obtient la liste de points souhaitée par cette méthode:
Code: |
s:=[seq(fsolve(v[1](t),t=k/10..(k+1)/10),k=0..20)]: s:=select(x->is(x,numeric),s);
dv:=D(v): # fonction dérivée de v
points:=NULL:
for k in s do if evalf(subs(t=k,dv(t)))>0 then points:=points,k fi od: points:=[points];
LignesVerticales:=seq(plot([points[k],t,t=ValeurMin..ValeurMax],color=black),k=1..nops(points));
plots[display]([LignesVerticales,TraceCourbe,LigneDecollement, LigneSupport], view=[0..2,ValeurMin..ValeurMax]);
[0., 0.3141592654, 0.6283185307, 0.9424777961, 1.256637061,
1.570796327, 1.884955592]
[0., 0.6283185307, 1.256637061, 1.884955592]
|
A+ |
|
Revenir en haut de page |
|
|
|
|
Vous ne pouvez pas poster de nouveaux sujets dans ce forum Vous ne pouvez pas répondre aux sujets dans ce forum Vous ne pouvez pas éditer vos messages dans ce forum Vous ne pouvez pas supprimer vos messages dans ce forum Vous ne pouvez pas voter dans les sondages de ce forum
|
Développé par phpBB © 2001, 2006 phpBB Group
Traduction par : phpBB-fr.com
Apprendre Maple - ©
- Alain Le Stang - Navigation optimisée pour une résolution 1024 x 768.
|