Question: how i can write this line ''for'' in maple?

hi..

how i can write this line ''for'' in maple?

thanks..

for.mw
 

TopEdge = "C";
BottomEdge = "C";
LeftEdge = "C";
RightEdge = "C";

"For[i = 1, i < m + 2, i++, w[i, 1] = 0; w[i, n + 1] = 0];  For[j = 1, j < n + 2, j++, w[1, j] = 0; w[m + 1, j] = 0];  If[TopEdge == "C", For[i = 1, i < m + 2, i++, w[i, 0] = w[i, 2]],    If[TopEdge == "S", For[i = 1, i < m + 2, i++, w[i, 0] = -w[i, 2]],     "Invalid Input Data!"]]  If[BottomEdge == "C",    For[i = 1, i < m + 2, i++, w[i, n + 2] = w[i, n]],    If[BottomEdge == "S",     For[i = 1, i < m + 2, i++, w[i, n + 2] = -w[i, n]],     "Invalid Input Data!"]]  If[LeftEdge == "C", For[j = 1, j < n + 2, j++, w[0, j] = w[2, j]],    If[LeftEdge == "S", For[j = 1, j < n + 2, j++, w[0, j] = -w[2, j]],     "Invalid Input Data!"]]  If[RightEdge == "C",    For[j = 1, j < n + 2, j++, w[m + 2, j] = w[m, j]],    If[RightEdge == "S",     For[j = 1, j < n + 2, j++, w[m + 2, j] = -w[m, j]],     "Invalid Input Data!"]]  w[0, 0] = w[2, 2]; w[0, n + 2] = w[2, n]; w[m + 2, 0] = w[m, 2];   w[m + 2, n + 2] = w[n, m];"

``


 

Download for.mw

 

Please Wait...