Question: 2. Load the package Graphics`Graphics` if you have not already done so in this session of Mathematica. DO NOT load it more than once per session. Graph the polar expression on the same axes. Make the graph of the second equation blue and twice as thick as the red graph of the first equation r=Cos[x]Sin[x/Sqrt[2]] . and r = -0.25 Cos[x].
Solution:
<<Graphics`Graphics`
PolarPlot[{Cos[x]*Sin[x/Sqrt[2]], -.25 Cos[x]},{x,-2 Pi, 2Pi}, PlotStyle->{{RGBColor[1,0,0],Thickness[0.004]},{RGBColor[0,0,1],Thickness[.008]}}];
SHIFT +ENTER
