njit-etd2003-081 - New Jersey Institute of Technology

282
plot(J,symtopar);
%plot(A,symtopar);
%gtext(top);
title('Ratio of LF to HF)
xlabel('Time (sec)');
ylabel('Amplitude');
%order=input('Please enter the order of the lowpass filter. ');
%freq=input('Please enter the cuttoff frequency for LPF. ');
%sample=input('Please enter the sample rate of the data. ');
%order=12;
%freq=0.03;
%nfreq=freq/sf;
%[poles,zeros]=butter(order,nfreq);
%dtrnd_nsymvag=filtfilt(poles,zeros,n_symvag);
%dtrnd_nvagal=filtfilt(poles,zeros,n_vagal);
%dtrnd_nsymtopar=filtfilt(poles,zeros,n_symtopar);
figure
subplot(3,1,1);
plot(J,n_symvag);
%plot(A,n_symvag);
%gtext(top);
title(['Normalized Symp and Parasymp Mixture (NLH) Plot of ',eval('filename'),' using
',eval('wave'),' wavelet']);
%xlabel('time (sec)');
ylabel('Amplitude');
subplot(3,1,2);
plot(J,n_vagal);
%plot(A,n_vagal);
title('Normalized Parasympathetic range (NHF)');
%xlabel('time (sec)');
ylabel('Amplitude');
%figure
subplot(3 13)
plot(J,n_symtopar);
%plot(A,symtopar);
%gtext(top);
title('Ratio of NLF to NHF')
xlabel('Time (sec)');
ylabel('Amplitude');