Ejemplo 2 pasos, ejecutados en orden en una sola sesión. Cada paso se ejecutó contra el motor y la salida de abajo es lo que produjo.
windows = {DirichletWindow, BartlettWindow, KaiserWindow, HannWindow, HammingWindow, BlackmanWindow};
f = Table[FourierTransform[win[x], x, w], {win, windows}];Sin salida - este paso prepara algo para el siguiente.
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-}}]Todas las recetas · Referencia de funciones · Usar esto desde un cliente MCP