/* fichero trasp.c */
/* Trasponer una matriz con reserva dinámica de memoria */

#include <stdio.h>
#include <stdlib.h>

void main(void)
{
	double **a, **b;
	int  m, n, i, j;
	void *crear_matriz(int m, int n, double **a);
	void trasponer(int m, int n, double **a, double **b);
	
	printf("Teclee el número de filas y el de columnas: ");
	scanf("%d%d", &m, &n);
	a = crear_matriz(m, n, a);
	b = crear_matriz(n, m, b);
	
	/* Lectura de la matriz */
	for (i=0; i<m; i++)
		for (j=0; j<n; j++) {
			printf("\nElemento a(%d, %d): ", i+1, j+1);
			scanf(" %lf", &a[i][j]);
		}
	
	/* Impresión de la matriz original */
	printf("\n\nLa matriz original es: ");
	for (i=0; i<m; i++) {
		printf("\n");
		for (j=0; j<n; j++) 
			printf("%10.4lf", a[i][j]);
	}
	
	trasponer(m, n, a, b);
	
	/* Impresión de la matriz traspuesta */
	printf("\n\nLa matriz traspuesta es: ");
	for (i=0; i<n; i++) {
		printf("\n");
		for (j=0; j<m; j++) 
			printf("%10.4lf", b[i][j]);
	}	
}

/* función crear_matriz() */
void *crear_matriz(int m, int n, double **a)
{
	int i;
	
	a = calloc(m, sizeof(double*));
	for (i=0; i<m; i++)
		a[i] = calloc(n, sizeof(double));
	return a;
}

/* función trasponer() */
void trasponer(int m, int n, double **a, double **b)
{
	int i, j;
	
	for (i=0; i<m; i++)
		for (j=0; j<n; j++) 
			b[j][i] = a[i][j];
}