wcguo94
现在有一数据库，希望在每个区县按照东西南北中方向抽取乡镇，其中东西南北各2个，中1个；再在抽中的乡镇中随机抽取2个村，共抽取9个村。
QX 区县 FX 方向 XZ 乡镇 CUONTY村名
中区 东 珞璜 珞璜
中区 东 珞璜 和坪
中区 东 珞璜 马宗
中区 东 珞璜 郭坝
中区 东 杜市 月坝
中区 东 杜市 湘萍
中区 东 杜市 龙风
中区 东 杜市 胡家
中区 东 杜市 梅湾
中区 东 广兴 广岳
中区 东 广兴 红塘
中区 东 广兴 沿河
中区 东 广兴 彭桥
中区 东 广兴 社区
中区 南 柏林 东胜
中区 南 柏林 华盖
中区 南 柏林 青堰
中区 南 柏林 复兴
中区 南 柏林 龙谭
中区 南 柏林 林海
中区 南 四面 洪洞
中区 南 四面 头道
中区 南 四面 燕子
中区 南 四面 跃进
中区 南 四面 鸭江
中区 南 蔡家 大坪
中区 南 蔡家 余粮
中区 南 蔡家 双新
中区 南 蔡家 社区
中区 中 永兴 东胜
中区 中 永兴 华盖
中区 中 永兴 青堰
中区 中 永兴 复兴
中区 中 塘河 龙谭
中区 中 塘河 林海
中区 中 塘河 洪洞
中区 中 塘河 头道
中区 中 塘河 燕子
中区 中 白沙 跃进
中区 中 白沙 鸭江
中区 中 白沙 大坪
中区 中 白沙 余粮
中区 中 白沙 双新
中区 中 白沙 社区
.........................
wcguo94
高手帮帮忙呀，我用proc surveyselect过程，好像实现不了？？？
王笑权
lz有两个问题1 没有说清要求2资料不全（想帮忙者一看你那呈树状几何级增长的数据-还要人家自己找假设数据去推敲 就吓跑了）。
如果不是吃饱了撑的，谁都不想干这事。
幸好本人以前帮人搞过，现复制一份
data cos;do q=1 to 6;x=normal(0);output;end;/*假如有6个区县，随机抽中一个*/
proc sort data=cos; by x;proc rank data=cos out=a;var x;ranks x;
data a1;set a;if x^=1 then delete;
data cos1;do f=1 to 5;/*方向*/do zh=1 to 30;/*该县有个方向最多达30个镇*/output;end;end;
data cos2;set cos1;if f=1 & zh>25|f=2 & zh>28|f=3 & zh>22|f=4 & zh>19 then delete;/*假如前4个方向
分别只有25，28，22，19个镇*/x1= normal(0);
proc sort data=cos2;by x1;proc rank data=cos2 out=a2;var x1;ranks x1;
data a3;set a2;if dif(f)=0 then delete;
data a4;set a3;proc sort out=a5;by f;
data a6;set a5;if dif2(f)=0 then delete;if f=5 & dif(x1)<0 then delete;
data b;do c=1 to 500;/*假定被选中的9个镇最多包含500个行政村*/x3=normal(0);output;end;
data b1;sumx+1;/*从方向1-9顺序预编村号*/set b;if c<46 then c=1;if c >=46 & c<102 then c=2;if c >=102 & c<162 then c=3;
if c >=162 & c<233 then c=4;if c >=233 & c<312 then c=5;if c >=312 & c<400 then c=6;
if c >=400 & c<418 then c=7;if c >=418 & c<479 then c=8;if c>=479 then c=9;/*各镇村数不同*/
proc sort data=b1; by x3; proc rank data=b1 out=b2;var x3;ranks x3;
data b3;set b2;proc sort data=b3;by c;
data b4;set b3;if dif(c)=0 then delete;
data ab;label q='被抽中的安徽省五河县' x='抽县随机数' f='1北2东3南4西5中' zh='按方向要求被随机抽取的沫河口等9镇的编号'
x1='抽镇的随机数'c ='对应被抽中镇后被抽中的临北乡石家等9村' x3='抽村随机数' sumx='抽中的村号';
merge a1 a6 b4;
title '试验设计-抽样过程 警告：石家村卫生室王笑权（全）版权所有，非法复制及传播将遭受严厉刑事制裁！！！';
proc print data=ab label noobs;
run;
结果
试验设计-抽样过程 警告：石家村卫生室王笑权（全）版权所有，非法复制及传播将遭受严厉刑事制裁！！！ 1
2008年01月10日 星期四 下午09时23分47秒
被抽中的安徽省五河县 抽县随机数 1北2东3南4西5中 按方向要求被随机抽取的沫河口等9镇的编号
4 1 1 16
. . 1 21
. . 2 8
. . 2 15
. . 3 13
. . 3 18
. . 4 14
. . 4 8
. . 5 7
抽镇的随机数 对应被抽中镇后被抽中的临北乡石家等9村 抽村随机数 抽中的村号
5 1 1 34
9 2 17 84
3 3 13 155
12 4 2 207
7 5 4 240
17 6 5 382
1 7 19 410
8 8 3 468
4 9 10 491
王笑权
实际而言，太复杂了，我头都看晕了。
weihancool
唉，高手！
wdplhl
太牛了！！
