Why is the following code not working? :

`Do[gm = 200*N[Pi]; s1 = k^2 + (d - ((g1^2)*points[i, 2, 1]/wm))^2 + 2*k*gm + wm^2; s2 = (k^2 + (d - ((g1^2)*points[i, 2, 1]/wm))^2)*gm + 2*k*wm^2; s3 = (k^2 + (d - ((g1^2)*points[i, 2, 1]/wm))^2)*(wm^2) - (d - (g1^2* points[i, 2, 1]/wm))*wm*(g1^2)*(2 points[i, 2, 1]); If[(2 k + gm) s1 > s2, Print[True], Print[False]]; If[s1*s2 (2 k + gm) > s2^2 + (2 k + gm)^2*(s3), Print[True], Print[False]]; If[s1 > 0, Print[True], Print[False]]; If[s2 > 0, Print[True], Print[False]]; If[s3 > 0, Print[True], Print[False]], {i, 11}] `

Please suggest ways to tweak this or an alternative method.