- scl.jdg [c+]
[..] La fonction [jdg] poissonfdrscl 
Code
int poissonfdr_jdg(){
scltracefa(§, ƒ, ∅);
scltracefc("scl-%s (%s) : %s\n\n", sclver(), sclsec(), temps_char(0));
unsigned int k, ke=18;
double mu_1=1, mu_4=4, mu_9_5=9.5;
double *x=new double[ke+1], *y_1=new double[ke+1];
double *y_4=new double[ke+1], *y_9_5=new double[ke+1];
for(k=0;k<=ke;k++){
x[k] = (double)k;
poissonfdr(1, &k, mu_1, &y_1[k]);
poissonfdr(1, &k, mu_4, &y_4[k]);
poissonfdr(1, &k, mu_9_5, &y_9_5[k]);
}
scl::string_c imgname=scl::string_c(ƒ)+".svg",
imgpath="./srt/"+imgname;
graf_dis(imgpath.c_str(), ke+1, x, y_1,
"curve", ke+1, x, y_4,
"curve", ke+1, x, y_9_5,
"grid", "on",
"title", "Poisson density function",
"subtitlex", imgname.c_str(), /*"subtitle", subtitle.c_str(),*/
"linespec", "l.;q.;t.", "linespeca", "-a",
/*"axmin", -0.3, "axmax", 5.3,*/
"aymin", -0.01, "aymax", 0.4,
"legend", "\\mu=1;\\mu=4;\\mu=9.5", "legcorn", "ura",
"background-color", "w",
"xlabel", "k", ∅);
scltracefe(§, ƒ, ∅);
return 0;
}
/* ƒ décorée par
le 05-06-2026 17:40:46 */
Sortie
[>..\xpl\src\scl.jdg.cpp.poissonfdr_jdg]
scl-26.05 (gwin64) : 05-06-2026 17:40:46
<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
<< END OF DISLIN / VERSION 11.3.2 <<
<< Date : 05.06.2026 Time : 17:40:46 Pageformat: DA4L <<
<< Vectors : 5168 Warnings: 0 Fileformat: SVG <<
<< Metafile: ./srt/poissonfdr_jdg.svg <<
<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
[<..\xpl\src\scl.jdg.cpp.poissonfdr_jdg]