1 / 5

PUNTO A PUNTO

PUNTO A PUNTO. Estas imágenes fueron generadas por procedimientos LOGO que barren la pantalla colocando puntos. El color del punto deviene de una función de X e Y. PARA FUNC :F (Se ingresa el procedimiento que la función y el color) BP DA "FUNCION :F

shaw
Download Presentation

PUNTO A PUNTO

An Image/Link below is provided (as is) to download presentation Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author. Content is provided to you AS IS for your information and personal use only. Download presentation by click this link. While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server. During download, if you can't get a presentation, the file might be deleted by the publisher.

E N D

Presentation Transcript

  1. PUNTO A PUNTO Estas imágenes fueron generadas por procedimientos LOGO que barren la pantalla colocando puntos. El color del punto deviene de una función de X e Y. PARA FUNC :F (Se ingresa el procedimiento que la función y el color) BP DA "FUNCION :F DA "LXI -155 (Límite izquierdo del gráfico) DA "LXD 155 (Límite derecho del gráfico) DA "LYS 155 (Límite superior del gráfico) DA "LYI -155 (Límite inferior del gráfico) PLANO :LXI :LYS (Procedimiento que barre los puntos) FIN

  2. PARA PLANO :X :Y (Coloca los puntos en plano desde :LYS a :LYI) SI :Y < :LYI ALTO LINEA :X :Y PLANO :X :Y - 1 FIN PARA LINEA :X :Y (Coloca los puntos en 1 línea, desde :LXI a :LXD) SI :X > :LXD [ALTO] ACTIVA :FUNCION (Ejecuta el input guardado en función) SETCOLP :COLOR (Define el color del punto) PUNTO FR :X :Y (Coloca el punto en la coordenada X Y) LINEA :X + 1 :Y FIN

  3. FUNC [F22] FUNC [F18] FUNC [F13] PARA F18 DA "COLOR ABS DISTANCIA FR 100 * SEN :X 100 * COS :Y FR 100 * COS :X 100 * SEN :Y SI :COLOR > 155 [DA "COLOR 0] FIN PARA F22 DA "COC (COS :X) * (SEN :Y) SI :COC = 0 [DA "COC 0.004] DA "Z (COS :Y) * (SEN :X) / :COC SIOTRO :Z < 0 [DA "COLOR DISTANCIA FR :Z :Z FR :X :X] [DA "COLOR DISTANCIA FR :Z :Z FR :Y :Y] SI :COLOR > 255 [DA "COLOR AZAR 5] FIN PARA F13 DA "Z 40 + ABS (10 * SEN :Y * COS :Y * SEN :X * COS :X) DA "COLOR :Z FIN

  4. FUNC [F17] FUNC [F41] FUNC [F40] PARA F17 DA "Z ENT (:X - :Y) * COS (:X + :Y) DA "COLOR DISTANCIA FR :X :Y FR :Z :Z SI :COLOR > 255 [DA "COLOR ENT :COLOR / 255] FIN PARA F41 DA "FU SEN :X * SEN :Y * COS :X * COS :Y DA "FU2 SEN :Y * SEN :X * COS :Y * COS :X SI Y :FU2 > 0 :FU > 0 [DA "COLOR 1] SI Y :FU2 < 0 :FU < 0 [DA "COLOR 11] SI Y :FU2 > 0 :FU < 0 [DA "COLOR 2] SI Y :FU2 < 0 :FU > 0 [DA "COLOR 22] FIN PARA F40 DA "FU1 (SEN :X * SEN :Y * COS :X * SEN :Y) SI PAR? ULTIMO :FU1 [DA "COLOR 0 SINO DA "COLOR 15] FIN

  5. NEXT

More Related