tomwalters@0: % demonstration file for 'aim-mat'
tomwalters@0: %
tomwalters@0: % (c) 2006-2008, University of Cambridge, Medical Research Council 
tomwalters@0: % Written by Tom Walters (tcw24@cam.ac.uk)
tomwalters@0: % http://www.pdn.cam.ac.uk/cnbh/aim2006
tomwalters@0: % $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $
tomwalters@0: % $Revision: 585 $
tomwalters@0: 
tomwalters@0: function plot_mellin(input, frame_no, current_scale, titlestr);
tomwalters@0: 
tomwalters@0: generating_module='mellin';
tomwalters@0: usermodule=input.data.usermodule;
tomwalters@0: current_frame_number=frame_no;
tomwalters@0: generating_functionline=['input.all_options.usermodule.' generating_module '.displayfunction'];
tomwalters@0: eval(sprintf('display_function=%s;',generating_functionline'));
tomwalters@0: if strcmp(display_function,'')
tomwalters@0:     str=get_graphics_options(handles,input.info.calculated_usermodule_module);
tomwalters@0:     plot(plotting_frame,str);
tomwalters@0:     xlabel('time interval (ms)');ylabel('Frequency (kHz)');title(titlestr);
tomwalters@0: else
tomwalters@0:     generating_options_line=['options=input.all_options.usermodule.' generating_module ';'];
tomwalters@0:     eval(generating_options_line);
tomwalters@0:     options.current_scale=current_scale;
tomwalters@0:     %options.handles=handles;
tomwalters@0:     plotstr=sprintf('%s(usermodule,options,%d)',display_function,current_frame_number);
tomwalters@0:     eval(plotstr);
tomwalters@0:     title(titlestr);
tomwalters@0: end