Changeset 27 for trunk/UDriveScan.pas

Timestamp:

Apr 6, 2016, 7:45:46 AM (8 years ago)

Author:

chronos

Message:

• Modified: Improved average value in speed measurement.
• Added: Show Min and Max values with different colors in speed chart.

File:

• trunk/UDriveScan.pas (modified) (4 diffs)

trunk/UDriveScan.pas

@@ -50 +50 @@
 
   TSpeedValue = record
+  public
     Null: Boolean;
     Max: Int64;
     Average: Int64;
+    Values: array of Int64;
     Min: Int64;
     procedure Reset;
@@ -132 +134 @@
 
 procedure TSpeedValue.UpdateValue(Value: Int64);
+var
+  Sum: Double;
+  I: Integer;
 begin
   if Null then begin
     Min := High(Int64);
     Max := Low(Int64);
-    Average := 0;
+    SetLength(Values, 0);
   end;
   Null := False;
   if Value > Max then Max := Value;
   // TODO: Computer average
-  Average := Value;
+  SetLength(Values, Length(Values) + 1);
+  Values[Length(Values) - 1] := Value;
+  Sum := 0;
+  for I := 0 to Length(Values) - 1 do
+    Sum := Sum + Values[I];
+  Average := Trunc(Sum / Length(Values));
   if Value < Min then Min := Value;
 end;
@@ -344 +354 @@
   SpeedTimeCurrent: TDateTime;
   Index: Integer;
+  Value: Int64;
 begin
   SpeedTimeCurrent := Now;
   Index := Trunc(SectorCurrent / SectorCount * SpeedStepsCount);
   if Index >= Length(SpeedSteps) then Index := Length(SpeedSteps) - 1;
-  SpeedSteps[Index].UpdateValue(
-    Trunc((SectorCurrent - SectorLast) * SectorSize / ((SpeedTimeCurrent - SpeedTimeLast) / OneSecond)));
+  Value := Trunc((SectorCurrent - SectorLast) * SectorSize / ((SpeedTimeCurrent - SpeedTimeLast) / OneSecond));
+  if Value < 0 then Value := 0;
+  SpeedSteps[Index].UpdateValue(Value);
   SpeedTimeLast := SpeedTimeCurrent;
   SectorLast := SectorCurrent;
@@ -389 +401 @@
   SpeedTimer.Enabled := False;
   SpeedTimer.OnTimer := SpeedTimerExecute;
-  SpeedStepsCount := 1000;
+  SpeedStepsCount := 500;
   SectorSize := 4096;
   Terminated := True;