Здравствуйте, Lazy Bear, Вы писали:
LB>Здравствуйте, Khimik, Вы писали:
LB>С некоторых пор меня стали сильно удивлять такие имена переменных, функций и классов, для которых нужно тут же писать объясняющий комментарий.
LB>Кто такой VectRad? При чем тут радианы, если речь о длине? Или речь о какой-то радости? MinVect, судя по названию, должен возвращать какой-то минимизированный вектор 
LB>Почему бы не сделать так, например:
LB>LB>TVector = record
LB> x, y, z: Double;
LB> function GetLength: Double;
LB> function GetSquareLength: Double;
LB> function IsZeroLength: Boolean;
LB> function InvertAllSigns: TVector;
LB>end;
LB>
LB>И выглядит каноничненько и комментарии тут сто лет не нужны 
LB>Лучше дать хорошее имя и не экономить на его длине (никакого смысла в такой экономии давно нет), чем через пару месяцев расшифровывать свои же собственные сокращения.
То они требуют перегрузку операторов, то сразу убивают достигнутую с их помощью читаемость длиннющими названиями, заставляющими тратить мозг при чтении и так сложных формул на всякие мусорные GetXXXXXXXXXXXXXXXXXXX. Выучить несколько деcятсков коротких операторов на 3-4 когда копаещься в большой библиотеки матана несложно, зато разбирать потом код потом легче. Ну конечно эти короткие выражения должны нести какой то смысл.
Вот пример из моей библиотеки. Сейчас бы я сократил кое -какие операторы
THPointF = record helper for TFloatPoint
private
function GetLen: Double;
procedure SetLen(const Value: Double);
function GetStr: string;
procedure SetStr(const Value: string);
function GetStrC: string;
public
constructor Create (const SX, SY: string); overload;
function Px2Sx (K: single=1.0): TSxPoint; overload;
function Sx2Px (K: single=1.0): TPxPoint; overload;
function Px2Sp (K: single=1.0): TPoint; overload;
function Sx2Pp (K: single=1.0): TPoint; overload;
function Presise (const P2 : TPointF; Epsilon: Single=FLOATPOINT_ACCURACY): boolean;
function IsHor (Epsilon: Single=FLOATPOINT_ACCURACY) : boolean; overload;
function IsVert (Epsilon: Single=FLOATPOINT_ACCURACY) : boolean; overload;
function IsOrtho (Epsilon: Single=FLOATPOINT_ACCURACY) : boolean; overload;
function IsHor (const P2 : TPointF; Epsilon: Single=FLOATPOINT_ACCURACY) : boolean; overload;
function IsVert (const P2 : TPointF; Epsilon: Single=FLOATPOINT_ACCURACY) : boolean; overload;
function IsOrtho (const P2 : TPointF; Epsilon: Single=FLOATPOINT_ACCURACY) : boolean; overload;
function Neg: TPointF;
function DistFast(const P2 : TPointF) : Double;
function Mul(K: single): TPointF;
function RoundF: TPointF;
function GP: TGPPointF;
function AlignDif: TFloatPoint;
function IsAligned: boolean;
function Scalar(const P2 : TPointF): Double;
function PseudoScalar(const P2 : TPointF): Double;
function ColLinear(const P2 : TPointF; Epsilon: Single=FLOATPOINT_ACCURACY): boolean;
function RotateD (Angle: single; const CP: TFloatPoint): TFloatPoint; overload;
function RotateD (Angle: single): TFloatPoint; overload;
function RotateR (Angle: single; const CP: TFloatPoint): TFloatPoint; overload;
function RotateOrient(Orient: integer): TFloatPoint; overload;
function RotateOrient(Orient: integer; const CP: TFloatPoint): TFloatPoint; overload;
function RotateR (Angle: single): TFloatPoint; overload;
procedure Mirror;
function MirrorTo (bMirror: boolean=true): TFloatPoint;
function OffsetTo(const DX, DY: Single): TFloatPoint; overload;
function OffsetTo(const Point: TPointF): TFloatPoint; overload;
function OffsetTo(const Size: TSize): TFloatPoint; overload;
function AngleD (const Center: TPointF): single;
function AngleR (const Center: TPointF): single;
function SetLenRes(const Value: Double): boolean;
function Interpolation(const P2 : TPointF; K: single): TPointF;
{точка на расстоянии ALength от начала}
function VectorByLength (const P2 : TPointF; ALength: single): TPointF;
function Middle(const P2: TFloatPoint): TFloatPoint;
function Arctan2D (K: single = 1): single;
function Arctan2R (K: single = 1): single;
procedure StrXY (out SX, SY: string);
property Len: Double read GetLen write SetLen;
property Str: string read GetStr write SetStr;
property StrС: string read GetStrC write SetStr;
end;
TFloatEllipseArc = record
const
YNOT_X : double = 1;
private
function PA (A: single): TFloatPoint;
function GoldenDistanceP(const P: TFloatPoint; AR1, AR2: single; var NearestP: TFloatPoint): single;
function ApproximateAngle (A1, A2: single): TPolygon;
public
R: TFloatRect; //границы
P3, P4: TFloatPoint; //концы
bClockWise: boolean; //по часововй стрелке
constructor Create (const AR: TFloatRect; const AP3, AP4: TFloatPoint; AClockWise: boolean = false);
constructor CreateEllipse (const AR: TFloatRect); overload;
constructor CreateEllipse (const AR: TRect); overload;
function Perimeter: double; //вычисление полного периметра
function ah: double;
function bh: double;
function IsCircle: boolean;
function IsZero: boolean;
function Len: double;
function CantrellQuater: double;
function Salter (a, b, alpha: double): double;
function Salter1 (a, b, alpha: double): double;
function Len_Integral (a, b, alpha: double): double;
function LengthP (const P: TFloatPoint): double; //длина от начала до заданной точки
function CrossRay (const P: TFloatPoint): TFloatPoint;
function CrossArc (const Arc: TFloatEllipseArc; var CP: TPolygon): integer;
function CrossEllipse (const Ellipse: TRectF; var CP: TPolygon): integer;
function CrossEllipseEllipse (const Ellipse: TRectF; var CP: TPolygon): integer;
function CrossEllipseEllipse1 (const Ellipse: TRectF; var CP: TPolygon): integer;
function CrossPolygonEllipse (const Polygon: TPolygon; const Ellipse: TRectF; var CP: TPolygon): integer;
function CrossPolygonArc (const Polygon: TPolygon; Arc: TFloatEllipseArc; var CP: TPolygon): integer;
function Tangential(const P: TFloatPoint): TFloatPoint;
function Approximate: TPolygon;
function ApproximateEllipse: TPolygon;
function LengthPCircle (const P: TFloatPoint): double; //длина от начала до заданной точки в любом направлении
function PointDistantly (D: single): TFloatPoint; //точка на расстоянии D от начала (P3) вдоль дуги
function Contains (const P: TFloatPoint; Epsilon: Single=FLOATPOINT_ACCURACY): boolean;
function ContainsCircle (const P: TFloatPoint; Epsilon: Single=FLOATPOINT_ACCURACY): boolean;
function DistanceP(const P: TFloatPoint; var NearestP: TFloatPoint): single;
function DistanceCircleP(const P: TFloatPoint; var NearestP: TFloatPoint): single;
function Bounds: TFloatRect;
end;
