CODE: [Copy to clipboard]
%一个水平,一个表,共(0.995 0.99 0.975 0.95 0.9 0.75 0.25 0.1 0.05 0.025 0.01 0.005)12张表
%变异系数从0.01开始步长为0.005即:0.01:0.005:0.1
function r=main(r)
vectorn=4:7;
vectorv=0.01:0.005:0.1;
n=vectorn;v=vectorv;
fprintf('/** 水平值为r=.2f 的h上侧分位数表 **/\n',r)
fprintf('───');xecho(length(v),'┬');fprintf('\n')
fprintf(' n\\v ')
for j=1:length(v) fprintf('│%8.3f ',v(j))
end
fprintf('\n───');xecho(length(v),'┼');fprintf('\n')
for i=1:length(n) %自由度
fprintf('%5.1d ',n(i));
for j=1:length(v)
aa=finda(v(j),n(i),r);linjie=sqrt(n(i))/v(j);
%pause
if aa < linjie
fprintf('│%9.4f ',aa)
else
fprintf('│*%8.3f ',aa)
end
if j==length(v) fprintf('\n')
%fprintf(' 临界值:%8.4f\n',linjie)
end
end
end
fprintf('───');xecho(length(v),'┴');fprintf('\n')
%/*------------xecho--------------
function xecho(length,str)
for i=1:length*5
if rem(i,5)==1 fprintf('%s',str)
end
fprintf('─')
end
%--------------------------------*/