AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Projekte Webcam Alarmanlage - Neuronales Netz

Webcam Alarmanlage - Neuronales Netz

Ein Thema von Flips · begonnen am 15. Feb 2008 · letzter Beitrag vom 29. Nov 2008
Antwort Antwort
Seite 5 von 7   « Erste     345 67   
Flips
Registriert seit: 17. Feb 2005
Übersicht:
Das Programm ist in der Lage, aus jeder Kamera ein Bildüberwachungssystem zu machen. Es nutzt dazu ein neuronales Netz, vergleichbar mit den Neuronen im Gehirn welche über sog. Synapsen (Gewichte) miteinander verbunden sind, nur sehr viel weniger komplex. (In diesem Fall sind nur 76801 Neuronen im Einsatz)
Das besondere daran ist, dass es v.a. für qualitativ nicht sehr hochwertige (flimmernde) Kamera sehr gut geeignet ist, da die Überwachung eben auf solch einem Netz basiert. Das neuronale Netz fungiert als eine Art KI und flimmernde Pixel zählen daher bei der Bewertung weniger als (relativ) konstant bleibende Pixel.


Beta 0.6
  • Neuronales Netz zur Auswertung der Bilddaten
  • Hotspot-Definition (Ich hoffe luwo hat nichts gegen das "Hotspot" ) zur besseren Überwachung einzelner Bildausschnitte (Hidden-Layer)
  • Minütliche (automatische) Anpassung zur besseren Langzeitüberwachung möglich
  • Quickstart-Funktion für schnellere Bereitschaft
  • Hilfe-Dokument
  • Skalierte Markierung geänderter Pixel (je nach Wichtigkeit mehr oder weniger stark)
  • Es sollten alle Komprimierungen (I420,RGB24,...) möglich sein.
  • Mit Überraschungen!!!! (auch Bugs genannt;wenn du einen findest dann poste ihn und du bekommst ein "Dankeschön")
Neuerungen 0.5 -> 0.6:
  • Verbesserte Lernformel (Modifizierte Delta-Regel)
  • "Schöneres" GUI
  • Visuelle Anzeige der Stärke der Gewichte
  • Veröffentlichung einiger Code-Segmente


Achtung: Bei einem Alarm wird ein Bild im Programmordner gespeichert (output.bmp)

Wahrscheinlich besitzt das Programm noch einige Design -und GUIBugs (falsch deaktivierte Buttons usw...).
Sollte jemand Dinge wie ne AV oder andere schwerwiegende Fehler reproduzierbar erzeugen können, bitte ich um Rückmeldung (+OS).


Beim Start erscheinen zwei Kameradialoge. Bitte im ersten Dialog folgende Daten angeben:
Auflösung: 320 * 240
Komprimierung: I420 oder RGB24 (geht auf jeden Fall, bevorzugt ist allerdings I420)

Eine Anleitung (leider nich ganz aktuell) findet ihr im Programm bei Klick auf den Hilfe-Button



Code-Snippets (PSEUDO-CODE)
Delphi-Quellcode:
procedure Lernen;
begin
(*
Das ist natürlich nicht meine ganze Lernroutine, aber das Grundgerüst.
Die ganze will ich dann doch noch nicht hergeben :-)
*)

for i := 0 to length(InputNeuronen) - 1 do
  begin
    ai := OutputNeuron.Output;
    aj := InputNeuronen[i].NettoInput;

   deltaGewicht := (ai-aj);
   //Damit die Änderungen nicht ZU minimal werden
   if (deltaGewicht < 0.015) and (deltaGewicht > 0) then
     deltaGewicht := 0.015
   else if (dGewicht > -0.015) and (deltaGewicht < 0) then
     deltaGewicht := -0.015;
   
  //Lernkonstante Epsilon wird stetig kleiner um Überlernung vorzubeugen
   neuesGewicht := Lernkonstante * deltaGewicht;

   InputNeuronen[i].Gewicht := InputNeuronen[i].Gewicht + nGewicht;
   if InputNeuronen[i].Gewicht < 0 then
     InputNeuronen[i].Gewicht := 0;
  end;
end;
Delphi-Quellcode:
procedure BerechneOutput;
begin
  OutputNeuron.Output:= 0;
   for i := 0 to length(InputNeuronen) - 1 do
     begin
        a := InputNeuronen[i].NettoInput * InputNeuronen[i].Gewicht;
        //Evtl. Aktivierungsfunktion ??
        //a := f(a);
        OutputNeuron.Output:= OutputNeuron.Output + a;
     end;
   OutputNeuron.Output := OutputNeuron.Output / length(InputNeuronen);
end;
Thx, lg Flips
Miniaturansicht angehängter Grafiken
screen3_106.png  
Angehängte Dateien
Dateityp: zip beta_108.zip (697,7 KB, 201x aufgerufen)
 
Benutzerbild von xZise
xZise

 
Delphi 2009 Professional
 
#41
  Alt 13. Apr 2008, 19:28
Zitat von Flips:
Hmm scheinbar ist das ganze nicht Vista kompatibel.
Kann es leider nicht ändern, habe kein Vista zur Verfügung.
Ich habe ja keine Webcam aber sollte es nicht möglich sein madExcept einzubauen, oder Benutzern von Vista + Webcam den Sourcecode geben? Damit diese herausfinden können wo es hackt?

Ansonsten eine Sache zu den Bildern, was ist, wenn einer nun erfolgreich "eingedrungen" ist und ein zweites mal eingedrungen wird?

MfG
xZise
Fabian
  Mit Zitat antworten Zitat
MJT
 
#42
  Alt 16. Apr 2008, 16:55
Halöchen,

coole idee das mit der Überwachenden Webcam.... Ich bin gerade dabei ein wenig damit zu Spielen. Was ich gerne in dem Programm sehen würde wollen, ist, eine art aufnahme modus, jedes mal wenn jemand durch das bild läuft sollte ein bild aufgenommen werden. Damit meine ich wenn ich abends nach hause komme, dann habe ich 15 bilde, weil die einbrecher 15 mal durch das bild gelaufen sind und ich sehe wer es war.

Na ja wenn es wirklich einbrecher sind dann ist der lappi auch weg

Greets
  Mit Zitat antworten Zitat
Flips

 
Delphi 7 Professional
 
#43
  Alt 16. Apr 2008, 22:13
Zitat von xZise:
Ich habe ja keine Webcam aber sollte es nicht möglich sein madExcept einzubauen, oder Benutzern von Vista + Webcam den Sourcecode geben? Damit diese herausfinden können wo es hackt?

Ansonsten eine Sache zu den Bildern, was ist, wenn einer nun erfolgreich "eingedrungen" ist und ein zweites mal eingedrungen wird?
Quellcode der Webcam-Unit stammt mehr oder weniger 1:1 aus dem Forum (Titel des Threads war glaub: "Zuerst grabbe & dekomprimiere Frame"). Habs mal hochgeladen, ist aber schlampig in ne Klasse verfrachtet worden.

Wenn jemand eindringt, dann gibts Alarm und das Programm stoppt. Wenn dann ein zweites Mal eingedrungen wird sind die Wertsachen eh weg

Zitat von MJT:
Was ich gerne in dem Programm sehen würde wollen, ist, eine art aufnahme modus, jedes mal wenn jemand durch das bild läuft sollte ein bild aufgenommen werden. Damit meine ich wenn ich abends nach hause komme, dann habe ich 15 bilde, weil die einbrecher 15 mal durch das bild gelaufen sind und ich sehe wer es war.
Also zumindest bei mir wird ne Datei "output.bmp" erstellt (im Ordner des Programmes), allerdings immer nur eins vom letzten Zwischenfall. Kann aber sein, dass ich das deaktiviert habe weil manche Leute das nicht wollen.
Angehängte Dateien
Dateityp: pas webcam_114.pas (10,7 KB, 39x aufgerufen)
Philipp F.
  Mit Zitat antworten Zitat
nEmai

 
Delphi 2007 Professional
 
#44
  Alt 17. Apr 2008, 23:37
Hm wollte das Programm auch mal testen, da es durchaus interessant aussieht, aber leider stürzen alle hier geposteten Versionen mit einem "schwerwiegenden Fehler" ab.
Manche öffnen ein Programmfenster, manche nicht.

Die Version aus dem ersten Post hat mich beim ersten Start nach Quellen gefragt und macht seit dem auch nichts mehr.
Habe übrigens auch ne Logitech QuickCam und Windows XP.

Ahja, wenn ein Programmfenster geöffnet wird hab ich da nur grünes Bild, bevor sich das Programm killt.
Videoquelle sollte die richtige sein, auch wenn nicht müsste ein Bild drauf kommen.

Vielleicht is einfach mein PC schrott..
  Mit Zitat antworten Zitat
Flips

 
Delphi 7 Professional
 
#45
  Alt 18. Apr 2008, 14:36
Ok das erstaunt mich jetzt ein wenig
Allerdings hab ich keine Ahnung, warum sich das Programm selbst killen sollte
Welches SP?
Philipp F.
  Mit Zitat antworten Zitat
nEmai

 
Delphi 2007 Professional
 
#46
  Alt 18. Apr 2008, 15:33
SP2.
Verwundert mich auch, da es wohl bei allen anderen funktioniert.

Werde es bei Gelegenheit demnächst mal an meinem Laptop testen und posten, ob es da geht.
  Mit Zitat antworten Zitat
Flips

 
Delphi 7 Professional
 
#47
  Alt 18. Apr 2008, 20:43
Das wäre sehr nett von dir
Philipp F.
  Mit Zitat antworten Zitat
Benutzerbild von everdream
everdream

 
Delphi 2005 Personal
 
#48
  Alt 18. Apr 2008, 21:15
Habe z.Z. leider auch keine Cam, würde dein Programm aber auch gerne mal testen!

Mich interessiert ja folgendes: Wenn draußen langsam die Sonne untergeht, schlägt das NN dann Alarm? ich vermute nicht, solange man die Einstellung "Alle X Minuten Y mal lernen" mit vernünftigen Parametern nutzt, oder?
  Mit Zitat antworten Zitat
nEmai

 
Delphi 2007 Professional
 
#49
  Alt 19. Apr 2008, 01:21
Revidiere, geniales Programm.
An meinem Laptop funktionierts fehlerfrei, weiß auch nicht was mein PC dagegen hat..

Das Einzige, was ich bemängele, ist, dass die Überwachung nach einem Alarm abbricht.
  Mit Zitat antworten Zitat
Flips

 
Delphi 7 Professional
 
#50
  Alt 19. Apr 2008, 11:54
Zitat von everdream:
Mich interessiert ja folgendes: Wenn draußen langsam die Sonne untergeht, schlägt das NN dann Alarm? ich vermute nicht, solange man die Einstellung "Alle X Minuten Y mal lernen" mit vernünftigen Parametern nutzt, oder?
Genau, dafür ist die Funktion gemacht worden!

Zitat von nEmai:
Das Einzige, was ich bemängele, ist, dass die Überwachung nach einem Alarm abbricht.
Naja ok, ist mehr oder weniger zu Debug-Zwecken so



Achso noch eine Frage, wenn ihr das Programm minimiert, kommen dann die Farbkreise im TNA?
Philipp F.
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 01:47 Uhr.
Powered by vBulletin® Copyright ©2000 - 2020, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2019 by Daniel R. Wolf