Einzelnen Beitrag anzeigen

Amateurprofi

Registriert seit: 17. Nov 2005
Ort: Hamburg
1.041 Beiträge
 
Delphi XE2 Professional
 
#1

Was macht man gegen rote Ampeln?

  Alt 28. Apr 2018, 16:30
Was macht man gegen rote Ampeln?
Schnell fahren!

Nee, ist nicht wirklich ernst gemeint und auch nicht auf meinem Mist gewachsen.
Ich hab das mal vor einiger Zeit im Fernsehen gesehen und daraus das anhängende Programm geschrieben.

Wenn man etwas zu schnell fährt, so 50000 bis 70000 km/s, und auf eine rote Ampel zufährt, dann sieht man Grün.

Kehrseite der Medaille:
Wenn man eine grüne Ampel passiert hat und in den Rückspiegel schaut, sieht man, dass man eigentlich hätte anhalten müssen, weil man das Grün als Rot wahrnimmt.

Im Programmfenster kann man in der ScrollBar am oberen Rand die Geschwindigkeit einstellen auf Werte von 0 bis 299792.457 km/s.
Alternativ kann man im nebemstehenden Edit-Feld Werte von 0 bis 299792 eingeben.

In der darunter liegenden PaintBox sieht man, wie sich die Farben verschieben.

Der mittlere Farbbalken zeigt die Farbe wie sie ist.
Darüber sieht man, was man anstatt sieht, wenn man sich der Lichtquelle nähert.
Darunter sieht man, was man anstatt sieht, wenn man sich von der Lichtquelle entfernt.

Für den einen oder anderen mag die im Source-Code enthaltene Funktion WaveLenToColor interessant sein.
Angehängte Dateien
Dateityp: zip Doppler.zip (636,2 KB, 22x aufgerufen)
Gruß, Klaus
Die Titanic wurde von Profis gebaut,
die Arche Noah von einem Amateur.
... Und dieser Beitrag vom Amateurprofi....
  Mit Zitat antworten Zitat