8 lines
339 B
Plaintext
8 lines
339 B
Plaintext
n@(Number traits) cubed [n raisedTo: 3].
|
|
n@(Number traits) cubeRoot [n raisedTo: 1 / 3].
|
|
define: #forward -> {#cos `er. #sin `er. #cube `er}.
|
|
define: #reverse -> {#arcCos `er. #arcSin `er. #cubeRoot `er}.
|
|
|
|
define: #composedMethods -> (forward with: reverse collect: #compose: `er).
|
|
composedMethods do: [| :m | inform: (m applyWith: 0.5)].
|