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 } , angularMomentum :: Float }
majorMass :: Float majorMass :: Float
majorMass = 200 majorMass = 100
minorMass :: Float minorMass :: Float
minorMass = 20 minorMass = 1
initialState :: State initialState :: State
initialState = State (PolarCoord 300 0) 0 0.001 initialState = State (PolarCoord 200 0) 0 150
majorRadius :: Float majorRadius :: Float
majorRadius = 20 majorRadius = 20