Small Satellites

Home » Fractals » Carotid-Kundalini function

Carotid-Kundalini function

clc; clear all; close all;

figure('Position',[0 0 800 800])
hold on;
x  = -1:0.005:1;
sz = size(x);
for n = 1:15
    for i = 1:sz(2)
        CK(i) = cos(n*x(i)*acos(x(i)));
    end
plot(x,CK,'k');
axis off;
end

CarotidFractal

Slightly modifing the Carotid-Kundalini function

x  = -1:0.005:1;
sz = size(x);
for n = 1:25
    for i = 1:sz(2)
        for j = 1:sz(2)
        CK(i,j) = cos(n*(x(i))*acos(x(i)))+...
            cos(n*(x(j))*acos(x(j)));
        end
    end
end
figure('Position',[0 0 800 800])
imagesc(CK);
colormap bone;
axis off;

 

 

Advertisements

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

Recent Post

%d bloggers like this: