- scl.jdg [c+]
[..] La fonction [jdg] betaiscl
Code
int betai_jdg(){
scltracefa(§, ƒ, ∅);
scltracefc("scl-%s (%s) : %s\n\n", sclver(), sclsec(), temps_char(0));
int xn=1001, xi;
double *x=newtablin(xn+1, 0, 1); //[0..1]
double *cx=&x[0];
double *y_1=new double[xn], *y_2=new double[xn];
double *y_3=new double[xn], *y_4=new double[xn];
double *y_5=new double[xn];
for(xi=0;xi<xn;xi++){
y_1[xi] = betai(cx[xi], 0.5, 5);
y_2[xi] = betai(cx[xi], 1, 3);
y_3[xi] = betai(cx[xi], 8, 8);
y_4[xi] = betai(cx[xi], 3, 1);
y_5[xi] = betai(cx[xi], 5, 0.5);
}
scl::string_c imgname=scl::string_c(ƒ)+".svg",
imgpath="./srt/"+imgname;
graf_dis(imgpath.c_str(), xn, cx, y_1,
"curve", xn, cx, y_2,
"curve", xn, cx, y_3,
"curve", xn, cx, y_4,
"curve", xn, cx, y_5,
"grid", "on",
"title", "Beta Incomplete function",
"subtitlex", imgname.c_str(), /*"subtitle", subtitle.c_str(),*/
"linespec", "-h;-t;-l;-u;-q", "linespeca", "-a",
/*"axmin", -0.3, "axmax", 5.3,*/
"aymin", -0.1, "aymax", 1.1,
"legend", "a=0.5, b=5.0;a=1.0, b=3.0;a=8.0, b=8.0;a=3.0, b=1.0;a=5.0, b=0.5",
"legcorn", "lra",
"background-color", "w",
"xlabel", "x", ∅);
scltracefe(§, ƒ, ∅);
return 0;
}
/* ƒ décorée par
le 22-05-2026 08:07:08 */
Sortie
[>..\xpl\src\scl.jdg.cpp.betai_jdg]
scl-26.05 (gwin64) : 22-05-2026 08:07:08
<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
<< END OF DISLIN / VERSION 11.3.2 <<
<< Date : 22.05.2026 Time : 08:07:08 Pageformat: DA4L <<
<< Vectors : 6254 Warnings: 0 Fileformat: SVG <<
<< Metafile: ./srt/betai_jdg.svg <<
<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
[<..\xpl\src\scl.jdg.cpp.betai_jdg]