int binomialfdr_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++){ binomialfdr(1, &k, p_0_5, n_20, &y_0_5_20[k]); 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; 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 density 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.01, "aymax", 0.26, "legend", "p=0.5, N=20;p=0.7, N=20;p=0.5, N=40", "legcorn", "ura", "background-color", "w", "xlabel", "k \\{0..N\\}", ∅); scltracefe(§, ƒ, ∅); return 0; } /* ƒ décorée par le 05-06-2026 16:11:25 */

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