#include <stdio.h>
#include <stdlib.h>
#include "math.h"
#include "rgraph.h"
#include "param.c"
/*#include "unix.h"*/
void Xprime(float xp[],float x[])
/* Mathematica v2 p702 */
/* Shuster p 224 */
/* Culioli p 115 */


{
  extern float s,r,b;
  
  
  /* x -> x[1]  */
  /* y -> x[2]  */
  /* z -> x[3]  */
  
  xp[1] = - s * x[1] + s * x[2] ;
  xp[2] = - x[1] * x[3] + r * x[1] - x[2] ;
  xp[3] = x[1] * x[2] - b * x[3] ;


}