Changeset 127 for CoolStreaming/Demo/DynNumber/UMainForm.pas

Timestamp:

Jan 16, 2011, 3:08:56 PM (14 years ago)

Author:

george

Message:

• Přidáno: Kódování a dekódování dynamického čísla. Použita kombinace rekurzivní délky a absolutní binární hodnoty s virtuální nejvyšší jedničkou.

File:

• CoolStreaming/Demo/DynNumber/UMainForm.pas (modified) (8 diffs)

CoolStreaming/Demo/DynNumber/UMainForm.pas

@@ -51 +51 @@
     ListView1.BeginUpdate;
     ListView1.Clear;
-    for I := 0 to 16 do begin
+    for I := 0 to 10000 do begin
       N.Stream.Size := 0;
       N.Write(I);
@@ -60 +60 @@
       NewItem := ListView1.Items.Add;
       NewItem.Caption := IntToStr(I);
-      NewItem.SubItems.Add('');
+      J := Floor(Log2(I)) + 1;
+      NewItem.SubItems.Add(FloatToStr(Round((1 - (J / N.Stream.Size)) * 100) / 100));
       NewItem.SubItems.Add(Line);
     end;
@@ -72 +73 @@
 var
   I: Integer;
+  II: Integer;
   Count: Integer;
   Parts: array of Integer;
@@ -80 +82 @@
   NewItem: TListItem;
   N: TDynamicNumber;
+const
+  Step = 1;
 begin
   Count := 1;
@@ -87 +91 @@
     ListView1.BeginUpdate;
     ListView1.Clear;
-    for I := 0 to 1000 do begin
-
+    for II := 0 to 20000 do begin
+      I := II * Step;
     // Write
     N.Stream.Size := 0;
@@ -104 +108 @@
     NewItem.Caption := IntToStr(I);
     J := Floor(Log2(I)) + 1;
-    NewItem.SubItems.Add(FloatToStr(1 - (J / N.Stream.Size)));
+    NewItem.SubItems.Add(FloatToStr(Round((1 - (J / N.Stream.Size)) * 100) / 100));
     Line := '';
     N.Stream.Position := 0;
@@ -112 +116 @@
 
     // Increment value
+    for J := 0 to Step - 1 do begin
     PartIndex := Count - 1;
     repeat
       Parts[PartIndex] := Parts[PartIndex] + 1;
-      if PartIndex > 0 then MaxValue := 1 shl (Parts[PartIndex - 1] + 1)
+      if PartIndex > 0 then MaxValue := 1 shl (Parts[PartIndex - 1] + 1 + PartIndex)
         else MaxValue := 2;
       if Parts[PartIndex] >= MaxValue then begin
@@ -129 +134 @@
       end else Break;
     until False;
+    end;
     end;
   finally