int expnint_jdg(){ scltracefa(§, ƒ, ∅); scltracefc("scl-%s (%s) : %s\n\n", sclver(), sclsec(), temps_char(0)); int xn=1001, xi; double *x=newtablin(xn+1, 0, 3); //]0..3] erreur x=0 n=1 double *cx=&x[1]; 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], *y_6=new double[xn]; for(xi=0;xi<xn;xi++){ y_1[xi] = expnint(cx[xi], 1); y_2[xi] = expnint(cx[xi], 2); y_3[xi] = expnint(cx[xi], 3); y_4[xi] = expnint(cx[xi], 4); y_5[xi] = expnint(cx[xi], 5); y_6[xi] = expnint(cx[xi], 6); } 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, "curve", xn, cx, y_6, "grid", "on", "title", "Exponential integral of n order", "subtitlex", imgname.c_str(), /*"subtitle", subtitle.c_str(),*/ "linespec", "-k;-h;-q;-t;-l;-u", "linespeca", "-a", /*"axmin", -0.3, "axmax", 5.3,*/ "aymin", -0.1, "aymax", 1.1, "legend", "n=1;n=2;n=3;n=4;n=5;n=6", "legcorn", "ura", "background-color", "w", "xlabel", "x", ∅); scltracefe(§, ƒ, ∅); return 0; } /* ƒ décorée par le 20-05-2026 22:06:36 */

[>..\xpl\src\scl.jdg.cpp.expnint_jdg] scl-26.05 (gwin64) : 20-05-2026 22:06:36 <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< << END OF DISLIN / VERSION 11.3.2 << << Date : 20.05.2026 Time : 22:06:36 Pageformat: DA4L << << Vectors : 6958 Warnings: 0 Fileformat: SVG << << Metafile: ./srt/expnint_jdg.svg << <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< [<..\xpl\src\scl.jdg.cpp.expnint_jdg]