```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\)]\)}}}}
```
Sign in with Wallet
Connect another wallet