/*
 *  MATSFUNC.C--Verifica se matriz quadrada e' simetrica
 *  Problema: dada uma matriz N por N  numeros reais (tipo float)
 *  verificar se ela e' simetrica.
 */
#include <stdio.h>
#define	Nmax 100           /* Numero maximo de linhas em R[][] */
int EMatrizSimetrica(float X[Nmax][Nmax], int N){
   // Esta funcao devolve 1 se matriz X for simetrica, e 0 se nao for
   // Note no prototipo as dimensoes [Nmax][Nmax] da matriz X
   int esimetrico; // Indicador de passagem
   int i,j;
   esimetrico = 1; /* supondo inicialmente ser simetrico */
   i = 1;
   while( (esimetrico==1) && (i<N) ){
     j = 0;
     while( (esimetrico==1) && (j<=(i-1)) ){
       if(X[i][j] != X[j][i]) esimetrico = 0; /* achou assimetria */
       j = j+1;
       } /* end while j */
     i = i+1;
     } /* end while i */
   /*
    *  Dar resposta final
    */
   if(esimetrico) return 1;
     else return 0;
  }// fim EMatrizSimetrica
/////////////////////////////////////////////////////////
int main(){
   int	N,   /* numero de linhas e colunas em R[][] */
        i, j;
   float R[Nmax][Nmax];  /* maior matriz possivel de elementos */
   /*
    *  Leitura dos parametros: tamanho N da matriz e os elementos
    */
   printf("\nDigitar o numero de linhas da matriz quadrada R[][] -> ");
   scanf("%d", &N);
   printf("\nNumero de linhas/colunas N = %d\n", N);
   if(N>Nmax){
     printf("\nNumero maximo de linhas/colunas foi excedido\n");
     return(0);
     } /* end if */
   printf("Digitar os elementos de R[] linha por linha -> ");
   for(i=0; i<N; i++){
     for(j=0; j<N; j++){
       scanf("%f", &R[i][j]);
	   }
	 }
   printf("\n");
   for(i=0; i<N; i=i+1){
     for(j=0; j<N; j=j+1)
       printf("R[%d][%d] = %f", i, j, R[i][j]);
     } /* end for i */
   /*
    * Verificacao da simetria da matriz R[][]
    *
    * Dar resposta final
    */
//     Note que na chamada da funcao nao existe [][] depois de R
   if( EMatrizSimetrica(R, N)) printf("\n Matriz R[][] e' simetrica.\n");
     else printf("\nMatriz R[][] nao e' simetrica\n");
return 0;
} /* end main */