function fig = calc(command_str);
h0 = figure('Units','normalized', ...
'Color',[0.8 0.8 0.8], ...
'FileName','calc.m', ...
'MenuBar','none', ...
'Name',' Calculator', ...
'NumberTitle','off', ...
'PaperPosition',[18 180 576 432], ...
'PaperUnits','points', ...
'Position',[0.15 0.2 0.35 0.75], ...
'Resize','off', ...
'Tag','calculator', ...
'ToolBar','none');
h1 = uicontrol('Parent',h0, ...
'Units','normalized', ...
'FontUnits','normalized', ...
'BackgroundColor',[0.8 0.8 0.8], ...
'FontName','Arial', ...
'FontSize',0.6, ...
'HorizontalAlignment','left', ...
'ListboxTop',0, ...
'Position',[0.18 0.51 0.43 0.04], ...
'String','Type Of Battery', ...
'Style','text');
h1 = uicontrol('Parent',h0, ...
'Units','normalized', ...
'FontUnits','normalized', ...
'BackgroundColor',[0.8 0.8 0.8], ...
'FontName','Arial', ...
'FontSize',0.6, ...
'HorizontalAlignment','left', ...
'ListboxTop',0, ...
'Position',[0.18 0.45 0.43 0.04], ...
'String','Battery Model', ...
'Style','text');
h1 = uicontrol('Parent',h0, ...
'Units','normalized', ...
'FontUnits','normalized', ...
'BackgroundColor',[1 1 1], ...
'Callback','inter2 BatType', ...
'FontName','Arial', ...
'FontSize',0.6, ...
'ListboxTop',0, ...
'Position',[0.7 0.51 0.2 0.05], ...
'String',['Select... ';'Lead Acid '; 'Lithium-Ion '; 'Salt Water '], ...
'Style','popupmenu', ...
'Tag','BatType', ...
'Value',1);
h1 = uicontrol('Parent',h0, ...
'Units','normalized', ...
'FontUnits','normalized', ...
'BackgroundColor',[1 1 1], ...
'Callback','inter2 BatModel', ...
'FontName','Arial', ...
'FontSize',0.6, ...
'ListboxTop',0, ...
'Position',[0.7 0.45 0.2 0.05], ...
'String',['Select... ';'Type A '], ...
'Style','popupmenu', ...
'Tag','BatModel', ...
'Value',1);
end