clear all
clear functions
home
help Simulate_me
disp( ' ');
disp('	Hit a key to continue ...');
pause
home
mfiles= ['HUMAN_COCHLEA_GEOMETRY        '
	     'Physical_GEOMETRY;            '
	     'tw;                           '
         'tw(1);                        '
         'tw(1.12);                     '
         'greenf((1:300)/300, 1);       '
	     'Greenwood((1:300)/300, 1);    '
	     'peaks_hc((1:300)/300,1);      '
	     'tmplots;                      '
        ];

helps= ['help HUMAN_COCHLEA_GEOMETRY'
	    'help Physical_GEOMETRY     '
	    'help tw                    '
	    'help tw                    '
	    'help tw                    '
	    'help greenf                '
	    'help Greenwood             '
	    'help peaks_hc              '
	    'help tmplots               '
	];



descriptions = [
'  0) Exit                                                                              '
'  1) Geometrical parameters of the cochlear partition [HUMAN_COCHLEA_GEOMETRY.m]       '
'  2) Physical parameters of the cochlear partition [Physical_GEOMETRY.m]               ' 
'  3) Travelling wave (TW) profiles in the passive cochlea [TW.M]                       '
'  4) TW profiles in the active cochlea (absolute viscosity neutralised) [TW.M]         '
'  5) TW profiles in the active cochlea (absolute viscosity overcompensated) [TW.M]     '
'  6) Green''s function profiles of hydrodynamic coupling [GREENF.m]                     '
'  7) Unshaped coarse Green''s function profiles [Greenwood.m]                           '
'  8) Green''s function singularity profiles [PEAKS_HC.m]                                '
'  9) Tectorial membrane resonance properties [TMPLOTS.M]                               '
];

while 1
	disp('		MENU OF DEMONSTRATIONS:');
	disp(' '); 
	disp(descriptions);	
	n = input('  Select a number: ');
	disp(' ');
	if ((n <= 0) || (n > 9))
		break
	end
	if ~isempty(n),
	  hlp = helps(n,:);
	  mfile = mfiles(n,:);
	  home
	  disp('________________________________________________________________________');
	  % disp('		FILE INFORMATION:');
	  disp(['	COMMAND LINE CALL: ', mfile]);
	  eval(hlp)
	  disp('________________________________________________________________________');
	  disp(' ');
	  disp(['	Hit a key to run  ', upper(mfile)]);
	  pause
	  close
	  home
	  eval(mfile)
	end
	home
end
