• Home
  • Chimica
  • Astronomia
  • Energia
  • Natura
  • Biologia
  • Fisica
  • Elettronica
  • Come si fa un sistema solare a MSWLogo?
    `` `mslogo

    ; Definisci i pianeti e le loro proprietà

    su pianeta:nome:dimensione:colore:distanza:orbitspeed

    SetPos [0 0]

    penup

    in avanti:distanza

    penown

    Setheading 0

    Ripeti 360 [

    Forward:taglia * 0,5

    indietro:taglia * 0,5

    A destra:Orbitspeed

    "

    Setheading 0

    Forward:taglia * 0,5

    penup

    indietro:taglia * 0,5

    penown

    Setheading:Orbitspeed

    Forward:taglia * 0,5

    penup

    indietro:taglia * 0,5

    penown

    Setheading 0

    Cerchio:dimensione

    penup

    SetPos [0 0]

    penown

    Setheading 0

    in avanti:distanza

    penown

    Setheading:Orbitspeed

    Cerchio:dimensione

    penup

    SetPos [0 0]

    penown

    Etichetta:nome

    penup

    SetPos [0 0]

    penown

    Setheading 0

    FINE

    ; Disegna il sole

    Cerchio 50

    Setheading 0

    penup

    in avanti 50

    penown

    Setheading 0

    Etichetta "Sun"

    penup

    SetPos [0 0]

    penown

    ; Disegna Mercurio

    pianeta "mercurio" 5 "grigio" 70 2

    ; Disegna Venere

    Pianeta "Venus" 8 "Yellow" 90 1.5

    ; Disegna la Terra

    pianeta "terra" 10 "blu" 110 1

    ; Disegna Marte

    Pianeta "Marte" 7 "rosso" 130 0,8

    ; Disegna Giove

    Pianeta "Jupiter" 20 "Orange" 160 0,5

    ; Disegna Saturno

    Pianeta "Saturno" 18 "giallo" 200 0,3

    ; Disegna Urano

    Pianeta "Urano" 15 "azzurro" 250 0.2

    ; Disegna Nettuno

    Pianeta "Nettuno" 14 "Dark Blue" 300 0.15

    `` `

    Spiegazione:

    1. `Planet` Procedura: Questa procedura definisce le proprietà del pianeta:

    - `:Nome`:nome del pianeta (usato per l'etichettatura).

    - `:dimensione`:dimensione del pianeta in pixel.

    - `:Color`:colore del pianeta.

    - `:Distanza`:distanza dal sole nei pixel.

    - `:Orbitspeed`:velocità dell'orbita in gradi per fase (controlla la velocità con cui il pianeta si muove).

    2. Disegnare il sole:

    - `Circle 50` disegna il sole come un cerchio con un raggio di 50 pixel.

    - `Setheading 0` imposta la direzione della tartaruga a 0 gradi (orizzontale).

    - `Penup` solleva la penna per evitare il disegno mentre si muove.

    - `Forward 50` sposta la tartaruga in avanti 50 pixel a destra.

    - `Pendown` mette giù la penna per iniziare a disegnare.

    - Setheading 0` imposta di nuovo la direzione della tartaruga su 0 gradi.

    - `etichetta" Sun "` scrive l'etichetta "Sun" nella posizione attuale.

    - `Penup` solleva la penna per passare all'origine.

    - `setPos [0 0]` Riese la tartaruga sull'origine.

    - `Pendown` mette giù la penna per disegnare.

    3. Disegnare i pianeti:

    - Per ogni pianeta, la procedura "Pianeta" viene chiamata con le proprietà appropriate.

    - Il ciclo `ripeti 360` disegna il percorso dell'orbita.

    - All'interno del ciclo, la tartaruga si sposta in avanti e indietro, creando un segmento di piccole linee.

    - `A destra:Orbitspeed` ruota la tartaruga per la velocità dell'orbita, causando il muoversi del pianeta in un cerchio.

    - Il pianeta è disegnato con il colore e le dimensioni specificati.

    Esecuzione del codice:

    1. Salva questo codice in un file chiamato "Solar_system.lg" (o qualsiasi altro nome).

    2. Apri MSWLOGO e carica il file digitando `Load" Solar_System.lg "`.

    3. Esegui il codice digitando `run`.

    Ciò creerà una rappresentazione visiva di base del sistema solare. È possibile modificare il codice per personalizzare i colori, le dimensioni, le distanze e le velocità dell'orbita dei pianeti. Puoi anche aggiungere ulteriori funzionalità come lune, comete o asteroidi.

    © Scienza https://it.scienceaq.com