/* fichero rotamat.c */
/* girar una matriz rectangular */
#include<stdio.h>
double **crear_matriz(int, int);
void main(void)
{
        int numfil, numcol;
        int i, j, num, giro;
        double **a;
        
        printf("\nIntroduzca el número de filas: ");
        scanf("%d", &numfil);
        printf("\nIntroduzca el número de columnas: "); 
        scanf("%d", &numcol);
        a = crear_matriz(numfil, numcol);
        for (i=0; i<numfil; i++)
                for(j=0; j<numcol; j++){
                        printf("\nElemento (%d,%d):  ", i+1, j+1);
                        scanf("%lf", &a[i][j]);
                }
        printf("\n\nLa matriz original es: ");
        for (i=0; i<numfil; i++) {
                printf("\n");
                for (j=0; j<numcol; j++)
                        printf("%12.4lf  ", a[i][j]);
        }
        printf("\n\n¿Cuántas veces desea girar la matriz?: ");
        scanf("%d", &num);
        giro = num%4;
        if(giro == 1) {
                printf("\n\nLa matriz girada %d veces es:\n", num);
                for (j=numcol-1; j>=0; j--) {
                        printf("\n");
                        for(i=0; i<numfil; i++)
                                printf("%12.4lf  ", a[i][j]);
                }
        }
        else if(giro == 2) {
                printf("\n\nLa matriz girada %d veces es:\n", num);
                for(i=numfil-1; i>=0; i--) {
                        printf("\n");
                        for(j=numcol-1; j>=0; j--)
                                printf("%12.4lf  ", a[i][j]);
                }
        }
        else if(giro == 3) {
                printf("\n\nLa matriz girada %d veces es:\n",num);
                for(i=numcol-1; i>=0; i--) {
                        printf("\n");
                        for(j=numfil-1; j>=0; j--)
                                printf("%12.4lf  ", a[j][i]);
                }      
        }
        else { 
                printf("\n\nLa matriz girada %d veces es:\n", num);
                for(i=0; i<numfil; i++) {
                        printf("\n");
                        for (j=0; j<numcol; j++)
                                printf("%12.4lf  ", a[i][j]);
                }
        }
}
double **crear_matriz(int m, int n)
{
        double **matriz;
        int i;
        matriz = calloc(m, sizeof(double *));
        matriz[0] = calloc(m*n, sizeof(double));
        for(i=0; i<m; i++)
                matriz[i] = matriz[0]+n*i;
        return matriz;
}