higher mass

This commit is contained in:
nek0 2018-06-24 00:51:21 +02:00
parent 368d679356
commit 0fff278fdb

View file

@ -72,7 +72,7 @@ springField inGraph =
(normv (mmPos node - mmPos a)) (normv (mmPos node - mmPos a))
| otherwise = | otherwise =
-- acc - V2 0 0 -- acc - V2 0 0
acc - fmap (* (1 / ((distance (mmPos node) (mmPos a)) ^ 2))) acc - fmap (* (1000 / ((distance (mmPos node) (mmPos a)) ^ 2)))
(normv (mmPos a - mmPos node)) (normv (mmPos a - mmPos node))
-- acc - fmap (* (springKonst * (len (mmPos a - mmPos node)))) -- acc - fmap (* (springKonst * (len (mmPos a - mmPos node))))
-- (signorm (mmPos a - mmPos node)) -- (signorm (mmPos a - mmPos node))