P.Fradin a écrit:Si tu précise une longueur, le segment sera centré sur le point de tangence.
Eric a écrit:Pas de chance, il va me falloir des vecteurs tangents d'origine le point de tangence. Je vais procéder autrement.
{Vtangent(f(t), t0 [,longueur]): trace des vecteurs tangents à la courbe paramétrée par f(t) au point de paramètre t0, on trace un segment de longueur indiquée ou 1 si la longueur est omise}
[$long:=%3,
if long=Nil then long:=1 fi,
SaveAttr(), Arrows:=1,
for $z in %2 do
Assign(%1,t,z), $M:=%1, Assign(%1,t,z+0.000001), $df:=(%1-M)*1000000{Der(%1,t,%2)},
df:=long*df/Abs(df), Point(M), Seg(M,M+df)
od,
RestoreAttr()
]
[
view(-1,2,-2,2.5), Marges(0,0,0,0),
Axes(0,1+i), Width:=8, Color:=red, tMin:=-pi, tMax:=pi,
Polaire(1+cos(t)),
Color:=blue, Vtangent((1+cos(t))*exp(i*t), [pi/6,pi/4,pi/3,pi/2] )
]
Utilisateurs parcourant ce forum : Aucun utilisateur inscrit et 2 invités