22 lines
444 B
Awk
22 lines
444 B
Awk
BEGIN {
|
|
XSize=59; YSize=21;
|
|
MinIm=-1.0; MaxIm=1.0;MinRe=-2.0; MaxRe=1.0;
|
|
StepX=(MaxRe-MinRe)/XSize; StepY=(MaxIm-MinIm)/YSize;
|
|
for(y=0;y<YSize;y++)
|
|
{
|
|
Im=MinIm+StepY*y;
|
|
for(x=0;x<XSize;x++)
|
|
{
|
|
Re=MinRe+StepX*x; Zr=Re; Zi=Im;
|
|
for(n=0;n<30;n++)
|
|
{
|
|
a=Zr*Zr; b=Zi*Zi;
|
|
if(a+b>4.0) break;
|
|
Zi=2*Zr*Zi+Im; Zr=a-b+Re;
|
|
}
|
|
printf "%c",62-n;
|
|
}
|
|
print "";
|
|
}
|
|
exit;
|
|
}
|