Single Side Band Suppressed Carrier (SSB - SC) - Modulation Scilab code

Aim: Write scilab code to get the SSB-SC Amplitude Modulation 

Requirements: PC with Scilab software

Program:

f1=input('enter the baseband signal frequency') 
f2=input('enter the carrier signal frequency')
 T=input('enter the duration over which the signal is to be plotted') 
fs=input('enter the sampling frequency')
 t=0:T/fs:T; //generation of Modulating and Carrier signals and their Hilbert Transforms
 m=cos(2*%pi*f1*t)
 m1=cos(2*%pi*f1*t-(%pi/2))  
  n=cos(2*%pi*f2*t)                   
  n1=cos(2*%pi*f2*t-(%pi/2)) //generation of  Two AM-DSB-SC signals 
M=m.*n; M1=m1.*n1; //generation of AM-SSB-SC signal 
s=M+M1; //De-Modulation 
s1=s.*n; c=input('enter the capacitance of the LPF') R=1/(2*%pi*f1*c);
 h=(1/(R*c))*exp(-t/(R*c)); 
H=conv(h,conv(s1,h)); 
t1=t; 
t1(length(t)+1:length(H))=t(length(t));
 subplot(4,1,1) 
plot2d1(t,M)
 subplot(4,1,2) 
plot2d1(t,M1) 
subplot(4,1,3) 
plot2d1(t, s) 
subplot(4,1,4) 
plot2d1(t1,H)