int binomialcum_jdg(){ scltracefa(§, ƒ, ∅); scltracefc("scl-%s (%s) : %s\n\n", sclver(), sclsec(), temps_char(0)); unsigned int k, n_20=20, n_40=40; double p_0_5=0.5, p_0_7=0.7; double *y_0_5_20=new double[n_20+1], *y_0_7_20=new double[n_20+1]; for(k=0;k<=n_20;k++){ y_0_5_20[k] = binomialcum(k, p_0_5, n_20); /*binomialfdr(1, &k, p_0_5, n_20, &y_0_5_20[k]);*/ y_0_7_20[k] = binomialcum(k, p_0_7, n_20); /*binomialfdr(1, &k, p_0_7, n_20, &y_0_7_20[k]);*/ } double *x=new double[n_40+1], *y_0_5_40=new double[n_40+1]; for(k=0;k<=n_40;k++){ x[k] = (double)k; y_0_5_40[k] = binomialcum(k, p_0_5, n_40); /*binomialfdr(1, &k, p_0_5, n_40, &y_0_5_40[k]);*/ } scl::string_c imgname=scl::string_c(ƒ)+".svg", imgpath="./srt/"+imgname; graf_dis(imgpath.c_str(), n_20+1, x, y_0_5_20, "curve", n_20+1, x, y_0_7_20, "curve", n_40+1, x, y_0_5_40, "grid", "on", "title", "Binomial cumulative for k successes for N trials", "subtitlex", imgname.c_str(), /*"subtitle", subtitle.c_str(),*/ "linespec", "ld;ts;ho", "linespeca", "-a", /*"axmin", -0.3, "axmax", 5.3,*/ "aymin", -0.1, "aymax", 1.1, "legend", "p=0.5, N=20;p=0.7, N=20;p=0.5, N=40", "legcorn", "lra", "background-color", "w", "xlabel", "k \\{0..N\\}", ∅); scltracefe(§, ƒ, ∅); return 0; } /* ƒ décorée par le 05-06-2026 16:11:26 */

[>..\xpl\src\scl.jdg.cpp.binomialcum_jdg] scl-26.05 (gwin64) : 05-06-2026 16:11:26 <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< << END OF DISLIN / VERSION 11.3.2 << << Date : 05.06.2026 Time : 16:11:26 Pageformat: DA4L << << Vectors : 1791 Warnings: 0 Fileformat: SVG << << Metafile: ./srt/binomialcum_jdg.svg << <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< [<..\xpl\src\scl.jdg.cpp.binomialcum_jdg]