extra: Finish renaming a couple words
parent
b1a70d47a4
commit
b546d88e83
|
@ -221,7 +221,7 @@ DEFER: (d)
|
||||||
] if ;
|
] if ;
|
||||||
|
|
||||||
: laplacian-matrix ( basis1 basis2 basis3 -- matrix )
|
: laplacian-matrix ( basis1 basis2 basis3 -- matrix )
|
||||||
dupd d-matrix mdotm' [ d-matrix m'.m ] dip ?m+ ;
|
dupd d-matrix mdotm' [ d-matrix m'dotm ] dip ?m+ ;
|
||||||
|
|
||||||
: laplacian-betti ( basis1 basis2 basis3 -- n )
|
: laplacian-betti ( basis1 basis2 basis3 -- n )
|
||||||
laplacian-matrix null/rank drop ;
|
laplacian-matrix null/rank drop ;
|
||||||
|
|
|
@ -31,5 +31,5 @@ CONSTANT: R_earth 6372.8 ! in kilometers
|
||||||
[ [ swap - haversin ] 2map ]
|
[ [ swap - haversin ] 2map ]
|
||||||
[ [ first cos ] bi@ * 1 swap 2array ]
|
[ [ first cos ] bi@ * 1 swap 2array ]
|
||||||
2bi
|
2bi
|
||||||
v.
|
vdot
|
||||||
haversininv R_earth * ;
|
haversininv R_earth * ;
|
||||||
|
|
Loading…
Reference in New Issue