package Vectors_4Di is new Vectors_xD (Real, xy_Coordinates);
subtype Vector_4D is Vectors_4Di.Vector_xD;
Zero_Vector_4D : constant Vector_4D := Vectors_4Di.Zero_Vector_xD;
function Image
( | V | : Vector_4D) return String renames Vectors_4Di.Image; |
function Norm
( | V | : Vector_4D) return Vector_4D renames Vectors_4Di.Norm; |
function Angle_Between
( | V_Left, V_Right | : Vector_4D) return Real renames Vectors_4Di.Angle_Between; |