R/AmbergMesh2Sparse.r

Defines functions mesh2sparse

mesh2sparse <- function(mesh)
  {
    nvb <- dim(mesh$vb)[2]
    
    out <- sparseMatrix(j=1:(nvb*4),i=rbind(1:nvb,1:nvb,1:nvb,1:nvb),x=as.vector(mesh$vb[,]))
    invisible(out)
  }
zarquon42b/mesheR documentation built on Jan. 28, 2024, 2:17 p.m.