cdo/gravity
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Tweak parameters a little

Browse Source
This commit is contained in:
Camden Dixie O'Brien 2021-01-01 00:00:40 +00:00
parent 9d08799f80
commit 6119616f28
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Main.hs
View File

@ -13,13 +13,13 @@ data State = State { position :: PolarCoord
, angularMomentum :: Float }
majorMass :: Float
majorMass = 200
majorMass = 100
minorMass :: Float
minorMass = 20
minorMass = 1
initialState :: State
initialState = State (PolarCoord 300 0) 0 0.001
initialState = State (PolarCoord 200 0) 0 150
majorRadius :: Float
majorRadius = 20