8 lines
81 B
Mathematica
8 lines
81 B
Mathematica
|
function y = sqrtm_internal(x)
|
||
|
|
|
||
|
|
if x>=0
|
||
|
|
y = sqrt(x);
|
||
|
|
else
|
||
|
|
y = -x.^2;
|
||
|
|
end
|