GraphingCalculator 3.5;
Window 93 775 893 1415;
PaneDivider 248;
Slider -5 5;
SliderSteps 10;
SliderControlValue 8;
SliderVariable k;
2D.BottomLeft -3.6875 -4.4375;
Expr r=2*sin([k*theta]);