24小时热门版块排行榜    

查看: 2469  |  回复: 1

ldiny

新虫 (小有名气)

[求助] SI模型病毒扩散程序问题求助 已有1人参与

小弟最近在做SI模型下的病毒扩散,因为使用的是图的广度优先原则来进行扩散,即一次只能是一个节点在进行扩散。实际上,每个被感染的节点都会同时向周围扩散,请问如下的代码逻辑该怎么改?为什么出来的结果不是我想要的结果。

  %记录以当前节点作为传播源的开始时间
      t1=cputime;                  

%按照图的广度优先的原则来进行病毒传播
function [practiceTime,infection]=BFSspreading(A,N,source_infection_node,irate,rrate,susceptible,infection,recover,time_gap,t1,obesever)  
%初始化队列
%队列头
head=1;
%队列尾,开始队列为空,tail==head
tail=1;   
%向头中加入感染源节点
queue(head)=source_infection_node;
%队列扩展 .这样保证头在右边,队尾在左边了
head=head+1;

%开始按照广度优先搜索顺序向邻居节点传播
%判断队列是否为空
while tail~=head
    %记录当前已经经过了多少传播结束时间
    t2=cputime;
    if (t2-t1)>time_gap
        tail=head;
    end      
    %取队尾节点
    i=queue(tail);  
    %如果该节点不在移除列表之中
    if isempty(find(recover==i,1))
       for j=1:N
             %如果节点j与当前节点i相连并且节点j不在感染列表和恢复列表中,即节点j与当前节点i相连,并且还没有被感染过
            if A(i,j)==1 && isempty(find(infection==j,1)) && isempty(find(recover==j,1))
                                             
                  %以一定的概率向周围传播
                 infection_random=rand(1);
                 if infection_random < irate
                    %新节点入列
                    queue(head)=j;  
                    %扩展队列
                    head=head+1;   
                    %将新节点j加入感染列表
                    infection=[infection j];
                    
                    %从易感染节点列表中删除该节点,设置为-1
                    [row,col,v] = find(susceptible==j) ;                  
                    susceptible(col)=-1;
                    susceptible(find(susceptible==-1))=[];                  
                 end
            end
       end      
      
        tail=tail+1;         
    end %end if  isempty(find(recover==i,1)
end %end while
end
回复此楼
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

非良人

新虫 (初入文坛)

【答案】应助回帖

您试着下载一下这个链接的工具箱,里面有关于SI SIR SIS模型的相关程序,希望可以帮到你
https://blog.csdn.net/u013408431/article/details/53942784
2楼2018-08-19 21:30:44
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 ldiny 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[有机交流] OpenAI又攻克数学难题了,离AI做有机合成还有多远? +8 wangyl_123 2026-10-10 13/650 2026-10-14 15:12 by zuesli
[基金申请] 申请科研项目纯靠实力能成功吗? 200+4 David1982 2026-10-13 7/350 2026-10-14 14:24 by 13108017953
[硕博家园] 极限拉扯,如何抉择 +10 Isak0320 2026-10-12 14/700 2026-10-14 11:39 by thegarfield
[教师之家] 课题组会帮你通过考核么? +4 好运来~9527 2026-10-10 7/350 2026-10-13 08:41 by xli1984
[基金申请] 入职后第一次管课题组的专利缴费,对账才发现官费比别人多掏了一倍 +6 13108017953 2026-10-08 6/300 2026-10-12 20:07 by w3w3y3
[公派出国] 售一区SCI文章T0P,我:8O.551.O54,科目全,可十急 +5 qR2AdCWTVtkw 2026-10-09 9/450 2026-10-11 22:34 by XQNyDCa1Tk5n
[公派出国] 售SCI一区文章,我:8O5.5.1.O5.4,科目全,可伽急 +5 qR2AdCWTVtkw 2026-10-09 10/500 2026-10-11 22:26 by XQNyDCa1Tk5n
[考博] 售SCI一区T0P文章,我:8.O55.1.O.54,科目全,可十急 +5 qR2AdCWTVtkw 2026-10-09 9/450 2026-10-11 22:15 by XQNyDCa1Tk5n
[考博] 售SCI一区文章,我:8.O.55.1.O.54,科目齐全,可伽急 +3 qR2AdCWTVtkw 2026-10-09 7/350 2026-10-11 22:11 by XQNyDCa1Tk5n
[教师之家] 售SCI文章,我:8O5.5.1.O.54,科目齐全,可+急 (EPI+-1)(金币-50) +5 qR2AdCWTVtkw 2026-10-09 10/500 2026-10-11 22:06 by XQNyDCa1Tk5n
[教师之家] 售SCI一区T0P文章,我:8.O.55.1.O.5.4,科目全,可+急 (EPI+-1)(金币-50) +5 qR2AdCWTVtkw 2026-10-09 10/500 2026-10-11 14:25 by VOMexwnDzOFZ
[教师之家] 售SCI文章,我:8O.5.5.1O.54,科目全,可十急 (EPI+-1)(金币-50) +4 qR2AdCWTVtkw 2026-10-09 7/350 2026-10-11 14:05 by VOMexwnDzOFZ
[考研] 售SCI文章,我:8O.5.5.1O.54,科目全,可十急 +5 qR2AdCWTVtkw 2026-10-09 8/400 2026-10-11 13:51 by VOMexwnDzOFZ
[硕博家园] 售SCI-T0P文章,我:8O.5.5.1.O.54,科目齐全,可+急 +5 qR2AdCWTVtkw 2026-10-09 8/400 2026-10-11 13:45 by VOMexwnDzOFZ
[找工作] 售SCI一区T0P文章,我:8O.55.1.O.5.4,科目齐全,可+急 +3 qR2AdCWTVtkw 2026-10-09 7/350 2026-10-11 10:54 by VOMexwnDzOFZ
[找工作] 售SCI一区T0P文章,我:8O.55.1.O.5.4,科目齐全,可+急 +4 qR2AdCWTVtkw 2026-10-09 7/350 2026-10-11 10:34 by VOMexwnDzOFZ
[考博] 招收博士生一名 +3 mandolin 2026-10-10 3/150 2026-10-11 10:21 by 不是山谷!
[公派出国] 售SCI一区T0P文章,我:8O.55.1.O.54,科目全,可伽急 +4 qR2AdCWTVtkw 2026-10-09 4/200 2026-10-11 03:14 by M0zrYVSAnxpE
[有机交流] 各位大佬,路线设计求助 +6 zapen 2026-10-08 8/400 2026-10-10 15:59 by zapen
[有机交流] 我应该选哪条合成路线让实验成功率高一些? +5 jing816y 2026-10-08 9/450 2026-10-10 09:05 by zapen
信息提示
请填处理意见