function u_dot = dudtK(~,u)
P = u(1); %Давление
W = u(2); %Объём
psi = u(3); %Доля прогоревшей части заряда
Vel = u(4); %Скорость
x = u(5); %Координата
z = u(6); %Толщина прогоревшего свода
z_dot = .110519e0*P/1e6;
[SURF,~,U]=PRF017(.508e-1,.508e-1,1.07209,.280722,3.175,NaN,NaN,z,7,NaN,NaN); %По толщине прогоревшего свода возвращает текущую площадь горения, задано семиканальное зерно
psi_dot = z_dot*SURF/U;
Pb = P/(1+m/(3*q));
W_dot = -psi_dot*c*m + psi_dot*m/r + S*Vel;
P_dot = 1/W*(f*m*psi_dot - k*P*W_dot);
Vel_dot = Pb*S/q*(P>Inf);
x_dot = Vel;
u_dot = [P_dot W_dot psi_dot Vel_dot x_dot z_dot]';
u_dot = u_dot*(x<=L);
end