Dies ist nur das Demo-Bild. Das interaktive Fenster ist (meist) oben.
Bei der EAN werden die Ziffern von links abwechselnd mit 1 und 3 multipliziert.
Die Summe dieser Produkte muss einen vollen Zehner ergeben. Dann war die EAN gültig
Im interaktiven Fenster oben muss man die 4 um 3 reduzieren, also am Ende 1 schreiben. Dann erscheint die Nachricht, dass alles ok ist.
Nehmen Sie ggf. die untere CDF-Datei. Aktivieren sie sie mit dem Mathematica-Player (kostenlos), erlauben Sie "Enable Dynamics".
Prof. Dr. Dörte Haftendorn
Erstellt März 2010, Update 
Download des Mathematica-Quelltextes als CDF
Download als *.nb