c=-1;

Q[z_] = (z^2)+c;

Pts = {{0.,0.}};

C2 = Max[Abs[c],2];
For[x=-2,x≤ 2,x=x+0.01,
For[y=-2,y≤ 2,y=y+0.01,
v=x+I y;
StopVal=0;
For[k=1,k<50,k++;
If[Abs[v]>C2, {StopVal=1,Break;},v=N[Q[v]]];
]
If[StopVal==0,Pts = Join[Pts,{{x,y}},1];]
]
]

ListPlot[Pts,PlotStyle->{{Red}}, PlotRange->{{-2,2},{-2,2}}, Axes->None]

c=0.13-0.45 I;

Q[z_] = (z^2)+c;

Pts = {{0.,0.}};

C2 = Max[Abs[c],2];
For[x=-2,x≤ 2,x=x+0.01,
For[y=-2,y≤ 2,y=y+0.01,
v=x+I y;
StopVal=0;
For[k=1,k<50,k++;
If[Abs[v]>C2, {StopVal=1,Break;},v=N[Q[v]]];
]
If[StopVal==0,Pts = Join[Pts,{{x,y}},1];]
]
]

ListPlot[Pts,PlotStyle->{{Red}}, PlotRange->{{-2,2},{-2,2}}, Axes->None]

c=-0.03+0.85 I;

Q[z_] = (z^2)+c;

Pts = {{0.,0.}};

C2 = Max[Abs[c],2];
For[x=-2,x≤ 2,x=x+0.005,
For[y=-2,y≤ 2,y=y+0.005,
v=x+I y;
StopVal=0;
For[k=1,k<50,k++;
If[Abs[v]>C2, {StopVal=1,Break;},v=N[Q[v]]];
]
If[StopVal==0,Pts = Join[Pts,{{x,y}},1];]
]
]

ListPlot[Pts,PlotStyle->{{Red}}, PlotRange->{{-2,2},{-2,2}}, Axes->None]

c=-0.43-0.05 I;

Q[z_] = (z^2)+c;

Pts = {{0.,0.}};

C2 = Max[Abs[c],2];
For[x=-2,x≤ 2,x=x+0.01,
For[y=-2,y≤ 2,y=y+0.01,
v=x+I y;
StopVal=0;
For[k=1,k<75,k++;
If[Abs[v]>C2, {StopVal=1,Break;},v=N[Q[v]]];
]
If[StopVal==0,Pts = Join[Pts,{{x,y}},1];]
]
]

ListPlot[Pts,PlotStyle->{{Red}}, PlotRange->{{-2,2},{-2,2}}, Axes->None]

c=-0.9253+0.15325 I;

Q[z_] = (z^2)+c;

Pts = {{0.,0.}};

C2 = Max[Abs[c],2];
For[x=-2,x≤ 2,x=x+0.01,
For[y=-2,y≤ 2,y=y+0.01,
v=x+I y;
StopVal=0;
For[k=1,k<75,k++;
If[Abs[v]>C2, {StopVal=1,Break;},v=N[Q[v]]];
]
If[StopVal==0,Pts = Join[Pts,{{x,y}},1];]
]
]

ListPlot[Pts,PlotStyle->{{Red}}, PlotRange->{{-2,2},{-2,2}}, Axes->None]

c=-0.7253+0.1325 I;

Abs[c]

Q[z_] = (z^2)+c;

Pts = {{0.,0.}};

C2 = Max[Abs[c],2];
For[x=-2,x≤ 2,x=x+0.01,
For[y=-2,y≤ 2,y=y+0.01,
v=x+I y;
StopVal=0;
For[k=1,k<75,k++;
If[Abs[v]>C2, {StopVal=1,Break;},v=N[Q[v]]];
]
If[StopVal==0,Pts = Join[Pts,{{x,y}},1];]
]
]

ListPlot[Pts,PlotStyle->{{Red}}, PlotRange->{{-2,2},{-2,2}}, Axes->None]