7.4

分形理论及算法

esc=3D#27;
q=3D5; {2,3,4,5,6,7,8}{=B6=D4=B3=C6=B4=CE=CA=FD}
scale=3D64; {4,16,32,64,128}{=B0=DF=CD=BC=CA=B5=BC=CA=B3=DF=B6=C8}
width=3D450; =
{150,200,,400,450}{=CD=BC=D0=CE=C3=BF=B8=F6=B7=BD=CF=F2=C9=CF=CF=F3=CB=D8=
=B8=F6=CA=FD}
var
i,gd,gm: integer;
nx,ny,kcolor:integer;
H,r,x0,y0,x,y:real;
xmin,ymin,xmax,ymax,deltax,deltay:real;
ch:char;
BEGIN
Clrscr;TextColor(Green);
writeln('Symmetries and Tiling, Liu Huajie');
writeln('Press ESC to abort during calculating.');
TextColor(Red);
write('Please input xmin=3D'); readln(xmin);
Write('Please input ymin=3D'); readln(ymin);
xmax:=3Dxmin+scale*Pi;
ymax:=3Dymin+scale*Pi;
Gd:=3DVGA; Gm:=3DVGAHi;
InitGraph(Gd,Gm,'D:\PASCAL');
if GraphResult<>grOK then Halt(1);
SetTextStyle(1,1,3);
OutTextXY(500,50,'Press ESC to abort!');
REPEAT
deltax:=3D(xmax-xmin)/width;
deltay:=3D(ymax-ymin)/width;
FOR ny:=3D0 TO width  do
FOR nx:=3D0 TO width do BEGIN
x:=3Dxmin+nx*deltax;
y:=3Dymin+ny*deltay;
H:=3D0;
for i:=3D1 to q do
begin
H:=3DH+cos(x*cos(2*Pi*i/q)+y*sin(2*Pi*i/q));
{=C9=CF=D2=BB=D0=D0=BF=C9=D2=D4=BB=BB=B3=C9=C8=CE=D2=E2=BA=AF=CA=FD=A3=AC=
=D3=DA=CA=C7=B1=E3=BF=C9=BC=C6=CB=E3=D2=BB=B0=E3=BA=AF=CA=FD=B5=C4=B5=C8=C4=
=DC=C3=E6}
end;
IF (H>-9)and(H<=3D-5) THEN   kcolor:=3D1;
IF (H>-5)and(H<=3D-4) THEN   kcolor:=3D2;
IF (H>-4)and(H<=3D-3) THEN   kcolor:=3D3;
IF (H>-3)and(H<=3D-2) THEN   kcolor:=3D4;
IF (H>-2)and(H<=3D-1) THEN   kcolor:=3D5;
IF (H>-1)and(H<=3D-0.5) THEN   kcolor:=3D6;
IF (H>-0.5)and(H<=3D-0.2) THEN   kcolor:=3D1;
IF (H>-0.2)and(H<=3D-0.1) THEN   kcolor:=3D2;
IF (H>0)and(H<=3D0.1) THEN   kcolor:=3D3;
IF (H>0.1)and(H<=3D0.2) THEN   kcolor:=3D4;
IF (H>0.2)and(H<=3D0.3) THEN   kcolor:=3D5;
IF (H>0.3)and(H<=3D0.5) THEN   kcolor:=3D6;
IF (H>0.5)and(H<=3D1) THEN   kcolor:=3D7;
IF (H>1)and(H<=3D3) THEN   kcolor:=3D8;
IF (H>3)and(H<=3D5) THEN   kcolor:=3D9;
IF (H>5)and(H<=3D7) THEN   kcolor:=3D10;
IF (H>7)and(H<=3D9) THEN   kcolor:=3D11;
IF (H>9)and(H<11) THEN   kcolor:=3D12;
PutPixel(nx+10,ny+10,kcolor);
IF KeyPressed THEN goto 20;
END;
20:
ch:=3DReadKey;
until =
(ch=3Desc);{=D4=CB=D0=D0=B9=FD=B3=CC=D6=D0=A3=AC=B0=B4ESC=BC=FC=CB=E6=CA=B1=
=CD=CB=B3=F6}
CloseGraph
END.</PRE></UL><PRE></PRE>
<P></P>
<P>=B4=CF=C3=F7=B5=C4=B6=C1=D5=DF=D2=B2=D0=ED=C2=ED=C9=CF=BE=CD=D7=A2=D2=E2=
=B5=BD=C1=CB=A3=AC=C9=CF=CA=F6=B3=CC=D0=F2=CA=B5=BC=CA=C9=CF=BE=DF=D3=D0=CD=
=A8=D3=C3=D0=D4=A3=AC=BF=C9=D2=D4=BC=C6=CB=E3=B2=A2=BB=E6=D6=C6=C8=CE=D2=E2=
=D0=CE=CA=BD =
=B5=C4=B6=FE=D4=AA=BA=AF=CA=FD=B5=C4=B5=C8=C4=DC(=CA=C6)=C3=E6=A1=A3=CA=B9=
=D3=C3=C9=CF=C3=E6=B5=C4=B3=CC=D0=F2=D3=A6=D7=A2=D2=E2=CB=C4=B5=E3=A3=BA<=
/P>
<P>1)=B6=D4=D3=DA=B2=BB=CD=AC=B5=C4=B6=FE=D4=AA=BA=AF=CA=FD=A3=AC=B1=EA=C9=
=AB=D3=EF=BE=E4=D3=A6=B5=B1=D7=F7=CA=CA=B5=B1=B5=C4=B5=F7=D5=FB=A3=AC=BC=B4=
=D6=D8=D0=C2=BB=AE=B7=D6=B5=C8=C4=DC(=CA=C6)=B2=E3=C7=F8=BC=E4=A1=A3 =
</P>
<P>2)=BC=C6=CB=E3=B9=FD=B3=CC=D6=D0=C8=E7=B9=FB=CF=EB=CB=E6=CA=B1=D6=D0=D6=
=B9=A3=AC=D0=E8=B0=B4ESC=BC=FC=A1=A3</P>
<P>3)=B3=CC=D0=F2=D6=D0scale=B5=C4=D6=B5=BE=F6=B6=A8=C1=CB=CA=D3=B3=A1=B5=
=C4=B4=F3=D0=A1=A3=AC=D4=DA=CD=BC=D0=CE=B4=F3=D0=A1=D2=BB=B6=A8=B5=C4=C7=E9=
=BF=F6=CF=C2=A3=AC=C8=E7=B9=FBscale=C8=A1=B5=C3=B4=F3=A3=AC=CF=E0=20
=B5=B1=D3=DA=BD=AB=BE=B5=CD=B7=CD=C6=D4=B6=A3=AC=CF=B8=BD=DA=BF=B4=B2=BB=C7=
=E5=A3=AC=D5=FB=CC=E5=D0=A7=B9=FB=C3=F7=CF=D4=A3=BB=C8=E7=B9=FBscale=C8=A1=
=B5=C3=D0=A1=A3=AC=D4=F2=CF=E0=B5=B1=D3=DA=C0=AD=BD=FC=BE=B5=CD=B7=B9=DB=B2=
=EC =
=BE=D6=B2=BF=A3=AC=CF=B8=BD=DA=C7=E5=B3=FE=A3=AC=B5=AB=B2=BB=D6=AA=B0=DF=CD=
=BC=B5=C4=BA=EA=B9=DB=BD=E1=B9=B9=A1=A3</P>
<P>4)=CE=AA=C1=CB=B5=C3=B5=BD=B4=F3=D0=CD=B8=DF=BE=AB=B6=C8=CD=BC=D0=CE=A3=
=AC=D0=E8=B8=C4=B1=E4=B3=CC=D0=F2=A3=AC=CF=C8=BD=AB=BC=C6=CB=E3=BD=E1=B9=FB=
=B4=E6=B5=BD=D2=BB=B8=F6=C1=D9=CA=B1=CE=C4=BC=FE=D6=D0=A3=AC=D4=D9=BD=AB=B4=
=CB=CE=C4=BC=FE=20
=B1=E4=B3=C9=B1=EA=D7=BC=B8=F1=CA=BD=CD=BC=D0=CE=CE=C4=BC=FE(=C8=E7GIF=B8=
=F1=CA=BD)=A3=AC=BF=C9=B2=CE=BC=FB=B1=BE=CA=E96.3=BD=DA=D3=D0=B9=D8=C4=DA=
=C8=DD=A1=A3</P>
<P>
<HR width=3D"100%">

<CENTER><FONT color=3D#008040>
<TABLE border=3D1>
  <TBODY>
  <TR>
    <TD><A=20
      =
href=3D"http://www.phil.pku.edu.cn/personal/huajie/fractalart/html/notice=
.htm">=D4=C4=B6=C1=CB=B5=C3=F7</A></TD>
    <TD><A=20
      =
href=3D"http://www.phil.pku.edu.cn/personal/huajie/fractalart/html/pref1.=
htm">=D0=F2=D1=D4=D2=BB</A></TD>
    <TD><A=20
      =
href=3D"http://www.phil.pku.edu.cn/personal/huajie/fractalart/html/pref2.=
htm">=D0=F2=D1=D4=B6=FE</A></TD>
    <TD><A=20
      =
href=3D"http://www.phil.pku.edu.cn/personal/huajie/fractalart/html/conten=
t.htm">=C4=BF=C2=BC</A></TD>
    <TD><A=20
      =
href=3D"http://www.phil.pku.edu.cn/personal/huajie/fractalart/html/101.ht=
m">1</A></TD>
    <TD><A=20
      =
href=3D"http://www.phil.pku.edu.cn/personal/huajie/fractalart/html/201.ht=
m">2</A></TD>
    <TD><A=20
      =
href=3D"http://www.phil.pku.edu.cn/personal/huajie/fractalart/html/301.ht=
m">3</A></TD>
    <TD><A=20
      =
href=3D"http://www.phil.pku.edu.cn/personal/huajie/fractalart/html/401.ht=
m">4</A></TD>
    <TD><A=20
      =
href=3D"http://www.phil.pku.edu.cn/personal/huajie/fractalart/html/501.ht=
m">5</A></TD>
    <TD><A=20
      =
href=3D"http://www.phil.pku.edu.cn/personal/huajie/fractalart/html/601.ht=
m">6</A></TD>
    <TD><A=20
      =
href=3D"http://www.phil.pku.edu.cn/personal/huajie/fractalart/html/701.ht=
m">7</A></TD>
    <TD><A=20
      =
href=3D"http://www.phil.pku.edu.cn/personal/huajie/fractalart/html/801.ht=
m">8</A></TD>
    <TD><A=20
      =
href=3D"http://www.phil.pku.edu.cn/personal/huajie/fractalart/html/901.ht=
m">9</A></TD>
    <TD><A=20
      =
href=3D"http://www.phil.pku.edu.cn/personal/huajie/fractalart/html/1001.h=
tm">10</A></TD>
    <TD><A=20
      =
href=3D"http://www.phil.pku.edu.cn/personal/huajie/fractalart/html/EP.htm=
">=CE=B2=C9=F9</A></TD>
    <TD><A=20
      =
href=3D"http://www.phil.pku.edu.cn/personal/huajie/fractalart/html/REF.ht=
m">=B2=CE=BF=BC=CE=C4=CF=D7</A></TD>
    <TD><A=20
      =
href=3D"http://www.phil.pku.edu.cn/personal/huajie/fractalart/html/EE.htm=
">=BA=F3=BC=C7</A></TD>
    <TD><A=20
      =
href=3D"http://www.phil.pku.edu.cn/personal/huajie/fractalart/html/DDEX.h=
tm">=CB=F7=D2=FD</A></TD></TR></TBODY></TABLE></FONT>
<TABLE border=3D1>
  <TBODY>
  <TR>
    <TD><A=20
      =
href=3D"http://www.phil.pku.edu.cn/personal/huajie/fractalart/html/701.ht=
m">7.1</A></TD>
    <TD><A=20
      =
href=3D"http://www.phil.pku.edu.cn/personal/huajie/fractalart/html/702.ht=
m">7.2</A></TD>
    <TD><A=20
      =
href=3D"http://www.phil.pku.edu.cn/personal/huajie/fractalart/html/703.ht=
m">7.3</A></TD>
    <TD><A=20
      =
href=3D"http://www.phil.pku.edu.cn/personal/huajie/fractalart/html/704.ht=
m">7.4</A></TD>
    <TD><A=20
      =
href=3D"http://www.phil.pku.edu.cn/personal/huajie/fractalart/html/705.ht=
m">7.5</A></TD></TR></TBODY></TABLE></FONT></CENTER>
<HR width=3D"100%">
=1A</BODY></HTML>

------=_NextPart_000_00C7_01C32AEF.A46B4670
Content-Type: image/jpeg
Content-Transfer-Encoding: base64
Content-Location: http://www.phil.pku.edu.cn/personal/huajie/fractalart/html/p712.JPG

/9j/4AAQSkZJRgABAAEAYABgAAD//gAXVS1MZWFkIFN5c3RlbXMsIEluYy4A/9sAQwADAgICAgID
AgICAwMDAwQIBQQEBAQJBwcFCAsKDAwLCgsLDA4SDwwNEQ0LCxAVEBETExQUFAwPFhgWFBgSFBQT
/8QA0gAAAQUBAQEBAQEAAAAAAAAAAAECAwQFBgcICQoLEAACAQMDAgQDBQUEBAAAAX0BAgMABBEF
EiExQQYTUWEHInEUMoGRoQgjQrHBFVLR8CQzYnKCCQoWFxgZGiUmJygpKjQ1Njc4OTpDREVGR0hJ