Apple-2-SW/robotwar
1
0
Fork 0
mirror of https://github.com/richardharrington/robotwar.git synced 2024-07-07 12:28:55 +00:00
Code Issues Projects Releases Wiki Activity

added some distance, time and acceleration functions

Browse Source
This commit is contained in:
Richard Harrington 2013-08-06 16:19:01 -04:00
parent 6d16b1d4aa
commit a30726aac2
1 changed files with 24 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
src/robotwar/robot.clj
View File

@ -87,6 +87,30 @@
; TODO: SHOT AND RADAR
(defn time-to-reach-desired-velocity
[vi vf a]
(let [v-diff (- vf vi)]
(if (zero? v-diff)
0
(double (/ v-diff a)))))
(defn distance-with-constant-acceleration
[vi a t]
(double (+ (* vi t) (/ (* a (Math/pow t 2)) 2))))
(defn distance-with-desired-velocity
"calculates distance travelled in either of two cases:
1) when the desired velocity is not reached during the
given time interval, in which case it's just
distance-from-constant-acceleration, and
2) when we reach the desired velocity (or are already there)
and then cruise the rest of the way."
[vi vf a t]
(let [t' (time-to-reach-desired-velocity vi vf a)]
(if (<= t t')
(distance-with-constant-acceleration vi a t)
(+ (distance-with-constant-acceleration vi a t')
(distance-with-constant-acceleration vf 0 (- t t'))))))
(defn init-robot
[idx src-code attributes]