Matrices as operators

*To*: mathgroup at smc.vnet.net*Subject*: [mg122993] Matrices as operators*From*: Chris Young <cy56 at comcast.net>*Date*: Sun, 20 Nov 2011 05:34:20 -0500 (EST)*Delivered-to*: l-mathgroup@mail-archive0.wolfram.com

I'd like to be able to abbreviate matrices such as rotation matrices so that I don't have to repeat the argument. This way I can pass in more complicated arguments and it also shows the structure of the transformation more clearly. Through[( { {Cos, -Sin}, {Sin, Cos} } )[Î¸]] will get me partway there: Out: {{Cos, -Sin}[Î¸], {Sin, Cos}[Î¸]} I have to apply Thread and Through again to finally get what I want: In: Thread[Through[{{Cos, -Sin}[Î¸], {Sin, Cos}[Î¸]}]] Out: {{Cos[Î¸], (-Sin)[Î¸]}, {Sin[Î¸], Cos[Î¸]}} Is there a shortcut way to do this all in one step? Thanks very much for any help. Chris Young cy56 at comcast.net

**Follow-Ups**:**Re: Matrices as operators***From:*Bob Hanlon <hanlonr357@gmail.com>