Пример 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-}}]Все рецепты · Справочник функций · Использовать из MCP-клиента