---
# System prepended metadata

title: Untitled

---

```wlscript
cmats={{{{(Subscript[K, 1] (\[Lambda] + 2 \[Mu]))/
\!\(\*SubsuperscriptBox[\(L\), \(1\), \(2\)]\), Subscript[\!\(\*
StyleBox["c",
StripOnInput->False,
FontWeight->Bold,
FontSlant->Plain]\), Row[{1, 1, 1, 2}]], Subscript[\!\(\*
StyleBox["c",
StripOnInput->False,
FontWeight->Bold,
FontSlant->Plain]\), Row[{1, 1, 1, 3}]]}, {-Subscript[\!\(\*
StyleBox["c",
StripOnInput->False,
FontWeight->Bold,
FontSlant->Plain]\), Row[{1, 1, 1, 2}]], (Subscript[K, 1] \[Mu])/
\!\(\*SubsuperscriptBox[\(L\), \(2\), \(2\)]\), Subscript[\!\(\*
StyleBox["c",
StripOnInput->False,
FontWeight->Bold,
FontSlant->Plain]\), Row[{1, 1, 2, 3}]]}, {-Subscript[\!\(\*
StyleBox["c",
StripOnInput->False,
FontWeight->Bold,
FontSlant->Plain]\), Row[{1, 1, 1, 3}]], -Subscript[\!\(\*
StyleBox["c",
StripOnInput->False,
FontWeight->Bold,
FontSlant->Plain]\), Row[{1, 1, 2, 3}]], (Subscript[K, 1] \[Mu])/
\!\(\*SubsuperscriptBox[\(L\), \(3\), \(2\)]\)}}, {{0, Subscript[\!\(\*
StyleBox["c",
StripOnInput->False,
FontWeight->Bold,
FontSlant->Plain]\), Row[{1, 2, 1, 2}]], Subscript[\!\(\*
StyleBox["c",
StripOnInput->False,
FontWeight->Bold,
FontSlant->Plain]\), 
    Row[{1, 2, 1, 
      3}]]}, {-((-Subscript[K, 2] \[Lambda] - Subscript[K, 2] \[Mu])/(
      Subscript[L, 1] Subscript[L, 2])) - Subscript[\!\(\*
StyleBox["c",
StripOnInput->False,
FontWeight->Bold,
FontSlant->Plain]\), Row[{1, 2, 1, 2}]], 0, Subscript[\!\(\*
StyleBox["c",
StripOnInput->False,
FontWeight->Bold,
FontSlant->Plain]\), Row[{1, 2, 2, 3}]]}, {-Subscript[\!\(\*
StyleBox["c",
StripOnInput->False,
FontWeight->Bold,
FontSlant->Plain]\), Row[{1, 2, 1, 3}]], -Subscript[\!\(\*
StyleBox["c",
StripOnInput->False,
FontWeight->Bold,
FontSlant->Plain]\), Row[{1, 2, 2, 3}]], 0}}, {{0, Subscript[\!\(\*
StyleBox["c",
StripOnInput->False,
FontWeight->Bold,
FontSlant->Plain]\), Row[{1, 3, 1, 2}]], Subscript[\!\(\*
StyleBox["c",
StripOnInput->False,
FontWeight->Bold,
FontSlant->Plain]\), Row[{1, 3, 1, 3}]]}, {-Subscript[\!\(\*
StyleBox["c",
StripOnInput->False,
FontWeight->Bold,
FontSlant->Plain]\), Row[{1, 3, 1, 2}]], 0, Subscript[\!\(\*
StyleBox["c",
StripOnInput->False,
FontWeight->Bold,
FontSlant->Plain]\), 
    Row[{1, 3, 2, 
      3}]]}, {-((-Subscript[K, 3] \[Lambda] - Subscript[K, 3] \[Mu])/(
      Subscript[L, 1] Subscript[L, 3])) - Subscript[\!\(\*
StyleBox["c",
StripOnInput->False,
FontWeight->Bold,
FontSlant->Plain]\), Row[{1, 3, 1, 3}]], -Subscript[\!\(\*
StyleBox["c",
StripOnInput->False,
FontWeight->Bold,
FontSlant->Plain]\), Row[{1, 3, 2, 3}]], 0}}}, {{{0, Subscript[\!\(\*
StyleBox["c",
StripOnInput->False,
FontWeight->Bold,
FontSlant->Plain]\), Row[{2, 1, 1, 2}]], Subscript[\!\(\*
StyleBox["c",
StripOnInput->False,
FontWeight->Bold,
FontSlant->Plain]\), 
    Row[{2, 1, 1, 
      3}]]}, {-((-Subscript[K, 1] \[Lambda] - Subscript[K, 1] \[Mu])/(
      Subscript[L, 1] Subscript[L, 2])) - Subscript[\!\(\*
StyleBox["c",
StripOnInput->False,
FontWeight->Bold,
FontSlant->Plain]\), Row[{2, 1, 1, 2}]], 0, Subscript[\!\(\*
StyleBox["c",
StripOnInput->False,
FontWeight->Bold,
FontSlant->Plain]\), Row[{2, 1, 2, 3}]]}, {-Subscript[\!\(\*
StyleBox["c",
StripOnInput->False,
FontWeight->Bold,
FontSlant->Plain]\), Row[{2, 1, 1, 3}]], -Subscript[\!\(\*
StyleBox["c",
StripOnInput->False,
FontWeight->Bold,
FontSlant->Plain]\), Row[{2, 1, 2, 3}]], 0}}, {{(
    Subscript[K, 2] \[Mu])/
\!\(\*SubsuperscriptBox[\(L\), \(1\), \(2\)]\), Subscript[\!\(\*
StyleBox["c",
StripOnInput->False,
FontWeight->Bold,
FontSlant->Plain]\), Row[{2, 2, 1, 2}]], Subscript[\!\(\*
StyleBox["c",
StripOnInput->False,
FontWeight->Bold,
FontSlant->Plain]\), Row[{2, 2, 1, 3}]]}, {-Subscript[\!\(\*
StyleBox["c",
StripOnInput->False,
FontWeight->Bold,
FontSlant->Plain]\), Row[{2, 2, 1, 2}]], (
    Subscript[K, 2] (\[Lambda] + 2 \[Mu]))/
\!\(\*SubsuperscriptBox[\(L\), \(2\), \(2\)]\), Subscript[\!\(\*
StyleBox["c",
StripOnInput->False,
FontWeight->Bold,
FontSlant->Plain]\), Row[{2, 2, 2, 3}]]}, {-Subscript[\!\(\*
StyleBox["c",
StripOnInput->False,
FontWeight->Bold,
FontSlant->Plain]\), Row[{2, 2, 1, 3}]], -Subscript[\!\(\*
StyleBox["c",
StripOnInput->False,
FontWeight->Bold,
FontSlant->Plain]\), Row[{2, 2, 2, 3}]], (Subscript[K, 2] \[Mu])/
\!\(\*SubsuperscriptBox[\(L\), \(3\), \(2\)]\)}}, {{0, Subscript[\!\(\*
StyleBox["c",
StripOnInput->False,
FontWeight->Bold,
FontSlant->Plain]\), Row[{2, 3, 1, 2}]], Subscript[\!\(\*
StyleBox["c",
StripOnInput->False,
FontWeight->Bold,
FontSlant->Plain]\), Row[{2, 3, 1, 3}]]}, {-Subscript[\!\(\*
StyleBox["c",
StripOnInput->False,
FontWeight->Bold,
FontSlant->Plain]\), Row[{2, 3, 1, 2}]], 0, Subscript[\!\(\*
StyleBox["c",
StripOnInput->False,
FontWeight->Bold,
FontSlant->Plain]\), Row[{2, 3, 2, 3}]]}, {-Subscript[\!\(\*
StyleBox["c",
StripOnInput->False,
FontWeight->Bold,
FontSlant->Plain]\), 
     Row[{2, 3, 1, 3}]], -((-Subscript[K, 3] \[Lambda] - 
       Subscript[K, 3] \[Mu])/(Subscript[L, 2] Subscript[L, 3])) - 
     Subscript[\!\(\*
StyleBox["c",
StripOnInput->False,
FontWeight->Bold,
FontSlant->Plain]\), Row[{2, 3, 2, 3}]], 0}}}, {{{0, Subscript[\!\(\*
StyleBox["c",
StripOnInput->False,
FontWeight->Bold,
FontSlant->Plain]\), Row[{3, 1, 1, 2}]], Subscript[\!\(\*
StyleBox["c",
StripOnInput->False,
FontWeight->Bold,
FontSlant->Plain]\), Row[{3, 1, 1, 3}]]}, {-Subscript[\!\(\*
StyleBox["c",
StripOnInput->False,
FontWeight->Bold,
FontSlant->Plain]\), Row[{3, 1, 1, 2}]], 0, Subscript[\!\(\*
StyleBox["c",
StripOnInput->False,
FontWeight->Bold,
FontSlant->Plain]\), 
    Row[{3, 1, 2, 
      3}]]}, {-((-Subscript[K, 1] \[Lambda] - Subscript[K, 1] \[Mu])/(
      Subscript[L, 1] Subscript[L, 3])) - Subscript[\!\(\*
StyleBox["c",
StripOnInput->False,
FontWeight->Bold,
FontSlant->Plain]\), Row[{3, 1, 1, 3}]], -Subscript[\!\(\*
StyleBox["c",
StripOnInput->False,
FontWeight->Bold,
FontSlant->Plain]\), Row[{3, 1, 2, 3}]], 0}}, {{0, Subscript[\!\(\*
StyleBox["c",
StripOnInput->False,
FontWeight->Bold,
FontSlant->Plain]\), Row[{3, 2, 1, 2}]], Subscript[\!\(\*
StyleBox["c",
StripOnInput->False,
FontWeight->Bold,
FontSlant->Plain]\), Row[{3, 2, 1, 3}]]}, {-Subscript[\!\(\*
StyleBox["c",
StripOnInput->False,
FontWeight->Bold,
FontSlant->Plain]\), Row[{3, 2, 1, 2}]], 0, Subscript[\!\(\*
StyleBox["c",
StripOnInput->False,
FontWeight->Bold,
FontSlant->Plain]\), Row[{3, 2, 2, 3}]]}, {-Subscript[\!\(\*
StyleBox["c",
StripOnInput->False,
FontWeight->Bold,
FontSlant->Plain]\), 
     Row[{3, 2, 1, 3}]], -((-Subscript[K, 2] \[Lambda] - 
       Subscript[K, 2] \[Mu])/(Subscript[L, 2] Subscript[L, 3])) - 
     Subscript[\!\(\*
StyleBox["c",
StripOnInput->False,
FontWeight->Bold,
FontSlant->Plain]\), Row[{3, 2, 2, 3}]], 0}}, {{(
    Subscript[K, 3] \[Mu])/
\!\(\*SubsuperscriptBox[\(L\), \(1\), \(2\)]\), Subscript[\!\(\*
StyleBox["c",
StripOnInput->False,
FontWeight->Bold,
FontSlant->Plain]\), Row[{3, 3, 1, 2}]], Subscript[\!\(\*
StyleBox["c",
StripOnInput->False,
FontWeight->Bold,
FontSlant->Plain]\), Row[{3, 3, 1, 3}]]}, {-Subscript[\!\(\*
StyleBox["c",
StripOnInput->False,
FontWeight->Bold,
FontSlant->Plain]\), Row[{3, 3, 1, 2}]], (Subscript[K, 3] \[Mu])/
\!\(\*SubsuperscriptBox[\(L\), \(2\), \(2\)]\), Subscript[\!\(\*
StyleBox["c",
StripOnInput->False,
FontWeight->Bold,
FontSlant->Plain]\), Row[{3, 3, 2, 3}]]}, {-Subscript[\!\(\*
StyleBox["c",
StripOnInput->False,
FontWeight->Bold,
FontSlant->Plain]\), Row[{3, 3, 1, 3}]], -Subscript[\!\(\*
StyleBox["c",
StripOnInput->False,
FontWeight->Bold,
FontSlant->Plain]\), Row[{3, 3, 2, 3}]], (
    Subscript[K, 3] (\[Lambda] + 2 \[Mu]))/
\!\(\*SubsuperscriptBox[\(L\), \(3\), \(2\)]\)}}}}
```