GraphingCalculator 3.5;
Window 61 97 861 737;
PaneDivider 248;
Slider -5 5;
SliderControlValue 99;
SliderMoving 1;
SliderVariable k;
SliderDirection -1;
2D.BottomLeft -3.6875 -4.4375;
Expr r=2*sin([k*theta]);