%rvt.m
function [res]=rvt(S1,S2,FS)
%roots of the vocal tract of the two speech segments
%corresponding to the identical word
[res1,res2,S11,utforste,ltforste,ltforzcr]=endpointdetection(S1,FS);
[res1,res2,S12,utforste,ltforste,ltforzcr]=endpointdetection(S2,FS);
S11=dynamictimewarping(S11,S12);
lpccoef11=mainprogramforlpc(S11,FS);
lpccoef12=mainprogramforlpc(S12,FS);
for i=1:1:size(lpccoef11,2)
figure
subplot(4,5,i)
res=[roots(lpccoef11(:,i)) roots(lpccoef12(:,i))];
zplane([ ],res)
end
for i=1:1:size(lpccoef11,2)
figure
subplot(4,5,i)
plot(lpccoef11(:,i),'r')
hold on
plot(lpccoef12(:,i),'b--')
end