grey/BOSL2
1
0
Fork 0
mirror of https://github.com/BelfrySCAD/BOSL2.git synced 2024-12-29 16:29:40 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

bug fix for qr_factor in case of zero columns

Browse source
This commit is contained in:
Adrian Mariano 2020-07-06 21:50:50 -04:00
parent 24009b51c2
commit 8fed4dece9
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
math.scad
View file

@ -478,7 +478,7 @@ function cumsum(v,_i=0,_acc=[]) =
// sum_of_squares([1,2,3]); // Returns: 14.
// sum_of_squares([1,2,4]); // Returns: 21
// sum_of_squares([-3,-2,-1]); // Returns: 14
function sum_of_squares(v, i=0, tot=0) = sum(vmul(v,v));
function sum_of_squares(v) = sum(vmul(v,v));
// Function: sum_of_sines()
@ -634,7 +634,7 @@ function _qr_factor(A,Q, column, m, n) =
x = [for(i=[column:1:m-1]) A[i][column]],
alpha = (x[0]<=0 ? 1 : -1) * norm(x),
u = x - concat([alpha],repeat(0,m-1)),
v = u / norm(u),
v = alpha==0 ? u : u / norm(u),
Qc = ident(len(x)) - 2*transpose([v])*[v],
Qf = [for(i=[0:m-1]) [for(j=[0:m-1]) i<column || j<column ? (i==j ? 1 : 0) : Qc[i-column][j-column]]]
)