RE:Ayuda de rotacion de imagenes en matlab
Hola Karla,
Encontre el siguiente link:
http://www.programmersheaven.com/mb/ctocplusplustomatlab/375650/375650/scaling-and-rotating-images/?S=B20000
estoy seguro que te sera de alguna ayuda.
Saludos
Fismat
%Rotación por grados en una matriz
clc, clear all, close all
A=ones(100);
n=size(A);
for x=n(1)/2-40:n(1)/2+40
for y=n(2)/2-4:n(2)/2+4
A(x,y)=0;
end
end
np=0;
npx=0;
npy=0;
for x=1:n(1);
for y=1:n(2);
if A(x,y)==0;
np=np+1; %Area de la figura
npx=npx+x; %Acumulando renglones si se cumple la condición
npy=npy+y; %Acumulando columnas si se cumple la condición
end
end
end
npx=round(npx/np); %Coordenada centro x
npy=round(npy/np); %Coordenada centro y
H=sqrt(n(1)^2+n(2)^2); %Radio de longitud máxima
H=2*H;
newang=input('Ingresar nuevo ángulo: ');
B=ones(n);
angulo=pi/360;
for theta=0:angulo:2*pi-angulo;
for r=1:H;
x=round(r.*cos(theta)+npx);
y=round(r.*sin(theta)+npy);
if A(x,y)==0;
i=round(r.*cos(theta+newang)+npx);
j=round(r.*sin(theta+newang)+npy);
B(i,j)=0;
elseif A(round(r.*cos(0)+npx),round(r.*sin(0)+npy))==0;
B(round(cos(0)+npx),round(sin(0)+npy))=0;
else
break
end
end
end
subplot(1,2,1)
imagesc(A)
colormap gray
axis off
subplot(1,2,2)
imagesc(B)
colormap gray
axis off