int wfm_jdg(){ scltracefa(§, ƒ, ∅); scltracefc("scl-%s (%s) : %s\n\n", sclver(), sclsec(), temps_char(0)); int wn=1001, wi; double fm=1, f0_20=20*fm, f0_40=40*fm; double *wmt=newtablin(wn, 0, 3*2*π); double m_20=0.05, m_40=0.05; double *wfm_20=new double[wn]; double *wfm_40=new double[wn]; for(wi=0;wi<wn;wi++){ wfm_20[wi]=wfm(wmt[wi]/(2*π*fm), f0_20, fm, m_20); wfm_40[wi]=wfm(wmt[wi]/(2*π*fm), f0_40, fm, m_40); } 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, wmt, wfm_20, "grid", "on", "yaxislength", nyl*92/100, "yaxisposition", 1799-(chan-1-chai)*nyl, "title", "Frequency modulation", "subtitlex", imgname.c_str(), /*"subtitle", subtitle.c_str(),*/ "linespec", "-l", "linespeca", "-a", "background-color", "w", "aymin", -1.1, "aymax", 1.1, "legend", "f0=20*fm, m=0.05", /*"ylabel", "[rad]",*/ "append", "on", ∅); chai++; graf_dis(imgpath.c_str(), wn, wmt, wfm_40, "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", "f0=40*fm, m=0.05", "xlabel", "2π*fm*t [rad]", /*"ylabel", "[rad]",*/ /*"append", "off",*/ ∅); scltracefe(§, ƒ, ∅); return 0; } /* ƒ décorée par le 08-03-2026 22:19:44 */

[>..\xpl\src\scl.jdg.cpp.wfm_jdg] scl-26.03 (gwin64) : 08-03-2026 22:19:44 <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< << END OF DISLIN / VERSION 11.3.2 << << Date : 08.03.2026 Time : 22:19:44 Pageformat: DA4L << << Vectors : 3710 Warnings: 0 Fileformat: SVG << << Metafile: ./srt/wfm_jdg.svg << <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< [<..\xpl\src\scl.jdg.cpp.wfm_jdg]