|
8 | 8 | :tags [:emmy :physics]}}} |
9 | 9 |
|
10 | 10 | (ns mentat-collective.emmy.sicm-ch01 |
11 | | - (:refer-clojure :exclude [+ - * / zero? compare divide numerator denominator infinite? abs ref partial =]) |
| 11 | + (:refer-clojure :exclude [+ - * / zero? compare divide numerator denominator |
| 12 | + time infinite? abs ref partial =]) |
12 | 13 | (:require [emmy.env :refer :all :exclude [r->p]] |
13 | 14 | [emmy.mechanics.lagrange :as lg] |
14 | 15 | [emmy.numerical.minimize :as mn] |
15 | 16 | [mentat-collective.emmy.scheme :refer :all] |
16 | 17 | [scicloj.kindly.v4.api :as kindly] |
17 | 18 | [scicloj.kindly.v4.kind :as kind])) |
18 | 19 |
|
| 20 | +^:kindly/hide-code |
| 21 | +(def md |
| 22 | + (comp kindly/hide-code kind/md)) |
| 23 | + |
| 24 | +(md "The following examples are taken from the MIT open-access book [Structure and Interpretation of Classical Mechanics (SICM)](https://mitp-content-server.mit.edu/books/content/sectbyfn/books_pres_0/9579/sicm_edition_2.zip/chapter001.html).") |
| 25 | + |
| 26 | +(md "Another notebook can be found on the [Road to Reality website](https://reality.mentat.org/essays/reality/introduction#welcome-to-the-road-to-reality!) by [Sam Ritchie](https://roadtoreality.substack.com/p/the-first-executable-essay-is-live), the author (along with [Colin Smith](https://github.com/littleredcomputer)) of [Emmy, the Computer Algebra System](https://emmy.mentat.org).") |
| 27 | + |
| 28 | +;; In adopting MIT-Scheme's `(define ...)`, I trust that Clojure people will bridge that gap quickly |
| 29 | +;; while being sure of the gratitude of all readers of the immutable, dense book. |
| 30 | + |
19 | 31 | ^:kindly/hide-code |
20 | 32 | (def velocities velocity) |
21 | 33 |
|
|
31 | 43 | ^:kindly/hide-code |
32 | 44 | (def tex (comp kind/tex emmy.expression.render/->TeX simplify)) |
33 | 45 |
|
34 | | -^:kindly/hide-code |
35 | | -(def md |
36 | | - (comp kindly/hide-code kind/md)) |
37 | | - |
38 | | -(md "The following examples are taken from the MIT open-access book [Structure and Interpretation of Classical Mechanics (SICM)](https://mitp-content-server.mit.edu/books/content/sectbyfn/books_pres_0/9579/sicm_edition_2.zip/chapter001.html).") |
39 | | - |
40 | | -(md "Another notebook can be found on the [Road to Reality website](https://reality.mentat.org/essays/reality/introduction#welcome-to-the-road-to-reality!) by [Sam Ritchie](https://roadtoreality.substack.com/p/the-first-executable-essay-is-live), the author (along with [Colin Smith](https://github.com/littleredcomputer)) of [Emmy, the Computer Algebra System](https://emmy.mentat.org).") |
41 | | - |
42 | | -;; In adopting MIT-Scheme's `(define ...)`, I trust that Clojure people will bridge that gap quickly |
43 | | -;; while being sure of the gratitude of all readers of the immutable, dense book. |
44 | | - |
45 | 46 | (md "## 1.4 Computing Actions") |
46 | 47 | (md "First task: Calculate the action for the free particle along a path. Consider the particle moving at uniform speed along a straight line.") |
47 | 48 |
|
|
0 commit comments