亚洲av成人无遮挡网站在线观看,少妇性bbb搡bbb爽爽爽,亚洲av日韩精品久久久久久,兔费看少妇性l交大片免费,无码少妇一区二区三区

  免費(fèi)注冊(cè) 查看新帖 |

Chinaunix

  平臺(tái) 論壇 博客 文庫(kù)
最近訪問板塊 發(fā)新帖
查看: 1573 | 回復(fù): 4
打印 上一主題 下一主題

perl編程 跪求!! 高手請(qǐng)進(jìn)。! [復(fù)制鏈接]

論壇徽章:
0
跳轉(zhuǎn)到指定樓層
1 [收藏(0)] [報(bào)告]
發(fā)表于 2013-03-03 16:31 |只看該作者 |倒序?yàn)g覽
用perl語(yǔ)言能找出網(wǎng)絡(luò)中最大主成分嗎??

論壇徽章:
0
2 [報(bào)告]
發(fā)表于 2013-03-04 12:35 |只看該作者
什么是最大主成分?

論壇徽章:
0
3 [報(bào)告]
發(fā)表于 2013-03-04 20:42 |只看該作者
%求網(wǎng)絡(luò)的度、介數(shù)和鄰近度
%======================(1)輸入數(shù)據(jù)========================
load UniquePPI_newid.mat
%將兩列的互作形式先轉(zhuǎn)換成矩陣格式;
binary_inter=UniquePPI_newid;
node=unique(binary_inter);%互作網(wǎng)絡(luò)包含的點(diǎn)
N=length(node);%網(wǎng)絡(luò)中點(diǎn)的數(shù)目
inter_matrix=zeros(N,N);%生成N*N矩陣,元素都是0
for i=1:size(binary_inter,1)
    inter_matrix(binary_inter(i,1),binary_inter(i,2))=1;
    inter_matrix(binary_inter(i,2),binary_inter(i,1))=1;
    test=i;
    test
end
clear binary_inter i
%======(1.2)將矩陣轉(zhuǎn)換成稀疏矩陣
inter_matrix=sparse(inter_matrix);
%===========(2)計(jì)算網(wǎng)絡(luò)的度、介數(shù)和鄰近度
[ci sizes]=components(inter_matrix);
index=find(sizes==max(sizes));
Gene_maxcomp=find(ci==index(1));   
geneid=node(Gene_maxcomp,1);
inter_matrix=inter_matrix(Gene_maxcomp,Gene_maxcomp);
%節(jié)點(diǎn)的度
degree=full(sum(inter_matrix)');
%節(jié)點(diǎn)的介數(shù)
betweenness=betweenness_centrality(inter_matrix);
%節(jié)點(diǎn)的鄰近度
closeness=mycloseness(inter_matrix);
closeness=closeness*(size(inter_matrix,1)-1);
%保存結(jié)果
newid=1:size(inter_matrix,1);
result=[geneid,newid',degree,betweenness,closeness];
save network_degree_betw_closeness node inter_matrix result

論壇徽章:
0
4 [報(bào)告]
發(fā)表于 2013-03-04 20:43 |只看該作者
這是matlb里的程序,各位大神借鑒一下 看看perl能實(shí)現(xiàn)嗎

論壇徽章:
0
5 [報(bào)告]
發(fā)表于 2013-03-04 20:44 |只看該作者
matlab打錯(cuò)了
其中[ci sizes]=components(inter_matrix);
這句話是實(shí)現(xiàn)最大主成分的尋找
您需要登錄后才可以回帖 登錄 | 注冊(cè)

本版積分規(guī)則 發(fā)表回復(fù)

  

北京盛拓優(yōu)訊信息技術(shù)有限公司. 版權(quán)所有 京ICP備16024965號(hào)-6 北京市公安局海淀分局網(wǎng)監(jiān)中心備案編號(hào):11010802020122 niuxiaotong@pcpop.com 17352615567
未成年舉報(bào)專區(qū)
中國(guó)互聯(lián)網(wǎng)協(xié)會(huì)會(huì)員  聯(lián)系我們:huangweiwei@itpub.net
感謝所有關(guān)心和支持過ChinaUnix的朋友們 轉(zhuǎn)載本站內(nèi)容請(qǐng)注明原作者名及出處

清除 Cookies - ChinaUnix - Archiver - WAP - TOP