Question: I cannot plot the graph with the code below.

When I write the following code, I get an error and I cannot plot the graph. 

Please, I would appreciate your support

restart;                                                                                                                                              with(plots):                                                                                                                                            h:=(u)->sin((0.3)*u^2);                                                                                                                                         K:=(r,v,u)-> (factorial(2*r+3)*v^r*u^(r+2))/(factoral(r)*factoral(r+2)*(v+u)^(2*r+4));                                         w:=(r,j,a,u)->(u^j-1)/((1+u)^(r+j-1))*((a*u/(1+u))*binomial(r+j-1,j)-(1-a)*(1+u)*binomial(r+j-3,j-2)+(1-a)*u*binomial(r+j-1,j));                                                                                                                                 B:=(r,a,u)->sum(w(r,j,a,u)*h(j/r),j=0..infinity);                                                                                                  H:=(r,a,u)->int(K(r,v,u)*B(r,a,v),v=0..infinity);                                                                                                  p1:=plot(h(u),u=-1.5*Pi..1.5*Pi,color=blue):                                                                                                    p2:=plot(B(10,0.9,u),u=-1.5*Pi..1.5*Pi,color=red):                                                                                        p3:=plot(H(10,0.9,u),u=-1.5*Pi..1.5*Pi,color=brown):                                                                                    display([p1,p2,p3]);