- scl.jdg [c+]
[..] La fonction [jdg] gausscumscl 
Code
int gausscum_jdg(){
scltracefa(§, ƒ, ∅);
scltracefc("scl-%s (%s) : %s\n\n", sclver(), sclsec(), temps_char(0));
int xn=1001, xi;
double *x=newtablin(xn, -5, 5);
double mu_0=0, mu_m2=-2;
double sigma_0_2=√(0.2), sigma_1=√(1);
double sigma_5=√(5), sigma_0_5=√(0.5);
double *y_0_0_2=new double[xn], *y_0_1=new double[xn];
double *y_0_5=new double[xn], *y_m2_0_5=new double[xn];
for(xi=0;xi<xn;xi++){
y_0_0_2[xi] = gausscum(x[xi], mu_0, sigma_0_2);
y_0_1[xi] = gausscum(x[xi], mu_0, sigma_1);
y_0_5[xi] = gausscum(x[xi], mu_0, sigma_5);
y_m2_0_5[xi] = gausscum(x[xi], mu_m2, sigma_0_5);
}
scl::string_c imgname=scl::string_c(ƒ)+".svg",
imgpath="./srt/"+imgname;
graf_dis(imgpath.c_str(), xn, x, y_0_0_2,
"curve", xn, x, y_0_1,
"curve", xn, x, y_0_5,
"curve", xn, x, y_m2_0_5,
"grid", "on",
"title", "Normal cumulative function",
"subtitlex", imgname.c_str(), /*"subtitle", subtitle.c_str(),*/
"linespec", "-l;-h;-q;-t", "linespeca", "-a",
/*"axmin", -0.3, "axmax", 5.3,*/
"aymin", -0.1, "aymax", 1.1,
"legend", "\\mu=0, $\\sigma^{2}$=0.2;\\mu=0, $\\sigma^{2}$=1;\\mu=0, $\\sigma^{2}$=5;\\mu=-2, $\\sigma^{2}$=0.5",
"legcorn", "lra",
"background-color", "w",
"xlabel", "x", ∅);
scltracefe(§, ƒ, ∅);
return 0;
}
/* ƒ décorée par
le 05-06-2026 18:02:16 */
Sortie
[>..\xpl\src\scl.jdg.cpp.gausscum_jdg]
scl-26.05 (gwin64) : 05-06-2026 18:02:16
<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
<< END OF DISLIN / VERSION 11.3.2 <<
<< Date : 05.06.2026 Time : 18:02:16 Pageformat: DA4L <<
<< Vectors : 5234 Warnings: 0 Fileformat: SVG <<
<< Metafile: ./srt/gausscum_jdg.svg <<
<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
[<..\xpl\src\scl.jdg.cpp.gausscum_jdg]