// n - число переменных 

void fcn( int n, ext_value1 *ymas,ext_value1 *f)
{
	ext_value1 x1,x2,p1,p2,alpha,qoef,ext_null(2);
	  x1=ymas[0];
	  x2=ymas[1];
	  p1=ymas[2];
	  p2=ymas[3];
	  alpha=ymas[4];	   
	  qoef=exp(-alpha*x1);
	  f[0]=x2;        
      f[1]=p2-x1*qoef;
      f[2]=p2*qoef*(1.0-alpha*x1);
      f[3]=-p1;
      f[4]=ext_null;
  return ;
}