int wring_jdg(){ scltracefa(§, ƒ, ∅); scltracefc("scl-%s (%s) : %s\n\n", sclver(), sclsec(), temps_char(0)); int wn=1001, wi; double *wtp=newtablin(wn, 0, 3*2*π); double a_2pi=2*π, a_4pi=4*π; double f_2pi=100/(2*π), f_4pi=200.0/(2*π); double *wrg_2pi=new double[wn]; double *wrg_4pi=new double[wn]; for(wi=0;wi<wn;wi++){ wrg_2pi[wi]=wring(wtp[wi], a_2pi, f_2pi); wrg_4pi[wi]=wring(wtp[wi], a_4pi, f_4pi); } scl::string_c imgname=scl::string_c(ƒ)+".svg", imgpath="./srt/"+imgname; int chan=2, chai=0; int nyl = (int)round(1400/((double)chan)); graf_dis(imgpath.c_str(), wn, wtp, wrg_2pi, "grid", "on", "yaxislength", nyl*92/100, "yaxisposition", 1799-(chan-1-chai)*nyl, "title", "Ringing wave", "subtitlex", imgname.c_str(), /*"subtitle", subtitle.c_str(),*/ "linespec", "-l", "linespeca", "-a", "background-color", "w", "aymin", -1.1, "aymax", 1.1, "legend", "a=2π, f=$100/{2\\pi}$", /*"ylabel", "[rad]",*/ "append", "on", ∅); chai++; graf_dis(imgpath.c_str(), wn, wtp, wrg_4pi, "grid", "on", "yaxislength", nyl*92/100, "yaxisposition", 1799-(chan-1-chai)*nyl, "title", "", "subtitlex", "", "subtitle", "", "linespec", "-q", "linespeca", "-a", "aymin", -1.1, "aymax", 1.1, "legend", "a=4π, f=$200/{2\\pi}$", "xlabel", "wtp [rad]", /*"ylabel", "[rad]",*/ /*"append", "off",*/ ∅); scltracefe(§, ƒ, ∅); return 0; } /* ƒ décorée par le 13-03-2026 18:30:38 */

[>..\xpl\src\scl.jdg.cpp.wring_jdg] scl-26.03 (gwin64) : 13-03-2026 18:30:38 <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< << END OF DISLIN / VERSION 11.3.2 << << Date : 13.03.2026 Time : 18:30:38 Pageformat: DA4L << << Vectors : 3822 Warnings: 0 Fileformat: SVG << << Metafile: ./srt/wring_jdg.svg << <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< [<..\xpl\src\scl.jdg.cpp.wring_jdg]