Es un espacio donde publico notas que creo interesantes desde octubre de 2007.
domingo, 7 de noviembre de 2010
sábado, 6 de noviembre de 2010
Blogs de los estudiantes de maestría en pedagogía.
Joél
http://joelvazquezmarin.blogspot.com/
Benjamín
http://arqpalomares.blogspot.com/
Ana Lilia
http://analilia-ui.blogspot.com/
Cristina
http://educaninoartista.blogspot.com/
Omar
http://omar-pantera.blogspot.com/
Eduardo
http://normasdeconductadetratosocial.blogspot.com/
Isela
http://dinamicas-isela.blogspot.com/
Saira
http://altantodeclase.blogspot.com/
http://joelvazquezmarin.blogspot.com/
Benjamín
http://arqpalomares.blogspot.com/
Ana Lilia
http://analilia-ui.blogspot.com/
Cristina
http://educaninoartista.blogspot.com/
Omar
http://omar-pantera.blogspot.com/
Eduardo
http://normasdeconductadetratosocial.blogspot.com/
Isela
http://dinamicas-isela.blogspot.com/
Saira
http://altantodeclase.blogspot.com/
miércoles, 27 de octubre de 2010
martes, 26 de octubre de 2010
jueves, 7 de octubre de 2010
sábado, 2 de octubre de 2010
martes, 28 de septiembre de 2010
miércoles, 1 de septiembre de 2010
miércoles, 11 de agosto de 2010
jueves, 24 de junio de 2010
Control de motor a Pasos con AVR
.include "m8535def.inc"
.def Delay=r17
.def Delay2=r18
RESET:
ser r16
out DDRA,r16
ldi r16,0
out DDRB,r16
ser r16
out DDRC,r16
CICLO: sbis PINB,0x04
rjmp CICLO2
sbis PINB,0x01
inc r19
sbis PINB,0x02
dec r19
out PORTA,r19
;ldi r19,7
ldi r16,1
out PORTC,r16
mov Delay2,r19
DLY21:
dec Delay
brne DLY21
dec Delay2
brne DLY21
ldi r16,3
out PORTC,r16
mov Delay2,r19
DLY22:
dec Delay
brne DLY22
dec Delay2
brne DLY22
ldi r16,2
out PORTC,r16
mov Delay2,r19
DLY23:
dec Delay
brne DLY23
dec Delay2
brne DLY23
ldi r16,6
out PORTC,r16
mov Delay2,r19
DLY24:
dec Delay
brne DLY24
dec Delay2
brne DLY24
ldi r16,4
out PORTC,r16
mov Delay2,r19
DLY25:
dec Delay
brne DLY25
dec Delay2
brne DLY25
ldi r16,12
out PORTC,r16
mov Delay2,r19
DLY26:
dec Delay
brne DLY26
dec Delay2
brne DLY26
ldi r16,8
out PORTC,r16
mov Delay2,r19
DLY27:
dec Delay
brne DLY27
dec Delay2
brne DLY27
ldi r16,9
out PORTC,r16
mov Delay2,r19
DLY28:
dec Delay
brne DLY28
dec Delay2
brne DLY28
rjmp CICLO
CICLO2: sbis PINB,0x03
rjmp CICLO
sbis PINB,0x01
inc r19
sbis PINB,0x02
dec r19
out PORTA,r19
;ldi r19,7
ldi r16,9
out PORTC,r16
mov Delay2,r19
DLY1:
dec Delay
brne DLY1
dec Delay2
brne DLY1
ldi r16,8
out PORTC,r16
mov Delay2,r19
DLY2:
dec Delay
brne DLY2
dec Delay2
brne DLY2
ldi r16,12
out PORTC,r16
mov Delay2,r19
DLY3:
dec Delay
brne DLY3
dec Delay2
brne DLY3
ldi r16,4
out PORTC,r16
mov Delay2,r19
DLY4:
dec Delay
brne DLY4
dec Delay2
brne DLY4
ldi r16,6
out PORTC,r16
mov Delay2,r19
DLY5:
dec Delay
brne DLY5
dec Delay2
brne DLY5
ldi r16,2
out PORTC,r16
mov Delay2,r19
DLY6:
dec Delay
brne DLY6
dec Delay2
brne DLY6
ldi r16,3
out PORTC,r16
mov Delay2,r19
DLY7:
dec Delay
brne DLY7
dec Delay2
brne DLY7
ldi r16,1
out PORTC,r16
mov Delay2,r19
DLY8:
dec Delay
brne DLY8
dec Delay2
brne DLY8
rjmp CICLO2
.def Delay=r17
.def Delay2=r18
RESET:
ser r16
out DDRA,r16
ldi r16,0
out DDRB,r16
ser r16
out DDRC,r16
CICLO: sbis PINB,0x04
rjmp CICLO2
sbis PINB,0x01
inc r19
sbis PINB,0x02
dec r19
out PORTA,r19
;ldi r19,7
ldi r16,1
out PORTC,r16
mov Delay2,r19
DLY21:
dec Delay
brne DLY21
dec Delay2
brne DLY21
ldi r16,3
out PORTC,r16
mov Delay2,r19
DLY22:
dec Delay
brne DLY22
dec Delay2
brne DLY22
ldi r16,2
out PORTC,r16
mov Delay2,r19
DLY23:
dec Delay
brne DLY23
dec Delay2
brne DLY23
ldi r16,6
out PORTC,r16
mov Delay2,r19
DLY24:
dec Delay
brne DLY24
dec Delay2
brne DLY24
ldi r16,4
out PORTC,r16
mov Delay2,r19
DLY25:
dec Delay
brne DLY25
dec Delay2
brne DLY25
ldi r16,12
out PORTC,r16
mov Delay2,r19
DLY26:
dec Delay
brne DLY26
dec Delay2
brne DLY26
ldi r16,8
out PORTC,r16
mov Delay2,r19
DLY27:
dec Delay
brne DLY27
dec Delay2
brne DLY27
ldi r16,9
out PORTC,r16
mov Delay2,r19
DLY28:
dec Delay
brne DLY28
dec Delay2
brne DLY28
rjmp CICLO
CICLO2: sbis PINB,0x03
rjmp CICLO
sbis PINB,0x01
inc r19
sbis PINB,0x02
dec r19
out PORTA,r19
;ldi r19,7
ldi r16,9
out PORTC,r16
mov Delay2,r19
DLY1:
dec Delay
brne DLY1
dec Delay2
brne DLY1
ldi r16,8
out PORTC,r16
mov Delay2,r19
DLY2:
dec Delay
brne DLY2
dec Delay2
brne DLY2
ldi r16,12
out PORTC,r16
mov Delay2,r19
DLY3:
dec Delay
brne DLY3
dec Delay2
brne DLY3
ldi r16,4
out PORTC,r16
mov Delay2,r19
DLY4:
dec Delay
brne DLY4
dec Delay2
brne DLY4
ldi r16,6
out PORTC,r16
mov Delay2,r19
DLY5:
dec Delay
brne DLY5
dec Delay2
brne DLY5
ldi r16,2
out PORTC,r16
mov Delay2,r19
DLY6:
dec Delay
brne DLY6
dec Delay2
brne DLY6
ldi r16,3
out PORTC,r16
mov Delay2,r19
DLY7:
dec Delay
brne DLY7
dec Delay2
brne DLY7
ldi r16,1
out PORTC,r16
mov Delay2,r19
DLY8:
dec Delay
brne DLY8
dec Delay2
brne DLY8
rjmp CICLO2
Control de Motor a pasos con AVR, regulador de velocidad con PIN1 y 2 del puertoB, as{i como cambio de giro con PINES 3 y 4 del mismo puerto
.include "m8535def.inc"
.def Delay=r17
.def Delay2=r18
RESET:
ser r16
out DDRA,r16
ldi r16,0
out DDRB,r16
ser r16
out DDRC,r16
CICLO: sbis PINB,0x04
rjmp CICLO2
sbis PINB,0x01
inc r19
sbis PINB,0x02
dec r19
out PORTA,r19
;ldi r19,7
ldi r16,1
out PORTC,r16
mov Delay2,r19
DLY21:
dec Delay
brne DLY21
dec Delay2
brne DLY21
ldi r16,3
out PORTC,r16
mov Delay2,r19
DLY22:
dec Delay
brne DLY22
dec Delay2
brne DLY22
ldi r16,2
out PORTC,r16
mov Delay2,r19
DLY23:
dec Delay
brne DLY23
dec Delay2
brne DLY23
ldi r16,6
out PORTC,r16
mov Delay2,r19
DLY24:
dec Delay
brne DLY24
dec Delay2
brne DLY24
ldi r16,4
out PORTC,r16
mov Delay2,r19
DLY25:
dec Delay
brne DLY25
dec Delay2
brne DLY25
ldi r16,12
out PORTC,r16
mov Delay2,r19
DLY26:
dec Delay
brne DLY26
dec Delay2
brne DLY26
ldi r16,8
out PORTC,r16
mov Delay2,r19
DLY27:
dec Delay
brne DLY27
dec Delay2
brne DLY27
ldi r16,9
out PORTC,r16
mov Delay2,r19
DLY28:
dec Delay
brne DLY28
dec Delay2
brne DLY28
rjmp CICLO
CICLO2: sbis PINB,0x03
rjmp CICLO
sbis PINB,0x01
inc r19
sbis PINB,0x02
dec r19
out PORTA,r19
;ldi r19,7
ldi r16,9
out PORTC,r16
mov Delay2,r19
DLY1:
dec Delay
brne DLY1
dec Delay2
brne DLY1
ldi r16,8
out PORTC,r16
mov Delay2,r19
DLY2:
dec Delay
brne DLY2
dec Delay2
brne DLY2
ldi r16,12
out PORTC,r16
mov Delay2,r19
DLY3:
dec Delay
brne DLY3
dec Delay2
brne DLY3
ldi r16,4
out PORTC,r16
mov Delay2,r19
DLY4:
dec Delay
brne DLY4
dec Delay2
brne DLY4
ldi r16,6
out PORTC,r16
mov Delay2,r19
DLY5:
dec Delay
brne DLY5
dec Delay2
brne DLY5
ldi r16,2
out PORTC,r16
mov Delay2,r19
DLY6:
dec Delay
brne DLY6
dec Delay2
brne DLY6
ldi r16,3
out PORTC,r16
mov Delay2,r19
DLY7:
dec Delay
brne DLY7
dec Delay2
brne DLY7
ldi r16,1
out PORTC,r16
mov Delay2,r19
DLY8:
dec Delay
brne DLY8
dec Delay2
brne DLY8
rjmp CICLO2
.def Delay=r17
.def Delay2=r18
RESET:
ser r16
out DDRA,r16
ldi r16,0
out DDRB,r16
ser r16
out DDRC,r16
CICLO: sbis PINB,0x04
rjmp CICLO2
sbis PINB,0x01
inc r19
sbis PINB,0x02
dec r19
out PORTA,r19
;ldi r19,7
ldi r16,1
out PORTC,r16
mov Delay2,r19
DLY21:
dec Delay
brne DLY21
dec Delay2
brne DLY21
ldi r16,3
out PORTC,r16
mov Delay2,r19
DLY22:
dec Delay
brne DLY22
dec Delay2
brne DLY22
ldi r16,2
out PORTC,r16
mov Delay2,r19
DLY23:
dec Delay
brne DLY23
dec Delay2
brne DLY23
ldi r16,6
out PORTC,r16
mov Delay2,r19
DLY24:
dec Delay
brne DLY24
dec Delay2
brne DLY24
ldi r16,4
out PORTC,r16
mov Delay2,r19
DLY25:
dec Delay
brne DLY25
dec Delay2
brne DLY25
ldi r16,12
out PORTC,r16
mov Delay2,r19
DLY26:
dec Delay
brne DLY26
dec Delay2
brne DLY26
ldi r16,8
out PORTC,r16
mov Delay2,r19
DLY27:
dec Delay
brne DLY27
dec Delay2
brne DLY27
ldi r16,9
out PORTC,r16
mov Delay2,r19
DLY28:
dec Delay
brne DLY28
dec Delay2
brne DLY28
rjmp CICLO
CICLO2: sbis PINB,0x03
rjmp CICLO
sbis PINB,0x01
inc r19
sbis PINB,0x02
dec r19
out PORTA,r19
;ldi r19,7
ldi r16,9
out PORTC,r16
mov Delay2,r19
DLY1:
dec Delay
brne DLY1
dec Delay2
brne DLY1
ldi r16,8
out PORTC,r16
mov Delay2,r19
DLY2:
dec Delay
brne DLY2
dec Delay2
brne DLY2
ldi r16,12
out PORTC,r16
mov Delay2,r19
DLY3:
dec Delay
brne DLY3
dec Delay2
brne DLY3
ldi r16,4
out PORTC,r16
mov Delay2,r19
DLY4:
dec Delay
brne DLY4
dec Delay2
brne DLY4
ldi r16,6
out PORTC,r16
mov Delay2,r19
DLY5:
dec Delay
brne DLY5
dec Delay2
brne DLY5
ldi r16,2
out PORTC,r16
mov Delay2,r19
DLY6:
dec Delay
brne DLY6
dec Delay2
brne DLY6
ldi r16,3
out PORTC,r16
mov Delay2,r19
DLY7:
dec Delay
brne DLY7
dec Delay2
brne DLY7
ldi r16,1
out PORTC,r16
mov Delay2,r19
DLY8:
dec Delay
brne DLY8
dec Delay2
brne DLY8
rjmp CICLO2
jueves, 29 de abril de 2010
martes, 27 de abril de 2010
domingo, 24 de enero de 2010
lunes, 11 de enero de 2010
Un robot creado en Matlab
%% Creado por Pérez del Razo Marco
for i=0:3
clf
matriz_0=[0,0,0,0,0,3,3,0,0,3,3,0,3,3,3,3;0,0,1,1,0,0,1,1,1,1,0,0,0,0,1,1;0,1,1,0,0,0,0,0,1,1,1,1,1,0,0,1]
matriz_1=[0,0,-1,-1,0,0,0,-1,-1,0,-1,-1,-1,-1,0,0;0,1,1,0,0,0,1,1,0,0,0,0,1,1,1,1;0,0,0,0,0,-3,-3,-3,-3,-3,-3,0,0,-3,-3,0]
x=matriz_0(1,:)
y=matriz_0(2,:)
z=matriz_0(3,:)
plot3(x,y,z)
axis([-5,5,-5,5,-5,5])
hold on
x=matriz_1(1,:)
y=matriz_1(2,:)
z=matriz_1(3,:)
plot3(x,y,z)
for i=0:45
clf
theta = -(i * pi)/180
matriz_y=[cos(theta),0,sin(theta);0,1,0;-sin(theta),0,cos(theta)]
a=matriz_y*matriz_0
x=a(1,:)
y=a(2,:)
z=a(3,:)
plot3(x,y,z)
hold on
x=matriz_1(1,:)
y=matriz_1(2,:)
z=matriz_1(3,:)
plot3(x,y,z)
axis([-5,5,-5,5,-5,5])
hold on
pause(0.030)
end
pause(0.5)
for i=0:90
clf
theta = (i * pi)/180
matriz_z=[cos(theta),-sin(theta),0;sin(theta),cos(theta),0;0,0,1]
b=matriz_z*a
x=b(1,:)
y=b(2,:)
z=b(3,:)
plot3(x,y,z)
axis([-5,5,-5,5,-5,5])
hold on
poste=matriz_z*matriz_1
x=poste(1,:)
y=poste(2,:)
z=poste(3,:)
plot3(x,y,z)
hold on
pause(0.030)
end
pause(0.5)
for i=0:45
clf
theta = -(i * pi)/180
matriz_x=[1,0,0;0,cos(theta),-sin(theta);0,sin(theta),cos(theta)]
c=matriz_x*b
x=c(1,:)
y=c(2,:)
z=c(3,:)
plot3(x,y,z)
axis([-5,5,-5,5,-5,5])
hold on
x=poste(1,:)
y=poste(2,:)
z=poste(3,:)
plot3(x,y,z)
hold on
pause(0.030)
end
pause(0.5)
for i=0:45
clf
theta = (i * pi)/180
matriz_x=[1,0,0;0,cos(theta),-sin(theta);0,sin(theta),cos(theta)]
d=matriz_x*c
x=d(1,:)
y=d(2,:)
z=d(3,:)
plot3(x,y,z)
axis([-5,5,-5,5,-5,5])
hold on
x=poste(1,:)
y=poste(2,:)
z=poste(3,:)
plot3(x,y,z)
hold on
pause(0.030)
end
pause(0.5)
for i=0:90
clf
theta = -(i * pi)/180
matriz_z=[cos(theta),-sin(theta),0;sin(theta),cos(theta),0;0,0,1]
e=matriz_z*d
x=e(1,:)
y=e(2,:)
z=e(3,:)
plot3(x,y,z)
axis([-5,5,-5,5,-5,5])
hold on
poste1=matriz_z*poste
x=poste1(1,:)
y=poste1(2,:)
z=poste1(3,:)
plot3(x,y,z)
hold on
pause(0.030)
end
pause(0.5)
for i=0:45
clf
theta = (i * pi)/180
matriz_y=[cos(theta),0,sin(theta);0,1,0;-sin(theta),0,cos(theta)]
f=matriz_y*e
x=f(1,:)
y=f(2,:)
z=f(3,:)
plot3(x,y,z)
axis([-5,5,-5,5,-5,5])
hold on
x=matriz_1(1,:)
y=matriz_1(2,:)
z=matriz_1(3,:)
plot3(x,y,z)
plot3(x,y,z)
hold on
pause(0.030)
end
pause(0.5)
end
for i=0:3
clf
matriz_0=[0,0,0,0,0,3,3,0,0,3,3,0,3,3,3,3;0,0,1,1,0,0,1,1,1,1,0,0,0,0,1,1;0,1,1,0,0,0,0,0,1,1,1,1,1,0,0,1]
matriz_1=[0,0,-1,-1,0,0,0,-1,-1,0,-1,-1,-1,-1,0,0;0,1,1,0,0,0,1,1,0,0,0,0,1,1,1,1;0,0,0,0,0,-3,-3,-3,-3,-3,-3,0,0,-3,-3,0]
x=matriz_0(1,:)
y=matriz_0(2,:)
z=matriz_0(3,:)
plot3(x,y,z)
axis([-5,5,-5,5,-5,5])
hold on
x=matriz_1(1,:)
y=matriz_1(2,:)
z=matriz_1(3,:)
plot3(x,y,z)
for i=0:45
clf
theta = -(i * pi)/180
matriz_y=[cos(theta),0,sin(theta);0,1,0;-sin(theta),0,cos(theta)]
a=matriz_y*matriz_0
x=a(1,:)
y=a(2,:)
z=a(3,:)
plot3(x,y,z)
hold on
x=matriz_1(1,:)
y=matriz_1(2,:)
z=matriz_1(3,:)
plot3(x,y,z)
axis([-5,5,-5,5,-5,5])
hold on
pause(0.030)
end
pause(0.5)
for i=0:90
clf
theta = (i * pi)/180
matriz_z=[cos(theta),-sin(theta),0;sin(theta),cos(theta),0;0,0,1]
b=matriz_z*a
x=b(1,:)
y=b(2,:)
z=b(3,:)
plot3(x,y,z)
axis([-5,5,-5,5,-5,5])
hold on
poste=matriz_z*matriz_1
x=poste(1,:)
y=poste(2,:)
z=poste(3,:)
plot3(x,y,z)
hold on
pause(0.030)
end
pause(0.5)
for i=0:45
clf
theta = -(i * pi)/180
matriz_x=[1,0,0;0,cos(theta),-sin(theta);0,sin(theta),cos(theta)]
c=matriz_x*b
x=c(1,:)
y=c(2,:)
z=c(3,:)
plot3(x,y,z)
axis([-5,5,-5,5,-5,5])
hold on
x=poste(1,:)
y=poste(2,:)
z=poste(3,:)
plot3(x,y,z)
hold on
pause(0.030)
end
pause(0.5)
for i=0:45
clf
theta = (i * pi)/180
matriz_x=[1,0,0;0,cos(theta),-sin(theta);0,sin(theta),cos(theta)]
d=matriz_x*c
x=d(1,:)
y=d(2,:)
z=d(3,:)
plot3(x,y,z)
axis([-5,5,-5,5,-5,5])
hold on
x=poste(1,:)
y=poste(2,:)
z=poste(3,:)
plot3(x,y,z)
hold on
pause(0.030)
end
pause(0.5)
for i=0:90
clf
theta = -(i * pi)/180
matriz_z=[cos(theta),-sin(theta),0;sin(theta),cos(theta),0;0,0,1]
e=matriz_z*d
x=e(1,:)
y=e(2,:)
z=e(3,:)
plot3(x,y,z)
axis([-5,5,-5,5,-5,5])
hold on
poste1=matriz_z*poste
x=poste1(1,:)
y=poste1(2,:)
z=poste1(3,:)
plot3(x,y,z)
hold on
pause(0.030)
end
pause(0.5)
for i=0:45
clf
theta = (i * pi)/180
matriz_y=[cos(theta),0,sin(theta);0,1,0;-sin(theta),0,cos(theta)]
f=matriz_y*e
x=f(1,:)
y=f(2,:)
z=f(3,:)
plot3(x,y,z)
axis([-5,5,-5,5,-5,5])
hold on
x=matriz_1(1,:)
y=matriz_1(2,:)
z=matriz_1(3,:)
plot3(x,y,z)
plot3(x,y,z)
hold on
pause(0.030)
end
pause(0.5)
end
Suscribirse a:
Entradas (Atom)