Метод Раша:

Дисперсия и стандартное отклонение:

Приложение 2. Программная реализация методов.

Метод Раша.

procedure TForm1.Shag1;

var i,j,k:integer;

b:boolean;

sum_ball,sum_vop:integer;

begin

for i:=0 to m-2 do

begin

sum_ball:=0;

for j:=0 to n-2 do

if(tst[i,j]=1)then inc(sum_ball);

if ((sum_ball=0)or(sum_ball=n-1)) then

begin

showmessage('Студент '+inttostr(i+1)+' не подходит для теста');

for k:=i+1 to m-1 do

for j:=0 to n-1 do

tst[k-1,j]:=tst[k,j];

for j:=0 to n-1 do

tst[m-1,j] :=0;

dec(m);

end;

end;

//////////

for j:=0 to n-2 do

begin

sum_vop:=0;

for i:=0 to m-2 do

if(tst[i,j]=1)then inc(sum_vop);

if((sum_vop=0)or(sum_vop=m-1))then

begin

showmessage('Задание '+inttostr(j+1)+' не подходит и не будет учитываться! ');

for k:=j+1to n-1 do

for i:=0 to m-1 do

tst[i,k-1]:=tst[k,i];

for i:=0 to m-1 do

tst[i,n-1]:=0;

dec(n);

end;

end;

end;

procedure Tform1.Shag2;

var i,j,sum_vop,sum_bal:integer;

begin

for i:=0 to m-2 do

begin

sum_bal:=0;

for j:=0 to n-2 do

sum_bal:=sum_bal+tst[i,j];

tst[i,n-1]:=sum_bal;

end;

/////////

for j:=0 to n-2 do

begin

sum_vop:=0;

for i:=0 to m-2 do

sum_vop:=sum_vop+tst[i,j];

tst[m-1,j]:=sum_vop;

end;

End;

procedure TForm1.Shag3;

var i,j,k:integer;

q_bal,p_bal:array of integer;

q_vop,p_vop:array of integer;

tr_zadan,p:array of double;

got_stud,log_got:array of double;

sred_got,sred:double;

begin

SetLength(p_vop,m-1);

SetLength(q_vop,m-1);

SetLength(q_bal,n-1);

SetLength(p_bal,n-1);

Setlength(tr_zadan,n-1);

Setlength(got_stud,m-1);

Setlength(log_got,m-1);

Setlength(p,n-1);

for i:=0 to m-2 do

begin

p_vop[i]:=tst[i,n-1];

q_vop[i]:=n-p_vop[i];

got_stud[i]:=(p_vop[i]/q_vop[i]);

log_got[i]:=ln(got_stud[i]);

end;

for j:=0 to n-2 do

begin

p_bal[j]:=tst[m-1,j];

q_bal[j]:=m-p_bal[j];

tr_zadan[j]:=q_bal[j]/p_bal[j];

end;

sred:=0;

for i:=0 to m-2 do

sred:=sred+got_stud[i];

sred_got:=sred/(m-2);

for j:=0 to n-2 do

begin

p[j]:=1/(1+exp(ln(tr_zadan[j])-ln(sred_got)));

end;

sg_vop.ColCount:=n;

sg_vop.RowCount:=2;

sg_vop.DefaultColWidth:=35;

sg_vop.Color:=$ff000000;

sg_vop.FixedCols:=1;

sg_vop.FixedRows:=1;

sg_vop.cells[0,1]:='p=';

For j:=0 to n-2 do

begin

sg_vop.Cells[j+1,0]:=inttostr(j+1);

sg_vop.Cells[j+1,1]:=floattostr(p[j]);

end;

end;

Метод подсчета точечно-бисериального коэффициента корреляции.

procedure TForm1.Shag_2;

var i,ss: integer;

begin

ss:=0;

for i:=0 to m-2 do

ss:=ss+tst[i,n-1];

ss:=ss div (m-1);

DT_sr:=ss;

end;

procedure TForm1.Shag_3;

var i,ss,ma: integer;

begin

ma:=tst[0, n-1]; ss:=ma;

for i:=1 to m-2 do

begin

if( tst[i, n-1] > ma )then

ma:=tst[i, n-1];

if( tst[i, n-1] < ss )then

ss:=tst[i, n-1];

end;

ss:=0;

for i:=0 to n-2 do

ss:= ss+sqr(tst[i,m-1]-DT_sr);

DT_disp:=ss/(n-2);

DT_otkl:=sqrt(DT_disp);

end;

procedure TForm1.Shag_4;

var i,j,k,ss,ddi,ddj, nddi, nddj: integer;

di,dj,dd: double;

begin

for j:=0 to m-2 do

begin

nddi:=0;

nddj:=0;

ddi:=0;

ddj:=0;

for i:=0 to n-2 do

begin

if( tst[i,j] = 1 )then

begin

ddi:=ddi+tst[i,n-1];

inc(nddi);

end

else

if( tst[i,j] = 0 )then

begin

ddj:=ddj+tst[i,n-1];

inc(nddj);

end;

end;

di:=ddi/nddi; // ср. прав.

dj:=ddj/nddj; // ср. неправ.

sg_vop2.Cells[j+1,0]:=inttostr(j+1);

sg_vop2.Cells[j+1,1]:=floattostrf( (di-dj)/DT_otkl*sqrt(nddj/(n-1)*nddi/(n-2)), ffFixed, 3,2);

end;

end;

Метод расчета коэффициента корреляции.

procedure TForm1.Shag33;

var i,j,k,ss,ddi,ddj: integer;

di,dj,dd: double;

ar: array of array of double;

str: string;

begin

SetLength(ar,n);

{$O-}

for i:=0 to n-1 do

SetLength(ar[i],n);

sg_vop3.ColCount:=n;

sg_vop3.RowCount:=n;

sg_vop3.DefaultColWidth:=32;

sg_vop3.Color:=$ff000000;

sg_vop3.FixedCols:=1;

sg_vop3.FixedRows:=1;

for i:=0 to n-1 do

for j:=0 to n-1 do

begin

ss:=0;

ddi:=0;

ddj:=0;

for k:=0 to m-2 do

begin

if( (tst[k,i] = 1) and (tst[k,j] = 1) )then

inc(ss);

if( tst[k,i] = 1 )then

inc(ddi);

if( tst[k,j] = 1 )then

inc(ddj);

end;

di:=ddi/(m-1);

dj:=ddj/(m-1);

dd:= ss/(m-1);

ar[i,j] := (dd-di*dj)/sqrt(di*(1-di)*dj*(1-dj));

sg_vop3.Cells[i+1,j+1]:=floattostrf(ar[i,j], ffFixed, 3,2);

sg_vop3.Cells[0,j+1]:=inttostr(j+1);

sg_vop3.Cells[i+1,0]:=inttostr(i+1);

end;

end;

Приложение 3. Информационная карта тестовых материалов.

1.Общие данные

1.1.1 Специальность и квалификация

1.1.2 Наименование: МОиАИС, ПИвЭ.

1.1.3 Шифр по ГОС: 010503, 080801.

1.2 Дисциплина

1.2.1 Наименование: Исследование операций

1.2.2 Наименование цикла по ГОС: общие математические и естественнонаучные дисциплины.

1.2.3. Компонент по ГОС: региональный ( вузовский ) компонент

1.2.4. Объем часов по ГОС: 140,105.

1.3. Цели создания банка тестовых заданий: формирование тестов для оценки качества обучения студентов.

1.4. Апробация банка тестовых заданий

1.4.1. Период апробации: октябрь 2005г. – январь 2006г.

1.4.2. Место проведения: ТюмГУ, ИМиКН.

2. Структура тестового материала.

2.1. Вид теста: критериально – ориентированный.

2.2. Тип теста: полиморфный.