Merge pull request #333 from Kyarigwo/UpdateNBodyExample

Updated n-body example
uiua-lang · Dec 26, 2023 · 84aa831 · 84aa831
2 parents e1049df + 4bd8994
commit 84aa831
Showing 1 changed file with 8 additions and 8 deletions.
diff --git a/examples/n-body.ua b/examples/n-body.ua
@@ -3,20 +3,20 @@ Dt ← 0.01
 Steps ← 120
 
 Step ← (
- ⊞≠.⇡⧻. # Make comparison matrix
- ⊃(≡▽⊙¤)⋅∘ # Make others
- ⊃≡(≡-¤)∘: # Get diffs
- ÷⍜(☇1|≡/+×.). # Inverse square
- ≡/+×G # Get accs
- ⊃⟜+⋅∘ ×Dt  # Apply accs
- ⊃(+×Dt)∘ # Apply vels
+ ⊞≠.⇡⧻.  # Make comparison matrix
+ ⊃(≡▽⊙¤)⋅∘  # Make others
+ ⊃≡(-¤)∘:  # Get diffs
+ ÷⍜(☇1|≡/+×.).  # Inverse square
+ ≡/+×G  # Get accs
+ ⊃(+⊙⋅∘)(⋅∘)×Dt # apply accs
+ ⊃(+×Dt)∘  # Apply vels
 )
 
 [0_60 150_0 30_15 80_110]
 ⊃∘(↯:0⊂:2⧻) # Init vels
 
 ⁅×0.5⇌[⊙;⍥(Step ,:)Steps] # Run
-⍜⊙(☇1)≡-¤/↧☇1. # Normalize
+⍜⊙(☇1)-¤/↧☇1.  # Normalize
 ⬚0≡(°⊚) # Plot
 ≡(⍜(☇2)≡(/↥/↥) ◫3_3) # Upscale