用mathematic计算个式子并画出,画出来给100分.

用mathematic计算个式子并画出,画出来给100分.

公式如图,对于各位大神来说应该不难弄...但是小弟我是刚接触mathematic,感觉很好用,但是就是出不来结果...
我的代码如下
a=0.3;
b=0.3;
lambda=.03;
num=4;
r=1000;
c=3*(10^8);
w=c/lambda;
detar=2*r/cos(theta);
detar1=2*r/cos(theta1);
sum0=E^(k*w*detar/c);
sum01=E^(k*w*detar1/c);
sum1=Sum[sum0,{k,1,num}];
sum2=(Abs[sum1])^2;
sum11=Sum[sum01,{k,1,num}];
sum21=(Abs[sum11])^2;
sum3=sum21*Cos[theta1];
sum4=\!\(
\*SubsuperscriptBox[\(\[Integral]\),\(-Pi\),\(Pi\)]\(sum3 \[DifferentialD]theta1\)\);
sum4=sum4*2*Pi;
sum5=(4*Pi*a*b)*sum2/sum4;
Plot [sum5,{theta,-Pi,Pi}]

就是画不出来..

其中
A=axb; (面积)
N=原子个数；
w=频率；
R=与目标的距离；
c=光速
detaR=2*R/cos(theta)

答案是3,这是我通过精密的计算求的的,应该不会错吧啊