source: tags/version-1.1/trunk/src/ta_c.h @ 24

Last change on this file since 24 was 1, checked in by jbrlod, 13 years ago

Import initial
  • Property svn:eol-style set to native
File size: 957 bytes
Line 
1/***************************************************************************
2                 module classe ta_c.h  -  description
3***************************************************************************/
4// mohamed.berrada@upmc.fr
5// locean-ipsl.upmc, Paris, March 18, 2010
6//===========================================================================
7//                          methode forward
8forward ()
9{ /*    1..NPCA from    pca_ta                  1..NPCA  1*/
10  double sum=moy_ta(Yi,Yj,Yk);
11  for(int n=0;n<NPCA;n++) sum+=Yting[n]*stdev_ta[n]*shfs_ta(Yi,Yj,Yk,n);
12  YS1=sum;
13  //
14}
15//===========================================================================
16//                         methode  backward
17
18backward ()
19{
20  for(int n=0;n<NPCA;n++)       
21    Yjac[0][n]    = stdev_ta[n]*shfs_ta(Yi,Yj,Yk,n);
22  //
23}
24
25//===========================================================================
26//***************************  FIN DU MODULE ta_c ***************************
27
Note: See TracBrowser for help on using the repository browser.