r¹Gridded circle data€^VÀ“Vùµ¿ 0À“VЦC8ùµ¿€^VHùµPùµ¿€^V˜ùµ`24 May 2009 10:02þþûxygroup%9.0g%9.0g%9.0gœì·€œì·!!n.ÿÿÿÿ0while333ÀÍÌÌ?333À@333Àš™33 œì·€œì·!!n.ÿÿÿÿ0while333ÀÍÌÌ?333À@333Àš™33 œì·€œì·!!n.ÿÿÿÿ0while333ÀÍÌÌ?333À@333Àš™33 1_dta0070601 Jun Jul Aug Sep Ocnote1VØøµ¿1 ¿·ã©å·1ñ3Create this dataset with the following commands{break} {space 4}{inp:. set obs 441}{break} {space 4}{inp:. gen x = .4*mod(_n,21)-4}{break} {space 4}{inp:. gen y = .4*int((_n-1)/21) -4}{break} {space 4}{inp:. gen group = 1}{break} {space 4}{inp:. replace group = 2 if (y+2)^2 + (x+2)^2 <= 3}{break} {space 4}{inp:. replace group = 2 if (y-2)^2 + (x-2)^2 <= 3}{break} {space 4}{inp:. replace group = 3 if (y+2)^2 + (x-2)^2 <= 3}{break} {space 4}{inp:. replace group = 3 if (y-2)^2 + (x+2)^2 <= 3}D_dta0070601 Jun Jul Aug Sep Ocnote0VØøµ¿D ¿·ã©å·Dñ32Ä_dta0070601 Jun Jul Aug Sep Ocnote2VØøµ¿Ä ¿·ã©å·Äñ3Create locals from the following commands{break} {space 4}{inp:. local rp : di %12.10f 2+sqrt(3)}{break} {space 4}{inp:. local rm : di %12.10f 2-sqrt(3)}{break} {space 4}{inp:. local functionplot }{break} {space 4}{inp:> (function y = sqrt(3-(x+2)^2) - 2, lpat(solid) range(-{c 'g}rp' -{c 'g}rm'))}{break} {space 4}{inp:> (function y = -sqrt(3-(x+2)^2) - 2, lpat(solid) range(-{c 'g}rp' -{c 'g}rm'))}{break} {space 4}{inp:> (function y = sqrt(3-(x-2)^2) + 2, lpat(solid) range(-{c 'g}rm' {c 'g}rp'))}{break} {space 4}{inp:> (function y = -sqrt(3-(x-2)^2) + 2, lpat(solid) range(-{c 'g}rm' {c 'g}rp')) }{break} {space 4}{inp:> (function y = sqrt(3-(x+2)^2) + 2, lpat(solid) range(-{c 'g}rp' -{c 'g}rm'))}{break} {space 4}{inp:> (function y = -sqrt(3-(x+2)^2) + 2, lpat(solid) range(-{c 'g}rp' -{c 'g}rm'))}{break} {space 4}{inp:> (function y = sqrt(3-(x-2)^2) - 2, lpat(solid) range( {c 'g}rm' {c 'g}rp'))}{break} {space 4}{inp:> (function y = -sqrt(3-(x-2)^2) - 2, lpat(solid) range( {c 'g}rm' {c 'g}rp'))}{break} {space 4}{inp:. local graphopts aspectratio(1)}{break} {space 4}{inp:> legend(order(1 "group 1" 2 "group 2" 3 "group 3") rows(1))}fffÀ€ÀÍÌLÀ€À333À€Àš™À€ÀÀ€ÀÍÌÌ¿€Àš™™¿€ÀÍÌL¿€ÀÍÌ̾€À€ÀÍÌÌ>€ÀÍÌL?€Àš™™?€ÀÍÌÌ?€À@€Àš™@€À333@€ÀÍÌL@€Àfff@€À€@€À€À€ÀfffÀfffÀÍÌLÀfffÀ333ÀfffÀš™ÀfffÀÀfffÀÍÌÌ¿fffÀš™™¿fffÀÍÌL¿fffÀÍÌ̾fffÀfffÀÍÌÌ>fffÀÍÌL?fffÀš™™?fffÀÍÌÌ?fffÀ@fffÀš™@fffÀ333@fffÀÍÌL@fffÀfff@fffÀ€@fffÀ€ÀfffÀfffÀÍÌLÀÍÌLÀÍÌLÀ333ÀÍÌLÀš™ÀÍÌLÀÀÍÌLÀÍÌÌ¿ÍÌLÀš™™¿ÍÌLÀÍÌL¿ÍÌLÀÍÌ̾ÍÌLÀÍÌLÀÍÌÌ>ÍÌLÀÍÌL?ÍÌLÀš™™?ÍÌLÀÍÌÌ?ÍÌLÀ@ÍÌLÀš™@ÍÌLÀ333@ÍÌLÀÍÌL@ÍÌLÀfff@ÍÌLÀ€@ÍÌLÀ€ÀÍÌLÀfffÀ333ÀÍÌLÀ333À333À333Àš™À333ÀÀ333ÀÍÌÌ¿333Àš™™¿333ÀÍÌL¿333ÀÍÌ̾333À333ÀÍÌÌ>333ÀÍÌL?333Àš™™?333ÀÍÌÌ?333À@333Àš™@333À333@333ÀÍÌL@333Àfff@333À€@333À€À333ÀfffÀš™ÀÍÌLÀš™À333Àš™Àš™Àš™ÀÀš™ÀÍÌÌ¿š™Àš™™¿š™ÀÍÌL¿š™ÀÍÌ̾š™Àš™ÀÍÌÌ>š™ÀÍÌL?š™Àš™™?š™ÀÍÌÌ?š™À@š™Àš™@š™À333@š™ÀÍÌL@š™Àfff@š™À€@š™À€Àš™ÀfffÀÀÍÌLÀÀ333ÀÀš™ÀÀÀÀÍÌÌ¿Àš™™¿ÀÍÌL¿ÀÍÌ̾ÀÀÍÌÌ>ÀÍÌL?Àš™™?ÀÍÌÌ?À@Àš™@À333@ÀÍÌL@Àfff@À€@À€ÀÀfffÀÍÌÌ¿ÍÌLÀÍÌÌ¿333ÀÍÌÌ¿š™ÀÍÌÌ¿ÀÍÌÌ¿ÍÌÌ¿ÍÌÌ¿š™™¿ÍÌÌ¿ÍÌL¿ÍÌÌ¿ÍÌ̾ÍÌÌ¿ÍÌÌ¿ÍÌÌ>ÍÌÌ¿ÍÌL?ÍÌÌ¿š™™?ÍÌÌ¿ÍÌÌ?ÍÌÌ¿@ÍÌÌ¿š™@ÍÌÌ¿333@ÍÌÌ¿ÍÌL@ÍÌÌ¿fff@ÍÌÌ¿€@ÍÌÌ¿€ÀÍÌÌ¿fffÀš™™¿ÍÌLÀš™™¿333Àš™™¿š™Àš™™¿Àš™™¿ÍÌÌ¿š™™¿š™™¿š™™¿ÍÌL¿š™™¿ÍÌÌ¾š™™¿š™™¿ÍÌÌ>š™™¿ÍÌL?š™™¿š™™?š™™¿ÍÌÌ?š™™¿@š™™¿š™@š™™¿333@š™™¿ÍÌL@š™™¿fff@š™™¿€@š™™¿€Àš™™¿fffÀÍÌL¿ÍÌLÀÍÌL¿333ÀÍÌL¿š™ÀÍÌL¿ÀÍÌL¿ÍÌÌ¿ÍÌL¿š™™¿ÍÌL¿ÍÌL¿ÍÌL¿ÍÌ̾ÍÌL¿ÍÌL¿ÍÌÌ>ÍÌL¿ÍÌL?ÍÌL¿š™™?ÍÌL¿ÍÌÌ?ÍÌL¿@ÍÌL¿š™@ÍÌL¿333@ÍÌL¿ÍÌL@ÍÌL¿fff@ÍÌL¿€@ÍÌL¿€ÀÍÌL¿fffÀÍÌ̾ÍÌLÀÍÌ̾333ÀÍÌ̾š™ÀÍÌ̾ÀÍÌ̾ÍÌÌ¿ÍÌ̾š™™¿ÍÌ̾ÍÌL¿ÍÌ̾ÍÌ̾ÍÌ̾ÍÌ̾ÍÌÌ>ÍÌ̾ÍÌL?ÍÌ̾š™™?ÍÌ̾ÍÌÌ?ÍÌ̾@ÍÌ̾š™@ÍÌ̾333@ÍÌ̾ÍÌL@ÍÌ̾fff@ÍÌ̾€@ÍÌ̾€ÀÍÌ̾fffÀÍÌLÀ333Àš™ÀÀÍÌÌ¿š™™¿ÍÌL¿ÍÌ̾ÍÌÌ>ÍÌL?š™™?ÍÌÌ?@š™@333@ÍÌL@fff@€@€ÀfffÀÍÌÌ>ÍÌLÀÍÌÌ>333ÀÍÌÌ>š™ÀÍÌÌ>ÀÍÌÌ>ÍÌÌ¿ÍÌÌ>š™™¿ÍÌÌ>ÍÌL¿ÍÌÌ>ÍÌ̾ÍÌÌ>ÍÌÌ>ÍÌÌ>ÍÌÌ>ÍÌL?ÍÌÌ>š™™?ÍÌÌ>ÍÌÌ?ÍÌÌ>@ÍÌÌ>š™@ÍÌÌ>333@ÍÌÌ>ÍÌL@ÍÌÌ>fff@ÍÌÌ>€@ÍÌÌ>€ÀÍÌÌ>fffÀÍÌL?ÍÌLÀÍÌL?333ÀÍÌL?š™ÀÍÌL?ÀÍÌL?ÍÌÌ¿ÍÌL?š™™¿ÍÌL?ÍÌL¿ÍÌL?ÍÌ̾ÍÌL?ÍÌL?ÍÌÌ>ÍÌL?ÍÌL?ÍÌL?š™™?ÍÌL?ÍÌÌ?ÍÌL?@ÍÌL?š™@ÍÌL?333@ÍÌL?ÍÌL@ÍÌL?fff@ÍÌL?€@ÍÌL?€ÀÍÌL?fffÀš™™?ÍÌLÀš™™?333Àš™™?š™Àš™™?Àš™™?ÍÌÌ¿š™™?š™™¿š™™?ÍÌL¿š™™?ÍÌ̾š™™?š™™?ÍÌÌ>š™™?ÍÌL?š™™?š™™?š™™?ÍÌÌ?š™™?@š™™?š™@š™™?333@š™™?ÍÌL@š™™?fff@š™™?€@š™™?€Àš™™?fffÀÍÌÌ?ÍÌLÀÍÌÌ?333ÀÍÌÌ?š™ÀÍÌÌ?ÀÍÌÌ?ÍÌÌ¿ÍÌÌ?š™™¿ÍÌÌ?ÍÌL¿ÍÌÌ?ÍÌ̾ÍÌÌ?ÍÌÌ?ÍÌÌ>ÍÌÌ?ÍÌL?ÍÌÌ?š™™?ÍÌÌ?ÍÌÌ?ÍÌÌ?@ÍÌÌ?š™@ÍÌÌ?333@ÍÌÌ?ÍÌL@ÍÌÌ?fff@ÍÌÌ?€@ÍÌÌ?€ÀÍÌÌ?fffÀ@ÍÌLÀ@333À@š™À@À@ÍÌÌ¿@š™™¿@ÍÌL¿@ÍÌ̾@@ÍÌÌ>@ÍÌL?@š™™?@ÍÌÌ?@@@š™@@333@@ÍÌL@@fff@@€@@€À@fffÀš™@ÍÌLÀš™@333Àš™@š™Àš™@Àš™@ÍÌÌ¿š™@š™™¿š™@ÍÌL¿š™@ÍÌ̾š™@š™@ÍÌÌ>š™@ÍÌL?š™@š™™?š™@ÍÌÌ?š™@@š™@š™@š™@333@š™@ÍÌL@š™@fff@š™@€@š™@€Àš™@fffÀ333@ÍÌLÀ333@333À333@š™À333@À333@ÍÌÌ¿333@š™™¿333@ÍÌL¿333@ÍÌ̾333@333@ÍÌÌ>333@ÍÌL?333@š™™?333@ÍÌÌ?333@@333@š™@333@333@333@ÍÌL@333@fff@333@€@333@€À333@fffÀÍÌL@ÍÌLÀÍÌL@333ÀÍÌL@š™ÀÍÌL@ÀÍÌL@ÍÌÌ¿ÍÌL@š™™¿ÍÌL@ÍÌL¿ÍÌL@ÍÌ̾ÍÌL@ÍÌL@ÍÌÌ>ÍÌL@ÍÌL?ÍÌL@š™™?ÍÌL@ÍÌÌ?ÍÌL@@ÍÌL@š™@ÍÌL@333@ÍÌL@ÍÌL@ÍÌL@fff@ÍÌL@€@ÍÌL@€ÀÍÌL@fffÀfff@ÍÌLÀfff@333Àfff@š™Àfff@Àfff@ÍÌÌ¿fff@š™™¿fff@ÍÌL¿fff@ÍÌ̾fff@fff@ÍÌÌ>fff@ÍÌL?fff@š™™?fff@ÍÌÌ?fff@@fff@š™@fff@333@fff@ÍÌL@fff@fff@fff@€@fff@€Àfff@fffÀ€@ÍÌLÀ€@333À€@š™À€@À€@ÍÌÌ¿€@š™™¿€@ÍÌL¿€@ÍÌ̾€@€@ÍÌÌ>€@ÍÌL?€@š™™?€@ÍÌÌ?€@@€@š™@€@333@€@ÍÌL@€@fff@€@€@€@€À€@