GraphingCalculator 3.1; Window 59 42 710 622; PaneDivider 224; Slider -5 5; SliderSteps 100; SliderControlValue 70; SliderVariable p; 2D.Scale 1 1 5 5; 2D.BottomLeft -11.5 -17.75; Parameter a = 0.5; Parameter k = 0; Color 3; Grain 1; Expr r=p*[1/2]/(1+[1/2]*sin([theta])); Color 2; Expr r=p*[4/5]/(1+[4/5]*sin([theta])); Color 4; Expr r=p*[-1]/(1+[-1]*sin([theta])); Color 8; Expr r=p*[-2]/(1+[-2]*sin([theta])); PrintRecord "00030000004800480000000002d80228ffe1ffe202f902460347052803fc00020000004800480000000002d80228000100000064000000010003030300000001270f000100010000000000000000000000006008001901900000000000000000000000000000000000000000000000000000000000000000"; PageMargins 72 72 72 72;