Plot mathematica中不能绘制傅里叶级数

嗨，我一直在尝试在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))

问题是，不管怎样，我总是得到一个空图，我尝试使用match assistant，mathematica中描述的函数，而不是在助手上使用求和符号，对前30个和使用写和[Cos nPix-1^n-1/4+n^2*Pi^2，{n，0，30}]，也不是使用ESC:p:ESC i write Pi，因为我认为Plot[]只适用于本地符号，但我仍然得到一个空白Plot。 以前有人有过这个问题吗

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

    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函数（如Cos）在其参数周围使用方括号。噢，哈哈，谢谢哇，有时我认为mathematica不是为程序员设计的，我的意思是你可以编写一些代码来获得一些伟大的结果，但这是毫无意义的，它解决了我的问题，谢谢。仅供参考wolfram alpha允许更多的自由形式输入，但即使这样也会把Cosπx作为CosPi*x。同样，对于mathematica中的单参数函数，您可以交替使用Apply符号，Cos@nπx