MATLAB仿真程序代码-模拟品牌传播的过程_第1页
MATLAB仿真程序代码-模拟品牌传播的过程_第2页
MATLAB仿真程序代码-模拟品牌传播的过程_第3页
MATLAB仿真程序代码-模拟品牌传播的过程_第4页
MATLAB仿真程序代码-模拟品牌传播的过程_第5页
全文预览已结束

下载本文档

版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领

文档简介

MATLAB仿真程序代码--模拟品牌传播的过程附录二MATLAB仿真程序代码function[Et/Dt]=BrandSpread(uO/params)%这个程序用来模拟品牌传播的过程%n研究的区域的大小,为n*n的点阵%t时刻%u(x,y,t)t时刻(x,y)点的品牌信心值%Q(x,y,t)t时刻(x,y)点的品牌信号值%c(x,y)(x,y)点的品牌传播速率%k(x,y)(x,y)点对品牌信号的敏感程度%Initializationifnargin<2params=strcut;end;ifisfield(params/con')&&-isempty(params.con)con=params.con;elsecon=0;end;ifisfield(params/maxf')&&-isempty(params.maxf)maxf=params.maxf;elsemaxf=10;end;ifisfield(params/v')&&-isempty(params.v)v=params.v;elsev=1;end;ifisfield(params/n')&&-isempty(params.n)n=params.n;elsen=10;end;ifisfield(params/maxt')&&-isempty(params.maxt)maxt=params.maxt;elsemaxt=20;end;t=l;%循环次数tflag=l;%tflag=l时说明未达到平衡,需要做交换;tflag=0时则达到平衡,区域内不会出现信号交换,停止信号交换u=u0;%随机生成[L10]上的均匀分布k(:z:)=round(9*rand(n))+l;%根据u和k计算每一个点上的QQ(:,:)=u(:,:).*k(:,:);%顺序式传播,%先由点(ij)与其右边的点(ij+l)进行交换%再由点(ij)与其下方的点(i+Lj)进行交换E(t)=sum(sum(u))/nA2;%D(t)=sum(sum((u-E(t)).A2))/nA2;%随机获得一个需要观察的点(x_s,y_s)x_s=round(rand*n)y_s=round(rand*n)f⑴=u(x_s,y_s);fprintf('Thecoordinateoftheobservepointis\n');fprintf('(%d,%d)\n',x_s,y_s);fprintf('it\tmeanvalue\tVariance\t\n');fprintf('%d\t%,3e\t%,3e\t\n',t,E,D);ift<=maxffigure;x=l:n;y=x;[X,Y]=meshgrid(x,y);mesh(X,Y/u(:/:));end;while(tflag==l)t=t+l;tflag=O;%Phase1for(i=l:n-l)for(j=l:n)deltaQ=(k(i+Lj)*Q(i,j)-k(i,j)*Q(i+Lj))/(k(i+Lj)+k(i,j));ifdeltaQ>=vdeltaQ=v;endif(deltaQ〜=0)tflag=l;endQ(ij)=Q(ij)-deltaQ-abs(deltaQ)*con;Q(i+1J)=Q(i+lj)+deltaQ-abs(deltaQ)*con;u(iJ)=Q(i,j)/k(i,j);u(i+lj)=Q(i+lj)/k(i+lj);endend%Phase2for(i=l:n)for(j=l:n-l)deltaQ=(k(ij+l)*Q(i,j)-k(iJ)*Q(iJ+l))/(k(iJ+l)+k(i,j));ifdeltaQ>=vdeltaQ=v;endif(deltaQ-=0)tflag=l;endQ(ij);Q(i,j)-deltaQ-abs(deltaQ)*con;Q(ij+l)=Q(ij+l)+deltaQ-abs(deltaQ)*con;u(ij)=Q(ij)/k(ij);u(ij+l)=Q(ij+l)/l<(ij+l);endendE(t)=sum(sum(u))/nA2;D(t)=sum(sum((u-E(t)).A2))/nA2;f(t)=u(x_s/y_s);ift<=maxffigure;x=l:n;y=x;[X,Y]=meshgrid(x/y);mesh(X,Y,u(:,:));end;fprintf('%d\t%.3e\t%.3e\t\n)t,E(t),D(t));if(t>=maxt)break;end;iftflag==0break;end;end;figure;plot(l:t/E,'b-,/'linewidth,/l);xlabel('time');ylabel('meanvalue');legend('changeofmeanvalue');figure;plotaxD/r-'/linewidth'J);xlabel('time');ylabel('variance');

温馨提示

  • 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

评论

0/150

提交评论