Question

您好我一直试图在mathematica 8上绘制此图，其中x从-1变为1：

1/2 (-1 + E^2) + 
 4 E^2 (-((2 Cos \[Pi] x)/(4 + \[Pi]^2)) - (6 Cos \[Pi] x)/(
    4 + 9 \[Pi]^2) - (10 Cos \[Pi] x)/(4 + 25 \[Pi]^2) - (
    14 Cos \[Pi] x)/(4 + 49 \[Pi]^2) - (18 Cos \[Pi] x)/(
    4 + 81 \[Pi]^2) - (22 Cos \[Pi] x)/(4 + 121 \[Pi]^2) - (
    26 Cos \[Pi] x)/(4 + 169 \[Pi]^2) - (30 Cos \[Pi] x)/(
    4 + 225 \[Pi]^2) - (34 Cos \[Pi] x)/(4 + 289 \[Pi]^2) - (
    38 Cos \[Pi] x)/(4 + 361 \[Pi]^2) - (42 Cos \[Pi] x)/(
    4 + 441 \[Pi]^2) - (46 Cos \[Pi] x)/(4 + 529 \[Pi]^2) - (
    50 Cos \[Pi] x)/(4 + 625 \[Pi]^2) - (54 Cos \[Pi] x)/(
    4 + 729 \[Pi]^2) - (58 Cos \[Pi] x)/(4 + 841 \[Pi]^2))

问题是我总是得到一个空图，无论如何，我已经尝试过使用匹配助手，它们在mathematica中描述的功能就像在助手上使用和符号而不是写和[（Cos（ n Pi x））（（（ - 1）^（n） - 1）/（4 + n ^（2）* Pi ^（2））），{n，0,30} ]对于前30个总和，也使用ESC：P：ESC我写Pi，因为我认为Plot []仅适用于原生符号，但我仍然得到一个空白的情节。有人有过这个问题吗？

Thess是我尝试过的一些替代方案，但没有成功：

    S1 = Sum[(Cos (n*Pi*x)) (((-1) ^(n) - 1)/(4 + n^(2)*Pi^(2))), {n, 0, 
   30}]
SC = E^(2)*4
A0 = (1/2)*(E^(2) - 1)
FCS = A0 + (SC) (S1)
Plot[FCS,{x,-1,1}]
f = FullSimplify[FCS]
Plot[f, {x, 0, 1}]

在mathematica中绘制傅立叶级数

0 个答案: