sqr.m

来自「计算动力学系统的分岔图」· M 代码 · 共 12 行

function ans = sqr(x)

%sqr for adtayl objects.

[m,n,p1] = size(x.tc);

if n>1 
   error('X^Y for adtayl objects is not defined'); 
else   

ans=x.*x;
end