inicialitzar dues matrius duals

max-x=n
min-x=(-n)
max-y=m
min-y=(-m)


inicialitzar-dues-matrius( int **matriu-x[i][j] , int **matriu-y[i][j] , ...
...int min-x , int max-x , int min-y , int max-y )
{


int matriu-x[0][0];
matriu-x[0][0]=0;
int matriu-x[not(0)][not(0)];
matriu-x[not(0)][not(0)]=0;


int matriu-y[not(0)][not(0)];
matriu-y[not(0)][not(0)]=0;
int matriu-y[0][0];
matriu-y[0][0]=0;


for( i=1 ; i [< max-x ; i++ )
{
int matriu-x[i][0]==[ i·valor-absolut-positiu(max-y)+i ];
matriu-x[i][0]=0;
int matriu-x[i][not(0)]==[ (-i)·valor-absolut-positiu(min-y)+(-i) ];
matriu-y[i][not(0)]=0;
}


for( i=(-1) ; i >] min-x ; i-- )
{
int matriu-y[i][not(0)]==[ i·valor-absolut-positiu(min-y)+i ];
matriu-y[i][not(0)]=0;
int matriu-y[i][0]==[ (-i)·valor-absolut-positiu(max-y)+(-i) ];
matriu-y[i][0]=0;
}


for( j=1 ; j [< max-y ; j++ )
{
int matriu-x[0][j];
matriu-x[0][j]=0;
int matriu-x[not(0)][j];
matriu-x[not(0)][j]=0;
}


for( j=(-1) ; j >] min-x ; j-- )
{
int matriu-y[not(0)][j];
matriu-y[not(0)][j]=0;
int matriu-y[0][j];
matriu-y[0][j]=0;
}


for( i=1 ; i [< max-x ; i++ )
{
for( j=1 ; j [< max-y ; j++ )
{
int matriu-y[i][j]==[ i·valor-absolut-positiu(max-y)+i+j ];
matriu-x[i][j]=0;
}
for( j=(-1) ; j >] min-y ; j-- )
{
int matriu-y[i][j]==[ (-i)·valor-absolut-positiu(min-y)+(-i)+j ];
matriu-x[i][j]=0;
}
}


for( i=(-1) ; i >] min-x ; i-- )
{
for( j=(-1) ; j >] min-y ; j-- )
{
int matriu-y[i][j]==[ i·valor-absolut-positiu(min-y)+i+j ];
matriu-y[i][j]=0;
}
for( j=1 ; j [< max-y ; j++ )
{
int matriu-y[i][j]==[ (-i)·valor-absolut-positiu(max-y)+(-i)+j ];
matriu-y[i][j]=0;
}
}


}