Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2012

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: Tips for writing correct, non trivial Mathematica Libraries

  • To: mathgroup at smc.vnet.net
  • Subject: [mg124452] Re: Tips for writing correct, non trivial Mathematica Libraries
  • From: Nehal Patel <nehal.alum at gmail.com>
  • Date: Fri, 20 Jan 2012 01:50:20 -0500 (EST)
  • Delivered-to: l-mathgroup@mail-archive0.wolfram.com
  • References: <201201191012.FAA03722@smc.vnet.net> <3609A129-8BFE-453D-B414-9C1D4366BA43@mimuw.edu.pl> <A0087CCC-AB33-4507-A793-9806842F1832@gmail.com> <02BFEBF3-35C4-4C4E-83B7-E0A4EDBF6512@mimuw.edu.pl>

>> of x + y to be  Sqrt[x y], it should be (x + y)^1 = x+ y
>
> No, it shouldn't be. There is no such thing as a mean of a number or 
an algebraic expression. What you would expect is

But something like Times[2] should be ok?  It think it's a reasonable 
matter of convention whether someone feels like a definition for 
geometric mean should expect a single vector argument, or as multiple 
arguments e.g. geom[x,y,z,=85]  but I'll admit we're quibbling at this 
point and move on.

>
> Clear[geom]
>
> geom::nonlist =
>  "The argument `1` is neither a non-empty vector nor a non-empty matrix";
>
> geom[ls_] /;If[Head[ls] === List, True, Message[geom::nonlist, x]; False] :=
> Apply[Times, ls]^(1/Length[ls])

Awesome -- this is what I was curious about!  Thanks for taking the time.


  • Prev by Date: Daylight savings time in DatePlus.
  • Next by Date: Derivatives Output as TraditionalForm
  • Previous by thread: Re: Tips for writing correct, non trivial Mathematica Libraries
  • Next by thread: Re: Tips for writing correct, non trivial Mathematica Libraries