mathematica 编程 傅里叶级数已知如何用mathematica编程得到下面的结果啊贵求大神给程序
来源：学生作业帮助网 编辑：六六作业网 时间：2024/11/25 00:36:01
mathematica 编程 傅里叶级数已知如何用mathematica编程得到下面的结果啊贵求大神给程序
mathematica 编程 傅里叶级数
已知
如何用mathematica编程得到下面的结果啊
贵求大神给程序
mathematica 编程 傅里叶级数已知如何用mathematica编程得到下面的结果啊贵求大神给程序
你看看FourierCoefficient的帮助吧.
————
闲着没事试着算了一下,然后,你这给的算式有问题吧?看你第一张图里的式子,各项间距这么开,感觉和掉了符号一样.要不就是你漏给了什么条件?还是说你那里有某个符号的规定和我所知的不同?总之软件计算结果和你所给的不一样：
(* 为了书写方便,我使用了不同的字母,你应该认得 *)
sig = Sign[Sin[t]] sy Sin[t] + Sign[Cos[t]] sx Cos[t];
tao = Sign[Sin[t]] sy Cos[t] - Sign[Cos[t]] sx Sin[t];
c = FourierCoefficient[sig - I tao, t, n]
Table[FullSimplify[c /. n -> 4 m + i,
Assumptions -> m \[Element] Integers] /. m -> (n - i)/4, {i, 0, 3}]
(* 以下是计算结果,和你的不一样 *)
(* {(2 (sx + sy))/(Pi - n Pi), 0, (2 (sx - sy))/(Pi + (-2 + n) Pi), 0} *)
(* 为防万一,我又用定义算了一遍 *)
c2 = 1/(2 Pi) Integrate[(sig - I tao) Exp[-I n t], {t, 0, 2 Pi}];
Table[FullSimplify[ c2 /. n -> 4 m + i,
Assumptions -> m \[Element] Integers] /. m -> (n - i)/4, {i, 0, 3}]
(* 结果是一样的,不信你可以试试 *)