este es el codigo para dibujarlo:
this->Repaint();
maxx=this->ClientWidth;
maxy=this->ClientHeight;
Limite=100;
OrigX=-2.0;
OrigY=-1.25;
DimX=0.5;
DimY=1.25;
PasoX=(DimX-OrigX)/maxx;
PasoY=(DimY-OrigY)/maxy;
for(int i=0;i<=maxx;i++)
for(int j=0;j<=maxy;j++)
{
PosX=OrigX+i*PasoX;
PosY=OrigY+j*PasoY;
IterX=0.0;
IterY=0.0;
Terminar=Pasos=0;
while(!Terminar)
{
TempX=(IterX*IterX)-(IterY*IterY)+PosX;
IterY=2*(IterX*IterY)+PosY;
IterX=TempX;
Pasos++;
if(hypot(fabs(IterX),fabs(IterY))>=2.0)
Terminar++;
if(Pasos>=Limite)Terminar++;
}
if(Pasos<Limite)
this->Canvas->Pixels[i][j]=clBlue;
}
y este es el resultado:
aquí puedes descargarlo
No hay comentarios:
Publicar un comentario