int wam_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.2, m_40=0.4; double *wam_20=new double[wn]; double *wam_40=new double[wn]; for(wi=0;wi<wn;wi++){ wam_20[wi]=wam(wmt[wi]/(2*π*fm), f0_20, fm, m_20); wam_40[wi]=wam(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, wam_20, "grid", "on", "yaxislength", nyl*92/100, "yaxisposition", 1799-(chan-1-chai)*nyl, "title", "Amplitude modulation", "subtitlex", imgname.c_str(), /*"subtitle", subtitle.c_str(),*/ "linespec", "-l", "linespeca", "-a", "background-color", "w", "aymin", -1.1-m_20, "aymax", 1.1+m_20, "legend", "f0=20*fm, m=0.2", /*"ylabel", "[rad]",*/ "append", "on", ∅); chai++; graf_dis(imgpath.c_str(), wn, wmt, wam_40, "grid", "on", "yaxislength", nyl*92/100, "yaxisposition", 1799-(chan-1-chai)*nyl, "title", "", "subtitlex", "", "subtitle", "", "linespec", "-q", "linespeca", "-a", "aymin", -1.1-m_40, "aymax", 1.1+m_40, "legend", "f0=40*fm, m=0.4", "xlabel", "2π*fm*t [rad]", /*"ylabel", "[rad]",*/ /*"append", "off",*/ ∅); scltracefe(§, ƒ, ∅); return 0; } /* ƒ décorée par le 09-03-2026 22:24:54 */

[>..\xpl\src\scl.jdg.cpp.wam_jdg] scl-26.03 (gwin64) : 09-03-2026 22:24:54 <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< << END OF DISLIN / VERSION 11.3.2 << << Date : 09.03.2026 Time : 22:24:54 Pageformat: DA4L << << Vectors : 3774 Warnings: 0 Fileformat: SVG << << Metafile: ./srt/wam_jdg.svg << <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< [<..\xpl\src\scl.jdg.cpp.wam_jdg]