Norm

procedure Norm(

  var x: single;

  var y: single;

  var z: single;

  const h: PSingle = Nil

); overload;

procedure Norm(

  var x: Double;

  var y: Double;

  var z: Double;

  const h: PDouble = Nil

); overload;

function Norm(

  const v: TVector;

  const h: PSingle = Nil

):TVector; overload;

function Norm(

  const q: TQuaternion

):TQuaternion; overload;