geometry_test Program

Uses

  • program~~geometry_test~~UsesGraph program~geometry_test geometry_test module~geometry_m geometry_m program~geometry_test->module~geometry_m module~vector_m vector_m module~geometry_m->module~vector_m

テトラ内外判定をテストする。 乱数で発生させた点群に対して判定を行う。 テスト用のテトラは単純な形状で、平面の方程式から即座に内外判定が行えるので、これと比較してテストする。


Calls

program~~geometry_test~~CallsGraph program~geometry_test geometry_test proc~insidejudgment_tetra geometry_m::insideJudgment_tetra program~geometry_test->proc~insidejudgment_tetra proc~plane_equation geometry_test::plane_equation program~geometry_test->proc~plane_equation proc~volume_tetra geometry_m::volume_tetra proc~insidejudgment_tetra->proc~volume_tetra interface~cross_product vector_m::cross_product proc~volume_tetra->interface~cross_product

Contents

Variables

Functions


Variables

Type Attributes Name Initial
real, parameter :: tetra(3,4) = reshape([0., 0., 0., 1., 0., 0., 0., 1., 0., 0., 0., 1.], shape(tetra))
integer, parameter :: imax = 10000
real :: rand(3,imax)
real :: point(3)
logical :: plane_judge
logical :: tetra_judge
integer :: i

Functions

function plane_equation(x, y) result(z)

テスト用テトラの斜面の方程式

Arguments

Type IntentOptional Attributes Name
real, intent(in) :: x
real, intent(in) :: y

Return Value real