#!/bin/sh#@(#)iir_filt.tes	1.2 1/7/93 ESIESPS_VERBOSE=0; export ESPS_VERBOSEecho "Plot 24 filter responses -- 6 for each design method"echo "      LowPass(LP), HighPass(HP), BandPass(BP)-Wide and Narrow band"echo "         BandStop(BS)-Wide and Narrow band"echo "Click on QUIT button before proceed to next plot"echo " "echo "All filters designed has passband loss 1, stopband loss 20, freq 8000"cat > paramf << EODstring filt_method = "YYYY";float samp_freq = 8000;float gain = 1;string filt_type = "XXXX";float pass_band_loss = 1: "Desired maximum pass band loss (dB).";float stop_band_loss = 20.: "Desired minimum stop band attenuation (dB).";float p_freq1 = 001;float p_freq2 = 002;float s_freq1 = 003;float s_freq2 = 004;EOD########### note: for narrow band Ellipitcal filter, needs to specify#a higher stopband loss than desired.for METHOD in BUTTERWORTH CHEBYSHEV1 CHEBYSHEV2 ELLIPTICALdoecho $METHOD" Low Pass"sed s/XXXX/LP/ paramf > param1sed s/001/1000/ param1 > param2sed s/003/1100/ param2 > param3sed s/YYYY/$METHOD/ param3 > param4iir_filt -Pparam4 testfiltspec -s8000 test - | plotspec -y-30:10 -t"Lowpass, passband 1000, stop 1100" - echo $METHOD" Highpass"sed s/XXXX/HP/ paramf > param1sed s/003/1000/ param1 > param2sed s/001/1100/ param2 > param3sed s/YYYY/$METHOD/ param3 > param4iir_filt -Pparam4 testfiltspec -s8000 test - | plotspec -y-30:10 -t"HighPass, stopband 1000, pass 1100" - echo $METHOD" BandPass"sed s/XXXX/BP/ paramf > param1sed s/003/900/ param1 > param2sed s/001/1000/ param2 > param3sed s/002/3000/ param3 > param4sed s/004/3100/ param4 > param5sed s/YYYY/$METHOD/ param5 > param6iir_filt -Pparam6 testecho "     Wide band"filtspec -s8000 test - | plotspec -y-30:10 -t"BandPass, stop 900/3100, passband 1000/3000" - sed s/002/1300/ param3 > param4sed s/004/1500/ param4 > param5sed s/YYYY/$METHOD/ param5 > param6iir_filt -Pparam6 testecho "     Narrow band"filtspec -s8000 test - | plotspec -y-30:10 -t"BandPass, stopband 900/1500, passband 1000/1300" - echo $METHOD" BandStop"sed s/XXXX/BS/ paramf > param1sed s/001/900/ param1 > param2sed s/003/1000/ param2 > param3sed s/004/3000/ param3 > param4sed s/002/3100/ param4 > param5sed s/YYYY/$METHOD/ param5 > param6iir_filt -Pparam6 testecho "     Wide band"filtspec -s8000 test - | plotspec -y-30:10 -t"BandStop, stopband 1000/3000, passband 900/3100" - sed s/004/1300/ param3 > param4sed s/002/1500/ param4 > param5sed s/YYYY/$METHOD/ param5 > param6iir_filt -Pparam6 testecho "     Narrow band"filtspec -s8000 test - | plotspec -y-30:10 -t"BandStop, stop 1000/1300, pass 900/1500" - donerm -f param*rm test