Improve company productivity with a Business Account.Sign Up

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 354
  • Last Modified:

Upscale integer array

Hello,
  I have some acquisition data stared in the following  arrays:

const
cChannels = 6;
cMaxSampleDuration = 420;

var
    MyIntegerArray: array[0..cChannels -1, 0..cMaxSampleDuration -1] of Integer;

Sample Data
As you can see from the screenshot, the first channel has range -4.000 up to 4.000 and the other have smaller range. how can upscale the other channels to be almost in equal range of the first channel ?

Thank you
0
chmichael
Asked:
chmichael
1 Solution
 
Sinisa VukCommented:
Is this similar question as you asked before? Do you have problem with my code?
http://www.experts-exchange.com/Programming/Languages/Pascal/Delphi/Q_28126546.html

For this request - little modification:
var
  MyIntegerArray: array[0..cChannels -1, 0..cMaxSampleDuration -1] of Integer;
  MaxVal, Channel, Samples, MaxAmp: Integer;
...
  MaxAmp := 4000;

  for Channel := 0 to 6 -1 do
  begin
    //pre scale to get max
    MaxVal := 0;
    for Samples := 0 to cMaxSampleDuration -1 do
      if Abs(MyIntegerArray[Channel, Samples])>MaxVal then MaxVal:=Abs(MyIntegerArray[Channel, Samples]);

    //scaling
    for Samples := 0 to cMaxSampleDuration -1 do
      MyIntegerArray[Channel, Samples] := MulDiv(MyIntegerArray[Channel, Samples], MaxAmp, MaxVal);
  end;

Open in new window

0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Free Tool: Subnet Calculator

The subnet calculator helps you design networks by taking an IP address and network mask and returning information such as network, broadcast address, and host range.

One of a set of tools we're offering as a way of saying thank you for being a part of the community.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now