1// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab 2// 3// Copyright (C) 2016 - Samuel GOUGEON 4// Copyright (C) 2012 - 2016 - Scilab Enterprises 5// 6// This file is hereby licensed under the terms of the GNU GPL v2.0, 7// pursuant to article 5.3.4 of the CeCILL v.2.1. 8// This file was originally licensed under the terms of the CeCILL v2.1, 9// and continues to be available under such terms. 10// For more information, see the COPYING file which you should have received 11// along with this program. 12 13function rr = %r_imag(R) 14 n = R(2) 15 d = R(3) 16 rr = imag(n.*conj(d))./(d.*conj(d)) 17endfunction 18