function RHS_VECTOR

% 26 May-------------maliheh------
% right hand side vector---or Program 8----week # 3--------integral( f(x)*phi(j,x),0, 1)

BCLEFT= 0;
BCRIGHT= 1;
N=11;
X= program2(BCLEFT,BCRIGHT,N);

E= zeros(2,N-1);
for i = 1 : N-1
    E(1,i)=i;
    E(2,i)=i+1;
end

E
%%  here we compute the right hand side vector  
   RHS= zeros(N,1); 
   for element= 1: N-1
       for i=1:2
               ip= E(i,element);
               f_RHS= @(x)  -exp(x) * BASIS_function(ip, X, x);
               RHS(ip)= RHS(ip)+ fem_num_integral_loc(f_RHS, X, E, element);
       end
   end
    
   RHS
    
end


function X= program2(BCLEFT,BCRIGHT,N)
X= linspace(BCLEFT,BCRIGHT,N);
end