1 tic;
 2 clear
 3 clc
 4 % N=input(\'please key in the value of \'\'N\'\'\');
 5 N=10;
 6 M=100;
 7 h=1/M;
 8 X=0:h:1;
 9 accurate_fun=inline(\'x.^2 - (2*exp(x))/(exp(1) + 1) - (2*exp(-x)*exp(1))/(exp(1) + 1) + 2\');
10  f=inline(\'x.^2-x\');
11  phi=inline(\'x.*(1-x).*x.^(i-1)\',\'i\',\'x\');
12  diff_phi=inline(\'i*x.^(i-1)-(i+1)*x.^i\',\'i\',\'x\');
13  for j=1:N
14      for i=1:N
15 A(i,j)=quad(@(x)phi(i,x).*phi(j,x)+diff_phi(i,x).*diff_phi(j,x),0,1);
16      end
17      b(j,1)=quad(@(x) phi(j,x).*f(x),0,1);
18  end
19  C=A\b;
20 syms x;
21  Un=0;
22 for i=1:N
23 Un=Un+C(i)*phi(i,x);
24 end
25 Un=Un+x;
26  numerical= double(vpa(subs(Un,\'x\',X)));
27  accurate=accurate_fun(X);
28  subplot(1,2,1)
29  plot(X,numerical,\'r -\',X,accurate,\'b >\');
30   title(\'numerical VS accurate\');
31  legend(\'numerical\',\'accurate\');
32  grid on;
33   subplot(1,2,2);
34   plot(X,numerical-accurate,\'g\');
35   title(\'error\');
36   grid on;
37  toc;

 1 tic;
 2 clear
 3 clc
 4 % N=input(\'please key in the value of \'\'N\'\'\');
 5 N=10;
 6 M=100;
 7 h=1/M;
 8 X=0:h:1;
 9 accurate_fun=inline(\'x.^2 - (2*exp(x))/(exp(1) + 1) - (2*exp(-x)*exp(1))/(exp(1) + 1) + 2\');
10  f=inline(\'x.^2-x\');
11  phi=inline(\'sin(i*pi*x)\',\'i\',\'x\');
12  diff_phi=inline(\'i*pi*cos(i*pi*x)\',\'i\',\'x\');
13  for j=1:N
14      for i=1:N
15 A(i,j)=quad(@(x)phi(i,x).*phi(j,x)+diff_phi(i,x).*diff_phi(j,x),0,1);
16      end
17      b(j,1)=quad(@(x) phi(j,x).*f(x),0,1);
18  end
19  C=A\b;
20  syms x;
21  Wn=0;
22 for i=1:N
23 Wn=Wn+C(i)*phi(i,x);
24 end
25 Un=Wn+x;
26 numerical=vpa(subs(Un,\'x\',X));
27 accurate=accurate_fun(X);
28 subplot(1,2,1)
29 plot(X,numerical,\'r -\',X,accurate,\'g ^\');
30 title(\'Ritz Galerkin method\');
31 legend(\'numerical solution\',\'accurate solution\');
32 grid on;
33 subplot(1,2,2)
34 plot(X,numerical-accurate,\'b\');
35 title(\'error\');
36 grid on;
37 toc;