|
|
|
|
|
|
|
|
a= (* Zahl eingeben *)
Sin[a] (* rote Kurve *)
Cos[a]; (* grüne Kurve *)
Tan[a]; (* blau Kurve *)
Cot[a]; (* gelbe Kurve *)
Plot[{Sin[x],Cos[x],Tan[x],Cot[x]},{x,-7,7},
PlotStyle->{{RGBColor[1,0,0]},{RGBColor[0,1,0]},{RGBColor[0,0,1]},
{RGBColor[1,1,0]}}]
