# Question:how to reduce evaluating time

## Question:how to reduce evaluating time

Maple 2021

What should I do to reduce evaluating time?

 > restart;
 > with(plots):
 >
 > F:=kappa->kappa;
 (1)
 > f:=(alpha,delta)->exp(-abs(F(kappa))^2*(1+delta^2)/2-abs(F(kappa))*alpha)/abs(F(kappa));
 (2)
 > L:=(alpha,delta,Lambda)->(lambda^2*exp(-alpha^2/2)/4)*(Int(f(alpha,delta),kappa= -infinity..-Lambda)+Int(f(alpha,delta),kappa= Lambda..infinity));
 (3)
 > evalf(L(4,1,0.001));
 (4)
 > g:=(beta,delta)->exp(-I*kappa*beta-abs(F(kappa))^2*(1+delta^2)/2)/abs(F(kappa));
 (5)
 > E:=(omega,gamma)->exp(I*omega*gamma)*(1-erf((gamma+I*omega)/sqrt(2)));
 (6)
 > J:=(alpha,delta,Lambda,beta,gamma)->(lambda^2*exp(-alpha^2/2)/8)*abs(Int(g(beta,delta)*(E(abs(F(kappa)),gamma)+E(abs(F(kappa)),-gamma)),kappa=-infinity..-Lambda)+Int(g(beta,delta)*(E(abs(F(kappa)),gamma)+E(abs(F(kappa)),-gamma)),kappa=Lambda..infinity));
 (7)
 > #evalf(J(4,1,0.001,8,3));
 > N := (beta,alpha)-> (J(alpha,1,0.001,beta,3)-L(alpha,1,0.001))/\lambda^2;
 (8)
 >
 >
 >
 >
 >
 >
 > contourplot(evalf(N(beta,alpha)), beta=0..10,alpha=0..10,grid=[25,25]);
 >
 >
 >