NB. Kepler NB. written by NISHIKAWA Toshio / Japla june/2014 NB. slightly modified by m.shimura NB.evoke gerund NB. `: 0 is append NB. `:3 is insert NB. `:6 is train NB. Kepler Calc. Planet =: ". ] ;._2 (0 : 0) 0.2408 0.3871 0.6152 0.7234 1 1 1.881 1.524 11.86 5.201 29.50 9.545 84.02 19.55 164.8 30.11 248.5 39.54 ) square =: *: NB. cube =: 3 : 'y ^ 3' cube=: ^&3 kepler =: , @(square ` cube /.) kepler2=: ,@(*: ` (^&3) /.) NB. same kepler