| 查看: 829 | 回复: 2 | |||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | |||
[求助]
求混沌或者噪声熵的程序
|
|||
大家好，谁有求混沌或者噪声熵的程序，c或者matlab都可以。跪求 |
回复此楼» 猜你喜欢
哪位老哥知道今年的国自然具体哪一天放榜？
已经有5人回复
-
国基金的申报应该改成非等额制，评价高的钱多评价低的钱少，但是增加资助率
已经有8人回复
-
各位道友，我要去昆明玩几天，回来见。
已经有7人回复
-
欢迎发来filecode的Mz6后的代码验证其规律
已经有48人回复
-
filecode
已经有10人回复
-
咱们一起用铁证分析2026国家社科基金中标与否
已经有18人回复
-
大家玩filecode，现在的申请与受理打不开了
已经有6人回复
-
奇怪，两个人的filecode固定段从头到尾一模一样
已经有11人回复
-
有时候，自然基金真的不能太认真 （我的申报经验）
已经有8人回复
-
应该是93bebmhtak前后十一个字符比较关键
已经有37人回复
【答案】应助回帖
|
function [shang]=jss(xdate) m=2; n=length(xdate); r=0.2*std(xdate); cr=[]; gn=1; gnmax=m; while gn<=gnmax x2m=zeros(n-m+1,m);%存放变换后的向量 d=zeros(n-m+1,n-m);% 存放距离结果的矩阵 cr1=zeros(1,n-m+1);%存放 k=1; for i=1:n-m+1 for j=1:m x2m(i,j)=xdate(i+j-1); end end x2m; for i=1:n-m+1 for j=1:n-m+1 if i~=j d(i,k)=max(abs(x2m(i,-x2m(j,));%计算各个元素和响应元素的距离 k=k+1; end end k=1; end d; for i=1:n-m+1 [k,l]=size(find(d(i,<r));%将比R小的个数传送给L cr1(1,i)=l; end cr1; cr1=(1/(n-m))*cr1; sum1=0; for i=1:n-m+1 if cr1(i)~=0 sum1=sum1+log(cr1(i)); end end cr1=1/(n-m+1)*sum1; cr(1,gn)=cr1; gn=gn+1; m=m+1; end cr; shang=cr(1,1)-cr(1,2); function [shang]=ybs(xdate) m=2; n=length(xdate); r=0.2*std(xdate); cr=[]; gn=1; gnmax=m; while gn<=gnmax x2m=zeros(n-m+1,m);%存放变换后的向量 d=zeros(n-m+1,n-m);% 存放距离结果的矩阵 cr1=zeros(1,n-m+1);%存放 k=1; for i=1:n-m+1 for j=1:m x2m(i,j)=xdate(i+j-1); end end x2m; for i=1:n-m+1 for j=1:n-m+1 |
3楼2013-10-23 18:40:08
