ตัวอย่าง 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