Le dimanche 26 mai 2013 11:35:58 UTC+2, kurtz le pirate a écrit :
> bonjour, sur l'excellent site "mathcurve", il est question de courbes bicylindrique. en partant de l'�quation cart�sienne donn�e sur la page : <
http://www.mathcurve.com/courbes3d/bicylindric/bicylindric.shtml> j'essaye de tracer une de ces courbes "utilis�e par le joaillier suisse..." avec a = b, et c petit. je n'arrive jamais � faire une courbe qui ressemble � l'exemple donn�e :( une aide ? merci -- klp
Bonjour,
Il faut concaténer les 2 courbes y>0 et y<0
Cet ex. avec mathematica:
x[t_] := a*Cos[t];
y[t_] := Sqrt[b^2 - (2*c + a*Sin[t])^2];
z[t_] := c + a*Sin[t];
val = {a -> 1, b -> 1, c -> 0.2};
ParametricPlot3D[{{x[t], y[t], z[t]}, {x[t], -y[t], z[t]}} /. val, {t, -Pi, Pi}]
donne bien la même allure que l'exemple (avec c "petit") de mathcurve.