Πώς φτιάχνετε ένα ηλιακό σύστημα στο mswlogo;
; Ορίστε τους πλανήτες και τις ιδιότητές τους
στον πλανήτη:Όνομα:Μέγεθος:Χρώμα:Απόσταση:Orbitspeed
setpos [0 0]
πτερύγιο
Προώθηση:Απόσταση
εκκρεμών
Setheading 0
Επαναλάβετε το 360 [
Προώθηση:Μέγεθος * 0.5
Πίσω:Μέγεθος * 0.5
Δεξιά:Orbitspeed
]
Setheading 0
Προώθηση:Μέγεθος * 0.5
πτερύγιο
Πίσω:Μέγεθος * 0.5
εκκρεμών
Setheading:Orbitspeed
Προώθηση:Μέγεθος * 0.5
πτερύγιο
Πίσω:Μέγεθος * 0.5
εκκρεμών
Setheading 0
Κύκλος:Μέγεθος
πτερύγιο
setpos [0 0]
εκκρεμών
Setheading 0
Προώθηση:Απόσταση
εκκρεμών
Setheading:Orbitspeed
Κύκλος:Μέγεθος
πτερύγιο
setpos [0 0]
εκκρεμών
Ετικέτα:όνομα
πτερύγιο
setpos [0 0]
εκκρεμών
Setheading 0
τέλος
; Σχεδιάζω τον ήλιο
κύκλος 50
Setheading 0
πτερύγιο
Προώθηση 50
εκκρεμών
Setheading 0
Ετικέτα "Ήλιος"
πτερύγιο
setpos [0 0]
εκκρεμών
; Σχεδιάζω τον υδράργυρο
Planet "Mercury" 5 "Gray" 70 2
; Σχεδιάζω
Planet "Venus" 8 "Κίτρινο" 90 1.5
; Αντλούν γη
Πλανήτης "Γη" 10 "Μπλε" 110 1
; Σχεδιάζω τον Άρη
Πλανήτης "Άρης" 7 "Κόκκινο" 130 0.8
; Τραβήξτε τον Δία
Planet "Jupiter" 20 "Orange" 160 0.5
; Σχεδιάστε τον Κρόνο
Πλανήτης "Κρόνος" 18 "Κίτρινο" 200 0.3
; Τραβήξτε τον Ουρανό
Πλανήτης "Uranus" 15 "ανοιχτό μπλε" 250 0.2
; Σχεδιάζω τον Ποσειδώ
Πλανήτης "Ποσειδώνας" 14 "Σκούρο Μπλε" 300 0.15
`` `
Επεξήγηση:
1. Αυτή η διαδικασία ορίζει τις ιδιότητες του πλανήτη:
- `:name`:όνομα του πλανήτη (χρησιμοποιείται για την επισήμανση).
- `:Μέγεθος ':Μέγεθος του πλανήτη σε εικονοστοιχεία.
- `:χρώμα ':χρώμα του πλανήτη.
- `:απόσταση ':Απόσταση από τον ήλιο σε εικονοστοιχεία.
- `:Orbitspeed`:Ταχύτητα της τροχιάς σε βαθμούς ανά βήμα (ελέγχει πόσο γρήγορα κινείται ο πλανήτης).
2. Σχεδίαση του ήλιου:
- `Κύκλος 50` αντλεί τον ήλιο ως κύκλο με ακτίνα 50 εικονοστοιχείων.
- `setheading 0` θέτει την κατεύθυνση της χελώνας σε 0 μοίρες (οριζόντια).
- `Penup` ανυψώνει το στυλό για να αποτρέψει το σχέδιο ενώ κινείται.
- `Forward 50` Μετακινεί τη χελώνα προς τα εμπρός 50 pixels προς τα δεξιά.
- `Το Pendown` βάζει το στυλό κάτω για να ξεκινήσει το σχέδιο.
- `setheading 0` θέτει την κατεύθυνση της χελώνας σε 0 μοίρες και πάλι.
- `label" Sun "γράφει την ετικέτα" Sun "στην τρέχουσα θέση.
- `penup` ανυψώνει το στυλό για να μετακινηθεί στην προέλευση.
- `setpos [0 0]` Ρυθμίζει τη χελώνα πίσω στην προέλευση.
- `Pendown` βάζει το στυλό κάτω για να τραβήξει.
3. Σχέδιο των πλανητών:
- Για κάθε πλανήτη, η διαδικασία «πλανήτη» καλείται με τις κατάλληλες ιδιότητες.
- Ο βρόχος "REPEAT 360` αντλεί τη διαδρομή τροχιάς.
- Μέσα στο βρόχο, η χελώνα κινείται προς τα εμπρός και πίσω, δημιουργώντας ένα μικρό τμήμα γραμμής.
- `Δεξιά:Το Orbitspeed` περιστρέφει τη χελώνα με την ταχύτητα της τροχιάς, προκαλώντας τον πλανήτη να κινείται σε έναν κύκλο.
- Ο πλανήτης σχεδιάζεται με το καθορισμένο χρώμα και μέγεθος.
Εκτέλεση του κώδικα:
1. Αποθήκευση αυτού του κώδικα σε ένα αρχείο που ονομάζεται "Solar_System.lg" (ή οποιοδήποτε άλλο όνομα).
2. Ανοίξτε το mswlogo και φορτώστε το αρχείο πληκτρολογώντας `load" solar_system.lg "`.
3. Εκτελέστε τον κώδικα πληκτρολογώντας `run '.
Αυτό θα δημιουργήσει μια βασική οπτική αναπαράσταση του ηλιακού συστήματος. Μπορείτε να τροποποιήσετε τον κώδικα για να προσαρμόσετε τα χρώματα, τα μεγέθη, τις αποστάσεις και τις ταχύτητες της τροχιάς των πλανητών. Μπορείτε επίσης να προσθέσετε πρόσθετες λειτουργίες όπως φεγγάρια, κομήτες ή αστεροειδείς.
