bysort id: g n=_n
sort n id
g p=_n
sort id p
by id: egen q=min(p)
sum id if n==1
local m=r(N)
g min=0
forv i=1(1)`m'{
mkmat x if q==`i',mat(x)
mkmat y if q==`i',mat(y)
local s=.
local r=rowsof(x)
forv j=1(1)`r'{
forv k=1(1)`r'{
mat def u=el(x,`j',1)-el(y,`k',1)
local t=abs(det(u))
if `t'<`s' local s=`t'
}
}
replace min=`s' if q==`i'
mat drop x y
}
keep id x y min
eblog  金币 +10  金钱 +100  魅力 +10  经验 +50  奖励 2009-3-1 13:30:23

谢谢版主！我运行了一下还有点小问题，这样编出来，在同ID下，不同的Y值得出的最小值一样了，就是说Y=2和Y=58都得出了11。
不知道是什么地方还需要改进下啊？还请版主帮忙看看：）

你想要什么样的最终结果？

不好意思，可能是我没说清楚～～
我希望最后得到的是：
Min
32    （=|34-2|）
-
11    （=|47-58|）
22    （=|29-7|）
-
75    （=|83-8|）
49    （=|83-34|）
23    （=|32-9|）

谢谢：）

bysort id: g n=_n
sort n id
g p=_n
sort id p
by id: egen q=min(p)
sum id if n==1
local m=r(N)
g min=0
forv i=1(1)`m'{
mkmat x if q==`i',mat(a)
mkmat y if q==`i',mat(b)
local s=.
local r=rowsof(a)
forv j=1(1)`r'{
forv k=1(1)`r'{
local t=abs(el(b,`j',1)-el(a,`k',1))
if `t'<`s' local s=`t'
}
replace min=`s' if q==`i'&y==el(b,`j',1)
}
}
replace min=. if y==.
keep id x y min

*这样可以更简洁一些（生成矩阵时不要使用数据库的变量名）

[此贴子已经被作者于2009-3-2 12:00:21编辑过]