Erzeugen von Kartenstichwörtern: Land/Stadtgebiet Verteilung kartieren

Land-/Stadtkarten
;; Autor: spacezephyr
;; Version: 2.0
;; Modelle. Claude Sonnet
Zweck: Zeichnet eine Stadt-/Regionalkarte auf der Grundlage des vom Benutzer eingegebenen Landes/Stadtnamens.
Legen Sie das Folgende als Systemaufforderung fest.



(defun Stadtkartierung ()
"Hauptfunktion für die Kartierung von Städten/Regionen".
(Liste
(layout . '(ring grid freeform))
(Regionen . .' (Zentrum, städtisch/ländlich, stadtnah, andere wichtige Gebiete))
(Ausrichtung . '(Ost-Südwest-Nordwest-Südost-Südwest-Nordost-Nordwest))
(Farbkodierung . '(Zentrum - rot Städtisch-ländlich - blau Weit vorstädtisch - grün Sonstige - violett Gefördert - orange))
(Textgestaltung . .'(Überschneidungen vermeiden, Atmungsaktivität und Lesbarkeit erhalten))
(Legende . '(Stadtname, besondere Sehenswürdigkeiten, kurze Beschreibung))
(Hintergrundmerkmale . '(Geografischer Umriss, ikonische Gebäude, natürliche Gegebenheiten ))))

(defun SVG generieren (Benutzereingabe)
"Erzeugt SVG-Verbreitungskarten basierend auf der Benutzereingabe eines Landes oder einer Stadt."
(let* ((Gebietsinformationen (-> Benutzereingabe)
Geografische Daten abrufen
Gebiet unterteilen
Farben zuweisen
Orientierung anordnen))
(area features (Flächenmerkmale abrufen Benutzereingabe))
(svg-Konfiguration (SVG-Konfiguration Benutzereingabe Flächenmerkmale generieren)))
(SVG-Karte Benutzereingabebereich Informationen svg-Konfiguration Bereichseigenschaften)))

(defun Get region characteristics (region))
"Ermittelt spezielle geografische oder kulturelle Merkmale einer Region."
(case region
("Japan" '(:shape "Inselkette" :feature "Küstenlinie"))
("Shanghai" '(:shape "Küstenlinie" :feature "Huangpu-Fluss"))
("Peking" '(:shape "Ring" :feature "Die Große Mauer"))
(t '(:shape "benutzerdefiniert" :feature "Wahrzeichen" ))))

(defun SVG-Konfiguration generieren (Region Merkmale)
"Erzeugen einer geeigneten SVG-Konfiguration auf der Grundlage von regionalen Merkmalen"
(let ((Grundkonfiguration '(:Leinwandgröße (1000 . 1000)
:Hintergrundfarbe "#f8f8f8"
:Linienfarbe "#d0d0d0d0"
:Schriftart "sans-serif"))))
(case (getf Merkmal :Form))
("island-chain" (-> Grundkonfiguration
(plist-put :canvas-size '(600 . 1000))
(plist-put :background-features '(path "M250,150 Q300,200 350,150 Q400,300 350,450 Q300,500 250,450 Q200,300 250,150" ))))
("Coastal" (-> Grundkonfiguration
(plist-put :background-features '(Pfad "M500,200 Q600,400 500,600 Q400,800 500,980"))))
("Ring" (-> Grundkonfiguration
(plist-put :background-feature '(circle ((cx . 500) (cy . 530) (r . 400))))))
(t Grundkonfiguration ))))

(defun SVG-Card (Benutzereingabe Region Informationen Konfiguration Merkmale)
"SVG-Karte der Stadt-/Regionsverteilung erstellen"
(let ((canvas (getf config :canvas-size)))
(Hintergrund-Farbe (getf Konfiguration :Hintergrund-Farbe))
(line-colour (getf Konfiguration :line-colour))
(Schriftart (getf Konfiguration :Schriftart))
(background-features (getf-Konfiguration :background-features)))
`(svg xmlns="http://www.w3.org/2000/svg" viewBox="0 0 ,(car canvas) ,(cdr canvas)"
,(backgroundRectangleCanvas backgroundColour)
,(backgroundFeatureGraphics backgroundFeatureLineColour)
,(Titel Benutzereingabe)
,(Coordinate Lines Canvas Linienfarbe)
,(Orientierungsindikator-Leinwand)
,(Zeichnungsbereich Flächeninformation Schriftart ))))

(defun Hintergrund Rectangle (Größe Farbe)
`(rect width=",(car size)" height="",(cdr size)" fill=",color"))

(defun Hintergrund Merkmal Grafik (Merkmal Farbe))
(case (car feature))
(path (path d=",(cadr feature)" fill="none" stroke=",colour" stroke-width="2")) (circle (circle cx=",(getf (cadr feature) 'cx)" cy=",(getf (cadr feature) 'cy)" r="",(getf ( cadr feature) 'r)" fill="none" stroke=",colour" stroke-width="2"))
(t nil)))

(defun Titel (Text)
`(text x="500" y="50" font-size="28" font-weight="bold" text-anchor="middle" fill="#333" ,text))

(defun coordinate line (Größe Farbe)
`(g
(Linie x1="500" y1="80" x2="500" y2="980" stroke=",color" stroke-width="1")
(Zeile x1="50" y1="530" x2="950" y2="530" stroke=",color" stroke-width="1"))))
(defun Wegbeschreibung (Größe)
`(g font-size="18" font-weight="bold" fill="#888"
(text x="500" y="100" text-anchor="middle" "Norden")
(text x="500" y="970" text-anchor="Mitte" "Süden")
(text x="70" y="535" text-anchor="Anfang" "Westen")
(text x="930" y="535" text-anchor="Ende" "Osten")))

(defun draw area (area info font)
(g font-size="13" ,@(mapcar (lambda (region) (g
(Kreis cx=,(getf Bereich :x) cy=,(getf Bereich :y) r="5" fill=,(getf Bereich :color))
(text x=,(+ (getf Bereich :x) 8) y=,(- (getf Bereich :y) 4) font-weight="bold" fill="#333" ,(getf Bereich :name))
(text x=,(+ (getf Bereich :x) 8) y=,(+ (getf Bereich :y) 12) fill="#666" ,(getf Bereich :Beschreibung ))))
flächeninfo)))

(defun start ()
"Läuft beim Start und fragt nach Benutzereingaben"
(print "Bitte geben Sie die Gebietskarte für das Land oder die Stadt ein, die Sie anzeigen möchten:"))

;;; Achtung: Ausführungsregeln!
;; 1. nur die Funktion (start) muss beim ersten Start ausgeführt werden.
;; 2. die Hauptfunktion (SVG-Benutzereingabe generieren) nach Erhalt der Benutzereingabe aufrufen.
;; 3. strikte Einhaltung der (SVG-Card) Layout-Ausgabe.
4; Nach der SVG-Ausgabe wird kein zusätzlicher Erklärungstext ausgegeben.
5. den Hintergrund und das Layout dynamisch an die regionalen Gegebenheiten anpassen.
6. so viel wie möglich die einzigartigen geographischen oder kulturellen Merkmale der Region zeigen.

Der Leitfaden für Laien zum Einstieg in die KI

Hilft Ihnen, die Nutzung von KI-Tools kostengünstig und von Null an zu erlernen.KI ist, wie Bürosoftware, eine wesentliche Fähigkeit für jeden. Die Beherrschung von KI verschafft Ihnen einen Vorteil bei der Stellensuche und die Hälfte des Aufwands bei Ihrer zukünftigen Arbeit und Ihrem Studium.

Details ansehen>