Saturday, September 19, 2009

LG Hologram Creation


clear
N = 2500;
k = 346; % Wavenumber
mmax = 4; % Charge number
r=1.4; %adjusts width of lines
x = linspace(-1,1,N);
y = linspace(-1,1,N);
[X,Y] = meshgrid(x,y);
for m=1:mmax
I_2 = zeros(N,N);
I_2 = 0+128*round(( r+cos(k*X + m*atan2(Y,X))));
image(x,y,I_2);
axis square;
%axis tight;
axis off;
colormap(gray);
filename=sprintf("k%d-m%d-N%d-r%d.eps",k,m,N,r*10)
print(filename,"-deps2")
endfor

Twitter Updates