完整的 Wolfram 语言和笔记本体验
原有的技术计算环境
复杂系统的多领域建模与仿真
更多移动应用程序
我们帮助客户充分发挥计算知识与智能的潜力。
Wolfram 解决方案
更多 Wolfram 解决方案
更多教育解决方案
计算机、科学、生活等方面的课程
学习、解决问题、分享想法。
来自 Wolfram 的新闻、观点和见解
资源
Manipulate[Module[{tf, poles}, tf = ButterworthFilterModel[n]; poles = Flatten@TransferFunctionPoles[tf]; Switch[view, "3D view", Plot3D[Evaluate[Abs@tf[σ + I ω][[1, 1]]], {σ, -1.5, 0.5}, {ω, -1.5, 1.5}, PlotRange -> {0, n^2.6}, Mesh -> False, AxesLabel -> {σ, ω, None}, ImageSize -> 300], "2D view", ComplexListPlot[poles, PlotStyle -> PointSize[Large], Epilog -> {Dashed, Pink, Circle[]}, PlotRange -> 1.1, ImageSize -> 300]]], {{n, 9, "order"}, 1, 13, 1, Appearance -> "Labeled"}, {{view, "3D view", ""}, {"2D view", "3D view"}}]