// Change the last number to vary the resolution. This is the number// of doublings, so if the number is 10 we have 2^10=1024 doublings for// a resolution of 1024x1024.
testRect[-3/2,3/2,-3/2,3/2, g, eq, 7]

// Recursive function to test an interval containing the specified bounds.// If no possible solution exists, the recursion halts. If a possible solution// exists, this breaks it down into 4 sub-rectangles and tests each of them// recursively. level is the maximum number of levels to split, so the total// resolution of the final graph will be 2^level.
testRect[x1, x2, y1, y2, g, eq, level] :=
{
nextLevel = level - 1