How to make my code runs faster?

Hello,

I programmed this integration but the output results and the plot require some time. Do you have any ideas to change in the code to make it run faster?!!

Thanks

%--------------------------
clear, clc, clf
syms s
x=-3:0.01:3;
for i=1:length(x)
    integ=@(s) sin(s).*cos(s*x(i))./s;
    ST(i)=2*quad(integ,0,12)/pi;
end
plot(x,ST,'Color','k','LineWidth',3.5)
%------------------------------------

[Kobye]

It would be helpful if you could explain why you need this code to run faster? On my pc it runs in 1.163567 seconds.

It seems highly unlikely that you are trying to generate 1 million plots in a loop. What is the benefit of further speeding up this already fast piece of code?

Answer 1

[Andrei Bobrov]

x=-3:0.01:3;
ST = 2*quadv(@(s) sin(s).*cos(s*x)./s,0,12)/pi;

or

x=-3:0.01:3;
ST = integral(@(s) sin(s).*cos(s*x)./s,0,12,'ArrayValued',true)*2/pi;