/*Dimiourgei tis theseis tou pinaka*/
void make_pinaka(double ***pinaka, int grammes, int sthles)
{
int i,j;
if (grammes>0 && sthles>0)
{
*pinaka=(double **)malloc(grammes*sizeof(double*));
for (i=0;i<grammes;i++)
{
pinaka[i]=(double *)malloc(sthles*sizeof(double));
}
}
else
{
printf("Dwsate lanthasmena dedomena - Dokimaste pali");
}
}
/*Dimiourgei ena monadiaio pinaka*/
void monadiaios_pinakas(double ***pin, int grammes, int sthles)
{
int i, j;
double **pinakas;
make_pinaka(&pinakas,grammes,sthles);
for (i=0;i<grammes;i++)
{
for (j=0;j<sthles;j++)
{
if (i==j)
{
pinakas[i][j]=1;
}
}
}
*pin=pinakas;
}