- scl.jdg [c+]
[..] La fonction [jdg] polylascl
Code
int polyla_jdg(){
scltracefa(§, ƒ, ∅);
scltracefc("scl-%s (%s) : %s\n\n", sclver(), sclsec(), temps_char(0));
int xn=1001, xi;double *x=newtablin(xn, -5, 20);
double *y_0=new double[xn], *y_1=new double[xn], *y_2=new double[xn],
*y_3=new double[xn], *y_4=new double[xn], *y_5=new double[xn];
int n_0=0, n_1=1, n_2=2, n_3=3, n_4=4, n_5=5;
double m1p5f5 = pow(-1, (double)n_5)*factorielle(n_5);
for(xi=0;xi<xn;xi++){
y_0[xi] = plaguerre(n_0, x[xi]);
y_1[xi] = plaguerre(n_1, x[xi]);
y_2[xi] = plaguerre(n_2, x[xi]);
y_3[xi] = plaguerre(n_3, x[xi]);
y_4[xi] = plaguerre(n_4, x[xi]);
y_5[xi] = plaguerre(n_5, x[xi]);
}
scl::string_c imgname=scl::string_c(ƒ)+".pdf",
imgpath="./srt/"+imgname;
graf_dis(imgpath.c_str(), xn, x, y_0,
"curve", xn, x, y_1, "curve", xn, x, y_2, "curve", xn, x, y_3,
"curve", xn, x, y_4, "curve", xn, x, y_5,
"grid", "on",
"title", "Laguerre's polynomials (physical)",
"subtitlex", imgname.c_str(), /*"subtitle", subtitle.c_str(),*/
"linespec", ".-h;-t;:l;--c;--t;-.i", /*"linespeca", "-a",*/
"background-color", "w",
"aymin", -10*-m1p5f5, "aymax", 20*-m1p5f5,
"legend", "n=0;n=1;n=2;n=3;n=4;n=5", "legcorn", "ura",
/*"xlabel", "[rad]",*/ ∅);
scltracefe(§, ƒ, ∅);
return 0;
}
/* ƒ décorée par
le 26-05-2026 23:38:10 */
Sortie
[>..\xpl\src\scl.jdg.cpp.polyla_jdg]
scl-26.05 (gwin64) : 26-05-2026 23:38:10
<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
<< END OF DISLIN / VERSION 11.3.2 <<
<< Date : 26.05.2026 Time : 23:38:10 Pageformat: DA4L <<
<< Vectors : 4098 Warnings: 0 Fileformat: PDF <<
<< Metafile: ./srt/polyla_jdg.pdf <<
<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
[<..\xpl\src\scl.jdg.cpp.polyla_jdg]
