Changed the name of the third output (conflict with the neperian logarithm function).
parent
8982d49539
commit
ff98f65cf6
|
@ -45,26 +45,26 @@ end
|
||||||
for i=1:nn
|
for i=1:nn
|
||||||
% Write the temporary test routine.
|
% Write the temporary test routine.
|
||||||
tid = fopen([fname '_test_' int2str(i) '.m'],'w');
|
tid = fopen([fname '_test_' int2str(i) '.m'],'w');
|
||||||
fprintf(tid,['function [T,t,log] = ' fname '_test_' int2str(i) '()\n']);
|
fprintf(tid,['function [T,t,LOG] = ' fname '_test_' int2str(i) '()\n']);
|
||||||
fprintf(tid,['try\n']);
|
fprintf(tid,['try\n']);
|
||||||
for j=b1(i):b2(i)
|
for j=b1(i):b2(i)
|
||||||
str = file{j};
|
str = file{j};
|
||||||
fprintf(tid,[str(4:end) '\n']);
|
fprintf(tid,[str(4:end) '\n']);
|
||||||
end
|
end
|
||||||
fprintf(tid,['log = NaN;\n']);
|
fprintf(tid,['LOG = NaN;\n']);
|
||||||
fprintf(tid,['catch exception\n']);
|
fprintf(tid,['catch exception\n']);
|
||||||
fprintf(tid,['log = getReport(exception,''extended'');\n']);
|
fprintf(tid,['LOG = getReport(exception,''extended'');\n']);
|
||||||
fprintf(tid,['T = NaN;\n']);
|
fprintf(tid,['T = NaN;\n']);
|
||||||
fprintf(tid,['t = NaN;\n']);
|
fprintf(tid,['t = NaN;\n']);
|
||||||
fprintf(tid,['end\n']);
|
fprintf(tid,['end\n']);
|
||||||
fclose(tid);
|
fclose(tid);
|
||||||
% Call the temporary test routine.
|
% Call the temporary test routine.
|
||||||
[TestFlag,TestDetails,log] = feval([fname '_test_' int2str(i)]);
|
[TestFlag,TestDetails,LOG] = feval([fname '_test_' int2str(i)]);
|
||||||
if isnan(TestFlag)
|
if isnan(TestFlag)
|
||||||
fprintf(['\n'])
|
fprintf(['\n'])
|
||||||
fprintf(['Call to ' fname ' test routine n°' int2str(i) ' failed (' datestr(now) ')!\n'])
|
fprintf(['Call to ' fname ' test routine n°' int2str(i) ' failed (' datestr(now) ')!\n'])
|
||||||
fprintf(['\n'])
|
fprintf(['\n'])
|
||||||
disp(log)
|
disp(LOG)
|
||||||
check = 0;
|
check = 0;
|
||||||
continue
|
continue
|
||||||
end
|
end
|
||||||
|
|
Loading…
Reference in New Issue