Download @zacpro8.procedur

Back to the list

   1 : * @ZACPRO8  PROCEDUR  CHAT      95/12/13    21:46:52     1945           
   2 : *------------------------OPERATEUR PROJECTION------------------------*
   3 : 
   4 : 'DEBP' @ZACPRO8 MM*'MCHAML' CC*'MCHAML' RR*'MCHAML';
   5 : AA       = CC - MM;
   6 : ABSAA    = 'ABS' AA;
   7 : CRAA1    = ABSAA 'MASQUE' 'INFERIEUR' 1.E-10;
   8 : CRAA2    = ABSAA 'MASQUE' 'EGSUPE' 1.E-10;
   9 : AA       = AA + CRAA1;
  10 : BB       = AA * RR;
  11 : NAA      = @ZACPRO7 AA;
  12 : NAAM1    = NAA**-1;
  13 : PRO      = CC - (BB * NAAM1);
  14 : PRO      = PRO * CRAA2;
  15 : 'FINP' PRO;
  16 :  

© Cast3M 2003 - All rights reserved.
Disclaimer