int hypergeom_jdg(){ scltracefa(§, ƒ, ∅); scltracefc("scl-%s (%s) : %s\n\n", sclver(), sclsec(), temps_char(0)); int xn=1001, xi; double *cx=newtablin(xn+2, -1, 1); double *x = &cx[1]; //]-1..1[ double *y_1_1_1=new double[xn], *y_1_1_2=new double[xn], *y_1_2_1=new double[xn], *y_1_2_2=new double[xn]; for(xi=0;xi<xn;xi++){ y_1_1_1[xi] = hypergeom(1, 1, 1, x[xi]); y_1_1_2[xi] = hypergeom(1, 1, 2, x[xi]); y_1_2_1[xi] = hypergeom(1, 2, 1, x[xi]); y_1_2_2[xi] = hypergeom(1, 2, 2, x[xi]); } scl::string_c imgname=scl::string_c(ƒ)+".pdf", imgpath="./srt/"+imgname; graf_dis(imgpath.c_str(), xn, x, y_1_1_1, "curve", xn, x, y_1_1_2, "curve", xn, x, y_1_2_1, "curve", xn, x, y_1_2_2, "grid", "on", "title", "Hypergeometric function", "subtitlex", imgname.c_str(), /*"subtitle", subtitle.c_str(),*/ "linespec", ".-h;-t;:l;--c", "linespeca", "-a", "background-color", "w", "aymin", 0, "aymax", 2, "legend", "a=1 b=1 c=1;a=1 b=1 c=2;a=1 b=2 c=1;a=1 b=2 c=2", "legcorn", "lra", /*"xlabel", "[rad]",*/ ∅); scltracefe(§, ƒ, ∅); return 0; } /* ƒ décorée par le 07-03-2026 09:53:08 */

[>..\xpl\src\scl.jdg.cpp.hypergeom_jdg] scl-26.03 (gwin64) : 07-03-2026 09:53:08 <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< << END OF DISLIN / VERSION 11.3.2 << << Date : 07.03.2026 Time : 09:53:08 Pageformat: DA4L << << Vectors : 2992 Warnings: 0 Fileformat: PDF << << Metafile: ./srt/hypergeom_jdg.pdf << <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< [<..\xpl\src\scl.jdg.cpp.hypergeom_jdg]