代码拉取完成,页面将自动刷新
同步操作将从 连享会/nwcommands 强制同步,此操作会覆盖自 Fork 仓库以来所做的任何修改,且无法恢复!!!
确定后同步将在后台操作,完成时将刷新页面,请耐心等待。
capture program drop nwkatz
program nwkatz
version 9
syntax [anything(name=netname)] , alpha(real) [ GENerate(string) unconnected(integer 0)]
_nwsyntax `netname', max(9999)
_nwsetobs
if `networks' > 1 {
local k = 1
}
if "`generate'" == "" {
local generate = "_katz"
}
local generate_all ""
qui foreach netname_temp in `netname' {
nwname `netname_temp'
local directed = r(directed)
mata: katz = J(`r(nodes)', `r(nodes)', `alpha')
tempname geo dist
nwgeodesic `netname_temp', nosym name(`geo') unconnected(`unconnected')
nwtomata `geo', mat(`dist')
mata: katz = katz :^ `dist'
mata: katz_out = (colsum(katz))'
mata: katz_in = (rowsum(katz))
if "`directed'" == "true"{
capture drop `generate'_out`k'
capture drop `generate'_in`k'
nwtostata, mat(katz_out) gen(`generate'_out`k')
nwtostata, mat(katz_in) gen(`generate'_in`k')
local generate_all "`generate_all' `generate'_out`k' `generate'_in`k'"
}
else {
capture drop `generate'`k'
nwtostata, mat(katz_out) gen(`generate'`k')
local generate_all "`generate_all' `generate'`k'"
}
capture nwdrop `geo'
local k = `k' + 1
}
mata: st_rclear()
di "{hline 40}"
di "{txt} Network name: {res}`netname'"
di "{hline 40}"
di "{txt} Katz centrality"
sum `generate_all'
end
*! v1.5.0 __ 17 Sep 2015 __ 13:09:53
*! v1.5.1 __ 17 Sep 2015 __ 14:54:23
此处可能存在不合适展示的内容,页面不予展示。您可通过相关编辑功能自查并修改。
如您确认内容无涉及 不当用语 / 纯广告导流 / 暴力 / 低俗色情 / 侵权 / 盗版 / 虚假 / 无价值内容或违法国家有关法律法规的内容,可点击提交进行申诉,我们将尽快为您处理。