快速评卷策略matlab源程序.docVIP

%% 数学建模竞赛----快速评卷策略matlab源程序 clear clc P=input(请输入试卷份数:); J=input(请输入阅卷老师人数:); W=input(请输入选出优胜者数目:); S=input(请输入每个评委组由上次多少个阅卷单位来构成：); CS=input(请输入模拟次数:); nn=0;%%记录测试正确的次数 for n=1:CS%%准确率测试 d0=1;%%评委的偶然误差的上界 e=2;%%评委的系统误差的上界 D=normrnd(70,10,1,P);%%产生P份试卷的真实分数 d=unifrnd(0,d0,1,J); %%产生J位老师偶然误差的方差 for j=1:J O(j,:)=normrnd(0,d(j),1,P);%%产生J位老师对P份试卷评分时产生的随机误差 end for j=1:J z0=[1,0,-1]; a=randperm(length(z0)); z(j)=z0(a(1))*e;%%产生J位老师的系统误差 end for j=1:J for i=1:P u(j,i)=D(i)+z(j)+O(j,i);%%产生J位老师对P份试卷的评分 end end %% ------以下对u矩阵进行等值化处理，以备后用----------------------------------- for k=1:J for i=1:P u3=u(k,:);%%u3为该老师对P份试卷的评分 r=(70*P)/sum(u3);%%r为该老师评分均值化为70分时，其所对应的等值化系数 y(k,i)=u(k,i)*r;%%F1的每个元素为该评委组中老师所评分数等值化后的分数 end end %% ————————————-—以下为策略1的程序-------------------------------- p=rem(P,J);%%在试卷的第一轮分配中，每位老师分得相同份数试卷后所余最小试卷数 j1=fix(P/J);%%上述情况下每位老师分得的该相等份数为j1 J1=ones(1,J)*j1;%%建立一行J列矩阵用来存放对应编号老师阅卷份数 for i=1:p J1(i)=J1(i)+1; end %% 此时得到的J1矩阵即为第一轮中，在尽可能保证平均的情况下各位阅卷老师所阅试卷数 J2=zeros(1,J+1); b=zeros(1,P); for j=1:J J2(j+1)=J2(j)+J1(j); u1=u(j,(J2(j)+1):J2(j+1));%%求得第j位老师给其所阅试卷的分数 u2=sort(u1);%%对该老师所阅试卷分数进行排序 for k=(J2(j)+1):J2(j+1) if J1(j)2*W b(k)=k; elseif u(j,k)=u2(J1(j)-2*W+1)%%选出前2*W名，并记录下其序号，放在b中 b(k)=k;%%b为1行P列的数组，其中非0元素对应的序号为通过第一轮评阅的试卷序号 end end end S0=S; b1=find(b);%%存放着通过第一轮评阅的试卷序号，共2*W*J个元素 JS=J;%%建立评委组数目，开始默认为J，之后随着下面的循环更新 for t=1:fix(P/J/S) if JS1 b2=zeros(1,2*W*JS); Z=fix(JS/S0);%%组成评委组 j2=fix(2*W*JS/Z);%%按照平均原则，每个评委组分得的一个相等试卷份数 Z1=ones(1,Z)*j2;%%建立一个数组用来存放每个评委组所阅试卷数目 p2=rem(2*W*JS,Z);%%上述分得相等份数试卷之后，还余有的试卷数 if p2~=0 for i=1:p2 Z1(i