• Home
  • Química
  • Astronomia
  • Energia
  • Natureza
  • Biologia
  • Física
  • Eletrônicos
  • Como você faz um sistema solar no mswlogo?
    `` `mslogo
    ; Defina os planetas e suas propriedades
    Para o Planeta:Nome:Tamanho:Cor:Distância:Orbitspeed
    setpos [0 0]
    Penup
    Avanço:Distância
    Pondewn
    Setheading 0
    Repita 360 [
    Avanço:Tamanho * 0.5
    Voltar:tamanho * 0.5
    Direita:Orbitspeed
    ]
    Setheading 0
    Avanço:Tamanho * 0.5
    Penup
    Voltar:tamanho * 0.5
    Pondewn
    Setheading:Orbitspeed
    Avanço:Tamanho * 0.5
    Penup
    Voltar:tamanho * 0.5
    Pondewn
    Setheading 0
    Círculo:Tamanho
    Penup
    setpos [0 0]
    Pondewn
    Setheading 0
    Avanço:Distância
    Pondewn
    Setheading:Orbitspeed
    Círculo:Tamanho
    Penup
    setpos [0 0]
    Pondewn
    Etiqueta:Nome
    Penup
    setpos [0 0]
    Pondewn
    Setheading 0
    fim

    ; Desenhe o sol
    Círculo 50
    Setheading 0
    Penup
    atacante 50
    Pondewn
    Setheading 0
    etiqueta "Sun"
    Penup
    setpos [0 0]
    Pondewn

    ; Desenhe mercúrio
    Planeta "Mercury" 5 "Gray" 70 2

    ; Desenhe Vênus
    Planeta "Vênus" 8 "Amarelo" 90 1.5

    ; Desenhe a terra
    Planeta "Terra" 10 "azul" 110 1

    ; Desenhe Marte
    Planeta "Mars" 7 "Red" 130 0,8

    ; Desenhe Júpiter
    Planeta "Júpiter" 20 "Orange" 160 0,5

    ; Desenhe Saturno
    Planeta "Saturno" 18 "Amarelo" 200 0.3

    ; Desenhe Urano
    Planeta "Urano" 15 "Blue claro" 250 0.2

    ; Desenhe Netuno
    Planeta "Netuno" 14 "Blue escuro" 300 0,15
    `` `

    Explicação:

    1. `Planet` Procedimento: Este procedimento define as propriedades do planeta:
    - `:name`:nome do planeta (usado para rotulagem).
    - `:size`:tamanho do planeta em pixels.
    - `:color`:cor do planeta.
    - `:Distância`:distância do sol em pixels.
    - `:orbitspeed`:velocidade da órbita em graus por etapa (controla a rapidez com que o planeta se move).
    2. desenhando o sol:
    - `Círculo 50 'desenha o sol como um círculo com um raio de 50 pixels.
    - `Setheading 0` define a direção da tartaruga a 0 graus (horizontal).
    - `Penup` levanta a caneta para impedir o desenho enquanto se move.
    - `Forward 50` move a tartaruga para frente 50 pixels para a direita.
    - `Pendown` coloca a caneta para começar a desenhar.
    - `Setheading 0` define a direção da tartaruga a 0 graus novamente.
    - `Label" Sun "` escreve o rótulo "Sun" na posição atual.
    - `Penup` levanta a caneta para se mover para a origem.
    - `setPos [0 0]` define a tartaruga de volta à origem.
    - `Pendown` coloca a caneta para desenhar.
    3. desenhando os planetas:
    - Para cada planeta, o procedimento "planeta" é chamado com as propriedades apropriadas.
    - O loop `repetir 360` desenha o caminho da órbita.
    - Dentro do loop, a tartaruga se move para a frente e para trás, criando um pequeno segmento de linha.
    - `Right:Orbitspeed` gira a tartaruga pela velocidade da órbita, fazendo com que o planeta se mova em círculo.
    - O planeta é desenhado com a cor e o tamanho especificados.

    Executando o código:

    1. Salve este código em um arquivo chamado "solar_system.lg" (ou qualquer outro nome).
    2. Abra o mswlogo e carregue o arquivo digitando `load" solar_system.lg "`.
    3. Execute o código digitando `run`.

    Isso criará uma representação visual básica do sistema solar. Você pode modificar o código para personalizar as cores, tamanhos, distâncias e velocidades de órbita dos planetas. Você também pode adicionar recursos adicionais, como luas, cometas ou asteróides.
    © Ciência https://pt.scienceaq.com