CellPrint[TextCell[Manipulate[If[MatrixQ[MatrixA,NumericQ]&&MemberQ[Flatten[MatrixA],Null]==False,If[MemberQ[ToCharacterCode[ToString[MatrixA]],62760]==False,If[Dimensions[MatrixA][[1]]==Dimensions[MatrixA][[2]],If[BooleanQ[EDiagonalmenteDQ[MatrixA]],Style[EDiagonalmenteDQ[MatrixA],11],Style[Column[{EDiagonalmenteDQ[MatrixA][[1]],Row[{"Intercambiando filas:",EDiagonalmenteDQ[MatrixA][[2]]//MatrixForm}]},Center],11]],Text[Style["Error en los datos",12]]],Text[Style["Error en los datos",12]]],Text[Style["Error en los datos",12]]],Style["Propósito: determina si una matriz cuadrada es estrictamente diagonalmente dominante.",Bold,10],Spacer[{400,2}],{{MatrizA,{{-5,3,9},{-5,-1,3},{2,8,-1}},"A="}},Delimiter,Button["Determinar",MatrixA=MatrizA],Alignment->Center,Deployed->False,AppearanceElements->"ResetButton",LocalizeVariables->True,ContinuousAction->True,ControlPlacement->Top,FrameLabel->{{None,None},{Column[{,Row[{Style["Autores: Juan Félix Ávila Herrera y Enrique Vílchez Quesada",Bold,10,RGBColor[0,0,0.5]]}],Row[{Style["Escuela de Informática | Universidad Nacional de Costa Rica",Bold,10,RGBColor[0.5,0.1,0]]}]},Center],Style["Matriz estrictamente diagonalmente dominante", Bold,14, RGBColor[0,0.33,0.33]]}},Initialization:>(Clear[MatrixA];MatrixA=MatrizA;EDiagonalmenteDQ[MatrizA_List]:=Module[{n=Dimensions[MatrizA][[1]],Respuesta={},M1=Abs[MatrizA],MAux1,vectAux1,vecti,EDQ,valorLogico1},EDQ[MatrizB_List]:=Module[{m=Dimensions[MatrizB][[1]],M2=Abs[MatrizB],MAux2,vectAux2,diagonal=Abs[Diagonal[MatrizB]],valorLogico2=True},MAux2=ReplacePart[M2,{vecti_,vecti_}->0];vectAux2=Table[Total[MAux2[[vecti,All]]]>=diagonal[[vecti]],{vecti,m}];If[MemberQ[vectAux2,True],valorLogico2=False];valorLogico2];valorLogico1=EDQ[MatrizA];If[valorLogico1,valorLogico1,vectAux1=Table[Position[M1[[vecti,All]],Max[M1[[vecti,All]]]][[1,1]],{vecti,n}];If[Length[DeleteDuplicates[vectAux1]]!=Length[vectAux1],valorLogico1,MAux1=MatrizA;For[vecti=1,vecti<=Length[vectAux1],If[vectAux1[[vecti]]!=vecti,MAux1[[vectAux1[[vecti]],All]]=MatrizA[[vecti,All]]];vecti++];If[EDQ[MAux1],Respuesta=Append[Respuesta,valorLogico1];Respuesta=Append[Respuesta,MAux1],valorLogico1]]]])],"Text"]]