; Definiera planeterna och deras egenskaper
Till planeten:Namn:Storlek:Färg:Avstånd:Orbitspeed
SetPos [0 0]
penup
Framåt:Avstånd
pendown
Setheading 0
Upprepa 360 [
Framåt:Storlek * 0,5
Tillbaka:Storlek * 0,5
Höger:orbitspeed
]
Setheading 0
Framåt:Storlek * 0,5
penup
Tillbaka:Storlek * 0,5
pendown
Setheading:orbitspeed
Framåt:Storlek * 0,5
penup
Tillbaka:Storlek * 0,5
pendown
Setheading 0
Cirkel:Storlek
penup
SetPos [0 0]
pendown
Setheading 0
Framåt:Avstånd
pendown
Setheading:orbitspeed
Cirkel:Storlek
penup
SetPos [0 0]
pendown
Etikett:Namn
penup
SetPos [0 0]
pendown
Setheading 0
avsluta
; Dra solen
cirkel 50
Setheading 0
penup
Framåt 50
pendown
Setheading 0
Etikett "Sun"
penup
SetPos [0 0]
pendown
; Dra kvicksilver
Planet "kvicksilver" 5 "grå" 70 2
; Rita Venus
Planet "Venus" 8 "gul" 90 1.5
; Dra jorden
Planet "Jorden" 10 "blå" 110 1
; Rita Mars
Planet "Mars" 7 "röd" 130 0,8
; Rita Jupiter
Planet "Jupiter" 20 "Orange" 160 0.5
; Dra Saturnus
Planet "Saturnus" 18 "gul" 200 0,3
; Rita Uranus
Planet "Uranus" 15 "ljusblå" 250 0.2
; Dra Neptunus
Planet "Neptune" 14 "mörkblå" 300 0,15
`` `
Förklaring:
1. `Planet" -förfarande: Denna procedur definierar planetens egenskaper:
- `:namn ':planetens namn (används för märkning).
- `:Storlek`:storleken på planeten i pixlar.
- `:färg`:planetens färg.
- `:Avstånd ':Avstånd från solen i pixlar.
- `:orbitspeed`:hastigheten på banan i grader per steg (kontrollerar hur snabbt planeten rör sig).
2. Ritning av solen:
- `Circle 50` drar solen som en cirkel med en radie på 50 pixlar.
- `Setheading 0` Ställer in sköldpaddans riktning till 0 grader (horisontellt).
- `Penup` lyfter pennan för att förhindra ritning under rörelse.
- `Forward 50` rör sig sköldpaddan framåt 50 pixlar till höger.
- `Pendown 'sätter pennan ner för att börja rita.
- `Setheading 0` sätter sköldpaddans riktning till 0 grader igen.
- `Etikett" Sun "" skriver etiketten "Sun" på den nuvarande positionen.
- `Penup 'lyfter pennan för att flytta till ursprunget.
- `SetPos [0 0]` ställer sköldpaddan tillbaka till ursprunget.
- `Pendown 'sätter pennan ner för att rita.
3. Ritning av planeterna:
- För varje planet kallas "Planet" -förfarandet med lämpliga egenskaper.
- "Upprepa 360" -slingan ritar omloppsbanan.
- Inuti slingan rör sig sköldpaddan framåt och bakåt och skapar ett litet linjesegment.
- `Höger:OrbitSpeed 'roterar sköldpaddan med omloppshastigheten, vilket får planeten att röra sig i en cirkel.
- Planeten ritas med den angivna färgen och storleken.
Kör koden:
1. Spara den här koden i en fil som heter "Solar_System.lg" (eller något annat namn).
2. Öppna mswlogo och ladda filen genom att skriva "Load" Solar_System.lg "`.
3. Kör koden genom att skriva "Run".
Detta kommer att skapa en grundläggande visuell representation av solsystemet. Du kan ändra koden för att anpassa planeterna, storlekar, avstånd och omloppshastigheter på planeterna. Du kan också lägga till ytterligare funktioner som månar, kometer eller asteroider.
