int besselk_jdg(){ scltracefa(§, ƒ, ∅); scltracefc("scl-%s (%s) : %s\n\n", sclver(), sclsec(), temps_char(0)); int xn=1001, xi; double *cx=newtablin(xn+1, 0, 4); double *x = &cx[1]; double *y_0=new double[xn], *y_1=new double[xn], *y_2=new double[xn], *y_3=new double[xn]; for(xi=0;xi<xn;xi++){ y_0[xi] = besselk(0, x[xi]); y_1[xi] = besselk(1, x[xi]); y_2[xi] = besselk(2, x[xi]); y_3[xi] = besselk(3, x[xi]); } scl::string_c imgname=scl::string_c(ƒ)+".svg", imgpath="./srt/"+imgname; graf_dis(imgpath.c_str(), xn, x, y_0, "curve", xn, x, y_1, "curve", xn, x, y_2, "curve", xn, x, y_3, "grid", "on", "title", "Bessel's function of 2nd kind modified", "subtitlex", imgname.c_str(), /*"subtitle", subtitle.c_str(),*/ "linespec", "-l;-q;-t;-m", "linespeca", "-a", "aymin", 0, "aymax", 3.5, "legend", "K0;K1;K2;K3", "legcorn", "ura", "background-color", "w", /*"xlabel", "[rad]",*/ ∅); scltracefe(§, ƒ, ∅); return 0; } /* ƒ décorée par le 27-05-2026 21:12:09 */

[>..\xpl\src\scl.jdg.cpp.besselk_jdg] scl-26.05 (gwin64) : 27-05-2026 21:12:09 <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< << END OF DISLIN / VERSION 11.3.2 << << Date : 27.05.2026 Time : 21:12:09 Pageformat: DA4L << << Vectors : 4616 Warnings: 0 Fileformat: SVG << << Metafile: ./srt/besselk_jdg.svg << <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< [<..\xpl\src\scl.jdg.cpp.besselk_jdg]