One quick suggestion is that arithmetic operations in Clojure frequently take multiple arguments. So:
(reduce + [1 2 3]) Is equivalent to: (+ 1 2 3) In terms of style, variables are typically lower-case in Clojure except when referring to a class, interface or protocol. - James On 30 July 2015 at 19:03, kirby urner <kirby.ur...@gmail.com> wrote: > Greetings all. > > I'm new to Clojure (but not to programming) and wanted to document a first > effort. > The blog post: http://controlroom.blogspot.com/2015/07/ramping-up.html > > === > > (ns test-project.synmods) > > (defn add-open > [edges] > (let [[a b c d e f] edges > [a2 b2 c2 d2 e2 f2] (map (fn [x] (* x x)) edges )] > (do > (reduce + [ > (reduce * [f2 a2 b2]) > (reduce * [d2 a2 c2]) > (reduce * [a2 b2 e2]) > (reduce * [c2 b2 d2]) > (reduce * [e2 c2 a2]) > (reduce * [f2 c2 b2]) > (reduce * [e2 d2 a2]) > (reduce * [b2 d2 f2]) > (reduce * [b2 e2 f2]) > (reduce * [d2 e2 c2]) > (reduce * [a2 f2 e2]) > (reduce * [d2 f2 c2])]) > ))) > > (defn add-closed > [edges] > (let [[a b c d e f] edges > [a2 b2 c2 d2 e2 f2] (map (fn [x] (* x x)) edges )] > (do > (reduce + [ > (reduce * [a2 b2 d2]) > (reduce * [d2 e2 f2]) > (reduce * [b2 c2 e2]) > (reduce * [a2 c2 f2])]) > ))) > > (defn add-opposite > [edges] > (let [[a b c d e f] edges > [a2 b2 c2 d2 e2 f2] (map (fn [x] (* x x)) edges )] > (do > (reduce + [ > (reduce * [a2 e2 (+ a2 e2)]) > (reduce * [b2 f2 (+ b2 f2)]) > (reduce * [c2 d2 (+ c2 d2)])]) > ))) > > (defn Volume > [edges] > (let [ open ( add-open edges) > closed ( add-closed edges) > opposite ( add-opposite edges)] > (Math/sqrt (* (- (- open closed) opposite) 0.5)))) > > (println (format "All edges D=1, Volume: %s" (Volume [1.0 1.0 1.0 1.0 1.0 > 1.0]) )) > > ; A Module > (def a 1.0) > (def EF (* a (/ (Math/sqrt 6.0) 12.0 ))) > (def EC (* a (/ (Math/sqrt 6.0) 4.0 ))) > (def ED (* a (/ (Math/sqrt 2.0) 4.0 ))) > (def FC (* a (/ (Math/sqrt 3.0) 3.0 ))) > (def CD (/ a 2.0) ) > (def DF (* a (/ (Math/sqrt 3.0) 6.0 ))) > > (def Avol (Volume [EF EC ED FC CD DF])) > (println (format "Amod volume: %s" Avol)) > > ; E Module > ; Fig. 986.411A T & E Module > ; http://www.rwgrayprojects.com/synergetics/s09/figs/f86411a.html > > (def D 1.0) > (def R (/ D 2.0)) > (def h R) > > (def OC h) > (def OA (* h (Math/sqrt (/ (- 5.0 (Math/sqrt 5.0)) 2.0))) ) > (def OB (* h (Math/sqrt (/ (- 9.0 (* 3 (Math/sqrt 5.0))) 2.0)))) > (def CA (* (/ h 2.0) (- (Math/sqrt 5.0) 1.0))) > (def AB (* h (Math/sqrt (- 5.0 (* 2.0 (Math/sqrt 5.0)))))) > (def BC (* (/ h 2.0) (- 3.0 (Math/sqrt 5.0)))) > > (def Evol (Volume [OC OA OB CA AB BC])) > (println (format "Emod volume: %s" Evol)) > > ; S Module > ; Fig. 988.13A S Quanta Module Edge Lengths > ; http://www.rwgrayprojects.com/synergetics/s09/figs/f8813a.html > > (def a D) > (def FG (* (/ a 2.0) (* (Math/sqrt 3.0) (Math/sqrt (- 7.0 (* 3.0 ( Math/sqrt > 5.0))))) ) ) > (def FE (* a (Math/sqrt (- 7.0 (* 3.0 (Math/sqrt 5)))))) > (def FH (* (/ a 2.0) (- (Math/sqrt 5.0) 1.0))) > (def GE (* (/ a 2.0) (Math/sqrt (- 7.0 (* 3.0 ( Math/sqrt 5)))))) > (def EH (* (/ a 2.0) (- 3.0 (Math/sqrt 5.0)))) > (def HG GE) > > (def Svol (Volume [FG FE FH GE EH HG])) > (println (format "Smod volume: %s" Svol)) > > (println (format "sFactor: %s" (/ Svol Evol))) > > > -- > You received this message because you are subscribed to the Google > Groups "Clojure" group. > To post to this group, send email to clojure@googlegroups.com > Note that posts from new members are moderated - please be patient with > your first post. > To unsubscribe from this group, send email to > clojure+unsubscr...@googlegroups.com > For more options, visit this group at > http://groups.google.com/group/clojure?hl=en > --- > You received this message because you are subscribed to the Google Groups > "Clojure" group. > To unsubscribe from this group and stop receiving emails from it, send an > email to clojure+unsubscr...@googlegroups.com. > For more options, visit https://groups.google.com/d/optout. > -- You received this message because you are subscribed to the Google Groups "Clojure" group. To post to this group, send email to clojure@googlegroups.com Note that posts from new members are moderated - please be patient with your first post. To unsubscribe from this group, send email to clojure+unsubscr...@googlegroups.com For more options, visit this group at http://groups.google.com/group/clojure?hl=en --- You received this message because you are subscribed to the Google Groups "Clojure" group. To unsubscribe from this group and stop receiving emails from it, send an email to clojure+unsubscr...@googlegroups.com. For more options, visit https://groups.google.com/d/optout.