BCD Wert berechnen

Moin,

hmm - muß man erstmal rausfinden, was Du uns hier anbietest...
Angenommen, die "BCD"-Werte sind Hex, dann würde das rauskommen:

1088 =0000.0001.0000.1000.1000
2112 =0000.0010.0001.0001.0010
78689=0111.1000.0110.1000.1001

Fehlt die Übereinstimmung für das "25 fps-Bit"!

Dezimal interpretiert:

1088 = 0000.0000.0100.0100.0000 = 100
2112 = 0000.0000.1000.0100.0000 = 200
78689 =0001.0011.0011.0110.0001 = 2346
402259=0110.0010.0011.0101.0011 = 9588

Hier hätte man schon die Übereinstimmung in Bit 7&6 (01), wenn man von
rechts nach links liest (letztes Oktett).

Erzeugt man vergleichsweise das Bitmuster für Frame 2346 : 100100101010
findet man aber auch hier keine Übereinstimmung. Ergo: Das ist sind
gepackte Zahlen. Die zu entschlüsseln wird mir jetzt ohne Hilfsmittel
auch zu viel...

Gruß Karl

Tja - der macht mir trotz nichtproportionalem Font die führenden Leerzeichen kaputt .... :hm:

Zitat von katjarella

playback time, BCD, hh:mm:ss:ff with bits 7&6 of frame (last) byte indicating frame rate 11 = 30 fps, 10 = illegal, 01 = 25 fps, 00 = illegal
100 frames bei 25 fps = 00:00:04.00 = BCD : 1088
200 frames bei 25 fps = 00:00:08.00 = BCD : 2112
2346 frames bei 25 fps = 00:01:33.21 = BCD : 78689
9588 frames bei 25fps = 00:06:23.13 = BCD : 402259

Wie berechne ich es dann für 10336 Frames ? hat jemand eine einfache Formel für mich ? und villeicht sogar mit fps angabe ?

Ich kenne mich mit BCD-Werten ja eigentlich sehr gut aus, aber hier blicke ich im Moment echt nicht durch, was die Vorgabe, und was das Ziel sein solll.

Erklärt der englische Beschreibungstext, wie die Zahlen abgelegt SIND, oder wie sie abgelegt werden SOLLEN?

100 Frames wären 4 Sekunden bei 25fps, 25fps werden im letzten Byte als (binär) 01000000 abgelegt (laut Beschreibung), damit würde sich in BCD ergeben:

00:00:04:40

oder binär: 0000 0000 : 0000 0000 : 0000 0100 : 0100 0000

[Edit:] Ah, ich glaube, jetzt habe ich's geblickt:

100 frames bei 25 fps = 00:00:04:40
200 frames bei 25 fps = 00:00:08:40
2346 frames bei 25 fps = 00:01:33:61
9588 frames bei 25 fps = 00:06:23:53

und für

10336 frames bei 25 fps = 00:06:53:51

Kommt das hin?

Formel:

(n = Anzahl Frames, damit liefert n / fps die Sekunden)
(% = MODULO, ganzzahliger Rest der Division)

hour = (int) (n / fps) / 3600
min = (((int) (n / fps) / 3600)) * 3600) % 60
sec = (n / fps) % 60
ff = (n % fps) | 0x40

Jetzt wird das schon etwas klarer, aber immernoch nicht klar!
Offensichtlich wird die letzte Stelle in frames, die anderen aber in
Std:Min:Sek "verwaltet" bzw. codiert.

ABER: Nach Deinen Angaben wäre:

101 = 00:00:00.25 = 25 = 25fps
Das Gleiche wie:
320 = 00:00:01.00 = 25 = 25fps
Das darf aber éigentlich nicht sein, daß zwei Binärwerte den gleichen
Frame- bzw. Zeitindex bezeichnen.

Entweder bei Deinen Angaben stimmt was nicht, oder die Methode,
mit der Du diese Werte gewinnst, ist nicht korrekt.

Wie dem auch sei - wenn man den Schlüssel hat, kann man einzelne Werte auch Binär ausrechnen - braucht man das mehr als ein-/zweimal, müßte man ein kleines Programm/
script schreiben.....

..aber nicht mehr heute...

Gruß Karl

BCD bedeutet doch, dass man die hexadezimale Darstellung eines Bytes als Mensch so lesen kann, als ob es dezimal wäre - damit kann man also Dezimalwerte von 0 bis 99 in Bytes so speichern, dass jedes Halb-Byte ("Nibble") je eine Dezimalstelle repräsentiert. Die Dezimal-Zahl 89 (Neunundachtzig) würde also hexadezimal 89h werden (das entspricht 8*16+9 = 128+9 = 137).

Dazu käme noch mit OR-Verknüpfung das Bitmuster für die fps:

100 frames bei 25 fps = 00:00:04.00 = BCD : 00 00 04 00 h | 00 00 00 40 h = 00 00 04 40 h
200 frames bei 25 fps = 00:00:08.00 = BCD : 00 00 08 00 h | 00 00 00 40 h = 00 00 08 40 h
320 frames bei 25 fps = 00:00:12.20 = BCD : 00 00 12 20 h | 00 00 00 40 h = 00 00 12 60 h
2346 frames bei 25 fps = 00:01:33.21 = BCD : 00 01 33 21 h | 00 00 00 40 h = 00 01 33 61 h
9588 frames bei 25 fps = 00:06:23.13 = BCD : 00 06 23 13 h | 00 00 00 40 h = 00 06 23 53 h
10336 frames bei 25 fps = 00:06:53.11 = BCD: 00 06 53 11 h | 00 00 00 40 h = 00 06 53 51 h

Der eigentliche Trick ist es, Dezimal effizient in BCD umzuwandeln; dafür gab es mal einen Wettbewerb, wie man das am effizientesten hinkriegt - der Sieger-Algorithmus arbeitete in Assembler mit vier Befehlen (je zwei Bitverschiebungen und zwei Additions-Übertrags-Korrekturen, wenn ich mich recht erinnere). Trivial geht es aber auch so:

{PASCAL}
BCD := (Dez DIV 10) * 16 + (Dez MOD 10) {bzw. ((Dez DIV 10) SHL 4) + (Dez MOD 10)}

/* C */
BCD = (Dez / 10) * 16 + (Dez % 10) // bzw. ((Dez / 10) << 4) + (Dez % 10)

Zitat von Der Karl

Jetzt wird das schon etwas klarer, aber immernoch nicht klar!
Offensichtlich wird die letzte Stelle in frames, die anderen aber in
Std:Min:Sek "verwaltet" bzw. codiert.

ABER: Nach Deinen Angaben wäre:

101 = 00:00:00.25 = 25 = 25fps
Das Gleiche wie:
320 = 00:00:01.00 = 25 = 25fps
Das darf aber éigentlich nicht sein, daß zwei Binärwerte den gleichen
Frame- bzw. Zeitindex bezeichnen.

Alles anzeigen

Die erste von Dir genannte Zeile dürfte es nicht geben, da in der letzten Stelle die Anzahl der Frames MODULO fps steht, also nur der Rest. 25 fps sind eine ganze Sekunde, damit kommt Deine zweite Zeile heraus.

Moin,

Zitat

Die erste von Dir genannte Zeile dürfte es nicht geben,

..sehe ich auch so, aber Katjarella hat ja diese beiden Beispiele drin:

Zitat

112 = 00:00:00.30 = 30 = 25fps
121 = 00:00:00.39 = 39 = 25fps

Da hab ich erstmal nicht mehr weitergemacht... war auch müde!

Gruß Karl

Ich hab' da, wo ich gerade sitze, leider kein IfoEdit greifbar

Überprüf' doch mal, ob bei

Zitat von zisoft

10336 frames bei 25 fps = 00:06:53:51

ein korrektes Ergebnis herauskommt. Der Dezimalwert dafür ist 414545

In welcher Script-Sprache soll's denn sein?

Zitat von katjarella

[Scriptsprache ist EGAL... hauptsache nicht so komplex

Ok, hier ist ein PERL-Script dafür. Getestet aber nur für 25 fps. Für 30 fps sehe ich da noch ein Problem, da sich der 30fps-Code (11) nicht in BCD codieren lässt! --> 11000000

Aber für PAL sollte es schon mal funktionieren.

Aufruf z.B.: frames2bcd.pl 10336

Zitat von katjarella

Und dann noch perl ? naja habe ja ActivePerl drauf...

Hab' ja extra vorher gefragt, welche Script-Sprache...

Das Ding ist ja nur ganz kurz, deshalb hier für Copy&Paste:

#!/usr/bin/perl -w


use strict;


my $fps = 25;




if ( $#ARGV + 1 != 1 )
{
    print "Aufruf: $0 frame-Nr.\n";
    exit;
}




my $fps_code;


if ( $fps == 25 ) {
    $fps_code = 40;     # 25 fps
}
else {
    $fps_code = 192;    # 30 fps
}




my $frameNo = $ARGV[0];


my $hour = int ($frameNo / $fps / 3600);
my $min  = int (int (($frameNo / $fps) % 3600) / 60);
my $sec  = int ($frameNo / $fps) % 60;
my $frames_rest = ($frameNo % $fps) + $fps_code;


printf ("%02d:%02d:%02d:%02d\n", $hour, $min, $sec, $frames_rest);


my $hex = sprintf ("%02d%02d%02d%02d", $hour, $min, $sec, $frames_rest);




# Hex in Dezimal umwandeln
my $faktor = 1;
my $dez = 0;


for ( my $n = length ($hex) - 1; $n >= 0; --$n )
{   
    my $digit = substr ($hex, $n, 1);

    $dez += $digit * $faktor;
    $faktor *= 16;
}


print "$dez\n";


print "\n\n";

Und mit ActivePerl läuft es definitiv, hab' ich auch.

Das sind im letzten Wert immer genau die 40 zuviel, die ich in der Zeile

my $frames_rest = ($frameNo % $fps) + $fps_code;

dazu addiere. Ich dachte, der fps-code muss in den Dezimalwert mit eincodiert werden? Oder soll er nur bei der Klartext-Zeile

00:03:10:60

nicht dargestellt werden, im Dezimalwert aber enthalten sein?

Dann nimm dieses script:

#!/usr/bin/perl -w


use strict;


my $fps = 25;




if ( $#ARGV + 1 != 1 )
{
    print "Aufruf: $0 frame-Nr.\n";
    exit;
}




my $fps_code;


if ( $fps == 25 ) {
    $fps_code = 40;     # 25 fps
}
else {
    $fps_code = 192;    # 30 fps
}




my $frameNo = $ARGV[0];


my $hour = int ($frameNo / $fps / 3600);
my $min  = int (int (($frameNo / $fps) % 3600) / 60);
my $sec  = int ($frameNo / $fps) % 60;
my $frames_rest = $frameNo % $fps;


printf ("%02d:%02d:%02d:%02d\n", $hour, $min, $sec, $frames_rest);


my $hex = sprintf ("%02d%02d%02d%02d", $hour, $min, $sec, $frames_rest + $fps_code);




# Hex in Dezimal umwandeln
my $faktor = 1;
my $dez = 0;


for ( my $n = length ($hex) - 1; $n >= 0; --$n )
{   
    my $digit = substr ($hex, $n, 1);

    $dez += $digit * $faktor;
    $faktor *= 16;
}


print "$dez\n";


print "\n\n";

Unheimlich, wie viel Aufwand ihr darum so betreibt... Aber soweit ich sehe, macht das Script von zisoft das korrekt.

Zitat von katjarella

Also zisoft Du bist MEIN HELD des Tages !!!!!

Da ich so oder so PAL liebe ist das mit der NTSC Möglichkeit nicht soooo wichtig.

Liebe Jungs, was kann ich Euch gutes tun ? Aber allen erstmal ein dickes küsschen !!!!!!!!

:redface:

War mir ein Vergnügen
Da der fps-code jetzt aber nicht mehr in der Klartextausgabe enthalten ist, sollte es auch für NTSC korrekt funktionieren.