Advisor2002,众所周知,只支持Matlab6.5版本,但目前大多数Matlab都是高级版本。一下是总结解决了Advisor2002无法在高版本运行的问题,在Matlab2008a和2010上都运行成功!
修改步骤如下:
1.将ADVISOR2002patchforR13.m拷进Advisor的文件目录,如E:\Program\Advisor2002下;
2.在Matlab中将运行目录也改为E:\Program\Advisor2002;
3.Matlab的Command Window窗口输入ADVISOR2002patchforR13.m,可以以直接运行ADVISOR2002patchforR13.m,之后会看到Advisor的底层模块被不断更新;
4.更新完成后,在Command Window窗口输入advisor,运行advisor2002,之后点continue,如果Matlab提示出错,则找到出错的文件,一般是“get_cycle_info.m”,将第25行的“break”改成“return”,保存后重新运行advisor2002;继续找到出错的地方,将“break”改成“return”;
5.全部修改完后,advisor2002即可正确运行。如果第三步中更新出错,则可先做第四步,再进行第三步,三四步交替来做,直到没有提示错误。
ADVISOR2002patchforR13.m文件内容如下,大家可以新建个m文件,将下面的内容复制粘贴并保存为ADVISOR2002patchforR13.m即可。
%this file will updateall the block diagrams in the models directory in ADVISOR
%so that they will workin Mathworks Release 13. This assumesthat you have ADVISOR 2002
%and it is alreadyincluded in your Matlab path which is done automatically when you type
%advisor at the commandprompt.
%
% place this file in yourcurrent working directory in Matlab and type it's name.
%
% Here's what we postedon the advisor community web site regarding this error.
%
% Aug-30-2002 7:22 AM
%
% Regarding the booleantype problem in R13: Release 13 of Matlab has introduced
% a new type calledlogical. The problem is in the block diagrams in the accessory
% loads masked subsystem.Go to BD_PAR for instance and click on "mechanical accessory loads "
% then click on the"Mechanical Accessory Loads V2 " block. You will see a mask windowpop
% open. At the top, youwill see the "not" function used. In release 12 and earlier, this
% function returned a 1or a 0 for true and false. Now it returns a new type, logical. This
% is causing theproblems. To fix the problem, multiply by 1 (which causes a type change
% to double). That shouldfix the logical errors.
clear all
%change directories to the models directory
cd(strrep(which('advisor.m'),'advisor.m','models'))
%get the list ofeverything in the models directory
dir_list=dir;
%For the items in thedirectory that are .mdl files, do the following
k=1;
for i=1:length(dir_list)
if ~isempty(strfind(dir_list(i).name,'.mdl'))
%suppress warnings
warning off
open_system(dir_list(i).name);
system=find_system(strrep(dir_list(i).name,'.mdl',''), 'RegExp','on', 'Name', 'Mechanical Accessory\nLoads v2
%if the system in question is found do the following
if ~isempty(system)
%fix the system name
z=isspace(system{1}); %find spaces and carriage returns and make sure they arejust spaces
for j=1:length(system{1});
if z(j)==1 ;
system{1}(j)=' ';
end
end
settings=get_param(system,'maskvalues');
if strcmp(settings{1}{1},'not(ess_on)') %check to see if already fixed
settings{1}{1}='not(ess_on)*1'; %add the *1 to make it a real number instead of a boolean
set_param(system{1},'maskvalues',settings{1})%set the mask values
save_system(strrep(dir_list(i).name,'.mdl','')); %save theblock diagram
saved_systems{k,1}=dir_list(i).name; %keep track of what models were updated
k=k+1;
end
end
close_system(strrep(dir_list(i).name,'.mdl',''))
end
end
disp('ADVISOR2002 update for it to run in R13 of Matlab')
if exist('saved_systems')
disp('the following block diagrams were changed and saved:')
disp(saved_systems)
else
disp('no block diagrams in the models directory needed to be updated')
end
warning on