Приклад 2 кроків, що виконуються по порядку в одній сесії. Кожен крок було виконано на рушії, і вивід нижче — те, що він дав.
windows = {DirichletWindow, BartlettWindow, KaiserWindow, HannWindow, HammingWindow, BlackmanWindow};
f = Table[FourierTransform[win[x], x, w], {win, windows}];Немає виводу — цей крок готує щось для наступного.
Partition[MapThread[LogLinearPlot[Evaluate[20 Log[10, # / Limit[#, w -> 0]]], {w, .1, 100}, GridLines -> Automatic, PlotRange -> {Automatic, {0, -80}}, PlotLabel -> #2]&, {f, windows}], 3]//GridGrid[{{-Graphics-, -Graphics-, -Graphics-}, {-Graphics-, -Graphics-, -Graphics-}}]