/usr/share/octave/packages/nurbs-1.3.7/private/nrb_crv_basisfun__.m is in octave-nurbs 1.3.7-1build1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 | function [B, nbfu] = nrb_crv_basisfun__ (points, nrb);
% __NRB_CRV_BASISFUN__: Undocumented internal function
%
% Copyright (C) 2009 Carlo de Falco
% This software comes with ABSOLUTELY NO WARRANTY; see the file
% COPYING for details. This is free software, and you are welcome
% to distribute it under the conditions laid out in COPYING.
n = size (nrb.coefs, 2) -1;
p = nrb.order -1;
u = points;
U = nrb.knots;
w = nrb.coefs(4,:);
spu = findspan (n, p, u, U);
nbfu = numbasisfun (spu, u, p, U);
N = w(nbfu+1) .* basisfun (spu, u, p, U);
B = bsxfun (@(x,y) x./y, N, sum (N,2));
end
|