int wpulsf_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 *wep_2pi=new double[wn]; double *wep_4pi=new double[wn]; for(wi=0;wi<wn;wi++){ wep_2pi[wi]=wpulsf(wtp[wi], a_2pi); wep_4pi[wi]=wpulsf(wtp[wi], a_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, wep_2pi, "grid", "on", "yaxislength", nyl*92/100, "yaxisposition", 1799-(chan-1-chai)*nyl, "title", "Filtered pulse wave", "subtitlex", imgname.c_str(), /*"subtitle", subtitle.c_str(),*/ "linespec", "-l", "linespeca", "-a", "background-color", "w", "aymin", -0.1, "aymax", 1.1, "legend", "a=2π", /*"ylabel", "[rad]",*/ "append", "on", ∅); chai++; graf_dis(imgpath.c_str(), wn, wtp, wep_4pi, "grid", "on", "yaxislength", nyl*92/100, "yaxisposition", 1799-(chan-1-chai)*nyl, "title", "", "subtitlex", "", "subtitle", "", "linespec", "-q", "linespeca", "-a", "aymin", -0.1, "aymax", 1.1, "legend", "a=4π", "xlabel", "wtp [rad]", /*"ylabel", "[rad]",*/ /*"append", "off",*/ ∅); scltracefe(§, ƒ, ∅); return 0; } /* ƒ décorée par le 13-03-2026 18:59:28 */

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