1// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
2//
3// Copyright (C) 2019 - Stéphane MOTTELET
4//
5// This file is hereby licensed under the terms of the GNU GPL v2.0,
6
7function n = %p_nnz(p)
8 n = size(p,"*") - nnz(isinf(degree(p)))
9endfunction
10