• Home
  • Química
  • Astronomía
  • Energía
  • Naturaleza
  • Biología
  • Física
  • Electrónica
  • ¿Cómo se hace un sistema solar en mswlogo?
    `` `Mslogo

    ; Defina los planetas y sus propiedades

    To Planet:Nombre:Tamaño:Color:Distancia:Orbitspeed

    setpos [0 0]

    penupa

    adelante:distancia

    colmena

    Setheading 0

    Repita 360 [

    Forward:tamaño * 0.5

    Atrás:tamaño * 0.5

    Derecha:ORBITSPEED

    ]

    Setheading 0

    Forward:tamaño * 0.5

    penupa

    Atrás:tamaño * 0.5

    colmena

    Setheading:Orbitspeed

    Forward:tamaño * 0.5

    penupa

    Atrás:tamaño * 0.5

    colmena

    Setheading 0

    Círculo:tamaño

    penupa

    setpos [0 0]

    colmena

    Setheading 0

    adelante:distancia

    colmena

    Setheading:Orbitspeed

    Círculo:tamaño

    penupa

    setpos [0 0]

    colmena

    Etiqueta:nombre

    penupa

    setpos [0 0]

    colmena

    Setheading 0

    fin

    ; Dibujar el sol

    Círculo 50

    Setheading 0

    penupa

    adelante 50

    colmena

    Setheading 0

    etiqueta "sol"

    penupa

    setpos [0 0]

    colmena

    ; Dibujar mercurio

    planeta "mercurio" 5 "gris" 70 2

    ; Dibuja a Venus

    Planeta "Venus" 8 "Amarillo" 90 1.5

    ; Dibujar tierra

    Planeta "Tierra" 10 "Azul" 110 1

    ; Dibuja Marte

    Planeta "Mars" 7 "Rojo" 130 0.8

    ; Dibuja Júpiter

    Planeta "Júpiter" 20 "Orange" 160 0.5

    ; Dibuja Saturno

    Planeta "Saturno" 18 "Amarillo" 200 0.3

    ; Dibujar Urano

    Planeta "Urano" 15 "azul claro" 250 0.2

    ; Dibuja Neptuno

    planeta "neptuno" 14 "azul oscuro" 300 0.15

    `` `` ``

    Explicación:

    1. `Planet` Procedimiento: Este procedimiento define las propiedades del planeta:

    - `:Nombre`:Nombre del planeta (utilizado para el etiquetado).

    - `:tamaño`:tamaño del planeta en píxeles.

    - `:color`:color del planeta.

    - `:distancia`:distancia del sol en píxeles.

    - `:Orbitspeed`:Velocidad de la órbita en grados por paso (controla qué tan rápido se mueve el planeta).

    2. Dibujando el sol:

    - `Circle 50` dibuja el sol como un círculo con un radio de 50 píxeles.

    - `Setheading 0` establece la dirección de la tortuga a 0 grados (horizontal).

    - `Penup` levanta la pluma para evitar el dibujo mientras se mueve.

    - `Forward 50` mueve la tortuga hacia adelante 50 píxeles hacia la derecha.

    - `Pendown` pone la pluma para comenzar a dibujar.

    - `Setheading 0` establece la dirección de la tortuga a 0 grados nuevamente.

    - `Etiqueta" Sun "` Escribe la etiqueta "Sol" en la posición actual.

    - `Penup` levanta la pluma para moverse al origen.

    - `setpos [0 0]` Establece la tortuga al origen.

    - `Pendown` pone el bolígrafo para dibujar.

    3. Dibujo de los planetas:

    - Para cada planeta, el procedimiento 'Planeta` se llama con las propiedades apropiadas.

    - El bucle `repetido 360 'dibuja la ruta de la órbita.

    - Dentro del bucle, la tortuga se mueve hacia adelante y hacia atrás, creando un segmento de línea pequeña.

    - `Right:Orbitspeed` gira la tortuga por la velocidad de la órbita, lo que hace que el planeta se mueva en un círculo.

    - El planeta se dibuja con el color y el tamaño especificados.

    Ejecutando el código:

    1. Guarde este código en un archivo llamado "Solar_System.lg" (o cualquier otro nombre).

    2. Abra mswlogo y cargue el archivo escribiendo `cargar" solar_system.lg "`.

    3. Ejecute el código escribiendo `Run`.

    Esto creará una representación visual básica del sistema solar. Puede modificar el código para personalizar los colores, tamaños, distancias y velocidades de órbita de los planetas. También puede agregar características adicionales como lunas, cometas o asteroides.

    © Ciencia https://es.scienceaq.com