|
|
|
|
|
by goldenkey
3143 days ago
|
|
The main point of the code was to create new means and show derivation of known means.
It's easy to write a geometric mean in any language. Having the solve function in Mathematica makes it possible to do dynamically generated means that wouldn't be possible in languages without a strong CAS library. Also, will J error out on gm a b ? or gm a 100?
The beauty of Mathematica is that I can still get results results in algebraic form, when I leave variables unset. In:= GeneralizedMean[{x, y, z, t}, (#*#2) &] Out= (t x y z)^(1/4) |
|
I still use Maxima on my Android phone along with J. Wolfram Alpha is nice to have too on it!
Also my example was missing the * even though it was explained below. It should be: gm =: #%:*/