Le cos et le sin

on fait tourner l' angle et on projette  pour matérialiser le  cos

t = 
        0;
\(TraditionalForm\`Do[\ 
      t = \((i\ \ )\)*2\ Pi/
            20; 
Show[
GraphicsArray[{

Show[
ParametricPlot[{Cos[x], Sin[x]}, {x, 0, t}, AspectRatio -> 1, 
                PlotRange -> {{\(-1\), 1}, {\(-1\), 
                      1}}, 
DisplayFunction -> 
                  Identity], 
ParametricPlot[{\ x\ Cos[t], 
                  0}, {x, 0, 1}, 
DisplayFunction -> 
                  Identity, 
                PlotStyle -> 
                  RGBColor[1, 0, 0]\ ], 
ParametricPlot[{0, 
                  x\ Sin[t]}, {x, 0, 1}, 
DisplayFunction -> 
                  Identity, 
                PlotStyle -> {Thickness[0.01], 
                    RGBColor[0, 0, 
                      1]}\ ], 

ParametricPlot[{\ x\ Cos[t], 
                  x\ Sin[t]}, {x, 0, 1}, 
DisplayFunction -> 
                  Identity, 
                PlotStyle -> {Thickness[0.01], 
                    RGBColor[0, 1, 0]}], 
DisplayFunction -> 
                Identity

]\ , 
Show[
\ 
              Plot[Sin[x], {x, 0, t}, AspectRatio -> 1, 
                PlotLabel -> "le SINUS:  sin(x)", 
                PlotRange -> {{0, 4  Pi}, {\(-1\), 1}}, 
                PlotStyle -> {Thickness[0.01], 
                    RGBColor[0, 0, 
                      1]}, 
DisplayFunction -> 
                  Identity], 
DisplayFunction -> 
                Identity

]\ }], 
        DisplayFunction -> $DisplayFunction]\ , {i, 1, 
        40\ }]\)

t = 
        0;
\(TraditionalForm\`Do[\ 
      t = \((i\ \ )\)*2\ Pi/
            20; 
Show[
GraphicsArray[{

Show[
ParametricPlot[{Cos[x], Sin[x]}, {x, 0, t}, AspectRatio -> 1, 
                PlotRange -> {{\(-1\), 1}, {\(-1\), 
                      1}}, 
DisplayFunction -> 
                  Identity], 
ParametricPlot[{\ x\ Cos[t], 
                  0}, {x, 0, 1}, 
DisplayFunction -> 
                  Identity, 
                PlotStyle -> 
                  RGBColor[1, 0, 0]\ ], 
ParametricPlot[{0, 
                  x\ Sin[t]}, {x, 0, 1}, 
DisplayFunction -> 
                  Identity, 
                PlotStyle -> {Thickness[0.01], 
                    RGBColor[0, 0, 
                      1]}\ ], 

ParametricPlot[{\ x\ Cos[t], 
                  x\ Sin[t]}, {x, 0, 1}, 
DisplayFunction -> 
                  Identity, 
                PlotStyle -> {Thickness[0.01], 
                    RGBColor[0, 1, 0]}], 
DisplayFunction -> 
                Identity

]\ , 
Show[
\ 
              Plot[Cos[x], {x, 0, t}, AspectRatio -> 1, 
                PlotLabel -> "le COSINUS", 
AxesLabel -> {"x", " cos(x)"}, 
PlotRange -> {{0, 4  Pi}, {\(-1\), 1}}, 
                PlotStyle -> {Thickness[0.01], 
                    RGBColor[1, 0, 
                      0]}, 
DisplayFunction -> 
                  Identity], 
DisplayFunction -> 
                Identity

]\ }], 
        DisplayFunction -> $DisplayFunction]\ , {i, 1, 
        40\ }]\)

\(TraditionalForm\`\(\(\ \)\(Show[\ 
      GraphicsArray[{
Plot[Sin[x], {x, 0, t}, 
            PlotLabel -> "sin(x)", 
            PlotRange -> {{0, 2\ Pi}, {\(-1\), 
                  1}}, 
DisplayFunction -> 
              Identity], 
Show[
ParametricPlot[{Cos[x], 
                Sin[x]}, {x, 0, t}, AspectRatio -> 1, 
              PlotRange -> {{\(-1\), 1}, {\(-1\), 
                    1}}, 
DisplayFunction -> 
                Identity], 
ParametricPlot[{\ x\ Cos[t], 
                0}, {x, 0, 1}, 
DisplayFunction -> 
                Identity, 
              PlotStyle -> 
                RGBColor[1, 0, 0]\ ], 
ParametricPlot[{0, 
                x\ Sin[t]}, {x, 0, 1}, 
DisplayFunction -> 
                Identity, 
              PlotStyle -> {Thickness[0.01], 
                  RGBColor[0, 0, 
                    1]}\ ], 

ParametricPlot[{\ x\ Cos[t], 
                x\ Sin[t]}, {x, 0, 1}, 
DisplayFunction -> 
                Identity, 
              PlotStyle -> {Thickness[0.01], 
                  RGBColor[0, 1, 0]}], 
DisplayFunction -> 
              Identity

]
}], 
      DisplayFunction -> $DisplayFunction]\)\(
\)\(
\)\)\)

DRUM!!!!