amortsched.m

MATLAB扩展编程by 孙永康.ZIP.有需要的朋友请来下载.

function fig = amortsched()
%AMORTSCHED Calculates the loan schedule for a plan.

%   $Revision: 1.2 $  $Date: 2000/06/23 14:36:35 $
% Copyright 1984-2000 The MathWorks, Inc.

h0 = figure('Color',[0.8 0.8 0.8], ...
   'CloseRequestFcn','amortsched_cb(''close_amortsched'')', ...
   'MenuBar','none', ...
   'Name','Amort Sched 1.0', ...
   'NumberTitle','off', ...
   'PaperPosition',[18 180 576 432], ...
   'PaperUnits','points', ...
   'Units','characters', ...
   'Position',[68.6 7.3077 136 21.7692], ...
   'Resize','off', ...
   'Tag','Fig1', ...
   'ToolBar','none');
h1 = uicontrol('Parent',h0, ...
   'Units','characters', ...
   'BackgroundColor',[1 1 1], ...
   'ListboxTop',0, ...
   'Position',[36.1175    7.9231   13.2644    1.3846], ...
   'Style','edit', ...
   'Tag','principal_tag');
h1 = uicontrol('Parent',h0, ...
   'Units','characters', ...
   'BackgroundColor',[1 1 1], ...
   'ListboxTop',0, ...
   'Position',[36.1175    6.3846    6.7121    1.3846], ...
   'Style','edit', ...
   'Tag','ir_tag');
h1 = uicontrol('Parent',h0, ...
   'Units','characters', ...
   'BackgroundColor',[1 1 1], ...
   'ListboxTop',0, ...
   'Position',[36.1175    5.0000    6.7121    1.3846], ...
   'Style','edit', ...
   'Tag','ppy_tag');
h1 = uicontrol('Parent',h0, ...
   'Units','characters', ...
   'BackgroundColor',[1 1 1], ...
   'ListboxTop',0, ...
   'Position',[36.1175    3.4615    6.7121    1.3846], ...
   'Style','edit', ...
   'Tag','noy_tag');
h1 = uicontrol('Parent',h0, ...
   'Units','characters', ...
   'BackgroundColor',[0.752941176470588 0.752941176470588 0.752941176470588], ...
   'Callback','amortsched_cb(''calculate_values'')', ...
   'ListboxTop',0, ...
   'Position',[5.5934    0.9230   14.5384    1.5391], ...
   'String','Calculate', ...
   'Tag','Pushbutton1');
h1 = uicontrol('Parent',h0, ...
   'Units','characters', ...
   'BackgroundColor',[0.752941176470588 0.752941176470588 0.752941176470588], ...
   'Callback','amortsched_cb(''clear_values'')', ...
   'ListboxTop',0, ...
   'Position',[23.7320    0.9230   14.5384    1.5391], ...
   'String','Clear', ...
   'Tag','Pushbutton1');
h1 = uicontrol('Parent',h0, ...
   'Units','characters', ...
   'BackgroundColor',[0.752941176470588 0.752941176470588 0.752941176470588], ...
   'Callback','amortsched_cb(''close_amortsched'')', ...
   'ListboxTop',0, ...
   'Position',[41.7112    0.9230   14.5384    1.5391], ...
   'String','Close', ...
   'Tag','Pushbutton1');
h1 = uicontrol('Parent',h0, ...
   'Units','characters', ...
   'BackgroundColor',[0.8 0.8 0.8], ...
   'FontSize',18, ...
   'FontWeight','bold', ...
   'ListboxTop',0, ...
   'Position',[6.2918   15.7692   53.0771    2.1538], ...
   'String','Amortization Schedule', ...
   'Style','text', ...
   'Tag','StaticText1');
h1 = uicontrol('Parent',h0, ...
   'Units','characters', ...
   'BackgroundColor',[0.8 0.8 0.8], ...
   'FontSize',12, ...
   'FontWeight','bold', ...
   'ListboxTop',0, ...
   'Position',[9.5200    7.8369   25.8400    1.7415], ...
   'String','Principal', ...
   'Style','text', ...
   'Tag','StaticText2');
h1 = uicontrol('Parent',h0, ...
   'Units','characters', ...
   'BackgroundColor',[0.8 0.8 0.8], ...
   'FontSize',12, ...
   'FontWeight','bold', ...
   'ListboxTop',0, ...
   'Position',[11.0270    6.3077   23.0129    1.5385], ...
   'String','Interest Rate', ...
   'Style','text', ...
   'Tag','StaticText2');
h1 = uicontrol('Parent',h0, ...
   'Units','characters', ...
   'BackgroundColor',[0.8 0.8 0.8], ...
   'FontSize',12, ...
   'FontWeight','bold', ...
   'ListboxTop',0, ...
   'Position',[10.8672    4.8462   23.4924    1.6154], ...
   'String','Payments/Year', ...
   'Style','text', ...
   'Tag','StaticText2');
h1 = uicontrol('Parent',h0, ...
   'Units','characters', ...
   'BackgroundColor',[0.8 0.8 0.8], ...
   'FontSize',12, ...
   'FontWeight','bold', ...
   'ListboxTop',0, ...
   'Position',[8.9495    3.3077   27.1680    1.6923], ...
   'String','Number of Years', ...
   'Style','text', ...
   'Tag','StaticText2');
h1 = uicontrol('Parent',h0, ...
   'Units','characters', ...
   'BackgroundColor',[0.8 0.8 0.8], ...
   'FontSize',12, ...
   'FontWeight','bold', ...
   'ListboxTop',0, ...
   'Position',[43.3090    6.2308    4.7944    1.6923], ...
   'String','%', ...
   'Style','text', ...
   'Tag','StaticText3');
if nargout > 0, fig = h0; end