src-old-Pau/2DActMyo.c
//Creacion de los enlaces entre moleculas
Creacion de los enlaces entre moleculas
Creacion de los enlaces entre moleculas
int En(int Lx,int Ly,double eA,double eL,double eM,int x,int y,int*** P,double** E,int** FM,int C,int R,double* DESis)
{
   *DESis=0;
   if(C==0)
   {
      if(P[x][y][0]==1)
      {
         *DESis=*DESis+EnAM(Lx,Ly,eM,x,y,P,E,FM,C);
         *DESis=*DESis+EnAL(Lx,Ly,eL,x,y,P,E,C);
         R=EnAA(Lx,Ly,eA,x,y,P,E,C,0,DESis);
      }
      else if(P[x][y][0]==2) R=EnLA(Lx,Ly,eL,x,y,P,E,C,0,DESis);
      else if(P[x][y][0]==3) *DESis=EnMA(Lx,Ly,eM,x,y,P,E,FM,C);
   }
   else if(C==1)
   {
      if(P[x][y][0]==1)
      {
         EnAA(Lx,Ly,eA,x,y,P,E,C,R,DESis);
         *DESis=*DESis+EnAL(Lx,Ly,eL,x,y,P,E,C);
         *DESis=*DESis+EnAM(Lx,Ly,eM,x,y,P,E,FM,C);
      }
      else if(P[x][y][0]==2) EnLA(Lx,Ly,eL,x,y,P,E,C,R,DESis);
      else if(P[x][y][0]==3) *DESis=EnMA(Lx,Ly,eM,x,y,P,E,FM,C);
   }
   return R;
}
int En ( int Lx , int Ly , double eA , double eL , double eM , int x , int y , int * * * P , double * * E , int * * FM , int C , int R , double * DESis ) { * DESis = 0 ; if ( C == 0 ) { if ( P [ x ] [ y ] [ 0 ] == 1 ) { * DESis = * DESis + EnAM ( Lx , Ly , eM , x , y , P , E , FM , C ) ; * DESis = * DESis + EnAL ( Lx , Ly , eL , x , y , P , E , C ) ; R = EnAA ( Lx , Ly , eA , x , y , P , E , C , 0 , DESis ) ; } else if ( P [ x ] [ y ] [ 0 ] == 2 ) R = EnLA ( Lx , Ly , eL , x , y , P , E , C , 0 , DESis ) ; else if ( P [ x ] [ y ] [ 0 ] == 3 ) * DESis = EnMA ( Lx , Ly , eM , x , y , P , E , FM , C ) ; } else if ( C == 1 ) { if ( P [ x ] [ y ] [ 0 ] == 1 ) { EnAA ( Lx , Ly , eA , x , y , P , E , C , R , DESis ) ; * DESis = * DESis + EnAL ( Lx , Ly , eL , x , y , P , E , C ) ; * DESis = * DESis + EnAM ( Lx , Ly , eM , x , y , P , E , FM , C ) ; } else if ( P [ x ] [ y ] [ 0 ] == 2 ) EnLA ( Lx , Ly , eL , x , y , P , E , C , R , DESis ) ; else if ( P [ x ] [ y ] [ 0 ] == 3 ) * DESis = EnMA ( Lx , Ly , eM , x , y , P , E , FM , C ) ; } return R ; }
Creacion de los enlaces entre moleculas
Creacion de los enlaces entre moleculas
// C(=0 Romper enlaces,=1 Crear enlaces),R(Memoria: =1 AA(Direccion negativa))