### 7.5.4 Applications

Trouver la courbure et le centre de courbure de la spirale logarithmique :
ρ=3eθ/2 en un point M de coordonnées :
ρcos(θ),ρsin(θ) et
en un point M0 de coordonnées :
3e7/2cos(7),3e7/2sin(7).
On tape :
trigcos(courbure([3*exp(t/2)*cos(t),3*exp(t/2)*sin(t)],t))
On obtient le rayon de courbure au point M d’affixe 3*exp(1/2)*(cos(1)+i*sin(1)):
2*sqrt(5)/(15*exp(t/2))
On tape pour avoir le rayon de courbure au point M0 d’affixe 3*exp(7/2)*(cos(7)+i*sin(7)):
trigcos(courbure([3*exp(t/2)*cos(t),3*exp(t/2)*sin(t)],t,7))
On obtient :
2*sqrt(5)/(15*exp(7/2))
Pour avoir l’équation du cercle osculateur en M, on tape :
trigcos(equation(cercle_osculateur([3*exp(t/2)*cos(t),3*exp(t/2)*sin(t)],t)))
On obtient :
x`^`2+y`^`2+9*exp(t/2)`^`2/4+3*x*exp(t/2)*sin(t)-3*y*exp(t/2)*cos(t)=(45*exp(t/2)`^`2/4)
Pour avoir l’équation du cercle osculateur en M0, on tape :
trigcos(equation(cercle_osculateur([3*exp(t/2)*cos(t),3*exp(t/2)*sin(t)],t,7)))
On obtient :
x`^`2+y`^`2+9*exp(7/2)`^`2/4+3*x*exp(7/2)*sin(7)-3*y*exp(7/2)*cos(7)=(45*exp(7/2)`^`2/4)
Pour avoir l’affixe du centre du cercle osculateur en M, on tape :
affixe(centre(cercle_osculateur([3*exp(t/2)*cos(t),3*exp(t/2)*sin(t)],t)))
On obtient :
(3*i)*exp(t/2)*cos(t)/2-3*exp(t/2)*sin(t)/2)
Pour avoir l’affixe du centre du cercle osculateur en M0, on tape :
affixe(centre(cercle_osculateur([3*exp(t/2)*cos(t),3*exp(t/2)*sin(t)],t,7)))
On obtient :
(3*i)*exp(7/2)*cos(7)/2-3*exp(7/2)*sin(7)/2
On tape :
plotparam(3*exp(t/2)*(cos(t)+i*sin(t)));
M0:=point(3*exp(7/2)*(cos(7)+i*sin(7)));
C:=centre(cercle_osculateur([3*exp(t/2)*cos(t),3*exp(t/2)*sin(t)],t,7));
cercle_osculateur([3*exp(t/2)*cos(t),3*exp(t/2)*sin(t)],t,7,affichage=1)
segment(C,M0)
tangente(plotparam(3*exp(t/2)*exp(i*t),t),7);
demi_droite(0,M0);
demi_droite(0,C);
On obtient :