Mathc matrices/c26c2


Sommaire


Installer et compiler ces fichiers dans votre répertoire de travail.


Crystal Clear mimetype source c.png c02.c
'
/* ------------------------------------ */
/*  Save as :   c02.c                  */
/* ------------------------------------ */
#include     "v_a.h"
#include "d.h"
/* ------------------------------------ */
int main(void)
{
double   a[6] ={
   1,     -1,
   2,     -9,
   3,     -8    };

double **A  =  ca_A_mR(a,i_mR(R3,C2));
double **At =            i_mR(R5,C5);
double **b =             i_mR(R5,C1);
double **Ab =  i_Abr_Ac_bc_mR(R5,C5,C1);

  clrscrn();
  printf("\n");
  printf(" Find the coefficients a, b, c, d,  of a circle  \n\n");
  printf("     ax**2 + ay**2 + bx + cy + d  = 0            \n\n");
  printf(" that passes through these three points.         \n\n");
  printf("    x     y");
  p_mR(A,S5,P0,C6);
  printf("\n");
  printf(" Using the given points, we obtain this matrix.\n");
  printf("  (a = 1. This is my choice)\n\n");
  printf("   x**2    y**2    x       y      ");
  m_circle_A_b_mR(A,At,b);
  c_A_b_Ab_mR(At,b,Ab);
  p_mR(Ab,S7,P2,C6);
  stop();

  clrscrn();
  printf(" The Gauss Jordan process will reduce this matrix to : \n");
  gj_TP_mR(Ab);
  p_mR(Ab,S7,P2,C6);
  printf(" The coefficients a, b, c, d, e, of the curve are :  \n\n");
  p_circle_mR(Ab);
  stop();

  clrscrn();
  printf("    x     y \n");
  p_mR(A,S5,P0,C6);
  printf("\n");
  printf(" Verify the result : \n\n");
  p_circle_xy_fxy_mR(Ab,A[R1][C1],A[R1][C2]);
  p_circle_xy_fxy_mR(Ab,A[R2][C1],A[R2][C2]);
  p_circle_xy_fxy_mR(Ab,A[R3][C1],A[R3][C2]);

  stop();

  f_mR(A);
  f_mR(At);
  f_mR(b);
  f_mR(Ab);

  return 0;
}
/* ------------------------------------ */
/* ------------------------------------ */



Exemple de sortie écran :
 ------------------------------------ 
 Find the coefficients a, b, c, d,  of a circle  

     ax**2 + ay**2 + bx + cy + d  = 0            

 that passes through these three points.         

    x     y
   +1    -1 
   +2    -9 
   +3    -8 


 Using the given points, we obtain this matrix.
  (a = 1. This is my choice)

   x**2    y**2    x       y      
  +1.00   +0.00   +0.00   +0.00   +0.00   +1.00 
  +0.00   +1.00   +0.00   +0.00   +0.00   +1.00 
  +1.00   +1.00   +1.00   -1.00   +1.00   +0.00 
  +4.00  +81.00   +2.00   -9.00   +1.00   +0.00 
  +9.00  +64.00   +3.00   -8.00   +1.00   +0.00 

 Press return to continue. 



 The Gauss Jordan process will reduce this matrix to : 

  +1.00   +0.00   +0.00   +0.00   +0.00   +1.00 
  +0.00   +1.00   +0.00   +0.00   +0.00   +1.00 
  +0.00   +0.00   +1.00   +0.00   +0.00   +1.44 
  +0.00   +0.00   -0.00   +1.00   +0.00  +10.56 
  +0.00   +0.00   +0.00   +0.00   +1.00   +7.11 

 The coefficients a, b, c, d, e, of the curve are :  

   +1.00x**2    +1.00y**2    +1.44x    +10.56y    +7.11 = 0
 Press return to continue. 
 

    x     y 

   +1    -1 
   +2    -9 
   +3    -8 


 Verify the result : 

 With x =  +1.0 and  y =  -1.0  ax**2 + ay**2 + cx+ dy + e = -0.00000 
 With x =  +2.0 and  y =  -9.0  ax**2 + ay**2 + cx+ dy + e = -0.00000 
 With x =  +3.0 and  y =  -8.0  ax**2 + ay**2 + cx+ dy + e = +0.00000 
 Press return to continue.