int wrippl_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_pi_4=π/4, a_pi_2=π/2; double *wrp_pi_4=new double[wn]; double *wrp_pi_2=new double[wn]; for(wi=0;wi<wn;wi++){ wrp_pi_4[wi]=wrippl(wtp[wi], a_pi_4); wrp_pi_2[wi]=wrippl(wtp[wi], a_pi_2); } 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, wrp_pi_4, "grid", "on", "yaxislength", nyl*92/100, "yaxisposition", 1799-(chan-1-chai)*nyl, "title", "Ripple wave", "subtitlex", imgname.c_str(), /*"subtitle", subtitle.c_str(),*/ "linespec", "-l", "linespeca", "-a", "background-color", "w", "aymin", -0.1, "aymax", 1.1, "legend", "a=$\\pi/4$", /*"ylabel", "[rad]",*/ "append", "on", ∅); chai++; graf_dis(imgpath.c_str(), wn, wtp, wrp_pi_2, "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=$\\pi/2$", "xlabel", "wtp [rad]", /*"ylabel", "[rad]",*/ /*"append", "off",*/ ∅); scltracefe(§, ƒ, ∅); return 0; } /* ƒ décorée par le 09-03-2026 22:24:53 */

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