#@ MODIF veri_matr_tang Utilitai  DATE 18/09/2007   AUTEUR DURAND C.DURAND 
# -*- coding: iso-8859-1 -*-
#            CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
# COPYRIGHT (C) 1991 - 2007  EDF R&D                  WWW.CODE-ASTER.ORG
# THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY  
# IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY  
# THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR     
# (AT YOUR OPTION) ANY LATER VERSION.                                                  
#                                                                       
# THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT   
# WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF            
# MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU      
# GENERAL PUBLIC LICENSE FOR MORE DETAILS.                              
#                                                                       
# YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE     
# ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,         
#    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.        
# ======================================================================
from Cata.cata import *

# ===========================================================================
#              MACRO "VERI_MATR_TANG"
#           -------------------------------------
import Numeric
from Numeric import *
import cPickle,string
import LinearAlgebra as LA
import aster
class TANGENT :

     """
       VERIFICATION SUR LES MATRICES TANGENTES
 
       Attributs publics :
 
         mat       : matrice tangente
         ddl       : nom des degres de liberte
         nddl      : nombre de ddl
         norme     : norme de la matrice tangente
         prec_zero : en-dessous de prec_zero, on ne compare pas les matrices
 
 
       Methodes publiques
 
         Save       : sauvegarde la matrice dans un fichier
         Load       : lit la matrice depuis un fichier
         Aster      : lit la matrice depuis l'espace Aster
         Matrice    : range la matrice
         Difference : comparaison entre la matrice tangente et une autre matrice
         Symetrie   : verification du caractere symetrique de la matrice tangente
 
     """
 
 
     def __init__(self,ddl='',prec_zero=1.E-12) :
 
       """
         ddl       : chaine de caracteres designant les ddl (ex: 'UUP')
         prec_zero : en-dessous de prec_zero, on ne compare pas les matrices
       """
 
       self.ddl = ddl
       self.prec_zero = prec_zero
 

     def Load(self,nom_fichier) :
 
       fichier = file(nom_fichier,'r')
       self.__dict__ = cPickle.load(fichier)
 
 
     def Save(self,nom_fichier) :
 
       fichier = file(nom_fichier,'w')
       cPickle.dump(self.__dict__,fichier)
 

     def Aster(self,suffixe = 'MATA') :
 
       """
         nom : suffixe de l'objet jeveux
       """

       nom_obj_jeveux = string.ljust('PYTHON.TANGENT.'+suffixe,24)
       obj_jeveux = aster.getvectjev(nom_obj_jeveux)
       if not obj_jeveux :
         raise 'TANGENT : OBJET JEVEUX DE SUFFIXE '+suffixe+' INEXISTANT'
       self.Matrice(obj_jeveux)
 
 
     def Eigen(self) :
 
       self.vp = sort(LA.eigenvalues(self.mat))
 
 
     def Matrice(self,matrice) :
 
       """
         matrice   : la matrice tangente (rangement carre)
       """
 
       if type(matrice) == type((1,)) :
         matrice = array(list(matrice))
       elif type(matrice) == type([]) :
         matrice = array(matrice)
       matrice = matrice.astype(Float)
 
       nddl = int(len(matrice)**0.5+0.5)
       matrice.shape = (nddl,nddl)

       self.mat = matrice
       self.nddl = nddl
 
       if not self.ddl :
         self.ddl = 'D'*nddl
       elif len(self.ddl) <> nddl :
         raise 'Nommage des DDL incoherents avec la taille de la matrice'

       self.norme = trace(dot(transpose(self.mat),self.mat))
 

     def Difference(self,matp,affi_ok=0,prec_diff = 1.E-4) :
 
       """
         COMPARAISON RELATIVE DE LA MATRICE TANGENTE AVEC UNE AUTRE MATRICE
 
         matp      : matrice avec laquelle self.mat est comparee
         affi_ok   : si oui, on affiche egalement les valeurs qui collent bien
         prec_diff : ecart au-dessus duquel on considere que ce n'est pas OK
       """
 
       if type(matp) == type((1,)) :
         matp = array(list(matp))
       elif type(matp) == type([]) :
         matp = array(matp)
       elif type(matp) == type(self) :
         matp = matp.mat
       elif type(matp) == type(array([1])) :
         pass
       else :
         raise '1er argument doit etre une matrice (tuple,liste,TANGENT ou Numeric Array)'
       matp = ravel(matp)
       matp = matp.astype(Float)
 
       if len(matp) <> self.nddl*self.nddl :
         raise 'Matrices de tailles differentes'
       matp.shape = (self.nddl,self.nddl)
 
       refe = abs(self.mat) + abs(matp)
       diff = where(refe > self.prec_zero,abs(self.mat-matp)/(refe+self.prec_zero),0)
       nook = nonzero(ravel(diff)  > prec_diff)
       ok   = nonzero(ravel(diff) <= prec_diff)

       if affi_ok :
         affi = [ok,nook]
       else :
         affi = [nook]
         
       liste_i=[]
       liste_j=[]
       liste_matt=[]
       liste_matp=[]
       liste_diff=[]
       for ind in affi :         
#         print '-'*80
         for pos in ind :
           i = pos / self.nddl
           j = pos % self.nddl
#           print self.ddl[i],self.ddl[j],'  ',(i+1,j+1),'  ',self.mat[i,j],' ',matp[i,j]
           liste_i.append(i+1)
           liste_j.append(j+1)
           liste_matt.append(self.mat[i,j])
           liste_matp.append(matp[i,j])
           liste_diff.append( abs(self.mat[i,j]-matp[i,j])/ ( abs(self.mat[i,j]) + abs(matp[i,j]) + self.prec_zero))
#       print '-'*80
       if self.norme > self.prec_zero :
         ecart = (self.mat - matp)/2.
         nor_ecart = trace(dot(transpose(ecart),ecart))
         nor_diff= nor_ecart / self.norme
       else :
         nor_diff= 0.
       return liste_i,liste_j,liste_matt,liste_matp, liste_diff,nor_diff
 

     def Symetrie(self,prec_diff = 1.E-4) :
 
       """
         VERIFICATION QUE LA MATRICE TANGENTE EST SYMETRIQUE
 
         On retourne la norme relative de l'ecart a la symetrie : || (A-At)/2|| / ||A||
         On affiche les termes qui s'ecartent de la symetrie

         prec_diff : ecart au-dessus duquel on considere que ce n'est pas OK
       """

       tran = transpose(self.mat)
       liste_i,liste_j,liste_matt,liste_matp,liste_diff,nor_diff=self.Difference(tran,affi_ok=0,prec_diff=prec_diff)
       
 
#       if self.norme > self.prec_zero :
#         ecart = (self.mat - tran)/2.
#         nor_ecart = trace(dot(transpose(ecart),ecart))
#         return nor_ecart / self.norme
#       else :
#         return 0.
       return liste_i,liste_j,liste_matt,liste_matp, liste_diff,nor_diff
 
     def Sauve(self,nom_fichier) : 
       cPickler.dump(self.__dict__)
       
def veri_matr_tang_ops(self,SYMETRIE,DIFFERENCE,PRECISION,**args):

   """
      Ecriture de la macro verif_matrice_tangente_ops
   """
   import os
   from Accas import _F
   from Noyau.N_utils import AsType
   from Utilitai.Utmess     import UTMESS
   from Utilitai.UniteAster import UniteAster

   # On importe les definitions des commandes a utiliser dans la macro
   CREA_TABLE  = self.get_cmd('CREA_TABLE')

  # La macro compte pour 1 dans la numerotation des commandes
   self.set_icmd(1)
  # Le concept sortant (de type fonction) est nomme ROTGD dans 
  # le contexte de la macro

   self.DeclareOut('TAB_MAT',self.sd)
   ier=0                                                                            
   # La macro compte pour 1 dans la numerotation des commandes
   self.set_icmd(1)
   tgt=TANGENT()                                                                    
   tgt.Aster(suffixe='MATA')                                                        
   matp=TANGENT()                                                                   
   matp.Aster(suffixe='MATC')                                                       
   prec_diff = PRECISION                                                                                 
   if (SYMETRIE=='OUI') :
      list1_i,list1_j,list1_matt,list1_matp,list1_diff,symetgt=tgt.Symetrie(prec_diff)                                                        
      list2_i,list2_j,list2_matt,list2_matp,list2_diff,symeper=matp.Symetrie(prec_diff)                                                       
      print 'Symetrie de la matrice tangente',symetgt                            
      print 'Symetrie de la matrice pr pertubation',symeper                      
      aster.affiche('MESSAGE',str(tgt.Difference(matp,prec_diff) ))
   if (DIFFERENCE=='OUI'):                                                            
       liste_i,liste_j,liste_matt,liste_matp,liste_diff,nor_diff=tgt.Difference(matp,prec_diff)
       print 'différence entre matrice tangente et matrice par pertubation',nor_diff       
       TAB_MAT=CREA_TABLE(LISTE=(
                     _F(PARA     ='I',LISTE_I = liste_i),
                     _F(PARA     ='J',LISTE_I = liste_j),
                     _F(PARA     ='MAT_TGTE',LISTE_R = liste_matt),
                     _F(PARA     ='MAT_PERT',LISTE_R = liste_matp),
                     _F(PARA     ='MAT_DIFF',LISTE_R = liste_diff),
                     ))
   return
                                                     
 
VERI_MATR_TANG=MACRO(nom="VERI_MATR_TANG",op=veri_matr_tang_ops,sd_prod=table_sdaster,
                       docu="",reentrant='n',
fr="verification de la matrice tangente : symétrie et différence par rapport a la matrice calculée par perturbation",
         regles=(AU_MOINS_UN('SYMETRIE','DIFFERENCE')),
         SYMETRIE        =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
         DIFFERENCE      =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
         PRECISION       =SIMP(statut='f',typ='R',defaut=1.E-4 ),
)  ;



