detfr.c

[[ Complex Matrices : Language c]]

/* gjid03.c                         freeware                   [e-mail]
*/

/* --------------------------------- INCLUDES ------------------------------- */
#include "y_ahfile.h"

/* ------------------------------------- FUNCTION --------------------------  */
/* Do    :                                                                    */
/*                                                                            */
/* -------------------------------------------------------------------------- */
void DeterA(int n)
{
complexF Deter;

double pbA    [MXR][MXC*C4];mzF mA     ={MXR,MXC*C4,&pbA    [0][0]};

                     mA.rows=n;                   mA.cols=n*C4;
/*-------------------------------- PROGRAM ---------------------------------- */
 rnd_mzF(&mA,2,2);

 clrscrn();
 printf(" A ");
 p_mizF(&mA);
 printf(" \n\n ");

 Deter = det_zF(&mA);
 printf(" Deter(A) = ");
 p_izF(Deter);
}

void hello(void)
{
  printf("\n Freeware by : xhunga bernard 06000 Nice France.\n");
  printf("\n                                                  ");
  printf("\n            Find the Determinant of mA            ");
  printf("\n            **************************          \n");
  printf("\n The size of mA : 2x2 ... 5x5.                  \n");
  printf("\n           ex : \"Deterf.exe\"                  \n");
  printf("\n You can choose the size :                      \n");
  printf("\n           ex : \"Deterf.exe 2\" -> mA 2x2        ");
  printf("\n                \"Deterf.exe 3\" -> mA 3x3        ");
  printf("\n                \"Deterf.exe 4\" -> mA 4x4        ");
  printf("\n                \"Deterf.exe 5\" -> mA 5x5        ");
  printf("\n\n                                                ");
  printf("\n Distributed  by :  http://www.simtel.net/        ");
  printf("\n                                                  ");
  printf("\n Press return to continue                          ");
  printf("\n                                                  ");

  getchar();
}

/* --------------------------------- MAIN ----------------------------------- */
int main(int argc, char *argv[])
{
time_t t;
int    n;

/*-------------------------------- PROGRAM ---------------------------------- */
  srand(time(&t));
  hello();
do
{
if( argc == 2 && atoi(argv[1]))
 {  n = atoi(argv[1]); if( n > 4){n=4;}}
else
 {  n = rndp_I(4);}
if( n < 2){n=2;}


  DeterA(n);


printf("\n\n Press 'X' Return to stop\n");
} while(toupper(getchar())!='X');

  return 0;
}