- scl.jdg [c+]
[..] La fonction [jdg] airybscl
Code
int airyb_jdg(){
scltracefa(§, ƒ, ∅);
scltracefc("scl-%s (%s) : %s\n\n", sclver(), sclsec(), temps_char(0));
int xn=1001, xi;
double *x=newtablin(xn, -15, 5);
double *y=new double[xn];
double ai, bi, ad, bd;
for(xi=0;xi<xn;xi++){
airyab(x[xi], &ai, &bi, &ad, &bd);
y[xi] = bi;
}
scl::string_c imgname=scl::string_c(ƒ)+".svg",
imgpath="./srt/"+imgname;
graf_dis(imgpath.c_str(), xn, x, y,
"grid", "on",
"title", "Airy function Bi(x)",
"subtitlex", imgname.c_str(), /*"subtitle", subtitle.c_str(),*/
"linespec", "-l", "linespeca", "-a",
"background-color", "w",
"aymin", -0.5, "aymax", 1.3,
/*"xlabel", "[rad]",*/ ∅);
scltracefe(§, ƒ, ∅);
return 0;
}
/* ƒ décorée par
le 25-05-2026 21:23:48 */
Sortie
[>..\xpl\src\scl.jdg.cpp.airyb_jdg]
scl-26.05 (gwin64) : 25-05-2026 21:23:48
<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
<< END OF DISLIN / VERSION 11.3.2 <<
<< Date : 25.05.2026 Time : 21:23:48 Pageformat: DA4L <<
<< Vectors : 2011 Warnings: 0 Fileformat: SVG <<
<< Metafile: ./srt/airyb_jdg.svg <<
<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
[<..\xpl\src\scl.jdg.cpp.airyb_jdg]