Mahalanobis fuzzy objective function

Input: data set 𝒜 ⊂ (ℝ^n), centers (Subscript[c, 1]),⃛,(Subscript[c, k]) ∈ (ℝ^n), Membership matrix U, covariance matrix cov;
Output: objective function value (Subscript[\[FormalCapitalF], M])(c,U);
Submodules: dM[], muGK[]

MFz[A_,cen_,U_,cov_]:=Module[{m=Length[A],k=Length[cen]},
Return[
Sum[muGK[A,cen,cov,i,j]^q dM[cen[[j]],A[[i]],cov[[j]]],{i,m},{j,k}]
	]
];