% Example 17.1c (Physics 330)

clear;close all;

x=0:.01:100;
f1=cos(x);
f2=exp(-x/20);

subplot(2,1,1)  % 2 rows, 1 column, 1st figure

plot(x,f1,'r-','LineWidth',2.5)
hold on
plot(x,f2,'b-','LineWidth',2.5)

xlabel('x','FontSize',15)
ylabel('f_1(x), f_2(x)','FontSize',15)
title('Multiplication of Functions','FontSize',15)

aa=gca; % turn the first figure window into publication quality
set(aa,'XLimMode','manual','YLimMode','manual',...
       'Xlim',[0 100 ],'Ylim',[-1.1,1.1],'FontSize',20,'LineWidth',2.5,...
       'XTick',[0 20 40 60 80 100],...
       'YTick',[-1 -.5 0 .5 1])

hold off

subplot(2,1,2)  % 2 rows, 1 column, 1st figure

plot(x,f1.*f2,'b-','LineWidth',2.5)
xlabel('x','FontSize',15)
ylabel('f_1(x)* f_2(x)','FontSize',15)


aa=gca; % turn the second figure window into publication quality
set(aa,'XLimMode','manual','YLimMode','manual',...
       'Xlim',[0 100 ],'Ylim',[-1.1,1.1],'FontSize',20,'LineWidth',2.5,...
       'XTick',[0 20 40 60 80 100],...
       'YTick',[-1 -.5 0 .5 1])