

fonctions intéressantes pour l'effet 'SOMA'



ParametricPlot[{Cos[t]+Sin[t]*Cos[t]*1, Sin[2*t]}, {t, 0, 2Pi*2}]
ParametricPlot[{Cos[t]*Sin[t]*Cos[t]*1, Sin[2*t]}, {t, 0, 2Pi*2}]
ParametricPlot[{Cos[t]*Sin[t]*Cos[t]*3, Sin[2*t]*Cos[t+10]}, {t, 0, 2Pi*2}]

ParametricPlot[{Cos[t]+Sin[t*Cos[t*0.5]]*Cos[t*Sin[t*0.1]*Cos[t*0.1]]*1, Sin[2*t]}, {t, 0, 2Pi*4}]	-- very chaotic path


ParametricPlot[{t*Cos[t],t*Sin[t]}, {t, 0, 2Pi*2}]	--spirale d'archimede
ParametricPlot[{t*Cos[t*2],t*Sin[t*2]}, {t, 0, 2Pi*2}]	--spirale d'archimede 2x plus spiralée
ParametricPlot[{1/t*Cos[t*2],t*Sin[t*2]}, {t, 0, 2Pi*2}]	-- truc zarbi concentrique.

ParametricPlot[{(t*Sin[t*3])*Cos[t],(t*t*Sin[t*2])*Sin[t]}, {t, 0, 2Pi*2}]



x=Cos[t]*Sin[t]*Cos[t]*3
y=2.0*Sin[2*t*3]*Sin[t]
ParametricPlot[{x, y*x}, {t, 0, 2Pi*2}]


x=Cos[t]*Sin[t]*Cos[t]*3
y=2.0*Sin[2*t*3]*Sin[t]
ParametricPlot[{x, y*Cos[x]}, {t, 0, 2Pi*2}]



x=Cos[t]*Sin[t]*Cos[t]*3
y=2.0*Sin[2*t*3]*Sin[t]
ParametricPlot[{x*Cos[y], y*Cos[x]}, {t, 0, 2Pi*2}]


x=Cos[t]*Sin[t]*Cos[t]*Sin[t*3]
y=Sin[2*t*3]*Sin[t]
ParametricPlot[{x*Cos[y], y*Cos[x]}, {t, 0, 2Pi*2}]		//poisson


x=Cos[t]*Sin[t]*Cos[t]+Cos[t*3]
y=Sin[2*t*3]*Sin[t]
ParametricPlot[{x, y*Cos[x]}, {t, 0, 2Pi*2}]