```
%One level, one table, total (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 tables
%Coefficient of variation starts from 0.01 with a step of 0.005, that is: 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('/** Upper quantile table of h with horizontal value r=.2f **/\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) %Degrees of freedom
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(' Critical value: %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
%--------------------------------*/
```
山外有山,人外有人;低调做人,努力做事。
进入网盘(各种工具)~~
空间~~
cmd学习