/usr/share/octave/packages/nurbs-1.3.13/private/nrb_crv_basisfun_der__.m is in octave-nurbs 1.3.13-4.
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 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 | function [Bu, nbfu] = nrb_crv_basisfun_der__ (points, nrb)
% __NRB_CRV_BASISFUN_DER__: Undocumented internal function
%
% Copyright (C) 2009 Carlo de Falco
% Copyright (C) 2013 Rafael Vazquez
%
% 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.
warning ('nrb_crv_basisfunder__ is deprecated. Use nrbbasisfunder, instead')
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);
Nprime = basisfunder (spu, p, u, U, 1);
N = reshape (Nprime(:,1,:), numel(u), p+1);
Nprime = reshape (Nprime(:,2,:), numel(u), p+1);
[Dpc, Dpk] = bspderiv (p, w, U);
D = bspeval (p, w, U, u);
Dprime = bspeval (p-1, Dpc, Dpk, u);
Bu1 = bsxfun (@(np, d) np/d , Nprime.', D);
Bu2 = bsxfun (@(n, dp) n*dp, N.', Dprime./D.^2);
Bu = w(nbfu+1) .* (Bu1 - Bu2).';
end
|