powered by
Compute the adjacency matrix of the gaussian weighted graph
adjacency_mat( pts, f = function(x) { exp(-x^2/8) }, s = 0 )
coordinates of N points in \(R^3\).
is a scalar potential (\(\exp(-x^2/2t^2)\) for gaussian potential)
is a threhold to sparisfy the matrix
laplacian_mat, swissroll
laplacian_mat
swissroll
pts <- swissroll(N=100, seed=0, a=1, b=4) W <- adjacency_mat(pts)
Run the code above in your browser using DataLab