GraphingCalculator 3.5;
Window 62 97 862 737;
PaneDivider 248;
Slider -5 5;
SliderSteps 10;
SliderControlValue 8;
SliderVariable k;
2D.BottomLeft -3.6875 -4.4375;
Expr r=2*cos([k*theta]);