rGridded circle dataI';N#24 May 2007 10:02xygroup%9.0g%9.0g%9.0gtata/IC 10.0k} {space 4}{inp:> (function tata/IC 10.0k} {space 4}{inp:> (function tata/IC 10.0k} {space 4}{inp:> (function _dtaircle datae following ymmanote2-`-Create 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))}D_dtaircle datae following ymmanote0-`-21_dtaircle datae following ymmanote1-`-Create 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}fffL333̿L̾>L???@@333@L@fff@@ffffffLfff333fffffffff̿ffffffLfff̾ffffff>fffL?fff?fff?fff@fff@fff333@fffL@ffffff@fff@fffffffffLLL333LLL̿LLLL̾LL>LL?L?L?L@L@L333@LL@Lfff@L@LLfff333L333333333333333̿333333L333̾333333>333L?333?333?333@333@333333@333L@333fff@333@333333fffL333̿L̾>L???@@333@L@fff@@fffL333̿L̾>L???@@333@L@fff@@fff̿L̿333̿̿̿̿̿̿L̿̾̿̿>̿L?̿?̿?̿@̿@̿333@̿L@̿fff@̿@̿̿fffL333̿L̾>L???@@333@L@fff@@fffLLL333LLL̿LLLL̾LL>LL?L?L?L@L@L333@LL@Lfff@L@LLfff̾L̾333̾̾̾̿̾̾L̾̾̾̾>̾L?̾?̾?̾@̾@̾333@̾L@̾fff@̾@̾̾fffL333̿L̾>L???@@333@L@fff@@fff>L>333>>>̿>>L>̾>>>>L?>?>?>@>@>333@>L@>fff@>@>>fffL?LL?333L?L?L?̿L?L?LL?̾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@@@@@fff333@L333@333333@333@333@̿333@333@L333@̾333@333@>333@L?333@?333@?333@@333@@333@333@333@L@333@fff@333@@333@333@fffL@LL@333L@L@L@̿L@L@LL@̾L@L@>L@L?L@?L@?L@@L@@L@333@L@L@L@fff@L@@L@L@ffffff@Lfff@333fff@fff@fff@̿fff@fff@Lfff@̾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@@@@@