seakeeping_geometry Module

Seakeeping geometry
耐波性几何学

Contents

Interfaces

centroid area

Functions

distance unitize

Interfaces

public interface centroid

• private pure function centroid3l(a, b, c) result(cen)

  Centroid of a triangle
  三角形形心

  Arguments

  Type	Intent	Optional	Attributes		Name
  real(kind=sk_real_kind),	intent(in)			::	a(3)
  real(kind=sk_real_kind),	intent(in)			::	b(3)
  real(kind=sk_real_kind),	intent(in)			::	c(3)

  Return Value real(kind=sk_real_kind), (3)

• private pure function centroid4l(a, b, c, d) result(cen)

  Centroid of a quadrilateral
  四边形形心

  Arguments

  Type	Intent	Optional	Attributes		Name
  real(kind=sk_real_kind),	intent(in)			::	a(3)
  real(kind=sk_real_kind),	intent(in)			::	b(3)
  real(kind=sk_real_kind),	intent(in)			::	c(3)
  real(kind=sk_real_kind),	intent(in)			::	d(3)

  Return Value real(kind=sk_real_kind), (3)

public interface area

• private pure function area3l(a, b, c) result(area)

  Area of a triangle
  三角形面积

  Arguments

  Type	Intent	Optional	Attributes		Name
  real(kind=sk_real_kind),	intent(in)			::	a(3)
  real(kind=sk_real_kind),	intent(in)			::	b(3)
  real(kind=sk_real_kind),	intent(in)			::	c(3)

  Return Value real(kind=sk_real_kind)

• private pure function area4l(a, b, c, d) result(area)

  Area of a quadrilateral
  四边形面积

  Arguments

  Type	Intent	Optional	Attributes		Name
  real(kind=sk_real_kind),	intent(in)			::	a(3)
  real(kind=sk_real_kind),	intent(in)			::	b(3)
  real(kind=sk_real_kind),	intent(in)			::	c(3)
  real(kind=sk_real_kind),	intent(in)			::	d(3)

  Return Value real(kind=sk_real_kind)

Functions

public pure function distance(a) result(dis)

Distance between two points
两点间距离, $d = |\overrightarrow{ab} |$

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=sk_real_kind),	intent(in)			::	a(3)

Return Value real(kind=sk_real_kind)

public pure function unitize(x) result(y)

Unitize a vector
单位化向量

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=sk_real_kind),	intent(in),		dimension(3)	::	x

Return Value real(kind=sk_real_kind), dimension(3)