Funzione SENO e COSENO

<<Graphics`Arrow`
<< Graphics`Legend`

$TextStyle = {FontFamily -> "Courier", 
          FontSize -> 18};
p = 60    ;

B = 
      Table[Show[
          Graphics[{RGBColor[0, 1, 1], Thickness[0.01], 
              Line[{{0, 0}, {Cos[x], Sin[x]}}]}], 
          PlotRange -> {{-1.3, 1.3}, {-1.3, 1.3}}, 
          DisplayFunction -> Identity], {x, 0, 2 Pi, 
          Pi/p}]
P = 
        Table[Show[
            Graphics[{RGBColor[0, 0, 0], PointSize[ .035], 
                Point[{Cos[x], Sin[x]}]}], AspectRatio -> 1, 
            PlotRange -> {{-1.3, 1.3}, {-1.3, 1.3}}, 
            DisplayFunction -> Identity], {x, 0, 2 Pi, 
            Pi/p}];
Cer = 
      Show[Graphics[{RGBColor[0, 1, 0], Circle[{0, 0}, 1]}], 
        DisplayFunction -> $DisplayFunction]

\(\(\(
\)\(
\)\(\(H = 
      Table[Show[B[\([i]\)], P[\([i]\)], Cer, 
          PlotRange -> {{\(-1.3\), 1.3}, {\(-1.3\), 1.3}}, 
          AspectRatio -> 1, Axes -> True, 
          DisplayFunction -> $DisplayFunction, 
          Frame -> True], 
	{i, 1, 
          2  p + 1}
	]\)\(
\)
    \)\)\)

f1[x_]:=Sin[x]
f2[x_]:=Cos[x]
q=5;
Fu=Table[
	ParametricPlot[
		{{x,f1[x]},{x,f2[x]},{x,-1},{x,+1}},
			{x,0,t+0.001},DisplayFunction->$DisplayFunction,
				PlotRange->{{0,2 Pi},{-1.3,1.3}},
					PlotStyle->{
						{Thickness[0.0065],RGBColor[0,0,1]},
						{Thickness[0.0065],RGBColor[1,0,0]},
						{Dashing[{0.01}],RGBColor[0,0,0]},
						{Dashing[{0.01}],RGBColor[0,0,0]}
						},
Background->GrayLevel[.85],
Frame->True,AspectRatio->1],{t,0,2 Pi,Pi/q}]

BB = 
      Plot[{Sin[x], Cos[x]}, {x, 0, 2 Pi}, 
        PlotStyle -> {RGBColor[0, 0, 1], {RGBColor[1, 0, 0], 
              Dashing[{ .01}]}}, PlotLegend -> {"sin", "cos"}, 
        LegendPosition -> {0.0,  .5}, LegendTextSpace ->  .5, 
        LegendLabel -> "", LegendLabelSpace ->  .5, 
        Frame -> True, LegendOrientation -> Horizontal, 
        LegendBackground -> GrayLevel[ .85], 
        LegendShadow -> { .05, - .05}, 
        LegendSize -> { .6,  .3}, 
        Background -> GrayLevel[1]]

A = 
        Show[H[[20]], Graphics[{Text["sinx", {0.95, 0.86}, {0, 0}]}], 
          Graphics[{Text["cosx", {-0.33, 0.2}, {0, 0}]}], 
          Graphics[{Text["P", {0.62, 1}]}], 
          Graphics[{Text["x", {0.25, 0.1}]}], 
          Graphics[{RGBColor[1, 0, 0], Thickness[0.0065], 
              Line[{{0.543, 0.838}, {0, 0.838}}]}], 
          Graphics[{RGBColor[0, 0, 1], Thickness[0.0065], 
              Line[{{0.543, 0.838}, {0.543, 0}}]}], 
          Graphics[{Arrow[{-0.33, 0.3}, {0.26, 0.82}]}], 
          Graphics[{Arrow[{0.95, 0.76}, {0.57, 0.43}]}], 
          DisplayFunction -> $DisplayFunction];

    
B = 
        Show[Fu[[2  q + 1]], 
          DisplayFunction -> $DisplayFunction];

Show[GraphicsArray[{A, BB}]]

Funzione TANGENTE e COTANGENTE

a=1;b=0;

f1[x_]:=Tan[a x+b]
f2[x_]:=1/Tan[a x+b]

Plot[{f1[x],f2[x]},{x,-Pi,Pi},
PlotRange->{-1.3,1.3},
PlotStyle->{{Thickness[0.0075],RGBColor[0,0,1]},{Thickness[0.0075],{RGBColor[1,0,0],Dashing[{0.05,0.05}]}}},
Background->GrayLevel[.85],
Frame->True]

Off[Power]
Off[Plot::plnr]