积极 AI Logo 积极 AI

傅里叶变换：圆形-猫

傅里叶变换：圆形-猫
几何画板及绘图内容加载中，请稍等……
2020-01-18 15:20
函数解析几何微积分复数变换
①本范例演示了傅里叶变换如何应用于猫形曲线，生成其频谱图；②涉及的核心数学概念包括傅里叶变换、复数、解析几何、微积分；③作图要点提炼自构造摘要，使用了Sequence（数列）、Reverse（反转）、Join（连接）、Last（最后一个）、Append（追加）、PolyLine（多段线）、Polygon（多边形）等GeoGebra命令和对象；④适合高中及以上数学学习者，用于理解傅里叶变换在图像处理和几何图形分析中的应用。

GeoGebra 命令及参数

  1. Sequence((1 / N * Sum[Sequence[(x(Element[L_1, j]) * cos(((((2 * π)) / N * (k - 1)) * (j - 1)))) + (y(Element[L_1, j]) * sin(((((2 * π)) / N * (k - 1)) * (j - 1)))), j, 1, N]]), k, 1, N) → FReal
  2. Sequence((1 / N * Sum[Sequence[(y(Element[L_1, j]) * cos(((((2 * π)) / N * (k - 1)) * (j - 1)))) - (x(Element[L_1, j]) * sin(((((2 * π)) / N * (k - 1)) * (j - 1)))), j, 1, N]]), k, 1, N) → FImg
  3. Sequence(sqrt(Element[FReal, j]^(2) + Element[FImg, j]^(2)), j, 1, N) → Mod
  4. Sequence(atan2(Element[FImg, j],Element[FReal, j]), j, 1, N) → Pha
  5. Sequence((Element[FReal, i], Element[FImg, i]), i, 1, N) → X
  6. Sequence((Element[Mod, i]; Element[Pha, i]), i, 1, N) → Polar
  7. Reverse(Sort[Sequence[(Length[Element[Polar, i]], i - 1), i, 1, Length[Polar]]]) → PolarSorted
  8. Sequence(y(Element[PolarSorted, i]), i, 1, Length[PolarSorted]) → Index
  9. Join({{C1}, Sequence[C1 + Sum[Sequence[((Element[Mod, Element[Index, j] + 1] * cos(Element[Pha, Element[Index, j] + 1] + (Element[Index, j] * t0))), (Element[Mod, Element[Index, j] + 1] * sin(Element[Pha, Element[Index, j] + 1] + (Element[Index, j] * t0)))), j, 1, i]], i, 1, N]}) → L_2
  10. Sequence(Join[{{C1}, Sequence[C1 + Sum[Sequence[((Element[Mod, Element[Index, j] + 1] * cos(Element[Pha, Element[Index, j] + 1] + (Element[Index, j] * l))), (Element[Mod, Element[Index, j] + 1] * sin(Element[Pha, Element[Index, j] + 1] + (Element[Index, j] * l)))), j, 1, i]], i, 1, N]}], l, 0, (2 * π), dt) → L_2'
  11. Sequence(Element[L_2, i], i, 1, m) → L_2''
  12. Sequence(Circle[Element[L_2, i], Element[Mod, Element[Index, i] + 1]], i, 1, N) → L_3
  13. Sequence(Element[L_3, i], i, 1, m) → L_3'
  14. Last(L_2) → CatPoint
  15. Append(Sequence[Element[L_2', k, m], k, 1, 63], Element[L_2', 1, m]) → L_4
  16. PolyLine(L_4) → curveCat
  17. PolyLine(L_2'') → s
  18. Polygon(L_4) → poly1