Baulistica & Co - il 3D degli scemi pagliacci

per saperlo devi prima pagare i diritti d'autore a Delorean

Mandagli una ricarica da 1,96euro sulla sua postepay

 

tutti che glielo ciupano..... sto poverello di scarfacebook si ritroverà con un lombricone molliccio sbausciato e arrossato ora di sera..

 

impossibile



lui è un mio fan

 

/emoticons/biggrin@2x.png 2x" width="20" height="20" />

 

muahhauhua!

Sardinia mi ha detto che c'é poco niente da ciupare da te!

 

prooooooooooooot

 

...sticaxxi

 

http://www.bmwpassion.com/forum/showthread.php?167572-Baulistica-e-co.-il-3D-degli-scemi-pagliacci/page6000

 

clc, close all; clear all

%Calibration - Find the coefficient to transform microrad in pxs

I = imread('Calibration_new.bmp');

Max = max(max(I));

Image = im2single(I);

Dim = size(Image);

Middle = Image(Dim(1)/2,:,2);

x = 1:1:length(Middle);

d = 40;

a = 4;

lambda = 0.532*1e-3;

Fringes = [];

Envelope = [];

coeff = 0.1:0.001:0.170;

for j = 1:1:length(coeff)

c = (pi/(180*3600))*coeff(j);

alpha = (x-length(Middle)*0.5)*c;

for i = 1:length(alpha)

F(i) = pi*(d/lambda)*alpha(i);

E(i) = pi*(a/lambda)*alpha(i);

Fringes(i) = (cos(F(i)))^2;

if Fringes(i)<0

Fringes(i) = -Fringes(i);

end

Envelope(i) = (sin(E(i))/E(i))^2;

if Envelope(i)<0

Envelope(i) = -Envelope(i);

end

if alpha(i) == 0

Envelope(i) = 1;

end

Total(i) = Fringes(i)*Envelope(i);

if Total(i)<0

Total(i) = -Total(i);

end

end

Scale = max(Middle)/max(Total);

Tot = Total*Scale;

Temp(j, :) /emoticons/smile@2x.png 2x" width="20" height="20" /> = conv2(Middle,Tot,'same');

M = max(Temp');

[r,c] = find(M == max(M));

max_coeff = coeff©;

end

 

/emoticons/happy@2x.png 2x" width="20" height="20" />

 

quoto