Scilab

[vova_makr]

Помогиnе найти ошыбки, я переделываю с С в Scilab:
$function ret = FTest ( data1,data2, criterion) d1 = 0; d2 = 0; m = 0; n1 = 0; n2 = 0; d1= Moment (2,data1,0,&m,n1); d2= Moment (2,data2,0,&m,n2); if (!d1 AND !d2) ret= —2; criterion = d2 >= d1 ? d2 / d1 : d1 / d2; ret= 0; endfunction $
-- 10.06.2013, 20:38 --
$function ret = GTest (x,y,n) w = 0; w = MaximumOf (x,n) — MinimumOf (x,n) + MaximumOf (y,n) — MinimumOf (y,n); if (!w) ret 0; else ret abs (VectorSum (x,n) — VectorSum (y,n)) / w * 2 / n; endfunction $
-- 10.06.2013, 20:38 --
$function ret = VanDerWaerdenTest (x,y,nx,ny,criterion) i = 0; n = 0; nx1 = 0; ny1 = 0; ix = 0; spx = 0 ; spy = 0; xx = 0; yy = 0; if spx = new nx == 0 ret = —1; if spy = new ny == 0 delete [] spx; ret = —1; ArrayToArray (x,spx,nx); ArrayToArray (y,spy,ny); SortArrayUp (spx,nx,ix,0); SortArrayUp (spy,ny,ix,0); Compare (spx,spy,nx,ny,&nx1,&ny1); if nx1 <= 0 OR ny1 <= 0 ret = —2; if xx = new nx1 == 0 delete [] spx; delete [] spy; ret = —1; if yy = new ny1 == 0 delete [] spx; delete [] spy; delete [] xx; ret = —1; RankCommon (spx,spy,xx,yy,nx1,ny1); delete [] spx; delete [] spy; n = nx + ny + 1; if nx < ny for i = 0,criterion = 0; i < nx1; i++ =criterion + InverseNormalDistribution xx[i] / n; else for i = 0,criterion = 0; i < ny1; i++ criterion = criterion + InverseNormalDistribution yy[i] / n; criterion = abs (Андрис Юхневич); delete [] xx; delete [] yy; ret = 0; endfunction $

-- 10.06.2013, 20:47 --

$function ret = Smirnov (f1,f2, n) s = 0 ; criterion = 0; // Вычисленное значение статистики критерия for i = 1:n; s = abs (f1[i] — f2[i]); if (s > criterion) criterion = s; ret = criterion; endfunction$