Funzione SENO e COSENO

<<Graphics`Arrow`
<< Graphics`Legend`
Off[Power::infy]

$TextStyle = {FontFamily -> "Courier", 
          FontSize -> 18};
angle = Pi/3;

raggio =  
        Show[Graphics[{RGBColor[0, 1, 1], Thickness[0.01], 
              Line[{{0, 0}, {1, Tan[angle]}}]}], 
          PlotRange -> {{-2, 2}, {-2, 2}}, 
          DisplayFunction -> Identity];
P =  
        Show[Graphics[{RGBColor[0, 0, 0], PointSize[ .02], 
              Point[{1, Tan[angle]}]}], AspectRatio -> 1, 
          PlotRange -> {{-2, 2}, {-2, 2}}, 
          DisplayFunction -> Identity];
Cer = 
        Show[Graphics[{RGBColor[0, 1, 0], Circle[{0, 0}, 1]}], 
          DisplayFunction -> Identity];

    
H = 
      Show[raggio, P, Cer, PlotRange -> {{-2, 2}, {-2, 2}}, 
        AspectRatio -> 1, Axes -> True, Frame -> True, 
        DisplayFunction -> $DisplayFunction]

BB = 
      Plot[Tan[x], {x, -Pi/2,  Pi/2}, PlotStyle -> RGBColor[0, 0, 1], 
        Frame -> True, 
        PlotRange -> {All, {-20, 20}}]

    
CC = 
      Plot[1/Tan[x], {x, -Pi/2,  Pi/2}, PlotStyle -> RGBColor[1, 0, 0], 
        Frame -> True, 
        PlotRange -> {All, {-20, 20}}]

\(\(A = 
        Show[H, Graphics[{Text["P", {1 + 0.1, Tan[Pi/3] + 0.1}]}], 
          Graphics[{Text["x", {0.25, 0.15}]}], 
          Graphics[{Text["tanx", {1.5, 0.15}]}], 
          Graphics[{Text["cotanx", {\(-0.8\), 1.76}]}], 
          Graphics[{RGBColor[1, 0, 0], Thickness[0.0065], 
              Line[{{1/Tan[Pi/3], 1}, {0, 1}}]}], 
          Graphics[{RGBColor[0, 0, 1], Thickness[0.0065], 
              Line[{{1, Tan[Pi/3]}, {1, 
                    0}}]}], 

Graphics[{Arrow[{\(-0.56\), 
                  1.55}, {0.33, 1.1}]}], 
          Graphics[{Arrow[{1.5, 0.3}, {1.05, 0.88}]}], 
          DisplayFunction -> $DisplayFunction];\)\)

S1 = Show[GraphicsArray[{{CC}, {BB}}]]
Show[GraphicsArray[{A, S1}]]

DD = 
      Plot[ArcTan[x], {x, -2 Pi,  2  Pi}, Frame -> True, 
        PlotRange -> {All, {-2, 2}}, 
        GridLines -> {{}, {-Pi/2, Pi/2}}, 
        FrameTicks -> {{0}, {-Pi/2, 0, Pi/2}}]