if ([Vr:m3] <= [VDe:m3]) {
  $A = [Vr:m3]/[hPm:m];
  if ($A <= [ADe:m2]) {
    return $A;
  } else {
    return [ADe:m2];
  }
} else {
  $V = [Vr:m3]-[VDe:m3];
  $A = $V/[hPm:m];
  return [ADe:m2]+$A;
}