clear all, clc, close all;
N=1:99;
alfa=0.05;
z=1.96;
t= 1.984;
N_l=(4.459595959595959e+03+4.419191919191920e+03)/2;
N_u=(5.833333333333333e+03+6.080808080808080e+03)/2;
Sample_l=[];
Sample_u=[];
gpa=[2.25,2.75,2.75,2.75,2.75,2.75,2.75,2.75,3.25,3.75,3.75,2.25,2.25,2.25,2.25,2.25,2.75,2.75,2.75,2.75,2.25,2.75,2.75,2.75,2.75,2.75,2.75,2.75,2.75,3.25,3.25,3.25,3.25,3.25,3.25,3.25,3.25,3.75,2.25,2.25,2.25,2.25,2.75,2.75,2.75,2.75,3.25,3.25,3.25,3.25,3.25,3.25,3.25,3.25,2.25,2.25,2.75,2.75,2.75,2.75,2.75,2.75,2.75,2.75,3.25,3.25,3.25,3.25,3.25,3.25,3.75,3.75,2.25,2.25,2.25,2.25,2.25,2.25,2.25,2.75,2.75,2.75,2.75,2.75,2.75,2.75,2.75,3.25,3.25,3.25,3.25,3.25,3.25,3.25,3.25,3.25,3.25,3.25,3.75];
for i=1:11
Sample_l(i)=2500;
Sample_u(i)=3500;
end;
for j=12:20
Sample_l(j)=3500;
Sample_u(j)=4000;
end;
for k=21:38
Sample_l(k)=4000;
Sample_u(k)=4500;
end;
for t=39:54
Sample_l(t)=4500;
Sample_u(t)=5000;
end;
for z=55:72
Sample_l(z)=5000;
Sample_u(z)=5500;
end;
for u=73:99
Sample_l(u)=5500;
Sample_u(u)=9000;
end;
A=sum(Sample_l)/99;
B=sum(Sample_u)/99;
Var_l=var(Sample_l);
Var_u=var(Sample_u);
Std_l=std(Sample_l);
Std_u=std(Sample_u);