Re: Pattern in immediate definition
- To: mathgroup at smc.vnet.net
- Subject: [mg120784] Re: Pattern in immediate definition
- From: Simon <simonjtyler at gmail.com>
- Date: Thu, 11 Aug 2011 03:26:46 -0400 (EDT)
- Delivered-to: l-mathgroup@mail-archive0.wolfram.com
- References: <j1o6dl$4i4$1@smc.vnet.net>
- Reply-to: comp.soft-sys.math.mathematica at googlegroups.com
Everyone else has given the sensible answer that you should use
Block[{a,b,...}, defn]
around your function definition.
So I'll just make a few small notes:
Your code:
F = {{a, b, c}, {d, e, f}, {g, h, k}};
det = Det[F];
Flatten[Table[D[det, F[[i, j]]], {i, 1, 3}, {j, 1, 3}]]
can be simplified to
F = {{a, b, c}, {d, e, f}, {g, h, k}};
Flatten[D[Det[F], {F}]]
and it is equivalent the flattened transpose of the adjugate (adjoint) of F, which can be calculated using Minors[F] (see the Applications part of the docs for Minors).