Result := Sqrt(a.X * а.Х + a.Y * a.Y + a.Z * a.Z) = b;
end;
class operator Vector.Equal(b: Real;
a: Vector): Boolean;

// эквивалентность действительного значения и вектора (мЬдуля)

begin

Result := Sqrt(a.X * а.Х + a.Y * a.Y + a.Z * a.Z) = b;
end;
class operator Vector.NotEqual(a: Vector;
b: Vector): Boolean;

// неэквивалентность двух векторов

begin

Result := (а.Х <>
b.X) or (a.Y <>
b.Y) or (a.Z <>
b.Z);
end;
class operator Vector.NotEqual(a: Vector;
b: Real): Boolean;

// неэквивалентность вектора (модуля) и действительного значения

begin

Result := Sqrt(a.X * а.Х + a.Y * a.Y + a.Z * a.Z) <>
b;
end;
class operator Vector.NotEqual(b: Real;
a: Vector): Boolean;

// неэквивалентность действительного значения и вектора (модуля)

begin

Result := Sqrt(a.X * а.Х + a.Y * a.Y + a.Z * a.Z) <>
b;
end;
class operator Vector.GreaterThan(a: Vector;
b: Vector): Boolean;

// операция > двух векторов (сравнение модулей)

begin

Result := Sqrt(a.X * а.Х + a.Y * a.Y + a.Z * a.Z) >
Sqrt(b.X * b.X + b.Y * b.Y + b.Z * b.Z);
end;

class operator Vector.GreaterThan(a: Vector; b: Real): Boolean; // операция > вектора (модуля) и действительного значения begin

Result := Sqrt(a.X * а.Х + a.Y * a.Y + a.Z * a.Z) >
b;
end;

class operator Vector.GreaterThan(b: Real; a: Vector): Boolean; // операция > действительного значения и вектора (модуля) begin

Result := Sqrt(a.X * а.Х + a.Y * a.Y + a.Z * a.Z) >
b;
end;

class operator Vector.GreaterThanOrEqual(a: Vector; b: Vector):

Boolean;

// операция >= двух векторов (сравнение модулей) begin

Result := Sqrt(a.X * а.Х + a.Y * a.Y + a.Z * a.Z) >= Sqrt(b.X * b.X + b.Y * b.Y + b.Z * b.Z);
end;

class operator Vector.GreaterThanOrEqual(a: Vector; b: Real):

Boolean;

// операция >= вектора (модуля) и действительного значения begin

Result := Sqrt(a.X * а.Х + a.Y * a.Y + a.Z * a.Z) >= b;
end;

class operator Vector.GreaterThanOrEqual(b: Real; a: Vector):

Boolean;

// операция >= действительного значения и вектора (модуля) begin

Result := Sqrt(a.X * а.Х + a.Y * a.Y + a.Z * a.Z) >= b;
end;
class operator Vector.LessThan(a: Vector;
b: Vector): Boolean;

// операция < двух векторов (сравнение модулей)

begin

Result := Sqrt(a.X * а.Х + a.Y * a.Y + a.Z * a.Z) <
Sqrt(b.X * b.X + b.Y * b.Y + b.Z * b.Z);
end;

class operator Vector.LessThan(a: Vector; b: Real): Boolean; // операция < вектора (модуля) и действительного значения begin

Result := Sqrt(a.X * а.Х + a.Y * a.Y + a.Z * a.Z) <
b;
end;

class operator Vector.LessThan(b: Real; a: Vector): Boolean; // операция < действительного значения и вектора (модуля) begin

Result := Sqrt(a.X * а.Х + a.Y * a.Y + a.Z * a.Z) <
b;
end;

class operator Vector.LessThanOrEqual(a: Vector; b: Vector):

Boolean;

// операция <= двух векторов (сравнение модулей) begin

Result := Sqrt(a.X * а.Х + a.Y * a.Y + a.Z * a.Z) <= Sqrt(b.X * b.X + b.Y * b.Y + b.Z * b.Z);
end;
class operator Vector.LessThanOrEqual(a: Vector;
b: Real): Boolean;

// операция <= вектора (модуля) и действительного значения


⇐ Предыдущая страница| |Следующая страница ⇒

Приемы программирования в Delphi на основе VCL



Новости за месяц

  • Май
    2020
  • Пн
  • Вт
  • Ср
  • Чт
  • Пт
  • Сб
  • Вс