Videnskab
 Science >> Videnskab >  >> Solformørkelse

Hvordan laver man et solsystem i MSWLogo?

`` Mslogo

; Definer planeterne og deres egenskaber

Til planet:Navn:Størrelse:Farve:Afstand:OrbitSpeed

SetPos [0 0]

Penup

Fremad:Afstand

Pendown

Setheading 0

Gentag 360 [

Fremad:størrelse * 0,5

Tilbage:Størrelse * 0,5

Højre:Orbitspeed

]

Setheading 0

Fremad:størrelse * 0,5

Penup

Tilbage:Størrelse * 0,5

Pendown

Setheading:Orbitspeed

Fremad:størrelse * 0,5

Penup

Tilbage:Størrelse * 0,5

Pendown

Setheading 0

Cirkel:størrelse

Penup

SetPos [0 0]

Pendown

Setheading 0

Fremad:Afstand

Pendown

Setheading:Orbitspeed

Cirkel:størrelse

Penup

SetPos [0 0]

Pendown

Label:Navn

Penup

SetPos [0 0]

Pendown

Setheading 0

ende

; Tegn solen

Cirkel 50

Setheading 0

Penup

frem 50

Pendown

Setheading 0

Label "Sol"

Penup

SetPos [0 0]

Pendown

; Tegn kviksølv

Planet "Mercury" 5 "Gray" 70 2

; Tegn Venus

Planet "Venus" 8 "Gul" 90 1.5

; Tegn jorden

planet "jord" 10 "blå" 110 1

; Tegn Mars

Planet "Mars" 7 "rød" 130 0,8

; Tegn Jupiter

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

; Tegn Saturn

Planet "Saturn" 18 "gul" 200 0,3

; Tegn Uranus

Planet "Uranus" 15 "lyseblå" 250 0,2

; Tegn Neptune

Planet "Neptune" 14 "mørkeblå" 300 0,15

`` `

Forklaring:

1. `Planet` Procedure: Denne procedure definerer planetens egenskaber:

- `:Navn`:Navn på planeten (brugt til mærkning).

- `:størrelse`:størrelse på planeten i pixels.

- `:Farve ':Planetens farve.

- `:Afstand`:Afstand fra solen i pixels.

- `:OrbitSpeed`:hastigheden af ​​bane i grader pr. Trin (kontrollerer hvor hurtigt planeten bevæger sig).

2. tegning af solen:

- `Circle 50` trækker solen som en cirkel med en radius på 50 pixels.

- `Setheading 0` indstiller skildpaddens retning til 0 grader (vandret).

- `Penup` løfter pennen for at forhindre tegning, mens du bevæger sig.

- `frem 50 'bevæger skildpadden frem 50 pixels til højre.

- `Pendown` lægger pennen ned for at begynde at tegne.

- `Setheading 0` indstiller skildpaddens retning til 0 grader igen.

- `Etiket" Sun "skriver etiketten" Sol "på den aktuelle position.

- `Penup` løfter pennen for at bevæge sig til oprindelsen.

- `SetPos [0 0]` sætter skildpadden tilbage til oprindelsen.

- `Pendown` lægger pennen ned for at tegne.

3. tegning af planeterne:

- For hver planet kaldes 'Planet' -proceduren med de passende egenskaber.

- Gentag 360` loop trækker bane -stien.

- Inde i løkken bevæger skildpadden sig fremad og tilbage og skaber et lille linjesegment.

- `Rigtigt:OrbitSpeed` roterer skildpadden med kredsløbshastigheden, hvilket får planeten til at bevæge sig i en cirkel.

- Planeten er tegnet med den specificerede farve og størrelse.

kører koden:

1. Gem denne kode i en fil med navnet "Solar_system.lg" (eller ethvert andet navn).

2. Åbn MSWLOGO og indlæs filen ved at skrive `LOAD 'SOLAR_SYSTEM.LG" `.

3. Kør koden ved at skrive "Kør".

Dette vil skabe en grundlæggende visuel repræsentation af solsystemet. Du kan ændre koden for at tilpasse planeterne farver, størrelser, afstande og banehastigheder. Du kan også tilføje yderligere funktioner som måner, kometer eller asteroider.