
root = 1 - Sqrt[3]/2;

f[a_,b_,c_]:=(
d=(1+b c)/a;
test1=d-Floor[d];
test2=If[test1==0,0,1];
test3=(a root + b)/(c root+d) - root;
test3=test3 test3;
test4=If[test3<.00000000001,0,1];
test5=test2+test4;
test5)

list1=Table[Table[Table[f[a,b,c],{a,-20,-1}],{b,-20,20}],{c,-20,20}]
list2=Table[Table[Table[{a,b,c}, {a,-20,-1}],{b,-20,20}],{c,-20,20}];



