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/

martes, 26 de octubre de 2010

jueves, 7 de octubre de 2010

martes, 28 de septiembre de 2010

miércoles, 1 de septiembre 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

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

domingo, 24 de enero de 2010

Porcentajes por materia

Enlace a los porcentajes por materia. Enlace

Planes Clase Enero Mayo 2010

Computación 27OP enlace
Redes 26 KL enlace
Redes 26J enlace
Programación Orientada a Objetos enlace

lunes, 11 de enero de 2010

Horario Enero-Mayo 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