“…Do [Do[kk3 = kk3 * Length[zomatrix3[[i3,j3]]] * Length[womatrix3[[i3,j3]]], {i3, j3, n}], {j3, 1, n}]; Return ... ,Bold,16]]; zo1 = Table [{1, 2, 3, 4, 5}, {i1, 1, n}, {j1, 1, n}]; wo1 = Table[{1, 2, 3, 4, 5}, {i1, 1, n}, {j1, 1 Total[Diagonal[ZX1[[zc1[[i1]], zc1 Do[zo1[[zc1[[i1]] [[Pos1[[j1]][ [1]]]], zc1 Style [MatrixForm[outputform1@Dis3[zwotype2[[j1]]]], RGBColor[0, 0.5, 0]]}, {j1, 1, Length[zwotype2]}]]; Str = "There are <> ToString[Sum[NumberofType3[zwotype2[[i1] Do[Do[Do[If[Min[zomatrix2[[i2,i2]] ∼ Join ∼ zomatrix2 [[j2, j2]]] > Max[zomatrix2[[i2,j2] Appendix IV: Some frequently appeared factors in mass relations…”