6 lines
109 B
Mathematica
6 lines
109 B
Mathematica
|
function z = negated_perspective_log(x)
|
||
|
|
if isequal(x(1),[0])
|
||
|
|
z = 0;
|
||
|
|
else
|
||
|
|
z = x(1)*log(x(1)/x(2));
|
||
|
|
end
|