Mathc matrices/h26c


Sommaire



Installer ce fichier dans votre répertoire de travail.

Crystal Clear mimetype source h.png d.h
'
/* ------------------------------------ */
/*  Save as :   d.h                  */
/* ------------------------------------ */
void m_circle_A_b_mR(
double **A,
double **At,
double **b
)
{
int ra;
int r;
int c;

 c_s_mR(1.,At,R1,C1);
 c_s_mR(1.,At,R2,C2);

 for(r=R3,ra=R1; r<At[R_SIZE][C0]; r++,ra++)
 {
  c=C1; At[r][c]=pow(A[ra][C1],2);     /* x**2 */
  c++;  At[r][c]=pow(A[ra][C2],2);     /* y**2 */
  c++;  At[r][c]=    A[ra][C1];        /* x    */
  c++;  At[r][c]=    A[ra][C2];        /* y    */
  c++;  At[r][c]=    1.;               /* c    */
 }

  c_s_mR(1.,b,R1,C1);
  c_s_mR(1.,b,R2,C1);
}
/* --------------------------------- */
void p_circle_xy_fxy_mR(
double **Ab,
double x,
double y
)
{
int    cL  = csize_R(Ab);
double fxy = 0.;
int    r   = R1;

        fxy+= Ab[r][cL]*pow(x,2);
    r++;fxy+= Ab[r][cL]*pow(y,2);
    r++;fxy+= Ab[r][cL]*    x   ;
    r++;fxy+= Ab[r][cL]*    y   ;
    r++;fxy+= Ab[r][cL]         ;

   printf(" With x = %+5.1f and  y = %+5.1f",x,y);
   printf("  ax**2 + ay**2 + cx+ dy + e = %+5.5f \n",fxy);
}
/* --------------------------------- */
void p_circle_mR(
double **Ab
)
{
int cL = csize_R(Ab);
int  r = R1;

      if((Ab[r][cL]))printf("   %+.2fx**2 " ,Ab[r][cL]);
  r++;if((Ab[r][cL]))printf("   %+.2fy**2 " ,Ab[r][cL]);
  r++;if((Ab[r][cL]))printf("   %+.2fx "    ,Ab[r][cL]);
  r++;if((Ab[r][cL]))printf("   %+.2fy "    ,Ab[r][cL]);
  r++;if((Ab[r][cL]))printf("   %+.2f = 0\n",Ab[r][cL]);
}
/* ------------------------------------ */
/* ------------------------------------ */


Déclaration des fichiers h.