?? replicate_pot.m
字號:
function rep_pot=replicate_pot(table,over,dimsizes)
%absorption_pot replicates pot table over the dimensions in over
if ~isempty(over)
rep_pot=squeeze(repmat(table,[ones(1,length(size(table))) dimsizes(over)]));
index=1:length(dimsizes);
ind=mysetdiff(index,over);
order=[ind over];
id=eye(length(dimsizes));
permatrix=id(order,:);
perm=[1:length(dimsizes)]*permatrix;
rep_pot=permute(rep_pot,perm); %permute dimensions
%put back relevant dimension of size one
rep_pot=reshape(rep_pot,dimsizes);
else
rep_pot=table;
rep_pot=reshape(rep_pot,dimsizes);%put back relevant dimension of size one
end
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -