Sesion#5
ISABELLA Y CLE
2 de febrero de 2007
Objetivo: Hacer la representacion grafica de tangente y cotangente.
Desarrollo:
1.Ninguna de nosotras pudimos estar en clase por razones personales pero nosotras ya hicimos la programacion de seno, coseno, tangente, cosecante y secante solo falta la de cotangente
Cálculos aritméticos:
para tangente
fcolor 124 fgrosor 1 anima2
cumpleveces [w 37]
[sp espera 2
da "ww :w * 10
fx -270
fy 0
fx -270 + (15 * :w)
si :ww = 90 [da "ww :ww + 10]
si :ww = 270 [da "ww :ww + 10]
fy ((tan :ww) * 40)
fgrosor 1
cp fcolor 24 ad .1 at .1]
fin
para secante
fcolor 9 fgrosor 1 anima2
cumpleveces [w 37]
[sp espera 2
da "ww :w * 10
fx -270
fy 0
fx -270 + (15 * :w)
si :ww = 0 [da "ww :ww + 10]
si :ww = 90 [da "ww :ww + 10]
si :ww = 270 [da "ww :ww + 10]
fy ((1 / cos :ww) * 40)
fgrosor 2
cp fcolor 64 ad .1 at .1]
fin
para cosecante
fcolor 9 fgrosor 1 anima2
cumpleveces [w 36]
[sp espera 2
da "ww :w * 10
fx -270
fy 0
fx -270 + (15 * :w)
si :ww = 0 [da "ww :ww + 10]
si :ww = 90 [da "ww :ww + 10]
si :ww = 180 [da "ww :ww + 10]
si :ww = 270 [da "ww :ww + 10]
fy ((1 / sen :ww) * 40)
fgrosor 2
cp fcolor 15 ad .1 at .1]
fcolor 9 fgrosor 1 anima2
cumpleveces [w 36]
[sp espera 2
da "ww :w * 10
fx -270
fy 0
fx -270 + (15 * :w)
si :ww = 0 [da "ww :ww + 10]
si :ww = 90 [da "ww :ww + 10]
si :ww = 180 [da "ww :ww + 10]
si :ww = 270 [da "ww :ww + 10]
fy ((1 / sen :ww) * 40)
fgrosor 2
cp fcolor 15 ad .1 at .1]
Comentarios para el maestro:
Este proyecto sigue siendo muy interesante ojala que todo siga igual.
No hay comentarios.:
Publicar un comentario