- Author:
- WeiweiAi <wai484@aucklanduni.ac.nz>
- Date:
- 2022-04-28 10:16:25+12:00
- Desc:
- Add writePara.m for documentation
- Permanent Source URI:
- https://models.cellml.org/workspace/6bc/rawfile/389a65e6b05f56b571eae0673c8f089214440681/Scripts/copyComp.m
function comp=copyComp(comp,listComp,idx)
cmnames=string(extractfield(comp,'name'));%unique
if length(cmnames)>length(unique(cmnames))
disp('There are repetitions of component names')
return
end
def=listComp(:,1);
name=listComp(:,2);
nComp=length(name);
defaultVars=listComp(:,3);
for i=1:nComp
% default
icomp=comp(cmnames==def(i));
icomp.name=name(i);
if defaultVars=="N"
% rename some of the aliases for mapping
nvar=length(icomp.vars(:,idx.var));
for n=1:nvar
var= icomp.vars(n,idx.var);
alias=icomp.vars(n,idx.alias);
prompt = sprintf('%s-->:%s?',var,alias);
str = input(prompt,"s");
if ~isempty(str)
icomp.vars(n,idx.alias)=str;
end
end
end
comp=[comp,icomp];
end
end