- 积分
- 638
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2017-5-10
- 最后登录
- 1970-1-1
|
发表于 2018-3-13 22:01:02
|
显示全部楼层
本帖最后由 zhoubaojia 于 2018-3-13 22:06 编辑
我前面传的程序要币?第一次传不好意思,重新传下。我还是贴代码吧。不对之处多原谅。
function [t]=mtt(x,y,step) %横坐标 纵坐标 步长,一列
Data=xlsread('CDD.xlsx');
x=Data(:,1);
y=Data(:,2);
m = length( y );
step=10;
for i=1:m-step*2+1
y1=y(i:i+step-1);
y2=y(i+step:i+2*step-1);
n1=length(y1);
n2=length(y2);
c=(n1+n2)/(n1*n2);
s1=var(y1);
s2=var(y2);
cc=n1*s1+n2*s2;
S=cc/(n1+n2-2);
t(i,1)=(mean(y1)-mean(y2))/sqrt(S*c);
end
t(isnan(t))=0;
plot(x(step:m-step),t,'b-','LineWidth',1.5);
hold on
y1=zeros(m-step*2+1,1);
y1(:)=2.101;
plot(x(step:m-step),y1,'k:',x(step:m-step),-y1,'k:','LineWidth',2);
t=[x(step:m-step) t];
|
-
-
mtt.m
529 Bytes, 下载次数: 0, 下载积分: 金钱 -5
|