**Il frattale a C

Frattale a C (prima definizione)
[Graphics:../Images/index_gr_588.gif]
[Graphics:../Images/index_gr_589.gif]
[Graphics:../Images/index_gr_590.gif]
[Graphics:../Images/index_gr_591.gif]

[Graphics:../Images/index_gr_592.gif]

[Graphics:../Images/index_gr_593.gif]

[Graphics:../Images/index_gr_594.gif]

[Graphics:../Images/index_gr_595.gif]

[Graphics:../Images/index_gr_596.gif]

[Graphics:../Images/index_gr_597.gif]

[Graphics:../Images/index_gr_598.gif]

Sviluppando la figura fino al passo 4, si ottiene una autointersezione tra una freccia sinistra-destra, e un'altra in direzione opposta. dato che la figura è simmetrica, questa autointersezione è una sovrapposizione tra 2 delle 2^4=16 copie presenti al passo 4. Ne segue che aumentando la scala di 4 volte si ottengono al piu' 16-1=15 copie del frattale (potrebbero esserci altre sovrapposizioni). Le che la la dimensione del frattale è dunque <= Log[4,16-1], ovvero di:

[Graphics:../Images/index_gr_599.gif]
[Graphics:../Images/index_gr_600.gif]
Frattale a C (seconda definizione)
[Graphics:../Images/index_gr_601.gif]
[Graphics:../Images/index_gr_602.gif]
[Graphics:../Images/index_gr_603.gif]
[Graphics:../Images/index_gr_604.gif]

[Graphics:../Images/index_gr_605.gif]

[Graphics:../Images/index_gr_606.gif]

[Graphics:../Images/index_gr_607.gif]

[Graphics:../Images/index_gr_608.gif]

[Graphics:../Images/index_gr_609.gif]

[Graphics:../Images/index_gr_610.gif]

[Graphics:../Images/index_gr_611.gif]

Ora una approssimazione di livello 8 corrisponde ad una precedente approssimazione di livello 16.

Frattale a C con dati letti da file

Diamo ora dei comandi per leggere i dati delle coordinate di una curva C da file e usarli per costruire un file di grafica. Supponiamo che il file contenga le coordinate nella forma x1 y1 x2 y2 x3 y3 ... .

    grafC9 = ListPlot[ReadList["DatiC",{Number,Number}],    
        PlotStyle -> PointSize[0], Axes -> False, PlotRange -> {{-255,767},{-127,511}}, AspectRatio -> Automatic];
        
    Display["curvaC.gif",grafC9,"GIF", ImageSize ->1023];


Converted by Mathematica      February 28, 2003