seakeeping_math Module

耐波性数学


Uses


Contents

Functions

Subroutines


Functions

public pure function heron_formula(a, b, c) result(s)

海伦公式计算三角形面积

Arguments

Type IntentOptional Attributes Name
real(kind=sk_real_kind), intent(in) :: a

三边长 (m)
real(kind=sk_real_kind), intent(in) :: b

三边长 (m)
real(kind=sk_real_kind), intent(in) :: c

三边长 (m)

Return Value real(kind=sk_real_kind)

public elemental function euler_formula(x)

欧拉公式

Arguments

Type IntentOptional Attributes Name
real(kind=sk_real_kind), intent(in) :: x

Return Value complex(kind=sk_real_kind)

public pure function angle(x, y)

计算两向量的夹角

Arguments

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

两向量
real(kind=sk_real_kind), intent(in), dimension(3) :: y

两向量

Return Value real(kind=sk_real_kind)


Subroutines

public pure subroutine root_formula(a, b, c, x1, x2)

一元二次方程求根公式

Arguments

Type IntentOptional Attributes Name
real(kind=sk_real_kind), intent(in) :: a
real(kind=sk_real_kind), intent(in) :: b
real(kind=sk_real_kind), intent(in) :: c
real(kind=sk_real_kind), intent(out), optional :: x1
real(kind=sk_real_kind), intent(out), optional :: x2