Skipping indices in a product The Next CEO of Stack OverflowWhat's the best way to generate all the upper triangular matrix whose singular values are given?What is the fastest way to obtain the eigenvalues of a Wishart matrix?Evaluating the product of a matrix sequenceMapping over two indices with a conditionOuter product using the quantum mathematica packageWhy does Eigenvalues work for a matrix $M$ but not $M$?Conditions on a productHow to put conditions on indices of productProduct of matrices with symbolic boundsInverting a matrix when its elements are given by difficult expressions?

Number of real Solution

Contours of a clandestine nature

Keeping you safe

Workaholic Formal/Informal

Can we say or write : "No, it'sn't"?

What benefits would be gained by using human laborers instead of drones in deep sea mining?

What happens if you roll doubles 3 times then land on "Go to jail?"

Won the lottery - how do I keep the money?

How does the mv command work with external drives?

Is there a difference between "Fahrstuhl" and "Aufzug"

How do we know the LHC results are robust?

Help understanding this unsettling image of Titan, Epimetheus, and Saturn's rings?

How to safely derail a train during transit?

How to count occurrences of text in a file?

Why don't programming languages automatically manage the synchronous/asynchronous problem?

Why am I allowed to create multiple unique pointers from a single object?

Is it professional to write unrelated content in an almost-empty email?

What flight has the highest ratio of time difference to flight time?

Is HostGator storing my password in plaintext?

What happened in Rome, when the western empire "fell"?

Why does standard notation not preserve intervals (visually)

How to start emacs in "nothing" mode (`fundamental-mode`)

Why do we use the plural of movies in this phrase "We went to the movies last night."?

Skipping indices in a product



Skipping indices in a product



The Next CEO of Stack OverflowWhat's the best way to generate all the upper triangular matrix whose singular values are given?What is the fastest way to obtain the eigenvalues of a Wishart matrix?Evaluating the product of a matrix sequenceMapping over two indices with a conditionOuter product using the quantum mathematica packageWhy does Eigenvalues work for a matrix $M$ but not $M$?Conditions on a productHow to put conditions on indices of productProduct of matrices with symbolic boundsInverting a matrix when its elements are given by difficult expressions?










1












$begingroup$


I have a matrix $A$ for which I want to compute the quantity $Tlambda_j = Pi_lambda_ine lambda_j fracA - lambda_i Ilambda_j-lambda_i$, where $lambda_i$ ($lambda_j$) denote the eigenvalues of $A$. How can this be implemented in Mathematica? Just gave a try here:



A = 1, 0, 0, 1,0, 1, 2, 0,1, 1, 0, 2,0, 0, 0, 1;
Eigenvalues[A]



2, -1, 1, 1




Tj = Product[(A - Eigenvalues[A][[i]] IdentityMatrix[4])/(
Eigenvalues[A][[j]] - Eigenvalues[A][[i]]), i, 1, 4]









share|improve this question











$endgroup$











  • $begingroup$
    in which part exactly you want to exclude it in Tj !??
    $endgroup$
    – Alrubaie
    1 hour ago










  • $begingroup$
    do you want it to be skipped put not Zero right !?
    $endgroup$
    – Alrubaie
    1 hour ago










  • $begingroup$
    @Alrubaie, there was a typo in my post. Just edited it. I want the denominator to be non-zero and hence avoid the case for which $i=j$.
    $endgroup$
    – Tobias Fritzn
    1 hour ago










  • $begingroup$
    @Alrubaie, my $i$ and $j$ are not the indices in my question. They are the eigenvalues. I should have used something like $lambda_i$ and $lambda_j$.
    $endgroup$
    – Tobias Fritzn
    1 hour ago






  • 2




    $begingroup$
    That product is presumably a matrix multiplication?
    $endgroup$
    – J. M. is slightly pensive
    49 mins ago















1












$begingroup$


I have a matrix $A$ for which I want to compute the quantity $Tlambda_j = Pi_lambda_ine lambda_j fracA - lambda_i Ilambda_j-lambda_i$, where $lambda_i$ ($lambda_j$) denote the eigenvalues of $A$. How can this be implemented in Mathematica? Just gave a try here:



A = 1, 0, 0, 1,0, 1, 2, 0,1, 1, 0, 2,0, 0, 0, 1;
Eigenvalues[A]



2, -1, 1, 1




Tj = Product[(A - Eigenvalues[A][[i]] IdentityMatrix[4])/(
Eigenvalues[A][[j]] - Eigenvalues[A][[i]]), i, 1, 4]









share|improve this question











$endgroup$











  • $begingroup$
    in which part exactly you want to exclude it in Tj !??
    $endgroup$
    – Alrubaie
    1 hour ago










  • $begingroup$
    do you want it to be skipped put not Zero right !?
    $endgroup$
    – Alrubaie
    1 hour ago










  • $begingroup$
    @Alrubaie, there was a typo in my post. Just edited it. I want the denominator to be non-zero and hence avoid the case for which $i=j$.
    $endgroup$
    – Tobias Fritzn
    1 hour ago










  • $begingroup$
    @Alrubaie, my $i$ and $j$ are not the indices in my question. They are the eigenvalues. I should have used something like $lambda_i$ and $lambda_j$.
    $endgroup$
    – Tobias Fritzn
    1 hour ago






  • 2




    $begingroup$
    That product is presumably a matrix multiplication?
    $endgroup$
    – J. M. is slightly pensive
    49 mins ago













1












1








1





$begingroup$


I have a matrix $A$ for which I want to compute the quantity $Tlambda_j = Pi_lambda_ine lambda_j fracA - lambda_i Ilambda_j-lambda_i$, where $lambda_i$ ($lambda_j$) denote the eigenvalues of $A$. How can this be implemented in Mathematica? Just gave a try here:



A = 1, 0, 0, 1,0, 1, 2, 0,1, 1, 0, 2,0, 0, 0, 1;
Eigenvalues[A]



2, -1, 1, 1




Tj = Product[(A - Eigenvalues[A][[i]] IdentityMatrix[4])/(
Eigenvalues[A][[j]] - Eigenvalues[A][[i]]), i, 1, 4]









share|improve this question











$endgroup$




I have a matrix $A$ for which I want to compute the quantity $Tlambda_j = Pi_lambda_ine lambda_j fracA - lambda_i Ilambda_j-lambda_i$, where $lambda_i$ ($lambda_j$) denote the eigenvalues of $A$. How can this be implemented in Mathematica? Just gave a try here:



A = 1, 0, 0, 1,0, 1, 2, 0,1, 1, 0, 2,0, 0, 0, 1;
Eigenvalues[A]



2, -1, 1, 1




Tj = Product[(A - Eigenvalues[A][[i]] IdentityMatrix[4])/(
Eigenvalues[A][[j]] - Eigenvalues[A][[i]]), i, 1, 4]






matrix operators products






share|improve this question















share|improve this question













share|improve this question




share|improve this question








edited 25 mins ago









That Gravity Guy

2,1311615




2,1311615










asked 1 hour ago









Tobias FritznTobias Fritzn

1745




1745











  • $begingroup$
    in which part exactly you want to exclude it in Tj !??
    $endgroup$
    – Alrubaie
    1 hour ago










  • $begingroup$
    do you want it to be skipped put not Zero right !?
    $endgroup$
    – Alrubaie
    1 hour ago










  • $begingroup$
    @Alrubaie, there was a typo in my post. Just edited it. I want the denominator to be non-zero and hence avoid the case for which $i=j$.
    $endgroup$
    – Tobias Fritzn
    1 hour ago










  • $begingroup$
    @Alrubaie, my $i$ and $j$ are not the indices in my question. They are the eigenvalues. I should have used something like $lambda_i$ and $lambda_j$.
    $endgroup$
    – Tobias Fritzn
    1 hour ago






  • 2




    $begingroup$
    That product is presumably a matrix multiplication?
    $endgroup$
    – J. M. is slightly pensive
    49 mins ago
















  • $begingroup$
    in which part exactly you want to exclude it in Tj !??
    $endgroup$
    – Alrubaie
    1 hour ago










  • $begingroup$
    do you want it to be skipped put not Zero right !?
    $endgroup$
    – Alrubaie
    1 hour ago










  • $begingroup$
    @Alrubaie, there was a typo in my post. Just edited it. I want the denominator to be non-zero and hence avoid the case for which $i=j$.
    $endgroup$
    – Tobias Fritzn
    1 hour ago










  • $begingroup$
    @Alrubaie, my $i$ and $j$ are not the indices in my question. They are the eigenvalues. I should have used something like $lambda_i$ and $lambda_j$.
    $endgroup$
    – Tobias Fritzn
    1 hour ago






  • 2




    $begingroup$
    That product is presumably a matrix multiplication?
    $endgroup$
    – J. M. is slightly pensive
    49 mins ago















$begingroup$
in which part exactly you want to exclude it in Tj !??
$endgroup$
– Alrubaie
1 hour ago




$begingroup$
in which part exactly you want to exclude it in Tj !??
$endgroup$
– Alrubaie
1 hour ago












$begingroup$
do you want it to be skipped put not Zero right !?
$endgroup$
– Alrubaie
1 hour ago




$begingroup$
do you want it to be skipped put not Zero right !?
$endgroup$
– Alrubaie
1 hour ago












$begingroup$
@Alrubaie, there was a typo in my post. Just edited it. I want the denominator to be non-zero and hence avoid the case for which $i=j$.
$endgroup$
– Tobias Fritzn
1 hour ago




$begingroup$
@Alrubaie, there was a typo in my post. Just edited it. I want the denominator to be non-zero and hence avoid the case for which $i=j$.
$endgroup$
– Tobias Fritzn
1 hour ago












$begingroup$
@Alrubaie, my $i$ and $j$ are not the indices in my question. They are the eigenvalues. I should have used something like $lambda_i$ and $lambda_j$.
$endgroup$
– Tobias Fritzn
1 hour ago




$begingroup$
@Alrubaie, my $i$ and $j$ are not the indices in my question. They are the eigenvalues. I should have used something like $lambda_i$ and $lambda_j$.
$endgroup$
– Tobias Fritzn
1 hour ago




2




2




$begingroup$
That product is presumably a matrix multiplication?
$endgroup$
– J. M. is slightly pensive
49 mins ago




$begingroup$
That product is presumably a matrix multiplication?
$endgroup$
– J. M. is slightly pensive
49 mins ago










3 Answers
3






active

oldest

votes


















3












$begingroup$

Here is my pedestrian implementation of your formula:



a = 1, 0, 0, 1, 0, 1, 2, 0, 1, 1, 0, 2, 0, 0, 0, 1;

ClearAll[t]
t[amat_, j_] := Module[
evals, usable,
evals = Eigenvalues[amat];
usable = DeleteDuplicates@Cases[evals, Except@evals[[j]] ];
Dot @@
Table[
(amat - i IdentityMatrix[Length[amat]])/(evals[[j]] - i),
i, usable
]
]

t[a, 4]


Mathematica graphics



You do not provide an example of desired output, so I will let you check whether this is what you expect.






share|improve this answer









$endgroup$












  • $begingroup$
    Thanks, @MarcoB. It leads precisely to the expected result. However, it looks too complicated. Nevertheless, it is fine as it works.
    $endgroup$
    – Tobias Fritzn
    37 mins ago



















2












$begingroup$

Something like this?



Clear[A, evals, T]
A = 1, 0, 0, 1, 0, 1, 2, 0, 1, 1, 0, 2, 0, 0, 0, 1;
T[A_?MatrixQ, j_Integer] := With[
evals = Eigenvalues[A], id = IdentityMatrix@Length@A,
Dot @@ Table[
If[evals[[j]] - evals[[i]] == 0, id, (A - evals[[i]] id)/(evals[[j]] - evals[[i]])],
i, Length@A
]
]

MatrixForm /@ Array[T[A, #] &, 4]


enter image description here






share|improve this answer









$endgroup$




















    0












    $begingroup$

    This



    A = 1, 0, 0, 1,0, 1, 2, 0,1, 1, 0, 2,0, 0, 0, 1;
    e=Eigenvalues[A];
    Map[(A-e[[#[[1]]]]*IdentityMatrix[4])/(e[[#[[2]]]]-e[[#[[1]]]])&,
    DeleteCases[Tuples[Range[4],2],i_,i_]]


    generates your twelve matricies with i not equal to j.



    Put Dot@@ in front of that Map to form the dot product of the 12 matricies.



    That works by forming every possible distinct i,j pair and then using those in the Map






    share|improve this answer











    $endgroup$












    • $begingroup$
      Should e[[#[[2]]]]-e[[[[1]]]] be e[[#[[2]]]]-e[[#[[1]]]]?
      $endgroup$
      – That Gravity Guy
      12 mins ago










    • $begingroup$
      @ThatGravityGuy Yes! Good catch. Thank you! Corrected.
      $endgroup$
      – Bill
      10 mins ago











    Your Answer





    StackExchange.ifUsing("editor", function ()
    return StackExchange.using("mathjaxEditing", function ()
    StackExchange.MarkdownEditor.creationCallbacks.add(function (editor, postfix)
    StackExchange.mathjaxEditing.prepareWmdForMathJax(editor, postfix, [["$", "$"], ["\\(","\\)"]]);
    );
    );
    , "mathjax-editing");

    StackExchange.ready(function()
    var channelOptions =
    tags: "".split(" "),
    id: "387"
    ;
    initTagRenderer("".split(" "), "".split(" "), channelOptions);

    StackExchange.using("externalEditor", function()
    // Have to fire editor after snippets, if snippets enabled
    if (StackExchange.settings.snippets.snippetsEnabled)
    StackExchange.using("snippets", function()
    createEditor();
    );

    else
    createEditor();

    );

    function createEditor()
    StackExchange.prepareEditor(
    heartbeatType: 'answer',
    autoActivateHeartbeat: false,
    convertImagesToLinks: false,
    noModals: true,
    showLowRepImageUploadWarning: true,
    reputationToPostImages: null,
    bindNavPrevention: true,
    postfix: "",
    imageUploader:
    brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
    contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
    allowUrls: true
    ,
    onDemand: true,
    discardSelector: ".discard-answer"
    ,immediatelyShowMarkdownHelp:true
    );



    );













    draft saved

    draft discarded


















    StackExchange.ready(
    function ()
    StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fmathematica.stackexchange.com%2fquestions%2f194194%2fskipping-indices-in-a-product%23new-answer', 'question_page');

    );

    Post as a guest















    Required, but never shown

























    3 Answers
    3






    active

    oldest

    votes








    3 Answers
    3






    active

    oldest

    votes









    active

    oldest

    votes






    active

    oldest

    votes









    3












    $begingroup$

    Here is my pedestrian implementation of your formula:



    a = 1, 0, 0, 1, 0, 1, 2, 0, 1, 1, 0, 2, 0, 0, 0, 1;

    ClearAll[t]
    t[amat_, j_] := Module[
    evals, usable,
    evals = Eigenvalues[amat];
    usable = DeleteDuplicates@Cases[evals, Except@evals[[j]] ];
    Dot @@
    Table[
    (amat - i IdentityMatrix[Length[amat]])/(evals[[j]] - i),
    i, usable
    ]
    ]

    t[a, 4]


    Mathematica graphics



    You do not provide an example of desired output, so I will let you check whether this is what you expect.






    share|improve this answer









    $endgroup$












    • $begingroup$
      Thanks, @MarcoB. It leads precisely to the expected result. However, it looks too complicated. Nevertheless, it is fine as it works.
      $endgroup$
      – Tobias Fritzn
      37 mins ago
















    3












    $begingroup$

    Here is my pedestrian implementation of your formula:



    a = 1, 0, 0, 1, 0, 1, 2, 0, 1, 1, 0, 2, 0, 0, 0, 1;

    ClearAll[t]
    t[amat_, j_] := Module[
    evals, usable,
    evals = Eigenvalues[amat];
    usable = DeleteDuplicates@Cases[evals, Except@evals[[j]] ];
    Dot @@
    Table[
    (amat - i IdentityMatrix[Length[amat]])/(evals[[j]] - i),
    i, usable
    ]
    ]

    t[a, 4]


    Mathematica graphics



    You do not provide an example of desired output, so I will let you check whether this is what you expect.






    share|improve this answer









    $endgroup$












    • $begingroup$
      Thanks, @MarcoB. It leads precisely to the expected result. However, it looks too complicated. Nevertheless, it is fine as it works.
      $endgroup$
      – Tobias Fritzn
      37 mins ago














    3












    3








    3





    $begingroup$

    Here is my pedestrian implementation of your formula:



    a = 1, 0, 0, 1, 0, 1, 2, 0, 1, 1, 0, 2, 0, 0, 0, 1;

    ClearAll[t]
    t[amat_, j_] := Module[
    evals, usable,
    evals = Eigenvalues[amat];
    usable = DeleteDuplicates@Cases[evals, Except@evals[[j]] ];
    Dot @@
    Table[
    (amat - i IdentityMatrix[Length[amat]])/(evals[[j]] - i),
    i, usable
    ]
    ]

    t[a, 4]


    Mathematica graphics



    You do not provide an example of desired output, so I will let you check whether this is what you expect.






    share|improve this answer









    $endgroup$



    Here is my pedestrian implementation of your formula:



    a = 1, 0, 0, 1, 0, 1, 2, 0, 1, 1, 0, 2, 0, 0, 0, 1;

    ClearAll[t]
    t[amat_, j_] := Module[
    evals, usable,
    evals = Eigenvalues[amat];
    usable = DeleteDuplicates@Cases[evals, Except@evals[[j]] ];
    Dot @@
    Table[
    (amat - i IdentityMatrix[Length[amat]])/(evals[[j]] - i),
    i, usable
    ]
    ]

    t[a, 4]


    Mathematica graphics



    You do not provide an example of desired output, so I will let you check whether this is what you expect.







    share|improve this answer












    share|improve this answer



    share|improve this answer










    answered 45 mins ago









    MarcoBMarcoB

    38.1k556114




    38.1k556114











    • $begingroup$
      Thanks, @MarcoB. It leads precisely to the expected result. However, it looks too complicated. Nevertheless, it is fine as it works.
      $endgroup$
      – Tobias Fritzn
      37 mins ago

















    • $begingroup$
      Thanks, @MarcoB. It leads precisely to the expected result. However, it looks too complicated. Nevertheless, it is fine as it works.
      $endgroup$
      – Tobias Fritzn
      37 mins ago
















    $begingroup$
    Thanks, @MarcoB. It leads precisely to the expected result. However, it looks too complicated. Nevertheless, it is fine as it works.
    $endgroup$
    – Tobias Fritzn
    37 mins ago





    $begingroup$
    Thanks, @MarcoB. It leads precisely to the expected result. However, it looks too complicated. Nevertheless, it is fine as it works.
    $endgroup$
    – Tobias Fritzn
    37 mins ago












    2












    $begingroup$

    Something like this?



    Clear[A, evals, T]
    A = 1, 0, 0, 1, 0, 1, 2, 0, 1, 1, 0, 2, 0, 0, 0, 1;
    T[A_?MatrixQ, j_Integer] := With[
    evals = Eigenvalues[A], id = IdentityMatrix@Length@A,
    Dot @@ Table[
    If[evals[[j]] - evals[[i]] == 0, id, (A - evals[[i]] id)/(evals[[j]] - evals[[i]])],
    i, Length@A
    ]
    ]

    MatrixForm /@ Array[T[A, #] &, 4]


    enter image description here






    share|improve this answer









    $endgroup$

















      2












      $begingroup$

      Something like this?



      Clear[A, evals, T]
      A = 1, 0, 0, 1, 0, 1, 2, 0, 1, 1, 0, 2, 0, 0, 0, 1;
      T[A_?MatrixQ, j_Integer] := With[
      evals = Eigenvalues[A], id = IdentityMatrix@Length@A,
      Dot @@ Table[
      If[evals[[j]] - evals[[i]] == 0, id, (A - evals[[i]] id)/(evals[[j]] - evals[[i]])],
      i, Length@A
      ]
      ]

      MatrixForm /@ Array[T[A, #] &, 4]


      enter image description here






      share|improve this answer









      $endgroup$















        2












        2








        2





        $begingroup$

        Something like this?



        Clear[A, evals, T]
        A = 1, 0, 0, 1, 0, 1, 2, 0, 1, 1, 0, 2, 0, 0, 0, 1;
        T[A_?MatrixQ, j_Integer] := With[
        evals = Eigenvalues[A], id = IdentityMatrix@Length@A,
        Dot @@ Table[
        If[evals[[j]] - evals[[i]] == 0, id, (A - evals[[i]] id)/(evals[[j]] - evals[[i]])],
        i, Length@A
        ]
        ]

        MatrixForm /@ Array[T[A, #] &, 4]


        enter image description here






        share|improve this answer









        $endgroup$



        Something like this?



        Clear[A, evals, T]
        A = 1, 0, 0, 1, 0, 1, 2, 0, 1, 1, 0, 2, 0, 0, 0, 1;
        T[A_?MatrixQ, j_Integer] := With[
        evals = Eigenvalues[A], id = IdentityMatrix@Length@A,
        Dot @@ Table[
        If[evals[[j]] - evals[[i]] == 0, id, (A - evals[[i]] id)/(evals[[j]] - evals[[i]])],
        i, Length@A
        ]
        ]

        MatrixForm /@ Array[T[A, #] &, 4]


        enter image description here







        share|improve this answer












        share|improve this answer



        share|improve this answer










        answered 36 mins ago









        That Gravity GuyThat Gravity Guy

        2,1311615




        2,1311615





















            0












            $begingroup$

            This



            A = 1, 0, 0, 1,0, 1, 2, 0,1, 1, 0, 2,0, 0, 0, 1;
            e=Eigenvalues[A];
            Map[(A-e[[#[[1]]]]*IdentityMatrix[4])/(e[[#[[2]]]]-e[[#[[1]]]])&,
            DeleteCases[Tuples[Range[4],2],i_,i_]]


            generates your twelve matricies with i not equal to j.



            Put Dot@@ in front of that Map to form the dot product of the 12 matricies.



            That works by forming every possible distinct i,j pair and then using those in the Map






            share|improve this answer











            $endgroup$












            • $begingroup$
              Should e[[#[[2]]]]-e[[[[1]]]] be e[[#[[2]]]]-e[[#[[1]]]]?
              $endgroup$
              – That Gravity Guy
              12 mins ago










            • $begingroup$
              @ThatGravityGuy Yes! Good catch. Thank you! Corrected.
              $endgroup$
              – Bill
              10 mins ago















            0












            $begingroup$

            This



            A = 1, 0, 0, 1,0, 1, 2, 0,1, 1, 0, 2,0, 0, 0, 1;
            e=Eigenvalues[A];
            Map[(A-e[[#[[1]]]]*IdentityMatrix[4])/(e[[#[[2]]]]-e[[#[[1]]]])&,
            DeleteCases[Tuples[Range[4],2],i_,i_]]


            generates your twelve matricies with i not equal to j.



            Put Dot@@ in front of that Map to form the dot product of the 12 matricies.



            That works by forming every possible distinct i,j pair and then using those in the Map






            share|improve this answer











            $endgroup$












            • $begingroup$
              Should e[[#[[2]]]]-e[[[[1]]]] be e[[#[[2]]]]-e[[#[[1]]]]?
              $endgroup$
              – That Gravity Guy
              12 mins ago










            • $begingroup$
              @ThatGravityGuy Yes! Good catch. Thank you! Corrected.
              $endgroup$
              – Bill
              10 mins ago













            0












            0








            0





            $begingroup$

            This



            A = 1, 0, 0, 1,0, 1, 2, 0,1, 1, 0, 2,0, 0, 0, 1;
            e=Eigenvalues[A];
            Map[(A-e[[#[[1]]]]*IdentityMatrix[4])/(e[[#[[2]]]]-e[[#[[1]]]])&,
            DeleteCases[Tuples[Range[4],2],i_,i_]]


            generates your twelve matricies with i not equal to j.



            Put Dot@@ in front of that Map to form the dot product of the 12 matricies.



            That works by forming every possible distinct i,j pair and then using those in the Map






            share|improve this answer











            $endgroup$



            This



            A = 1, 0, 0, 1,0, 1, 2, 0,1, 1, 0, 2,0, 0, 0, 1;
            e=Eigenvalues[A];
            Map[(A-e[[#[[1]]]]*IdentityMatrix[4])/(e[[#[[2]]]]-e[[#[[1]]]])&,
            DeleteCases[Tuples[Range[4],2],i_,i_]]


            generates your twelve matricies with i not equal to j.



            Put Dot@@ in front of that Map to form the dot product of the 12 matricies.



            That works by forming every possible distinct i,j pair and then using those in the Map







            share|improve this answer














            share|improve this answer



            share|improve this answer








            edited 11 mins ago

























            answered 19 mins ago









            BillBill

            5,87569




            5,87569











            • $begingroup$
              Should e[[#[[2]]]]-e[[[[1]]]] be e[[#[[2]]]]-e[[#[[1]]]]?
              $endgroup$
              – That Gravity Guy
              12 mins ago










            • $begingroup$
              @ThatGravityGuy Yes! Good catch. Thank you! Corrected.
              $endgroup$
              – Bill
              10 mins ago
















            • $begingroup$
              Should e[[#[[2]]]]-e[[[[1]]]] be e[[#[[2]]]]-e[[#[[1]]]]?
              $endgroup$
              – That Gravity Guy
              12 mins ago










            • $begingroup$
              @ThatGravityGuy Yes! Good catch. Thank you! Corrected.
              $endgroup$
              – Bill
              10 mins ago















            $begingroup$
            Should e[[#[[2]]]]-e[[[[1]]]] be e[[#[[2]]]]-e[[#[[1]]]]?
            $endgroup$
            – That Gravity Guy
            12 mins ago




            $begingroup$
            Should e[[#[[2]]]]-e[[[[1]]]] be e[[#[[2]]]]-e[[#[[1]]]]?
            $endgroup$
            – That Gravity Guy
            12 mins ago












            $begingroup$
            @ThatGravityGuy Yes! Good catch. Thank you! Corrected.
            $endgroup$
            – Bill
            10 mins ago




            $begingroup$
            @ThatGravityGuy Yes! Good catch. Thank you! Corrected.
            $endgroup$
            – Bill
            10 mins ago

















            draft saved

            draft discarded
















































            Thanks for contributing an answer to Mathematica Stack Exchange!


            • Please be sure to answer the question. Provide details and share your research!

            But avoid


            • Asking for help, clarification, or responding to other answers.

            • Making statements based on opinion; back them up with references or personal experience.

            Use MathJax to format equations. MathJax reference.


            To learn more, see our tips on writing great answers.




            draft saved


            draft discarded














            StackExchange.ready(
            function ()
            StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fmathematica.stackexchange.com%2fquestions%2f194194%2fskipping-indices-in-a-product%23new-answer', 'question_page');

            );

            Post as a guest















            Required, but never shown





















































            Required, but never shown














            Required, but never shown












            Required, but never shown







            Required, but never shown

































            Required, but never shown














            Required, but never shown












            Required, but never shown







            Required, but never shown







            Popular posts from this blog

            Era Viking Índice Início da Era Viquingue | Cotidiano | Sociedade | Língua | Religião | A arte | As primeiras cidades | As viagens dos viquingues | Viquingues do Oeste e Leste | Fim da Era Viquingue | Fontes históricas | Referências Bibliografia | Ligações externas | Menu de navegação«Sverige då!»«Handel I vikingetid»«O que é Nórdico Antigo»Mito, magia e religião na volsunga saga Um olhar sobre a trajetória mítica do herói sigurd«Bonden var den verklige vikingen»«Vikingatiden»«Vikingatiden»«Vinland»«Guerreiras de Óðinn: As Valkyrjor na Mitologia Viking»1519-9053«Esculpindo símbolos e seres: A arte viking em pedras rúnicas»1679-9313Historia - Tema: VikingarnaAventura e Magia no Mundo das Sagas IslandesasEra Vikinge

            What's the metal clinking sound at the end of credits in Avengers: Endgame?What makes Thanos so strong in Avengers: Endgame?Who is the character that appears at the end of Endgame?What happens to Mjolnir (Thor's hammer) at the end of Endgame?The People's Ages in Avengers: EndgameWhat did Nebula do in Avengers: Endgame?Messing with time in the Avengers: Endgame climaxAvengers: Endgame timelineWhat are the time-travel rules in Avengers Endgame?Why use this song in Avengers: Endgame Opening Logo Sequence?Peggy's age in Avengers Endgame

            Are there legal definitions of ethnicities/races? The 2019 Stack Overflow Developer Survey Results Are In Announcing the arrival of Valued Associate #679: Cesar Manara Planned maintenance scheduled April 17/18, 2019 at 00:00UTC (8:00pm US/Eastern)Legal definitions in the United StatesAre there truly legal limits on US interest rates?Are gender identity and sexual orientation federally protected?Why is there an apparent legal bias against digital services?What limits are there to the powers of individual judges in the United States legal system?Are women only scholarships legal under Irish / EU law?Is the term “race” defined by Public Law enacted by Congress of the United StatesIs there a legal definition of race in the US?Neighbors are spying for landlord on Renters is it legal?Are Protected Classes Bi-directional?