31char des_map_et_C[] =
"$Header: /cvsroot/Lorene/C++/Source/Non_class_members/Graphics/des_map_et.C,v 1.4 2014/10/13 08:53:22 j_novak Exp $" ;
77 double pzero = 1.e-14 ;
80 sprintf(nom_zone,
"%d", lz) ;
86 char bslash[2] = {92,
'\0'} ;
89 strcpy(nomy,
"log(abs( c" ) ;
90 strcat(nomy, bslash) ;
91 strcat(nomy,
"dkj" ) ;
92 strcat(nomy, bslash) ;
93 strcat(nomy,
"u ))" ) ;
95 const char* device = 0x0 ;
100 int np = mp.get_mg()->get_np(lz) ;
103 if ( (lz == 0) && (np > 1) ) {
109 sprintf(nom_k,
"%d", k) ;
112 strcat(title,
"Theta coef. of F for k=" ) ;
113 strcat(title, nom_k) ;
114 strcat(title,
" (domain ") ;
115 strcat(title, nom_zone) ;
119 newgraph, nxpage, nypage) ;
122 sprintf(nom_k,
"%d", k) ;
124 strcat(title,
"Theta coef. of G for k=" ) ;
125 strcat(title, nom_k) ;
126 strcat(title,
" (domain ") ;
127 strcat(title, nom_zone) ;
131 if (np == 1) newgraph = 2 ;
133 newgraph, nxpage, nypage) ;
137 k = (lz == 0) ? 3 : 2 ;
139 sprintf(nom_k,
"%d", k) ;
142 strcat(title,
"Theta coef. of F for k=" ) ;
143 strcat(title, nom_k) ;
144 strcat(title,
" (domain ") ;
145 strcat(title, nom_zone) ;
148 newgraph, nxpage, nypage) ;
151 k = (lz == 0) ? 4 : 2 ;
153 sprintf(nom_k,
"%d", k) ;
156 strcat(title,
"Theta coef. of G for k=" ) ;
157 strcat(title, nom_k) ;
158 strcat(title,
" (domain ") ;
159 strcat(title, nom_zone) ;
164 newgraph, nxpage, nypage) ;
169 strcat(title,
"Phi coef. of F for j=0 (domain ") ;
170 strcat(title, nom_zone) ;
176 des_coef_phi(mp.get_ff(), lz, j, 0, pzero, nomy, title, device,
177 newgraph, nxpage, nypage) ;
180 strcat(title,
"Phi coef. of G for j=0 (domain ") ;
181 strcat(title, nom_zone) ;
185 des_coef_phi(mp.get_gg(), lz, j, 0, pzero, nomy, title, device,
186 newgraph, nxpage, nypage) ;
void des_coef_theta(const Valeur &uu, int l, int k, int i, double pzero=1.e-14, const char *nomy=0x0, const char *title=0x0, const char *device=0x0, int newgraph=3, int nxpage=1, int nypage=1)
Plots the coefficients of the spectral expansion in of a Valeur .
void des_coef_phi(const Valeur &uu, int l, int j, int i, double pzero=1.e-14, const char *nomy=0x0, const char *title=0x0, const char *device=0x0, int newgraph=3, int nxpage=1, int nypage=1)
Plots the coefficients of the spectral expansion in of a Valeur .
void des_map_et(const Map_et &mp, int lz)
Plots the coefficients of the functions and of a mapping of class Map_et .