/******************************
*           file: arcsine.c 

* returns angles in degrees   *
*                             *
*  note: 0<x<1.               *
*                             *
******************************/           

float Pie;

float arcsin(float x) 
{
 float a0 = 1.5707963050;
 float a1 = -.2145988016;
 float a2 = .0889789874;
 float a3 = -.0501743046;
 float a4 = .0308918810;
 float a5 = -.0170881256;
 float a6 = .0066700901;
 float a7 = -.0012624911;
 float solution;
 Pie=3.14159265359;

 solution = (Pie/2. - (sqrt(1.0 - x))*(a0 + a1*x + a2*(x^2.) + a3*(x^3.) + a4*(x^4.) + a5*(x^5.) + a6*(x^6.) + a7*(x^7.)));

  return solution* 57.2957795;}

/*******************END*******************/