Class TNode

Unit

QuadMeshGenerator

Declaration

type TNode = class(TInterfacedObject, INode)

Description

Hierarchy

• TInterfacedObject
• TNode

Overview

Fields

	FLocation: TPoint2D;
	FNodeType: TNodeType;
	FElements: TBoundaryList;
	FSegments: TSegmentList;
	FQuadMeshCreator: TQuadMeshCreator;
	FNodeNumber: Integer;
	FDesiredSpacing: double;
	FDesiredElementCount: Integer;

Methods

	procedure AdjustPositionLagrange;
	procedure AdjustPositionGiuliani;
	function ImproveTopology1: boolean;
	function ImproveTopology2: boolean;
	procedure NodeElimination;
	function ElementElimination: boolean;
	function SideElimination: boolean;
	function DiagonalSwapping: boolean;
	procedure ReplaceNodeInElement(ReplacementNode: TNode; AnElement: TBoundary);
	function GetActiveElementCount: Integer;
	function GetActiveElement(Index: Integer): IElement;
	function GetNodeNumber: Integer;
	procedure SetNodeNumber(Value: Integer);
	function GetLocation: TPoint2D;
	procedure SetLocation(const Value: TPoint2D);
	function GetNodeType: TNodeType;
	constructor Create(QuadMeshCreator: TQuadMeshCreator; DesiredSpacing: double);
	destructor Destroy; override;

Properties

	property DesiredSpacing: double read FDesiredSpacing;
	property Location: TPoint2D read GetLocation write SetLocation;
	property X: double read FLocation.X write FLocation.X;
	property Y: double read FLocation.Y write FLocation.Y;
	property NodeType: TNodeType read GetNodeType;
	property ElementCount: Integer read GetActiveElementCount;
	property DesiredElementCount: Integer read FDesiredElementCount;
	property Elements[Index:Integer]: IElement read GetActiveElement;
	property NodeNumber: Integer read GetNodeNumber write SetNodeNumber;

Description

Fields

	FLocation: TPoint2D;

	FNodeType: TNodeType;

	FElements: TBoundaryList;

	FSegments: TSegmentList;

	FQuadMeshCreator: TQuadMeshCreator;

	FNodeNumber: Integer;

	FDesiredSpacing: double;

	FDesiredElementCount: Integer;

Methods

	procedure AdjustPositionLagrange;
Move the node to the centroid of the elements of which the node is a part.

	procedure AdjustPositionGiuliani;

	function ImproveTopology1: boolean;

	function ImproveTopology2: boolean;

	procedure NodeElimination;

	function ElementElimination: boolean;

	function SideElimination: boolean;

	function DiagonalSwapping: boolean;

	procedure ReplaceNodeInElement(ReplacementNode: TNode; AnElement: TBoundary);

	function GetActiveElementCount: Integer;

	function GetActiveElement(Index: Integer): IElement;

	function GetNodeNumber: Integer;

	procedure SetNodeNumber(Value: Integer);

	function GetLocation: TPoint2D;

	procedure SetLocation(const Value: TPoint2D);

	function GetNodeType: TNodeType;

	constructor Create(QuadMeshCreator: TQuadMeshCreator; DesiredSpacing: double);

	destructor Destroy; override;

Properties

	property DesiredSpacing: double read FDesiredSpacing;

	property Location: TPoint2D read GetLocation write SetLocation;

	property X: double read FLocation.X write FLocation.X;

	property Y: double read FLocation.Y write FLocation.Y;

	property NodeType: TNodeType read GetNodeType;

	property ElementCount: Integer read GetActiveElementCount;

	property DesiredElementCount: Integer read FDesiredElementCount;

	property Elements[Index:Integer]: IElement read GetActiveElement;

	property NodeNumber: Integer read GetNodeNumber write SetNodeNumber;