Plot the Low pass and High pass filtered speech signal

This program used to plot low pass filtered and high pass filtered speech signal using scilab software program

//Caption: Program to Plot the frequency reponse of 
//[1]. Low Pass Filter 
//[2]. High Pass Filter

clear;
clc;
[x,Fs,bits]=wavread("E:\4.wav");
n = length(x)
//Low Pass Filter of Length = 19, Wc = 0.5, Hamming Window
[wft_LPF,wfm_LPF,fr_LPF]=wfir('lp',18,[0.25,0],'hm',[0,0])
//High Pass Filter of Length = 19, Wc = 0.5, Hamming Window
[wft_HPF,wfm_HPF,fr_HPF]=wfir('hp',18,[0.25,0],'hm',[0,0])

subplot(3,1,1)
plot([1:n],x)
xtitle("ORIGINAL Speech SIGNAL");
subplot(3,1,2)
a = gca();
plot(2*fr_LPF,wfm_LPF,'g')
poly1= a.children.children(1);
poly1.thickness =3;
xtitle("Frequency Response of Low Pass Filter N = 19, Wc =0.5, Hamming Window");
xgrid(1)
subplot(3,1,3)
b = gca();
plot(2*fr_HPF,wfm_HPF,'r')
poly1= b.children.children(1);
poly1.thickness =3;
xtitle("Frequency Response of High Pass Filter N= 19, Wc =0.5, Hamming Window");
xgrid(1)