matlab毕业编程【谷速软件】温度计

function varargout = thermometer(hAx,Trange,Tinit); % THERMOMETER Turn an axes into a graphical thermometer display % %initIALIZATION: CREATING THE THERMOMETER display % hAx = THERMOMETER(Trange) creates a new figure containing a graphical % thermometer display. Trange = [Tmin Tmax] specifies the minimum and % maximum of the temperature scale. Alternatively, Trange = [Tmin Tincr % Tmax] specifies the scale increment, too. % hAx is a required output in this case, as it will be passed to all subsequent % calls to THERMOMETER. Specifically, hAx is the handle to the axis containing % the thermometer. % % THERMOMETER(hAx, Trange) creates a new graphical thermometer display in % the specified axis, hAx. Trange is as defined above. % %UPDATE: Updating the thermometer with a new value. % THERMOMETER(hAx, T) updates the thermometer display in axis hAx to the % specified temperature T. hAx was either passed to THERMOMETER during % initialization, or was returned from the initialization call. % % For users who would like more control over the display, % hPatch = THERMOMETER(hAx,Trange, ...) or hPatch = THERMOMETER(hAx,T, ...) % returns a handle to the patch object used to represent the thermometer % value (i.e., the mercury). % % % Examples: % hAx = thermometer([0 30]); %Create a thermometer in a new figure. Range is 0 to 30 degrees % thermometer(hAx,15); %Set current temperature to 15 degrees % % figure; % hAx = axes('Position',[.1 .1 .1 .8]); % hPatch = thermometer(hAx,[0 20 100],40); % %Create a thermometer on axes hAx. Scale goes from 0 to 100 in steps % % of 20. Initial value is 40. % set(hAx,'Box','on'); %Turn the axis box back on. msg = nargchk(1,3,nargin); error(msg) %If first input argument is Trange if length(hAx)>1 if nargout==0 error(['I really want to give you the axis handle. ' ... 'Without it, you won''t be able to update the thermometer. ' ... 'So, let''s try this again, and call me with one output!']) end; if nargin==1 %Did not specify initial temperature Tinit = hAx(1) + .1*(hAx(end)-hAx(1)); % Default Value else Tinit = Trange; %Re-define input argument end; Trange = hAx; hAx = localCreateFig; hPatch = thermometer(hAx,Trange,Tinit); varargout{1} = hAx; else if ~strcmp(get(hAx,'Type'),'axes') error('With 2 or 3 input arguments, the first argument must be an axis handle'); end; if length(Trange)==2 | length(Trange)==3 if length(Trange)==3 incr = Trange(2); Trange = Trange([1 3]); else incr=5; end; if nargin==2 %Did not specify initial temperature Tinit = Trange(1) + .1*diff(Trange); % Default Value end; hPatch = localInitAxes(hAx,Trange,incr,Tinit); elseif length(Trange)==1 Tnew = Trange; hPatch = localUpdate(hAx,Tnew); %Trange is now the new temperature else error('Second input argument must be [Tmin Tmax] or Tnew'); end; if nargout varargout{1} = hPatch; end; end function hPatch = localinitAxes(hAx,Trange,incr,Tinit); %Are there any thermometer patches on this axis already? If so, delete %them therms = findobj(hAx,'Type','patch','Tag','Thermometer'); if ~isempty(therms) delete(therms) end; set(hAx, ... 'Color',[.8 .8 .8], ... 'TickLength', [0.0500 0.1000], ... 'XLim',[0 1], ... 'XColor',[.8 .8 .8], ... 'XLimMode','manual', ... 'XTick',0, ... 'YLim',Trange, ... 'YLimMode','manual', ... 'YminorTick','on', ... 'YTick',Trange(1):incr:Trange(2)); hPatch = patch([0 1 1 0],[0 0 Tinit Tinit],'r','Tag','Thermometer'); alpha(hPatch,.6) setappdata(hAx,'PatchHandle',hPatch); function hPatch = localUpdate(hAx,T) hPatch = getappdata(hAx,'PatchHandle'); %Force within valid temperature range yl = get(hAx,'YLim'); if Tyl(2) T=yl(2); end; set(hPatch,'YData',[0 0 T T]); end; function hAx = localCreateFig; figure('Position',[200 200 75 200], ... 'Toolbar','none', ... 'MenuBar','none', ... 'NumberTitle','off'); end hAx = axes('Position',[.3 .1 .4 .8]);