SonTek ADP - Page 36

SonTek
ADP Software Manual Version 6.42 (November 1, 2000)
30
GpsVnorth = denu[1] / dt;
}
}
/*===========================================================*/
void ComputeAbsVelocities(void)
{
int i,j,k,l,m;
float ar, ca, sa;
int nbins = AdpUser.Ncells;
/* convert magnetic variation (east of north) to radians */
ar = DegToRad(DisplaySetup.MagneticVariation);
ca = cos(ar);
sa = sin(ar);
/* correct velocity in all bins */
for(i=0; i < nbins; i++)
{
/* ADP velocity is rotated for magnetic variation */
/* Prf.Vel[0][i] is magnetic east, Prf.Vel[1][i] is north*/
/* vertical velocity (Prf.Vel[2][i]) is not affected */
/* recall that velocity is stored as mm/s */
AbsVel[i][0] = ca*Prf.Vel[0][i] + sa*Prf.Vel[1][i] + 1000*GpsVeast;
AbsVel[i][1] =-sa*Prf.Vel[0][i] + ca*Prf.Vel[1][i] + 1000*GpsVnorth;
AbsVel[i][2] = Prf.Vel[2][i];
}
}