clc;
clear all;
close all;

X=[exp(1), -pi, sqrt(2), -psi(1), log10(2)];
Y=[1486.2497, 878366.9879, -22.37492, 4773714.647, 0.000185049];

s=0;
for i=1:length(X)
    s = s + X(i)*Y(i);
end

s1=0;

for i=length(X):-1:1
    s1 = s1 + X(i)*Y(i);
end

s2 = dot(X,Y);

s3 = X(2)*Y(2) + X(4)*Y(4) + X(1)*Y(1) + X(3)*Y(3) + X(5)*Y(5);

disp(s);
disp(s1);
disp(s2);
disp(s3);