%uk³ad dla kreator1, zapisany macierzowo,
%zmienne M, N, K wystêpuj¹ w skrypcie CreatXYZ.m
function p = newrow(t,y)
global M N K
p = zeros(3,1);
%A=[M;N;K];
A=[-2.000000 3.000000 -1.000000 -2.000000 2.000000 0.000000 3.000000;
 3.000000 0.000000 3.000000 0.000000 0.000000 0.000000 -3.000000;
 3.000000 -1.000000 2.000000 2.000000 -2.000000 0.000000 -1.000000 
];
p=(([A]*...
    [y(1);y(2);y(3);y(1)*y(2);y(1)*y(3);...
     y(3)*y(2);y(1)*y(2)*y(3)])+...
   ([-1; -1; -1].*...
    [y(1)*(y(1)^2+y(2)^2+y(3)^2);...
     y(2)*(y(1)^2+y(2)^2+y(3)^2);...
     y(3)*(y(1)^2+y(2)^2+y(3)^2)]));

%-----------------------------------------------------

%------------------------------------------------------
