函数的评估给出了整合函数的错误长度的结果

Question

我的功能有些问题。我尝试了Vectorize功能，但它也不起作用。我无法解决问题。有人可以帮我解决这个问题吗？

a<-function(t){ 
     b<-function(x){
       c1<-function(x){
exp(2*t*cos(x)-(2*t))
 }
      c2<-function(x){
 cos(0) - cos(2*x)
 }
  c3<-function(x){
  2 - 2*cos(x)
                }
      (c1(x)*c2(x))/c3(x)
         }

exp(0)-(1/pi)*integrate(Vectorize(b), lower = 0, upper =pi)$value

      }

由于