30char des_coef_valeur_C[] =
"$Header: /cvsroot/Lorene/C++/Source/Non_class_members/Graphics/des_coef_valeur.C,v 1.4 2014/10/13 08:53:21 j_novak Exp $" ;
83void des_coef_xi(
const Valeur& uu,
int l,
int k,
int j,
double pzero,
84 const char* nomy,
const char* title,
const char* device,
85 int newgraph,
int nxpage,
int nypage) {
87 assert(uu.get_etat() != ETATNONDEF) ;
90 int nr = uu.get_mg()->get_nr(l) ;
92 double* cf =
new double[nr] ;
96 if (uu.get_etat() == ETATZERO) {
97 for (
int i=0; i<nr; i++) {
102 assert(uu.get_etat() == ETATQCQ) ;
103 for (
int i=0; i<nr; i++) {
104 cf[i] = (*(uu.c_cf))(l, k, j, i) ;
108 const char* nomx =
"i" ;
112 char bslash[2] = {92,
'\0'} ;
115 sprintf(nom_l,
"%d", l) ;
117 sprintf(nom_k,
"%d", k) ;
119 sprintf(nom_j,
"%d", j) ;
122 strcpy(title1, bslash ) ;
123 strcat(title1,
"gc coef. for k=" ) ;
124 strcat(title1, nom_k) ;
125 strcat(title1,
", j=" ) ;
126 strcat(title1, nom_j) ;
127 strcat(title1,
" (domain " ) ;
128 strcat(title1, nom_l) ;
129 strcat(title1,
")" ) ;
132 strncpy(title1, title, 80) ;
136 strcpy(nomy1,
"log| c" ) ;
137 strcat(nomy1, bslash ) ;
138 strcat(nomy1,
"d" ) ;
139 strcat(nomy1, nom_k ) ;
140 strcat(nomy1,
"," ) ;
141 strcat(nomy1, nom_j ) ;
142 strcat(nomy1,
"," ) ;
143 strcat(nomy1,
"i" ) ;
144 strcat(nomy1, bslash ) ;
145 strcat(nomy1,
"u |" ) ;
148 strncpy(nomy1, nomy, 80) ;
151 des_coef(cf, nr, pzero, nomx, nomy1, title1, device, newgraph,
162void des_coef_theta(
const Valeur& uu,
int l,
int k,
int i,
double pzero,
163 const char* nomy,
const char* title,
const char* device,
164 int newgraph,
int nxpage,
int nypage) {
166 assert(uu.get_etat() != ETATNONDEF) ;
169 int nt = uu.get_mg()->get_nt(l) ;
171 double* cf =
new double[nt] ;
175 if (uu.get_etat() == ETATZERO) {
176 for (
int j=0; j<nt; j++) {
181 assert(uu.get_etat() == ETATQCQ) ;
182 for (
int j=0; j<nt; j++) {
183 cf[j] = (*(uu.c_cf))(l, k, j, i) ;
187 const char* nomx =
"j" ;
191 char bslash[2] = {92,
'\0'} ;
194 sprintf(nom_l,
"%d", l) ;
196 sprintf(nom_k,
"%d", k) ;
198 sprintf(nom_i,
"%d", i) ;
201 strcpy(title1, bslash ) ;
202 strcat(title1,
"gh coef. for k=" ) ;
203 strcat(title1, nom_k) ;
204 strcat(title1,
", i=" ) ;
205 strcat(title1, nom_i) ;
206 strcat(title1,
" (domain " ) ;
207 strcat(title1, nom_l) ;
208 strcat(title1,
")" ) ;
211 strncpy(title1, title, 80) ;
215 strcpy(nomy1,
"log| c" ) ;
216 strcat(nomy1, bslash ) ;
217 strcat(nomy1,
"d" ) ;
218 strcat(nomy1, nom_k ) ;
219 strcat(nomy1,
",j," ) ;
220 strcat(nomy1, nom_i ) ;
221 strcat(nomy1, bslash ) ;
222 strcat(nomy1,
"u |" ) ;
225 strncpy(nomy1, nomy, 80) ;
228 des_coef(cf, nt, pzero, nomx, nomy1, title1, device, newgraph,
240void des_coef_phi(
const Valeur& uu,
int l,
int j,
int i,
double pzero,
241 const char* nomy,
const char* title,
const char* device,
242 int newgraph,
int nxpage,
int nypage) {
244 assert(uu.get_etat() != ETATNONDEF) ;
247 int np = uu.get_mg()->get_np(l) + 2 ;
249 double* cf =
new double[np] ;
253 if (uu.get_etat() == ETATZERO) {
254 for (
int k=0; k<np; k++) {
259 assert(uu.get_etat() == ETATQCQ) ;
260 for (
int k=0; k<np; k++) {
261 cf[k] = (*(uu.c_cf))(l, k, j, i) ;
265 const char* nomx =
"k" ;
269 char bslash[2] = {92,
'\0'} ;
272 sprintf(nom_l,
"%d", l) ;
274 sprintf(nom_j,
"%d", j) ;
276 sprintf(nom_i,
"%d", i) ;
279 strcpy(title1, bslash ) ;
280 strcat(title1,
"gf coef. for j=" ) ;
281 strcat(title1, nom_j) ;
282 strcat(title1,
", i=" ) ;
283 strcat(title1, nom_i) ;
284 strcat(title1,
" (domain " ) ;
285 strcat(title1, nom_l) ;
286 strcat(title1,
")" ) ;
289 strncpy(title1, title, 80) ;
293 strcpy(nomy1,
"log| c" ) ;
294 strcat(nomy1, bslash ) ;
295 strcat(nomy1,
"dk," ) ;
296 strcat(nomy1, nom_j ) ;
297 strcat(nomy1,
"," ) ;
298 strcat(nomy1, nom_i ) ;
299 strcat(nomy1, bslash ) ;
300 strcat(nomy1,
"u |" ) ;
303 strncpy(nomy1, nomy, 80) ;
306 des_coef(cf, np, pzero, nomx, nomy1, title1, device, newgraph,
void des_coef(const double *cf, int n, double pzero, const char *nomx, const char *nomy, const char *title, const char *device=0x0, int newgraph=3, int nxpage=1, int nypage=1)
Basic routine for drawing spectral coefficients.
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_coef_xi(const Valeur &uu, int l, int k, int j, 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 .