Verify Action

PCL Examples > Finite Element Functions > Verify Action

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX''">XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX''">

Verify Action

This section contains examples of some of the functions used to verify entities in a finite element model.


fem_verify_display	()

#  Purpose          :  This file provides an example of a call to the

#                      function fem_verify_display()

#                      This session file creates a new database by the

#                      name new.db. A solid is created and is meshed.

#                      A graphic table with Jacobian ratio values is

#                      created. This function is then called to

#                      display the graphic table using a threshold

#                      value to identify failed elements.

#                      This file can be run by starting a session of

#                      Patran, and running this session file

#                      through the "File","Session","Play" pulldown

#                      menus on the menu bar.

#  The function fem_verify_display()

#  has the following arguments:

#  fem_verify_display

#     (  group_name,

#        table_id,

#        best_value,

#        worst_value,

#        threshold,

#        render_style )

#---------------------------------------------------------------------

#  Variable Declarations

STRING   s_group_name[32]

INTEGER  i_table_id

REAL     r_best_value

REAL     r_worst_value

REAL     r_threshold

STRING   s_render_style[32]

REAL     r_threshold

REAL     r_minimum_value

INTEGER  i_minimum_id

REAL     r_maximum_value

INTEGER  i_maximum_id

STRING   sv_created_ids[VIRTUAL]

INTEGER  i_num_fem_nodes

INTEGER  i_num_fem_elements

STRING   sv_fem_nodes_created[VIRTUAL]

STRING   sv_fem_elements_created[VIRTUAL]

INTEGER  i_return_value

#---------------------------------------------------------------------

#  Open a new database "new.db"

uil_file_new.go("","new.db")

$? YES 36000002

#---------------------------------------------------------------------

#  Create a solid

i_return_value =                                 @

   asm_const_hpat_xyz                            @

      (  "1", "<15 15 15>", "[0 0 0]", "Coord 0", sv_created_ids )

dump i_return_value

i_return_value =                                 @

   ga_view_aa_set( 23., -34., 0. )

dump i_return_value

#---------------------------------------------------------------------

#  Create mesh seeds on two edges of the solid

i_return_value =                                 @

   mesh_seed_create                              @

      (  "Solid 1.4.2", 2, 0, 0., 3., 0.)

dump i_return_value

i_return_value =                                 @

   mesh_seed_create                              @

      (  "Solid 1.4.4", 2, 0, 0., 5., 0.)

dump i_return_value

#---------------------------------------------------------------------

#  Mesh the solid

i_return_value =                                 @

   fem_create_mesh_sol_3                         @

      (  "IsoMesh", 0, "Solid 1 ", 1, [5.],      @

         "Hex8", "1", "1", "Coord 0", "Coord 0", @

         i_num_fem_nodes, i_num_fem_elements,    @

         sv_fem_nodes_created, sv_fem_elements_created )

dump i_return_value

#---------------------------------------------------------------------

#  Session file paused. Press "Resume" to continue.

sf_pause()

#---------------------------------------------------------------------

#  Create a graphic table having Jacobian ratio values of all elements

i_return_value =                                 @

   fem_verify_elem_jacobratio                    @

      (  s_group_name, r_minimum_value,          @

         i_minimum_id, r_maximum_value, i_maximum_id, i_table_id )

dump i_return_value

#---------------------------------------------------------------------

#  Display graphic table using a threshold to identify failed elements

r_best_value   = r_minimum_value

r_worst_value  = r_maximum_value

r_threshold    = 1.12

s_render_style = "ELEMFILL"

fem_verify_display                               @

   (  s_group_name,                              @

      i_table_id,                                @

      r_best_value,                              @

      r_worst_value,                             @

      r_threshold,                               @

      s_render_style )

sys_free_string( sv_created_ids)

sys_free_string( sv_fem_nodes_created)

sys_free_string( sv_fem_elements_created)

#---------------------------------------------------------------------


fem_verify_ids_display	()

#  Purpose          :  This file provides an example of a call to the

#                      function fem_verify_ids_display()

#                      This session file creates a new database by the

#                      name new.db. A solid is created and meshed.

#                      A graphic display table with the id values of

#                      all the elements is created. This function is

#                      then called to display the graphic table.

#                      This file can be run by starting a session of

#                      Patran, and running this session file

#                      through the "File","Session","Play" pulldown

#                      menus on the menu bar.

#  The function fem_verify_ids_display()

#  has the following arguments:

#  fem_verify_ids_display

#     (  group_name,

#        table_id,

#        minimum_value,

#        maximum_value,

#        render_style )

#---------------------------------------------------------------------

#  Variable Declarations

STRING   s_group_name[32]

INTEGER  i_table_id

REAL     r_minimum_value

INTEGER  i_minimum_id

REAL     r_maximum_value

INTEGER  i_maximum_id

STRING   s_render_style[32]

STRING   sv_created_ids[VIRTUAL]

INTEGER  i_num_fem_nodes

INTEGER  i_num_fem_elements

STRING   sv_fem_nodes_created[VIRTUAL]

STRING   sv_fem_elements_created[VIRTUAL]

INTEGER  i_return_value

#---------------------------------------------------------------------

#  Open a new database "new.db"

uil_file_new.go("","new.db")

$? YES 36000002

#---------------------------------------------------------------------

#  Create a solid

i_return_value =                                 @

   asm_const_hpat_xyz                            @

      (  "1", "<1 1 1>", "[0 0 0]", "Coord 0", sv_created_ids )

dump i_return_value

i_return_value =                                 @

   ga_view_aa_set( 23., -34., 0. )

dump i_return_value

#---------------------------------------------------------------------

#  Mesh the solid

i_return_value =                                 @

   fem_create_mesh_sol                           @

      (  "solid 1", 0.25, "Hex8",                @

         "", "", "Coord 0", "Coord 0",           @

         i_num_fem_nodes, i_num_fem_elements,    @

         sv_fem_nodes_created, sv_fem_elements_created )

dump i_return_value

#---------------------------------------------------------------------

#  Session file paused. Press "Resume" to continue.

sf_pause()

#---------------------------------------------------------------------

#  Create a graphic display table with ids of the elements

i_return_value =                                 @

   fem_verify_el_ids                             @

      (  s_group_name, r_minimum_value,          @

         i_minimum_id, r_maximum_value, i_maximum_id, i_table_id )

dump i_return_value

#---------------------------------------------------------------------

#  Display the graphic table

s_render_style = "ELEMFILL"

fem_verify_ids_display                           @

   (  s_group_name,                              @

      i_table_id,                                @

      r_minimum_value,                           @

      r_maximum_value,                           @

      s_render_style )

sys_free_string(sv_created_ids)

sys_free_string(sv_fem_nodes_created)

sys_free_string(sv_fem_elements_created)

#---------------------------------------------------------------------


fem_verify_display.plot	()

#  Purpose          :  This file provides an example of a call to the

#                      function fem_verify_display.plot()

#                      This session file creates a new database by the

#                      name new.db. A solid is created and is meshed.

#                      A graphic table with aspect ratio values is

#                      created. This function is then called to

#                      display entities that have failed the above

#                      verification procedure.

#                      This file can be run by starting a session of

#                      Patran, and running this session file

#                      through the "File","Session","Play" pulldown

#                      menus on the menu bar.

#  The function fem_verify_display.plot()

#  has the following arguments:

#  fem_verify_display.plot

#     (  option,

#        table_id,

#        threshold,

#        entities_failed )

#---------------------------------------------------------------------

#  Variable Declarations

STRING   s_option[32]

INTEGER  i_table_id

REAL     r_threshold

STRING   sv_entities_failed[VIRTUAL]

LOGICAL  l_normalize

STRING   s_group_name[32]

REAL     r_minimum_value

INTEGER  i_minimum_id

REAL     r_maximum_value

INTEGER  i_maximum_id

STRING   sv_created_ids[VIRTUAL]

INTEGER  i_num_fem_nodes

INTEGER  i_num_fem_elements

STRING   sv_fem_nodes_created[VIRTUAL]

STRING   sv_fem_elements_created[VIRTUAL]

INTEGER  i_return_value

#---------------------------------------------------------------------

#  Open a new database "new.db"

uil_file_new.go("","new.db")

$? YES 36000002

#---------------------------------------------------------------------

#  Create a solid

i_return_value =                                 @

   asm_const_hpat_xyz                            @

      (  "1", "<15 15 15>", "[0 0 0]", "Coord 0", sv_created_ids )

dump i_return_value

i_return_value =                                 @

   ga_view_aa_set( 23., -34., 0. )

dump i_return_value

#---------------------------------------------------------------------

#  Create mesh seeds on two edges of the solid

i_return_value =                                 @

   mesh_seed_create                              @

      (  "Solid 1.4.2", 2, 0, 0., 3., 0.)

dump i_return_value

i_return_value =                                 @

   mesh_seed_create                              @

      (  "Solid 1.4.4", 2, 0, 0., 5., 0.)

dump i_return_value

#---------------------------------------------------------------------

#  Mesh the solid

i_return_value =                                 @

   fem_create_mesh_sol_3                         @

      (  "IsoMesh", 0, "Solid 1 ", 1, [5.],      @

         "Hex8", "1", "1", "Coord 0", "Coord 0", @

         i_num_fem_nodes, i_num_fem_elements,    @

         sv_fem_nodes_created, sv_fem_elements_created )

dump i_return_value

#---------------------------------------------------------------------

#  Session file paused. Press "Resume" to continue.

sf_pause()

#---------------------------------------------------------------------

#  Load a graphic table with aspect ratio values of hexagonal elements

l_normalize     = FALSE

r_threshold     = 1.7

i_return_value =                                 @

   fem_verify_hex_aspect                         @

      (  l_normalize, r_threshold, s_group_name, @

         r_minimum_value, i_minimum_id,          @

         r_maximum_value, i_maximum_id, i_table_id )

dump i_return_value

#---------------------------------------------------------------------

#  Display entities that have failed the above verification procedure

s_option       = "plot_failed"

i_return_value =                                 @

   fem_verify_display.plot                       @

      (  s_option,                               @

         i_table_id,                             @

         r_threshold,                            @

         sv_entities_failed )

dump i_return_value

dump sv_entities_failed

sys_free_string( sv_created_ids)

sys_free_string( sv_fem_nodes_created)

sys_free_string( sv_fem_elements_created)

sys_free_string( sv_entities_failed)

#---------------------------------------------------------------------


fem_verify_draw_normal_vectors	()

#  Purpose          :  This file provides an example of a call to the

#                      function fem_verify_draw_normal_vectors()

#                      This session file creates a new database by the

#                      name new.db. A solid is created and one of its

#                      surfaces is meshed. This function is then

#                      called to draw normal vectors for all elements.

#                      This file can be run by starting a session of

#                      Patran, and running this session file

#                      through the "File","Session","Play" pulldown

#                      menus on the menu bar.

#  The function fem_verify_draw_normal_vectors()

#  has the following arguments:

#  fem_verify_draw_normal_vectors

#     (  segment_id )

#---------------------------------------------------------------------

#  Variable Declarations

INTEGER  i_segment_id

STRING   sv_created_ids[VIRTUAL]

INTEGER  i_num_fem_nodes

INTEGER  i_num_fem_elements

STRING   sv_fem_nodes_created[VIRTUAL]

STRING   sv_fem_elements_created[VIRTUAL]

INTEGER  i_return_value

#---------------------------------------------------------------------

#  Open a new database "new.db"

uil_file_new.go("","new.db")

$? YES 36000002

#---------------------------------------------------------------------

#  Create a solid

i_return_value =                                 @

   asm_const_hpat_xyz                            @

      (  "1", "<1 1 1>", "[0 0 0]", "Coord 0", sv_created_ids )

dump i_return_value

i_return_value =                                 @

   ga_view_aa_set( 23., -34., 0. )

dump i_return_value

#---------------------------------------------------------------------

#  Mesh one surface of the solid

i_return_value =                                 @

   fem_create_mesh_surf_2                        @

      (  "IsoMesh", 0, "Solid 1.3 ", 1, [0.25],  @

         "Quad4", "1", "1", "Coord 0", "Coord 0",@

         i_num_fem_nodes, i_num_fem_elements,    @

         sv_fem_nodes_created, sv_fem_elements_created )

dump i_return_value

#---------------------------------------------------------------------

#  Draw normal vectors on all surface elements

i_return_value =                                 @

   gm_segment_create                             @

      (  i_segment_id )

dump i_return_value

i_return_value =                                 @

   fem_verify_draw_normal_vectors                @

      (  i_segment_id )

dump i_return_value

sys_free_string(sv_created_ids)

sys_free_string(sv_fem_nodes_created)

sys_free_string(sv_fem_elements_created)

#---------------------------------------------------------------------


fem_verify_el_ids	()

#  Purpose          :  This file provides an example of a call to the

#                      function fem_verify_el_ids()

#                      This session file creates a new database by the

#                      name new.db. A solid is created and meshed.

#                      This function is called to create a graphic

#                      display table with the id values of all the

#                      elements. Graphic table is finally displayed.

#                      This file can be run by starting a session of

#                      Patran, and running this session file

#                      through the "File","Session","Play" pulldown

#                      menus on the menu bar.

#  The function fem_verify_el_ids()

#  has the following arguments:

#  fem_verify_el_ids

#     (  group_name,

#        minimum_value,

#        minimum_id,

#        maximum_value,

#        maximum_id,

#        table_id )

#---------------------------------------------------------------------

#  Variable Declarations

STRING   s_group_name[32]

INTEGER  i_table_id

REAL     r_minimum_value

INTEGER  i_minimum_id

REAL     r_maximum_value

INTEGER  i_maximum_id

STRING   s_render_style[32]

STRING   sv_created_ids[VIRTUAL]

INTEGER  i_num_fem_nodes

INTEGER  i_num_fem_elements

STRING   sv_fem_nodes_created[VIRTUAL]

STRING   sv_fem_elements_created[VIRTUAL]

INTEGER  i_return_value

#---------------------------------------------------------------------

#  Open a new database "new.db"

uil_file_new.go("","new.db")

$? YES 36000002

#---------------------------------------------------------------------

#  Create a solid

i_return_value =                                 @

   asm_const_hpat_xyz                            @

      (  "1", "<1 1 1>", "[0 0 0]", "Coord 0", sv_created_ids )

dump i_return_value

i_return_value =                                 @

   ga_view_aa_set( 23., -34., 0. )

dump i_return_value

#---------------------------------------------------------------------

#  Mesh the solid

i_return_value =                                 @

   fem_create_mesh_sol                           @

      (  "solid 1", 0.25, "Hex8",                @

         "", "", "Coord 0", "Coord 0",           @

         i_num_fem_nodes, i_num_fem_elements,    @

         sv_fem_nodes_created, sv_fem_elements_created )

dump i_return_value

#---------------------------------------------------------------------

#  Session file paused. Press "Resume" to continue.

sf_pause()

#---------------------------------------------------------------------

#  Create a graphic display table with ids of the elements

i_return_value =                                 @

   fem_verify_el_ids                             @

      (  s_group_name,                           @

         r_minimum_value,                        @

         i_minimum_id,                           @

         r_maximum_value,                        @

         i_maximum_id,                           @

         i_table_id )

dump i_return_value

dump s_group_name

dump r_minimum_value

dump i_minimum_id

dump r_maximum_value

dump i_maximum_id

dump i_table_id

#---------------------------------------------------------------------

#  Display the graphic table

fem_verify_ids_display                           @

   (  s_group_name, i_table_id, r_minimum_value, @

      r_maximum_value, "ELEMFILL" )

sys_free_string(sv_created_ids)

sys_free_string(sv_fem_nodes_created)

sys_free_string(sv_fem_elements_created)

#---------------------------------------------------------------------


fem_verify_elem_conect	()

#  Purpose          :  This file provides an example of a call to the

#                      function fem_verify_elem_conect()

#                      This session file creates a new database by the

#                      name new.db. A solid is created and meshed.

#                      Connectivity of two elements is reversed. This

#                      function is then called to test all the solid

#                      elements for proper connectivity.

#                      This file can be run by starting a session of

#                      Patran, and running this session file

#                      through the "File","Session","Play" pulldown

#                      menus on the menu bar.

#  The function fem_verify_elem_conect()

#  has the following arguments:

#  fem_verify_elem_conect

#     (  reverse,

#        entities_failed )

#---------------------------------------------------------------------

#  Variable Declarations

LOGICAL  l_reverse

STRING   sv_entities_failed[VIRTUAL]

STRING   sv_created_ids[VIRTUAL]

INTEGER  i_num_fem_nodes

INTEGER  i_num_fem_elements

STRING   sv_fem_nodes_created[VIRTUAL]

STRING   sv_fem_elements_created[VIRTUAL]

STRING   sv_elements_reversed[VIRTUAL]

INTEGER  i_return_value

#---------------------------------------------------------------------

#  Open a new database "new.db"

uil_file_new.go("","new.db")

$? YES 36000002

#---------------------------------------------------------------------

#  Create a solid

i_return_value =                                 @

   asm_const_hpat_xyz                            @

      (  "1", "<1 1 1>", "[0 0 0]", "Coord 0", sv_created_ids )

dump i_return_value

i_return_value =                                 @

   ga_view_aa_set( -67., 0., -34.)

dump i_return_value

#---------------------------------------------------------------------

#  Mesh the solid

i_return_value =                                 @

   fem_create_mesh_sol                           @

      (  "solid 1", 0.5, "Hex8",                 @

         "", "", "Coord 0", "Coord 0",           @

         i_num_fem_nodes, i_num_fem_elements,    @

         sv_fem_nodes_created, sv_fem_elements_created )

dump i_return_value

hex_elem_label( TRUE)

#---------------------------------------------------------------------

#  Reverse the connectivity of two elements

i_return_value =                                 @

   fem_mod_elem_reverse                          @

      ( "Elm 1 2", sv_elements_reversed )

dump i_return_value

dump sv_elements_reversed

#---------------------------------------------------------------------

#  Test solid elements for connectivity

l_reverse = FALSE

i_return_value =                                 @

   fem_verify_elem_conect                        @

      (  l_reverse,                              @

         sv_entities_failed )

dump i_return_value

dump sv_entities_failed

sys_free_string(sv_entities_failed)

sys_free_string(sv_created_ids)

sys_free_string(sv_fem_nodes_created)

sys_free_string(sv_fem_elements_created)

sys_free_string(sv_elements_reversed)

#---------------------------------------------------------------------


fem_verify_elem_jacobratio	()

#  Purpose          :  This file provides an example of a call to the

#                      function fem_verify_elem_jacobratio()

#                      This session file creates a new database by the

#                      name new.db. A solid is created and is meshed

#                      after creating mesh seeds on two of its edges.

#                      This function is then called to create graphic

#                      table with Jacobian ratio values for all

#                      elements. Created graphic table is displayed.

#                      This file can be run by starting a session of

#                      Patran, and running this session file

#                      through the "File","Session","Play" pulldown

#                      menus on the menu bar.

#  The function fem_verify_elem_jacobratio()

#  has the following arguments:

#  fem_verify_elem_jacobratio

#     (  group_name,

#        minimum_value,

#        minimum_id,

#        maximum_value,

#        maximum_id,

#        table_id )

#---------------------------------------------------------------------

#  Variable Declarations

STRING   s_group_name[32]

REAL     r_minimum_value

INTEGER  i_minimum_id

REAL     r_maximum_value

INTEGER  i_maximum_id

INTEGER  i_table_id

STRING   sv_created_ids[VIRTUAL]

INTEGER  i_num_fem_nodes

INTEGER  i_num_fem_elements

STRING   sv_fem_nodes_created[VIRTUAL]

STRING   sv_fem_elements_created[VIRTUAL]

INTEGER  i_return_value

#---------------------------------------------------------------------

#  Open a new database "new.db"

uil_file_new.go("","new.db")

$? YES 36000002

#---------------------------------------------------------------------

#  Create a solid

i_return_value =                                 @

   asm_const_hpat_xyz                            @

      (  "1", "<15 15 15>", "[0 0 0]", "Coord 0", sv_created_ids )

dump i_return_value

i_return_value =                                 @

   ga_view_aa_set( 23., -34., 0. )

dump i_return_value

#---------------------------------------------------------------------

#  Create mesh seeds on two edges of the solid

i_return_value =                                 @

   mesh_seed_create                              @

      (  "Solid 1.4.2", 2, 0, 0., 3., 0.)

dump i_return_value

i_return_value =                                 @

   mesh_seed_create                              @

      (  "Solid 1.4.4", 2, 0, 0., 5., 0.)

dump i_return_value

#---------------------------------------------------------------------

#  Mesh the solid

i_return_value =                                 @

   fem_create_mesh_sol_3                         @

      (  "IsoMesh", 0, "Solid 1 ", 1, [5.],      @

         "Hex8", "1", "1", "Coord 0", "Coord 0", @

         i_num_fem_nodes, i_num_fem_elements,    @

         sv_fem_nodes_created, sv_fem_elements_created )

dump i_return_value

#---------------------------------------------------------------------

#  Session file paused. Press "Resume" to continue.

sf_pause()

#---------------------------------------------------------------------

#  Create a graphic table having Jacobian ratio values of all elements

i_return_value =                                 @

   fem_verify_elem_jacobratio                    @

      (  s_group_name,                           @

         r_minimum_value,                        @

         i_minimum_id,                           @

         r_maximum_value,                        @

         i_maximum_id,                           @

         i_table_id )

dump i_return_value

dump s_group_name

dump r_minimum_value

dump i_minimum_id

dump r_maximum_value

dump i_maximum_id

dump i_table_id

#---------------------------------------------------------------------

#  Display the created graphic table

fem_verify_ids_display                           @

   (  s_group_name, i_table_id, r_minimum_value, @

      r_maximum_value, "ELEMFILL")

sys_free_string( sv_created_ids)

sys_free_string( sv_fem_nodes_created)

sys_free_string( sv_fem_elements_created)

#---------------------------------------------------------------------


fem_verify_elem_jacobzero	()

#  Purpose          :  This file provides an example of a call to the

#                      function fem_verify_elem_jacobzero()

#                      This session file creates a new database by the

#                      name new.db. A solid is created and is meshed

#                      after creating mesh seeds on two of its edges.

#                      This function is then called to create graphic

#                      table with Jacobian zero values for all the

#                      elements. Created graphic table is displayed.

#                      This file can be run by starting a session of

#                      Patran, and running this session file

#                      through the "File","Session","Play" pulldown

#                      menus on the menu bar.

#  The function fem_verify_elem_jacobzero()

#  has the following arguments:

#  fem_verify_elem_jacobzero

#     (  group_name,

#        minimum_value,

#        minimum_id,

#        maximum_value,

#        maximum_id,

#        table_id )

#---------------------------------------------------------------------

#  Variable Declarations

STRING   s_group_name[32]

REAL     r_minimum_value

INTEGER  i_minimum_id

REAL     r_maximum_value

INTEGER  i_maximum_id

INTEGER  i_table_id

STRING   sv_created_ids[VIRTUAL]

INTEGER  i_num_fem_nodes

INTEGER  i_num_fem_elements

STRING   sv_fem_nodes_created[VIRTUAL]

STRING   sv_fem_elements_created[VIRTUAL]

INTEGER  i_return_value

#---------------------------------------------------------------------

#  Open a new database "new.db"

uil_file_new.go("","new.db")

$? YES 36000002

#---------------------------------------------------------------------

#  Create a solid

i_return_value =                                 @

   asm_const_hpat_xyz                            @

      (  "1", "<15 15 15>", "[0 0 0]", "Coord 0", sv_created_ids )

dump i_return_value

i_return_value =                                 @

   ga_view_aa_set( 23., -34., 0. )

dump i_return_value

#---------------------------------------------------------------------

#  Create mesh seeds on two edges of the solid

i_return_value =                                 @

   mesh_seed_create                              @

      (  "Solid 1.4.2", 2, 0, 0., 3., 0.)

dump i_return_value

i_return_value =                                 @

   mesh_seed_create                              @

      (  "Solid 1.4.4", 2, 0, 0., 5., 0.)

dump i_return_value

#---------------------------------------------------------------------

#  Mesh the solid

i_return_value =                                 @

   fem_create_mesh_sol_3                         @

      (  "IsoMesh", 0, "Solid 1 ", 1, [5.],      @

         "Hex8", "1", "1", "Coord 0", "Coord 0", @

         i_num_fem_nodes, i_num_fem_elements,    @

         sv_fem_nodes_created, sv_fem_elements_created )

dump i_return_value

#---------------------------------------------------------------------

#  Session file paused. Press "Resume" to continue.

sf_pause()

#---------------------------------------------------------------------

#  Create a graphic table having Jacobian zero values of all elements

i_return_value =                                 @

   fem_verify_elem_jacobzero                     @

      (  s_group_name,                           @

         r_minimum_value,                        @

         i_minimum_id,                           @

         r_maximum_value,                        @

         i_maximum_id,                           @

         i_table_id )

dump i_return_value

dump s_group_name

dump r_minimum_value

dump i_minimum_id

dump r_maximum_value

dump i_maximum_id

dump i_table_id

#---------------------------------------------------------------------

#  Display the created graphic table

fem_verify_ids_display                           @

   (  s_group_name, i_table_id, r_minimum_value, @

      r_maximum_value, "ELEMFILL")

sys_free_string( sv_created_ids)

sys_free_string( sv_fem_nodes_created)

sys_free_string( sv_fem_elements_created)

#---------------------------------------------------------------------


fem_verify_element_duplicates	()

#  Purpose          :  This file provides an example of a call to the

#                      function fem_verify_element_duplicates()

#                      This session file creates a new database by the

#                      name new.db. A surface is created and meshed.

#                      Two duplicate elements are created. This

#                      function is then called to check for duplicate

#                      elements in the entire database.

#                      This file can be run by starting a session of

#                      Patran, and running this session file

#                      through the "File","Session","Play" pulldown

#                      menus on the menu bar.

#  The function fem_verify_element_duplicates()

#  has the following arguments:

#  fem_verify_element_duplicates

#     (  delete_elements,

#        delete_high,

#        num_duplicates,

#        kept_elements,

#        deleted_elements )

#---------------------------------------------------------------------

#  Variable Declarations

LOGICAL  l_delete_elements

LOGICAL  l_delete_high

INTEGER  i_num_duplicates

STRING   sv_kept_elements[VIRTUAL]

STRING   sv_deleted_elements[VIRTUAL]

STRING   sv_created_ids[VIRTUAL]

INTEGER  i_num_fem_nodes

INTEGER  i_num_fem_elements

STRING   sv_fem_nodes_created[VIRTUAL]

STRING   sv_fem_elements_created[VIRTUAL]

STRING   s_fem_elements_created[32]

INTEGER  i_return_value

#---------------------------------------------------------------------

#  Open a new database "new.db"

uil_file_new.go("","new.db")

$? YES 36000002

#---------------------------------------------------------------------

#  Create a surface

i_return_value =                                 @

   asm_const_patch_xyz                           @

      (  "1", "<1 1 0>", "[0 0 0]", "Coord 0", sv_created_ids )

dump i_return_value

#---------------------------------------------------------------------

#  Mesh the surface

i_return_value =                                 @

   fem_create_mesh_surf_2                        @

      (  "IsoMesh", 0, "Surface 1", 1, [0.25],   @

         "Quad4", "1", "1", "Coord 0", "Coord 0",@

         i_num_fem_nodes, i_num_fem_elements,    @

         sv_fem_nodes_created, sv_fem_elements_created )

dump i_return_value

node_label( TRUE )

quad_elem_label( TRUE )

#---------------------------------------------------------------------

#  Create two duplicate elements

i_return_value =                                 @

   fem_create_elems                              @

      (  "Quad", "Quad4", "17", "Standard", TRUE,@

         "Node 1 12", "Node 2 13", "Node 7 18",  @

         "Node 6 17", "", "", "", "", s_fem_elements_created )

dump i_return_value

dump s_fem_elements_created

#---------------------------------------------------------------------

#  Session file paused. Press "Resume" to continue.

sf_pause()

#---------------------------------------------------------------------

#  Display all duplicate elements without deleting them

l_delete_elements = FALSE

l_delete_high     = TRUE

i_return_value =                                 @

   fem_verify_element_duplicates                 @

      (  l_delete_elements,                      @

         l_delete_high,                          @

         i_num_duplicates,                       @

         sv_kept_elements,                       @

         sv_deleted_elements )

dump i_return_value

dump i_num_duplicates

dump sv_kept_elements

dump sv_deleted_elements

sys_free_string(sv_kept_elements)

sys_free_string(sv_deleted_elements)

sys_free_string(sv_created_ids)

sys_free_string(sv_fem_nodes_created)

sys_free_string(sv_fem_elements_created)

#---------------------------------------------------------------------


fem_verify_element_normals	()

#  Purpose          :  This file provides an example of a call to the

#                      function fem_verify_element_normals()

#                      This session file creates a new database by the

#                      name new.db. A solid is created and three of

#                      its surfaces are meshed. Nodes are equivalenced

#                      and normal vectors are drawn for all elements.

#                      This function is then called to flip direction

#                      of the normal vectors to match that of guiding

#                      elements. Normal vectors are then drawn again.

#                      This file can be run by starting a session of

#                      Patran, and running this session file

#                      through the "File","Session","Play" pulldown

#                      menus on the menu bar.

#  The function fem_verify_element_normals()

#  has the following arguments:

#  fem_verify_element_normals

#     (  reverse_elements,

#        color_code,

#        guide_element,

#        group_name,

#        table_id )

#---------------------------------------------------------------------

#  Variable Declarations

LOGICAL  l_reverse_elements

LOGICAL  l_color_code

STRING   s_guide_element[32]

STRING   s_group_name[32]

INTEGER  i_table_id

STRING   sv_created_ids[VIRTUAL]

INTEGER  i_num_fem_nodes

INTEGER  i_num_fem_elements

STRING   sv_fem_nodes_created[VIRTUAL]

STRING   sv_fem_elements_created[VIRTUAL]

REAL     r_updated_tolerance

INTEGER  i_segment_id

INTEGER  i_return_value

#---------------------------------------------------------------------

#  Open a new database "new.db"

uil_file_new.go("","new.db")

$? YES 36000002

#---------------------------------------------------------------------

#  Create a solid

i_return_value =                                 @

   asm_const_hpat_xyz                            @

      (  "1", "<1 1 1>", "[0 0 0]", "Coord 0", sv_created_ids )

dump i_return_value

i_return_value =                                 @

   ga_view_aa_set( 23., -34., 0. )

dump i_return_value

#---------------------------------------------------------------------

#  Mesh three surfaces of the solid

i_return_value =                                 @

   fem_create_mesh_surf_2                        @

      (  "IsoMesh", 0, "Solid 1.1 1.2 1.3",      @

         1, [0.25], "Quad4", "1", "1",           @

         "Coord 0", "Coord 0",                   @

         i_num_fem_nodes, i_num_fem_elements,    @

         sv_fem_nodes_created, sv_fem_elements_created )

dump i_return_value

#---------------------------------------------------------------------

#  Equivalence all the nodes

i_return_value =                                 @

   fem_equiv_all_group                           @

      (  [0], 0, 1, 0.005, r_updated_tolerance, i_segment_id )

dump i_return_value

#---------------------------------------------------------------------

#  Draw normal vectors on all surface elements

i_return_value =                                 @

   gm_segment_create                             @

      (  i_segment_id )

dump i_return_value

i_return_value =                                 @

   fem_verify_draw_normal_vectors                @

      (  i_segment_id )

dump i_return_value

#---------------------------------------------------------------------

#  Session file paused. Press "Resume" to continue.

sf_pause()

#---------------------------------------------------------------------

#  Verify direction of the normal vectors for all shell elements

l_reverse_elements = TRUE

l_color_code       = TRUE

s_guide_element    = "Elem 20"

i_return_value =                                 @

   fem_verify_element_normals                    @

      (  l_reverse_elements,                     @

         l_color_code,                           @

         s_guide_element,                        @

         s_group_name,                           @

         i_table_id )

dump i_return_value

dump s_group_name

dump i_table_id

#---------------------------------------------------------------------

#  Reset the graphics and draw normal vectors again

i_return_value =                                 @

   gm_segment_delete                             @

      (  i_segment_id )

dump i_return_value

i_return_value =                                 @

   gm_segment_create                             @

      (  i_segment_id )

dump i_return_value

i_return_value =                                 @

   fem_verify_draw_normal_vectors                @

      (  i_segment_id )

dump i_return_value

sys_free_string( sv_created_ids)

sys_free_string( sv_fem_nodes_created)

sys_free_string( sv_fem_elements_created)

#---------------------------------------------------------------------


fem_verify_get_graphset	()

#  Purpose          :  This file provides an example of a call to the

#                      function fem_verify_get_graphset()

#                      This session file creates a new database by the

#                      name new.db. A solid is created and is meshed.

#                      An element verification procedure is carried

#                      out and created graphic table is displayed.

#                      This function is called before displaying to

#                      retrieve graphic display settings. Graphic

#                      parameters are reset after display using the

#                      retrieved graphic display settings.

#                      This file can be run by starting a session of

#                      Patran, and running this session file

#                      through the "File","Session","Play" pulldown

#                      menus on the menu bar.

#  The function fem_verify_get_graphset()

#  has the following arguments:

#  fem_verify_get_graphset

#     (  display_method,

#        group_name,

#        render_style,

#        viewport_name,

#        spectrum_setting )

#---------------------------------------------------------------------

#  Variable Declarations

INTEGER  i_display_method

INTEGER  i_spectrum_setting

STRING   s_render_style[32]

STRING   s_group_name[32]

STRING   s_viewport_name[32]

REAL     r_minimum_value

INTEGER  i_minimum_id

REAL     r_maximum_value

INTEGER  i_maximum_id

INTEGER  i_table_id

STRING   sv_created_ids[VIRTUAL]

INTEGER  i_num_fem_nodes

INTEGER  i_num_fem_elements

STRING   sv_fem_nodes_created[VIRTUAL]

STRING   sv_fem_elements_created[VIRTUAL]

INTEGER  i_return_value

#---------------------------------------------------------------------

#  Open a new database "new.db"

uil_file_new.go("","new.db")

$? YES 36000002

#---------------------------------------------------------------------

#  Create a solid

i_return_value =                                 @

   asm_const_hpat_xyz                            @

      (  "1", "<15 15 15>", "[0 0 0]", "Coord 0", sv_created_ids )

dump i_return_value

i_return_value =                                 @

   ga_view_aa_set( 23., -34., 0. )

dump i_return_value

#---------------------------------------------------------------------

#  Create mesh seeds on two edges of the solid

i_return_value =                                 @

   mesh_seed_create                              @

      (  "Solid 1.4.2", 2, 0, 0., 3., 0.)

dump i_return_value

i_return_value =                                 @

   mesh_seed_create                              @

      (  "Solid 1.4.4", 2, 0, 0., 5., 0.)

dump i_return_value

#---------------------------------------------------------------------

#  Mesh the solid

i_return_value =                                 @

   fem_create_mesh_sol_3                         @

      (  "IsoMesh", 0, "Solid 1 ", 1, [5.],      @

         "Hex8", "1", "1", "Coord 0", "Coord 0", @

         i_num_fem_nodes, i_num_fem_elements,    @

         sv_fem_nodes_created, sv_fem_elements_created )

dump i_return_value

#---------------------------------------------------------------------

#  Retrieve the graphics display settings for restoring later

i_return_value =                                 @

   fem_verify_get_graphset                       @

      (  i_display_method,                       @

         s_group_name,                           @

         s_render_style,                         @

         s_viewport_name,                        @

         i_spectrum_setting )

dump i_return_value

dump i_display_method

dump s_group_name

dump s_render_style

dump s_viewport_name

dump i_spectrum_setting

#---------------------------------------------------------------------

#  Session file paused. Press "Resume" to continue.

sf_pause()

#---------------------------------------------------------------------

#  Create a graphic table having Jacobian ratio values of all elements

i_return_value =                                 @

   fem_verify_elem_jacobratio                    @

      (  s_group_name, r_minimum_value,          @

         i_minimum_id, r_maximum_value, i_maximum_id, i_table_id )

dump i_return_value

#---------------------------------------------------------------------

#  Display the created graphic table

fem_verify_ids_display                           @

   (  s_group_name, i_table_id, r_minimum_value, @

      r_maximum_value, "ELEMFILL")

#---------------------------------------------------------------------

#  Session file paused. Press "Resume" to continue.

sf_pause()

#---------------------------------------------------------------------

#  Reset graphic parameters using retrieved graphics display settings

i_return_value =                                 @

   fem_verify_reset_graphics                     @

      (  s_render_style, s_group_name,           @

         i_spectrum_setting, s_viewport_name )

dump i_return_value

sys_free_string( sv_created_ids)

sys_free_string( sv_fem_nodes_created)

sys_free_string( sv_fem_elements_created)

#---------------------------------------------------------------------


fem_verify_hex_all	()

#  Purpose          :  This file provides an example of a call to the

#                      function fem_verify_hex_all()

#                      This session file creates a new database by the

#                      name new.db. A solid is created and is meshed.

#                      This function is then called to run all the

#                      verification tests for all hexagonal elements.

#                      This file can be run by starting a session of

#                      Patran, and running this session file

#                      through the "File","Session","Play" pulldown

#                      menus on the menu bar.

#  The function fem_verify_hex_all()

#  has the following arguments:

#  fem_verify_hex_all

#     (  threshold,

#        num_failures,

#        worst_value,

#        worst_id )

#---------------------------------------------------------------------

#  Variable Declarations

REAL     ra_threshold(10)

INTEGER  ia_num_failures(10)

REAL     ra_worst_value(10)

INTEGER  ia_worst_id(10)

STRING   sv_created_ids[VIRTUAL]

INTEGER  i_num_fem_nodes

INTEGER  i_num_fem_elements

STRING   sv_fem_nodes_created[VIRTUAL]

STRING   sv_fem_elements_created[VIRTUAL]

INTEGER  i_return_value

#---------------------------------------------------------------------

#  Open a new database "new.db"

uil_file_new.go("","new.db")

$? YES 36000002

#---------------------------------------------------------------------

#  Create a solid

i_return_value =                                 @

   asm_const_hpat_xyz                            @

      (  "1", "<15 15 15>", "[0 0 0]", "Coord 0", sv_created_ids )

dump i_return_value

i_return_value =                                 @

   ga_view_aa_set( 23., -34., 0. )

dump i_return_value

#---------------------------------------------------------------------

#  Create mesh seeds on two edges of the solid

i_return_value =                                 @

   mesh_seed_create                              @

      (  "Solid 1.4.2", 2, 0, 0., 3., 0.)

dump i_return_value

i_return_value =                                 @

   mesh_seed_create                              @

      (  "Solid 1.4.4", 2, 0, 0., 5., 0.)

dump i_return_value

#---------------------------------------------------------------------

#  Mesh the solid

i_return_value =                                 @

   fem_create_mesh_sol_3                         @

      (  "IsoMesh", 0, "Solid 1 ", 1, [5.],      @

         "Hex8", "1", "1", "Coord 0", "Coord 0", @

         i_num_fem_nodes, i_num_fem_elements,    @

         sv_fem_nodes_created, sv_fem_elements_created )

dump i_return_value

#---------------------------------------------------------------------

#  Session file paused. Press "Resume" to continue.

sf_pause()

#---------------------------------------------------------------------

#  Run all the verification tests for all hexagonal elements

ra_threshold = [ 1.5, 30., 30., 5., 5., 0.8, 0.2, 0.2, 0., 0.]

i_return_value =                                 @

   fem_verify_hex_all                            @

      (  ra_threshold,                           @

         ia_num_failures,                        @

         ra_worst_value,                         @

         ia_worst_id )

dump i_return_value

dump ia_num_failures

dump ra_worst_value

dump ia_worst_id

sys_free_string( sv_created_ids)

sys_free_string( sv_fem_nodes_created)

sys_free_string( sv_fem_elements_created)

#---------------------------------------------------------------------


fem_verify_hex_aspect	()

#  Purpose          :  This file provides an example of a call to the

#                      function fem_verify_hex_aspect()

#                      This session file creates a new database by the

#                      name new.db. A solid is created and is meshed.

#                      This function is then called to load a graphic

#                      table with aspect ratio values of all hexagonal

#                      elements. Created graphic table is displayed.

#                      This file can be run by starting a session of

#                      Patran, and running this session file

#                      through the "File","Session","Play" pulldown

#                      menus on the menu bar.

#  The function fem_verify_hex_aspect()

#  has the following arguments:

#  fem_verify_hex_aspect

#     (  normalize,

#        threshold,

#        group_name,

#        minimum_value,

#        minimum_id,

#        maximum_value,

#        maximum_id,

#        table_id )

#---------------------------------------------------------------------

#  Variable Declarations

LOGICAL  l_normalize

REAL     r_threshold

STRING   s_group_name[32]

REAL     r_minimum_value

INTEGER  i_minimum_id

REAL     r_maximum_value

INTEGER  i_maximum_id

INTEGER  i_table_id

STRING   sv_created_ids[VIRTUAL]

INTEGER  i_num_fem_nodes

INTEGER  i_num_fem_elements

STRING   sv_fem_nodes_created[VIRTUAL]

STRING   sv_fem_elements_created[VIRTUAL]

INTEGER  i_return_value

#---------------------------------------------------------------------

#  Open a new database "new.db"

uil_file_new.go("","new.db")

$? YES 36000002

#---------------------------------------------------------------------

#  Create a solid

i_return_value =                                 @

   asm_const_hpat_xyz                            @

      (  "1", "<15 15 15>", "[0 0 0]", "Coord 0", sv_created_ids )

dump i_return_value

i_return_value =                                 @

   ga_view_aa_set( 23., -34., 0. )

dump i_return_value

#---------------------------------------------------------------------

#  Create mesh seeds on two edges of the solid

i_return_value =                                 @

   mesh_seed_create                              @

      (  "Solid 1.4.2", 2, 0, 0., 3., 0.)

dump i_return_value

i_return_value =                                 @

   mesh_seed_create                              @

      (  "Solid 1.4.4", 2, 0, 0., 5., 0.)

dump i_return_value

#---------------------------------------------------------------------

#  Mesh the solid

i_return_value =                                 @

   fem_create_mesh_sol_3                         @

      (  "IsoMesh", 0, "Solid 1 ", 1, [5.],      @

         "Hex8", "1", "1", "Coord 0", "Coord 0", @

         i_num_fem_nodes, i_num_fem_elements,    @

         sv_fem_nodes_created, sv_fem_elements_created )

dump i_return_value

#---------------------------------------------------------------------

#  Session file paused. Press "Resume" to continue.

sf_pause()

#---------------------------------------------------------------------

#  Load a graphic table with aspect ratio values of hexagonal elements

l_normalize     = FALSE

r_threshold     = 1.5

i_return_value =                                 @

   fem_verify_hex_aspect                         @

      (  l_normalize,                            @

         r_threshold,                            @

         s_group_name,                           @

         r_minimum_value,                        @

         i_minimum_id,                           @

         r_maximum_value,                        @

         i_maximum_id,                           @

         i_table_id )

dump i_return_value

dump s_group_name

dump r_minimum_value

dump i_minimum_id

dump r_maximum_value

dump i_maximum_id

dump i_table_id

#---------------------------------------------------------------------

#  Display the graphic table

fem_verify_display                               @

   (  s_group_name, i_table_id, r_minimum_value, @

      r_maximum_value, r_threshold, "ELEMFILL")

sys_free_string( sv_created_ids)

sys_free_string( sv_fem_nodes_created)

sys_free_string( sv_fem_elements_created)

#---------------------------------------------------------------------


fem_verify_hex_edangle	()

#  Purpose          :  This file provides an example of a call to the

#                      function fem_verify_hex_edangle()

#                      This session file creates a new database by the

#                      name new.db. A solid is created and is meshed.

#                      This function is then called to load a graphic

#                      table with edge angle values of all hexagonal

#                      elements. Created graphic table is displayed.

#                      This file can be run by starting a session of

#                      Patran, and running this session file

#                      through the "File","Session","Play" pulldown

#                      menus on the menu bar.

#  The function fem_verify_hex_edangle()

#  has the following arguments:

#  fem_verify_hex_edangle

#     (  normalize,

#        threshold,

#        group_name,

#        minimum_value,

#        minimum_id,

#        maximum_value,

#        maximum_id,

#        table_id )

#---------------------------------------------------------------------

#  Variable Declarations

LOGICAL  l_normalize

REAL     r_threshold

STRING   s_group_name[32]

REAL     r_minimum_value

INTEGER  i_minimum_id

REAL     r_maximum_value

INTEGER  i_maximum_id

INTEGER  i_table_id

STRING   sv_created_ids[VIRTUAL]

INTEGER  i_num_fem_nodes

INTEGER  i_num_fem_elements

STRING   sv_fem_nodes_created[VIRTUAL]

STRING   sv_fem_elements_created[VIRTUAL]

INTEGER  i_return_value

#---------------------------------------------------------------------

#  Open a new database "new.db"

uil_file_new.go("","new.db")

$? YES 36000002

#---------------------------------------------------------------------

#  Create a solid

i_return_value =                                 @

   asm_const_hpat_xyz                            @

      (  "1", "<15 15 15>", "[0 0 0]", "Coord 0", sv_created_ids )

dump i_return_value

i_return_value =                                 @

   ga_view_aa_set( 23., -34., 0. )

dump i_return_value

#---------------------------------------------------------------------

#  Create mesh seeds on two edges of the solid

i_return_value =                                 @

   mesh_seed_create                              @

      (  "Solid 1.4.2", 2, 0, 0., 3., 0.)

dump i_return_value

i_return_value =                                 @

   mesh_seed_create                              @

      (  "Solid 1.4.4", 2, 0, 0., 5., 0.)

dump i_return_value

#---------------------------------------------------------------------

#  Mesh the solid

i_return_value =                                 @

   fem_create_mesh_sol_3                         @

      (  "IsoMesh", 0, "Solid 1 ", 1, [5.],      @

         "Hex8", "1", "1", "Coord 0", "Coord 0", @

         i_num_fem_nodes, i_num_fem_elements,    @

         sv_fem_nodes_created, sv_fem_elements_created )

dump i_return_value

#---------------------------------------------------------------------

#  Session file paused. Press "Resume" to continue.

sf_pause()

#---------------------------------------------------------------------

#  Load a graphic table with edge angle values of hexagonal elements

l_normalize     = FALSE

r_threshold     = 30.

i_return_value =                                 @

   fem_verify_hex_edangle                        @

      (  l_normalize,                            @

         r_threshold,                            @

         s_group_name,                           @

         r_minimum_value,                        @

         i_minimum_id,                           @

         r_maximum_value,                        @

         i_maximum_id,                           @

         i_table_id )

dump i_return_value

dump s_group_name

dump r_minimum_value

dump i_minimum_id

dump r_maximum_value

dump i_maximum_id

dump i_table_id

#---------------------------------------------------------------------

#  Display the graphic table

fem_verify_display                               @

   (  s_group_name, i_table_id, r_minimum_value, @

      r_maximum_value, r_threshold, "ELEMFILL")

sys_free_string( sv_created_ids)

sys_free_string( sv_fem_nodes_created)

sys_free_string( sv_fem_elements_created)

#---------------------------------------------------------------------


fem_verify_hex_fskew	()

#  Purpose          :  This file provides an example of a call to the

#                      function fem_verify_hex_fskew()

#                      This session file creates a new database by the

#                      name new.db. A solid is created and is meshed.

#                      This function is then called to load a graphic

#                      table with face skew values of all hexagonal

#                      elements. Created graphic table is displayed.

#                      This file can be run by starting a session of

#                      Patran, and running this session file

#                      through the "File","Session","Play" pulldown

#                      menus on the menu bar.

#  The function fem_verify_hex_fskew()

#  has the following arguments:

#  fem_verify_hex_fskew

#     (  normalize,

#        threshold,

#        group_name,

#        minimum_value,

#        minimum_id,

#        maximum_value,

#        maximum_id,

#        table_id )

#---------------------------------------------------------------------

#  Variable Declarations

LOGICAL  l_normalize

REAL     r_threshold

STRING   s_group_name[32]

REAL     r_minimum_value

INTEGER  i_minimum_id

REAL     r_maximum_value

INTEGER  i_maximum_id

INTEGER  i_table_id

STRING   sv_created_ids[VIRTUAL]

INTEGER  i_num_fem_nodes

INTEGER  i_num_fem_elements

STRING   sv_fem_nodes_created[VIRTUAL]

STRING   sv_fem_elements_created[VIRTUAL]

INTEGER  i_return_value

#---------------------------------------------------------------------

#  Open a new database "new.db"

uil_file_new.go("","new.db")

$? YES 36000002

#---------------------------------------------------------------------

#  Create a solid

i_return_value =                                 @

   asm_const_hpat_xyz                            @

      (  "1", "<15 15 15>", "[0 0 0]", "Coord 0", sv_created_ids )

dump i_return_value

i_return_value =                                 @

   ga_view_aa_set( 23., -34., 0. )

dump i_return_value

#---------------------------------------------------------------------

#  Create mesh seeds on two edges of the solid

i_return_value =                                 @

   mesh_seed_create                              @

      (  "Solid 1.4.2", 2, 0, 0., 3., 0.)

dump i_return_value

i_return_value =                                 @

   mesh_seed_create                              @

      (  "Solid 1.4.4", 2, 0, 0., 5., 0.)

dump i_return_value

#---------------------------------------------------------------------

#  Mesh the solid

i_return_value =                                 @

   fem_create_mesh_sol_3                         @

      (  "IsoMesh", 0, "Solid 1 ", 1, [5.],      @

         "Hex8", "1", "1", "Coord 0", "Coord 0", @

         i_num_fem_nodes, i_num_fem_elements,    @

         sv_fem_nodes_created, sv_fem_elements_created )

dump i_return_value

#---------------------------------------------------------------------

#  Session file paused. Press "Resume" to continue.

sf_pause()

#---------------------------------------------------------------------

#  Load a graphic table with face skew values of hexagonal elements

l_normalize     = FALSE

r_threshold     = 30.

i_return_value =                                 @

   fem_verify_hex_fskew                          @

      (  l_normalize,                            @

         r_threshold,                            @

         s_group_name,                           @

         r_minimum_value,                        @

         i_minimum_id,                           @

         r_maximum_value,                        @

         i_maximum_id,                           @

         i_table_id )

dump i_return_value

dump s_group_name

dump r_minimum_value

dump i_minimum_id

dump r_maximum_value

dump i_maximum_id

dump i_table_id

#---------------------------------------------------------------------

#  Display the graphic table

fem_verify_display                               @

   (  s_group_name, i_table_id, r_minimum_value, @

      r_maximum_value, r_threshold, "ELEMFILL")

sys_free_string( sv_created_ids)

sys_free_string( sv_fem_nodes_created)

sys_free_string( sv_fem_elements_created)

#---------------------------------------------------------------------


fem_verify_hex_ftaper	()

#  Purpose          :  This file provides an example of a call to the

#                      function fem_verify_hex_ftaper()

#                      This session file creates a new database by the

#                      name new.db. A solid is created and is meshed.

#                      This function is then called to load a graphic

#                      table with face taper values of all hexagonal

#                      elements. Created graphic table is displayed.

#                      This file can be run by starting a session of

#                      Patran, and running this session file

#                      through the "File","Session","Play" pulldown

#                      menus on the menu bar.

#  The function fem_verify_hex_ftaper()

#  has the following arguments:

#  fem_verify_hex_ftaper

#     (  normalize,

#        threshold,

#        group_name,

#        minimum_value,

#        minimum_id,

#        maximum_value,

#        maximum_id,

#        table_id )

#---------------------------------------------------------------------

#  Variable Declarations

LOGICAL  l_normalize

REAL     r_threshold

STRING   s_group_name[32]

REAL     r_minimum_value

INTEGER  i_minimum_id

REAL     r_maximum_value

INTEGER  i_maximum_id

INTEGER  i_table_id

STRING   sv_created_ids[VIRTUAL]

INTEGER  i_num_fem_nodes

INTEGER  i_num_fem_elements

STRING   sv_fem_nodes_created[VIRTUAL]

STRING   sv_fem_elements_created[VIRTUAL]

INTEGER  i_return_value

#---------------------------------------------------------------------

#  Open a new database "new.db"

uil_file_new.go("","new.db")

$? YES 36000002

#---------------------------------------------------------------------

#  Create a solid

i_return_value =                                 @

   asm_const_hpat_xyz                            @

      (  "1", "<15 15 15>", "[0 0 0]", "Coord 0", sv_created_ids )

dump i_return_value

i_return_value =                                 @

   ga_view_aa_set( 23., -34., 0. )

dump i_return_value

#---------------------------------------------------------------------

#  Create mesh seeds on two edges of the solid

i_return_value =                                 @

   mesh_seed_create                              @

      (  "Solid 1.4.2", 2, 0, 0., 3., 0.)

dump i_return_value

i_return_value =                                 @

   mesh_seed_create                              @

      (  "Solid 1.4.4", 2, 0, 0., 5., 0.)

dump i_return_value

#---------------------------------------------------------------------

#  Mesh the solid

i_return_value =                                 @

   fem_create_mesh_sol_3                         @

      (  "IsoMesh", 0, "Solid 1 ", 1, [5.],      @

         "Hex8", "1", "1", "Coord 0", "Coord 0", @

         i_num_fem_nodes, i_num_fem_elements,    @

         sv_fem_nodes_created, sv_fem_elements_created )

dump i_return_value

#---------------------------------------------------------------------

#  Session file paused. Press "Resume" to continue.

sf_pause()

#---------------------------------------------------------------------

#  Load a graphic table with face taper values of hexagonal elements

l_normalize     = FALSE

r_threshold     = 0.8

i_return_value =                                 @

   fem_verify_hex_ftaper                         @

      (  l_normalize,                            @

         r_threshold,                            @

         s_group_name,                           @

         r_minimum_value,                        @

         i_minimum_id,                           @

         r_maximum_value,                        @

         i_maximum_id,                           @

         i_table_id )

dump i_return_value

dump s_group_name

dump r_minimum_value

dump i_minimum_id

dump r_maximum_value

dump i_maximum_id

dump i_table_id

#---------------------------------------------------------------------

#  Display the graphic table

fem_verify_display                               @

   (  s_group_name, i_table_id, r_maximum_value, @

      r_minimum_value, r_threshold, "ELEMFILL")

sys_free_string( sv_created_ids)

sys_free_string( sv_fem_nodes_created)

sys_free_string( sv_fem_elements_created)

#---------------------------------------------------------------------


fem_verify_hex_fwarp	()

#  Purpose          :  This file provides an example of a call to the

#                      function fem_verify_hex_fwarp()

#                      This session file creates a new database by the

#                      name new.db. A solid is created and is meshed.

#                      This function is then called to load a graphic

#                      table with face warp values of all hexagonal

#                      elements. Created graphic table is displayed.

#                      This file can be run by starting a session of

#                      Patran, and running this session file

#                      through the "File","Session","Play" pulldown

#                      menus on the menu bar.

#  The function fem_verify_hex_fwarp()

#  has the following arguments:

#  fem_verify_hex_fwarp

#     (  normalize,

#        threshold,

#        group_name,

#        minimum_value,

#        minimum_id,

#        maximum_value,

#        maximum_id,

#        table_id )

#---------------------------------------------------------------------

#  Variable Declarations

LOGICAL  l_normalize

REAL     r_threshold

STRING   s_group_name[32]

REAL     r_minimum_value

INTEGER  i_minimum_id

REAL     r_maximum_value

INTEGER  i_maximum_id

INTEGER  i_table_id

STRING   sv_created_ids[VIRTUAL]

INTEGER  i_num_fem_nodes

INTEGER  i_num_fem_elements

STRING   sv_fem_nodes_created[VIRTUAL]

STRING   sv_fem_elements_created[VIRTUAL]

INTEGER  i_return_value

#---------------------------------------------------------------------

#  Open a new database "new.db"

uil_file_new.go("","new.db")

$? YES 36000002

#---------------------------------------------------------------------

#  Create a solid

i_return_value =                                 @

   asm_const_hpat_xyz                            @

      (  "1", "<1 1 1>", "[0 0 0]", "Coord 0", sv_created_ids)

dump i_return_value

i_return_value =                                 @

   ga_view_aa_set( 23., -34., 0. )

dump i_return_value

#---------------------------------------------------------------------

#  Create mesh seeds on two edges of the solid

i_return_value =                                 @

   mesh_seed_create                              @

      (  "Solid 1.2.2", 3, 4, 2., 0., 0.)

dump i_return_value

i_return_value =                                 @

   mesh_seed_create                              @

      (  "Solid 1.2.4", 3, 4, 0.5, 0., 0.)

dump i_return_value

#---------------------------------------------------------------------

#  Mesh the solid

i_return_value =                                 @

   fem_create_mesh_sol_3                         @

      (  "IsoMesh", 0, "Solid 1 ", 1, [0.2],     @

         "Hex8", "1", "1", "Coord 0", "Coord 0", @

         i_num_fem_nodes, i_num_fem_elements,    @

         sv_fem_nodes_created, sv_fem_elements_created )

dump i_return_value

#---------------------------------------------------------------------

#  Session file paused. Press "Resume" to continue.

sf_pause()

#---------------------------------------------------------------------

#  Load a graphic table with face warp values of hexagonal elements

l_normalize     = FALSE

r_threshold     = 1.2

i_return_value =                                 @

   fem_verify_hex_fwarp                          @

      (  l_normalize,                            @

         r_threshold,                            @

         s_group_name,                           @

         r_minimum_value,                        @

         i_minimum_id,                           @

         r_maximum_value,                        @

         i_maximum_id,                           @

         i_table_id )

dump i_return_value

dump s_group_name

dump r_minimum_value

dump i_minimum_id

dump r_maximum_value

dump i_maximum_id

dump i_table_id

#---------------------------------------------------------------------

#  Display the graphic table

fem_verify_display                               @

   (  s_group_name, i_table_id, r_minimum_value, @

      r_maximum_value, r_threshold, "ELEMFILL")

sys_free_string( sv_created_ids)

sys_free_string( sv_fem_nodes_created)

sys_free_string( sv_fem_elements_created)

#---------------------------------------------------------------------


fem_verify_hex_twist	()

#  Purpose          :  This file provides an example of a call to the

#                      function fem_verify_hex_twist()

#                      This session file creates a new database by the

#                      name new.db. A solid is created and is meshed.

#                      This function is then called to load a graphic

#                      table with the twist values of all hexagonal

#                      elements. Created graphic table is displayed.

#                      This file can be run by starting a session of

#                      Patran, and running this session file

#                      through the "File","Session","Play" pulldown

#                      menus on the menu bar.

#  The function fem_verify_hex_twist()

#  has the following arguments:

#  fem_verify_hex_twist

#     (  normalize,

#        threshold,

#        group_name,

#        minimum_value,

#        minimum_id,

#        maximum_value,

#        maximum_id,

#        table_id )

#---------------------------------------------------------------------

#  Variable Declarations

LOGICAL  l_normalize

REAL     r_threshold

STRING   s_group_name[32]

REAL     r_minimum_value

INTEGER  i_minimum_id

REAL     r_maximum_value

INTEGER  i_maximum_id

INTEGER  i_table_id

STRING   sv_created_ids[VIRTUAL]

INTEGER  i_num_fem_nodes

INTEGER  i_num_fem_elements

STRING   sv_fem_nodes_created[VIRTUAL]

STRING   sv_fem_elements_created[VIRTUAL]

INTEGER  i_return_value

#---------------------------------------------------------------------

#  Open a new database "new.db"

uil_file_new.go("","new.db")

$? YES 36000002

#---------------------------------------------------------------------

#  Create a solid

i_return_value =                                 @

   asm_const_hpat_xyz                            @

      (  "1", "<15 15 15>", "[0 0 0]", "Coord 0", sv_created_ids )

dump i_return_value

i_return_value =                                 @

   ga_view_aa_set( 23., -34., 0. )

dump i_return_value

#---------------------------------------------------------------------

#  Create mesh seeds on two edges of the solid

i_return_value =                                 @

   mesh_seed_create                              @

      (  "Solid 1.4.2", 2, 0, 0., 3., 0.)

dump i_return_value

i_return_value =                                 @

   mesh_seed_create                              @

      (  "Solid 1.4.4", 2, 0, 0., 5., 0.)

dump i_return_value

#---------------------------------------------------------------------

#  Mesh the solid

i_return_value =                                 @

   fem_create_mesh_sol_3                         @

      (  "IsoMesh", 0, "Solid 1 ", 1, [5.],      @

         "Hex8", "1", "1", "Coord 0", "Coord 0", @

         i_num_fem_nodes, i_num_fem_elements,    @

         sv_fem_nodes_created, sv_fem_elements_created )

dump i_return_value

#---------------------------------------------------------------------

#  Session file paused. Press "Resume" to continue.

sf_pause()

#---------------------------------------------------------------------

#  Load a graphic table with the twist values of hexagonal elements

l_normalize     = FALSE

r_threshold     = 5.

i_return_value =                                 @

   fem_verify_hex_twist                          @

      (  l_normalize,                            @

         r_threshold,                            @

         s_group_name,                           @

         r_minimum_value,                        @

         i_minimum_id,                           @

         r_maximum_value,                        @

         i_maximum_id,                           @

         i_table_id )

dump i_return_value

dump s_group_name

dump r_minimum_value

dump i_minimum_id

dump r_maximum_value

dump i_maximum_id

dump i_table_id

#---------------------------------------------------------------------

#  Display the graphic table

fem_verify_display                               @

   (  s_group_name, i_table_id, r_minimum_value, @

      r_maximum_value, r_threshold, "ELEMFILL")

sys_free_string( sv_created_ids)

sys_free_string( sv_fem_nodes_created)

sys_free_string( sv_fem_elements_created)

#---------------------------------------------------------------------


fem_verify_midnode_normoff	()

#  Purpose          :  This file provides an example of a call to the

#                      function fem_verify_midnode_normoff()

#                      This session file creates a new database by the

#                      name new.db. Two curves and a mesh between the

#                      two curves is created. This function is then

#                      called to load a graphic table with the midnode

#                      normal offset values of all the elements.

#                      Created graphic table is displayed.

#                      This file can be run by starting a session of

#                      Patran, and running this session file

#                      through the "File","Session","Play" pulldown

#                      menus on the menu bar.

#  The function fem_verify_midnode_normoff()

#  has the following arguments:

#  fem_verify_midnode_normoff

#     (  threshold,

#        group_name,

#        minimum_value,

#        minimum_id,

#        maximum_value,

#        maximum_id,

#        table_id )

#---------------------------------------------------------------------

#  Variable Declarations

REAL     r_threshold

STRING   s_group_name[32]

REAL     r_minimum_value

INTEGER  i_minimum_id

REAL     r_maximum_value

INTEGER  i_maximum_id

INTEGER  i_table_id

STRING   sv_created_ids[VIRTUAL]

INTEGER  i_num_fem_nodes

INTEGER  i_num_fem_elements

STRING   sv_fem_nodes_created[VIRTUAL]

STRING   sv_fem_elements_created[VIRTUAL]

INTEGER  i_return_value

#---------------------------------------------------------------------

#  Open a new database "new.db"

uil_file_new.go("","new.db")

$? YES 36000002

#---------------------------------------------------------------------

#  Create two curves

i_return_value =                                 @

   sgm_const_curve_arc3point                     @

      (  "1", FALSE, "[0 0 0]", "[4 10 0]",      @

         "[0 20 0]", sv_created_ids )

dump i_return_value

i_return_value =                                 @

   asm_const_line_2point                         @

      (  "2", "[-20 0 0]", "[-5 20 0]", 0, "",   @

         50., 1, sv_created_ids )

dump i_return_value

#---------------------------------------------------------------------

#  Create a mesh between the two curves

i_return_value =                                 @

   fem_create_mesh_2curve                        @

      (  "Curve 1", "Curve 2", 2, 3., 2, 2,      @

         "Quad8", "1", "1", "Coord 0", "Coord 0",@

         i_num_fem_nodes, i_num_fem_elements,    @

         sv_fem_nodes_created, sv_fem_elements_created )

dump i_return_value

#---------------------------------------------------------------------

#  Session file paused. Press "Resume" to continue.

sf_pause()

#---------------------------------------------------------------------

#  Load graphic table with midnode normal offset values of elements

r_threshold     = 0.05

i_return_value =                                 @

   fem_verify_midnode_normoff                    @

      (  r_threshold,                            @

         s_group_name,                           @

         r_minimum_value,                        @

         i_minimum_id,                           @

         r_maximum_value,                        @

         i_maximum_id,                           @

         i_table_id )

dump i_return_value

dump s_group_name

dump r_minimum_value

dump i_minimum_id

dump r_maximum_value

dump i_maximum_id

dump i_table_id

#---------------------------------------------------------------------

#  Display the graphic table

fem_verify_display                               @

   (  s_group_name, i_table_id, r_minimum_value, @

      r_maximum_value, r_threshold, "ELEMFILL")

sys_free_string( sv_created_ids)

sys_free_string( sv_fem_nodes_created)

sys_free_string( sv_fem_elements_created)

#---------------------------------------------------------------------


fem_verify_midnode_tanoff	()

#  Purpose          :  This file provides an example of a call to the

#                      function fem_verify_midnode_tanoff()

#                      This session file creates a new database by the

#                      name new.db. Two curves and a mesh between the

#                      two curves is created. This function is then

#                      called to load a graphic table with the midnode

#                      tangent offset values of all the elements.

#                      Created graphic table is displayed.

#                      This file can be run by starting a session of

#                      Patran, and running this session file

#                      through the "File","Session","Play" pulldown

#                      menus on the menu bar.

#  The function fem_verify_midnode_tanoff()

#  has the following arguments:

#  fem_verify_midnode_tanoff

#     (  threshold,

#        group_name,

#        minimum_value,

#        minimum_id,

#        maximum_value,

#        maximum_id,

#        table_id )

#---------------------------------------------------------------------

#  Variable Declarations

REAL     r_threshold

STRING   s_group_name[32]

REAL     r_minimum_value

INTEGER  i_minimum_id

REAL     r_maximum_value

INTEGER  i_maximum_id

INTEGER  i_table_id

STRING   sv_created_ids[VIRTUAL]

INTEGER  i_num_fem_nodes

INTEGER  i_num_fem_elements

STRING   sv_fem_nodes_created[VIRTUAL]

STRING   sv_fem_elements_created[VIRTUAL]

INTEGER  i_return_value

#---------------------------------------------------------------------

#  Open a new database "new.db"

uil_file_new.go("","new.db")

$? YES 36000002

#---------------------------------------------------------------------

#  Create two curves

i_return_value =                                 @

   sgm_const_curve_arc3point                     @

      (  "1", FALSE, "[0 0 0]", "[4 10 0]",      @

         "[0 20 0]", sv_created_ids )

dump i_return_value

i_return_value =                                 @

   asm_const_line_2point                         @

      (  "2", "[-30 0 0]", "[-5 20 0]", 0, "",   @

         50., 1, sv_created_ids )

dump i_return_value

#---------------------------------------------------------------------

#  Create a mesh between the two curves

i_return_value =                                 @

   fem_create_mesh_2curve                        @

      (  "Curve 1", "Curve 2", 2, 3., 2, 2,      @

         "Quad8", "1", "1", "Coord 0", "Coord 0",@

         i_num_fem_nodes, i_num_fem_elements,    @

         sv_fem_nodes_created, sv_fem_elements_created )

dump i_return_value

#---------------------------------------------------------------------

#  Session file paused. Press "Resume" to continue.

sf_pause()

#---------------------------------------------------------------------

#  Load graphic table with midnode tangent offset values of elements

r_threshold     = 0.002

i_return_value =                                 @

   fem_verify_midnode_tanoff                     @

      (  r_threshold,                            @

         s_group_name,                           @

         r_minimum_value,                        @

         i_minimum_id,                           @

         r_maximum_value,                        @

         i_maximum_id,                           @

         i_table_id )

dump i_return_value

dump s_group_name

dump r_minimum_value

dump i_minimum_id

dump r_maximum_value

dump i_maximum_id

dump i_table_id

#---------------------------------------------------------------------

#  Display the graphic table

fem_verify_display                               @

   (  s_group_name, i_table_id, r_minimum_value, @

      r_maximum_value, r_threshold, "ELEMFILL")

sys_free_string( sv_created_ids)

sys_free_string( sv_fem_nodes_created)

sys_free_string( sv_fem_elements_created)

#---------------------------------------------------------------------


fem_verify_node_ids	()

#  Purpose          :  This file provides an example of a call to the

#                      function fem_verify_node_ids()

#                      This session file creates a new database by the

#                      name new.db. A surface is created and meshed.

#                      This function is then called to load a graphic

#                      table with values of all nodes as scalar result

#                      values. Created graphic table is displayed.

#                      This file can be run by starting a session of

#                      Patran, and running this session file

#                      through the "File","Session","Play" pulldown

#                      menus on the menu bar.

#  The function fem_verify_node_ids()

#  has the following arguments:

#  fem_verify_node_ids

#     (  group_name,

#        minimum_value,

#        minimum_id,

#        maximum_value,

#        maximum_id,

#        table_id )

#---------------------------------------------------------------------

#  Variable Declarations

STRING   s_group_name[32]

REAL     r_minimum_value

INTEGER  i_minimum_id

REAL     r_maximum_value

INTEGER  i_maximum_id

INTEGER  i_table_id

STRING   sv_created_ids[VIRTUAL]

INTEGER  i_num_fem_nodes

INTEGER  i_num_fem_elements

STRING   sv_fem_nodes_created[VIRTUAL]

STRING   sv_fem_elements_created[VIRTUAL]

INTEGER  i_return_value

#---------------------------------------------------------------------

#  Open a new database "new.db"

uil_file_new.go("","new.db")

$? YES 36000002

#---------------------------------------------------------------------

#  Create a surface

i_return_value =                                 @

   asm_const_patch_xyz                           @

      (  "1", "<1 1 0>", "[0 0 0]", "Coord 0", sv_created_ids)

dump i_return_value

#---------------------------------------------------------------------

#  Mesh the surface

i_return_value =                                 @

   fem_create_mesh_surf_2                        @

      (  "IsoMesh", 0, "Surface 1 ", 1, [0.2],   @

         "Quad4", "1", "1", "Coord 0", "Coord 0",@

         i_num_fem_nodes, i_num_fem_elements,    @

         sv_fem_nodes_created, sv_fem_elements_created )

dump i_return_value

#---------------------------------------------------------------------

#  Session file paused. Press "Resume" to continue.

sf_pause()

#---------------------------------------------------------------------

#  Load the graphic table with the id values of all the nodes

i_return_value =                                 @

   fem_verify_node_ids                           @

      (  s_group_name,                           @

         r_minimum_value,                        @

         i_minimum_id,                           @

         r_maximum_value,                        @

         i_maximum_id,                           @

         i_table_id )

dump i_return_value

dump s_group_name

dump r_minimum_value

dump i_minimum_id

dump r_maximum_value

dump i_maximum_id

dump i_table_id

#---------------------------------------------------------------------

#  Display the graphic table

fem_verify_ids_display                           @

   (  s_group_name, i_table_id, r_minimum_value, @

      r_maximum_value, "FRINGE" )

sys_free_string(sv_created_ids)

sys_free_string(sv_fem_nodes_created)

sys_free_string(sv_fem_elements_created)

#---------------------------------------------------------------------


fem_verify_quad_all	()

#  Purpose          :  This file provides an example of a call to the

#                      function fem_verify_quad_all()

#                      This session file creates a new database by the

#                      name new.db. A surface is created and meshed.

#                      This function is then called to run all the

#                      verification tests for all quadrilateral

#                      elements.

#                      This file can be run by starting a session of

#                      Patran, and running this session file

#                      through the "File","Session","Play" pulldown

#                      menus on the menu bar.

#  The function fem_verify_quad_all()

#  has the following arguments:

#  fem_verify_quad_all

#     (  threshold,

#        num_failures,

#        worst_value,

#        worst_id )

#---------------------------------------------------------------------

#  Variable Declarations

REAL     ra_threshold(8)

INTEGER  ia_num_failures(8)

REAL     ra_worst_value(8)

INTEGER  ia_worst_id(8)

STRING   sv_created_ids[VIRTUAL]

INTEGER  i_num_fem_nodes

INTEGER  i_num_fem_elements

STRING   sv_fem_nodes_created[VIRTUAL]

STRING   sv_fem_elements_created[VIRTUAL]

INTEGER  i_return_value

#---------------------------------------------------------------------

#  Open a new database "new.db"

uil_file_new.go("","new.db")

$? YES 36000002

#---------------------------------------------------------------------

#  Create a surface

i_return_value =                                 @

   sgm_const_surface_vertex                      @

      (  "1", "[0 0 2]", "[0 5 2]", "[5 0 0]",   @

         "[5 2 5]", sv_created_ids )

dump i_return_value

i_return_value =                                 @

   ga_view_aa_set( -140., -30., 25. )

dump i_return_value

#---------------------------------------------------------------------

#  Mesh the surface

i_return_value =                                 @

   fem_create_mesh_surf_2                        @

      (  "IsoMesh", 0, "Surface 1 ", 1, [0.8],   @

         "Quad4", "1", "1", "Coord 0", "Coord 0",@

         i_num_fem_nodes, i_num_fem_elements,    @

         sv_fem_nodes_created, sv_fem_elements_created )

dump i_return_value

#---------------------------------------------------------------------

#  Session file paused. Press "Resume" to continue.

sf_pause()

#---------------------------------------------------------------------

#  Run all the verification tests for all quadrilateral elements

ra_threshold = [ 1.5, 7., 30., 0.92, 0.2, 0.2, 0., 0.]

i_return_value =                                 @

   fem_verify_quad_all                           @

      (  ra_threshold,                           @

         ia_num_failures,                        @

         ra_worst_value,                         @

         ia_worst_id )

dump i_return_value

dump ia_num_failures

dump ra_worst_value

dump ia_worst_id

sys_free_string( sv_created_ids)

sys_free_string( sv_fem_nodes_created)

sys_free_string( sv_fem_elements_created)

#---------------------------------------------------------------------


fem_verify_quad_aspect	()

#  Purpose          :  This file provides an example of a call to the

#                      function fem_verify_quad_aspect()

#                      This session file creates a new database by the

#                      name new.db. A surface is created and meshed.

#                      This function is then called to load a graphic

#                      table with aspect ratio values of quadrilateral

#                      elements. Created graphic table is displayed.

#                      This file can be run by starting a session of

#                      Patran, and running this session file

#                      through the "File","Session","Play" pulldown

#                      menus on the menu bar.

#  The function fem_verify_quad_aspect()

#  has the following arguments:

#  fem_verify_quad_aspect

#     (  normalize,

#        threshold,

#        split,

#        group_name,

#        minimum_value,

#        minimum_id,

#        maximum_value,

#        maximum_id,

#        created_elements,

#        created_nodes,

#        table_id )

#---------------------------------------------------------------------

#  Variable Declarations

LOGICAL  l_normalize

REAL     r_threshold

LOGICAL  l_split

STRING   s_group_name[32]

REAL     r_minimum_value

INTEGER  i_minimum_id

REAL     r_maximum_value

INTEGER  i_maximum_id

STRING   sv_created_elements[VIRTUAL]

STRING   sv_created_nodes[VIRTUAL]

INTEGER  i_table_id

STRING   sv_created_ids[VIRTUAL]

INTEGER  i_num_fem_nodes

INTEGER  i_num_fem_elements

STRING   sv_fem_nodes_created[VIRTUAL]

STRING   sv_fem_elements_created[VIRTUAL]

INTEGER  i_return_value

#---------------------------------------------------------------------

#  Open a new database "new.db"

uil_file_new.go("","new.db")

$? YES 36000002

#---------------------------------------------------------------------

#  Create a surface

i_return_value =                                 @

   sgm_const_surface_vertex                      @

      (  "1", "[0 0 2]", "[0 5 2]", "[5 0 0]",   @

         "[5 2 5]", sv_created_ids )

dump i_return_value

i_return_value =                                 @

   ga_view_aa_set( -140., -30., 25. )

dump i_return_value

#---------------------------------------------------------------------

#  Mesh the surface

i_return_value =                                 @

   fem_create_mesh_surf_2                        @

      (  "IsoMesh", 0, "Surface 1 ", 1, [0.8],   @

         "Quad4", "1", "1", "Coord 0", "Coord 0",@

         i_num_fem_nodes, i_num_fem_elements,    @

         sv_fem_nodes_created, sv_fem_elements_created )

dump i_return_value

#---------------------------------------------------------------------

#  Session file paused. Press "Resume" to continue.

sf_pause()

#---------------------------------------------------------------------

#  Load a graphic table with aspect ratios of quadrilateral elements

l_normalize     = FALSE

r_threshold     = 1.75

l_split         = TRUE

i_return_value =                                 @

   fem_verify_quad_aspect                        @

      (  l_normalize,                            @

         r_threshold,                            @

         l_split,                                @

         s_group_name,                           @

         r_minimum_value,                        @

         i_minimum_id,                           @

         r_maximum_value,                        @

         i_maximum_id,                           @

         sv_created_elements,                    @

         sv_created_nodes,                       @

         i_table_id )

dump i_return_value

dump s_group_name

dump r_minimum_value

dump i_minimum_id

dump r_maximum_value

dump i_maximum_id

dump sv_created_elements

dump sv_created_nodes

dump i_table_id

#---------------------------------------------------------------------

#  Display the graphic table

fem_verify_display                               @

   (  s_group_name, i_table_id, r_minimum_value, @

      r_maximum_value, r_threshold, "ELEMFILL")

sys_free_string(sv_created_elements)

sys_free_string(sv_created_nodes)

sys_free_string( sv_created_ids)

sys_free_string( sv_fem_nodes_created)

sys_free_string( sv_fem_elements_created)

#---------------------------------------------------------------------


fem_verify_quad_skew	()

#  Purpose          :  This file provides an example of a call to the

#                      function fem_verify_quad_skew()

#                      This session file creates a new database by the

#                      name new.db. A surface is created and meshed.

#                      This function is then called to load a graphic

#                      table with skew angle values of quadrilateral

#                      elements. Created graphic table is displayed.

#                      This file can be run by starting a session of

#                      Patran, and running this session file

#                      through the "File","Session","Play" pulldown

#                      menus on the menu bar.

#  The function fem_verify_quad_skew()

#  has the following arguments:

#  fem_verify_quad_skew

#     (  normalize,

#        threshold,

#        split,

#        group_name,

#        minimum_value,

#        minimum_id,

#        maximum_value,

#        maximum_id,

#        created_elements,

#        created_nodes,

#        table_id )

#---------------------------------------------------------------------

#  Variable Declarations

LOGICAL  l_normalize

REAL     r_threshold

LOGICAL  l_split

STRING   s_group_name[32]

REAL     r_minimum_value

INTEGER  i_minimum_id

REAL     r_maximum_value

INTEGER  i_maximum_id

STRING   sv_created_elements[VIRTUAL]

STRING   sv_created_nodes[VIRTUAL]

INTEGER  i_table_id

STRING   sv_created_ids[VIRTUAL]

INTEGER  i_num_fem_nodes

INTEGER  i_num_fem_elements

STRING   sv_fem_nodes_created[VIRTUAL]

STRING   sv_fem_elements_created[VIRTUAL]

INTEGER  i_return_value

#---------------------------------------------------------------------

#  Open a new database "new.db"

uil_file_new.go("","new.db")

$? YES 36000002

#---------------------------------------------------------------------

#  Create a surface

i_return_value =                                 @

   sgm_const_surface_vertex                      @

      (  "1", "[0 0 2]", "[0 5 2]", "[5 0 0]",   @

         "[5 2 5]", sv_created_ids )

dump i_return_value

i_return_value =                                 @

   ga_view_aa_set( -140., -30., 25. )

dump i_return_value

#---------------------------------------------------------------------

#  Mesh the surface

i_return_value =                                 @

   fem_create_mesh_surf_2                        @

      (  "IsoMesh", 0, "Surface 1 ", 1, [0.8],   @

         "Quad4", "1", "1", "Coord 0", "Coord 0",@

         i_num_fem_nodes, i_num_fem_elements,    @

         sv_fem_nodes_created, sv_fem_elements_created )

dump i_return_value

#---------------------------------------------------------------------

#  Session file paused. Press "Resume" to continue.

sf_pause()

#---------------------------------------------------------------------

#  Load graphic table with skew angle values of quadrilateral elements

l_normalize     = FALSE

r_threshold     = 35.

l_split         = TRUE

i_return_value =                                 @

   fem_verify_quad_skew                          @

      (  l_normalize,                            @

         r_threshold,                            @

         l_split,                                @

         s_group_name,                           @

         r_minimum_value,                        @

         i_minimum_id,                           @

         r_maximum_value,                        @

         i_maximum_id,                           @

         sv_created_elements,                    @

         sv_created_nodes,                       @

         i_table_id )

dump i_return_value

dump s_group_name

dump r_minimum_value

dump i_minimum_id

dump r_maximum_value

dump i_maximum_id

dump sv_created_elements

dump sv_created_nodes

dump i_table_id

#---------------------------------------------------------------------

#  Display the graphic table

fem_verify_display                               @

   (  s_group_name, i_table_id, r_minimum_value, @

      r_maximum_value, r_threshold, "ELEMFILL")

sys_free_string(sv_created_elements)

sys_free_string(sv_created_nodes)

sys_free_string( sv_created_ids)

sys_free_string( sv_fem_nodes_created)

sys_free_string( sv_fem_elements_created)

#---------------------------------------------------------------------


fem_verify_quad_taper	()

#  Purpose          :  This file provides an example of a call to the

#                      function fem_verify_quad_taper()

#                      This session file creates a new database by the

#                      name new.db. A surface is created and meshed.

#                      This function is then called to load a graphic

#                      table with taper angle values of quadrilateral

#                      elements. Created graphic table is displayed.

#                      This file can be run by starting a session of

#                      Patran, and running this session file

#                      through the "File","Session","Play" pulldown

#                      menus on the menu bar.

#  The function fem_verify_quad_taper()

#  has the following arguments:

#  fem_verify_quad_taper

#     (  normalize,

#        threshold,

#        split,

#        group_name,

#        minimum_value,

#        minimum_id,

#        maximum_value,

#        maximum_id,

#        created_elements,

#        created_nodes,

#        table_id )

#---------------------------------------------------------------------

#  Variable Declarations

LOGICAL  l_normalize

REAL     r_threshold

LOGICAL  l_split

STRING   s_group_name[32]

REAL     r_minimum_value

INTEGER  i_minimum_id

REAL     r_maximum_value

INTEGER  i_maximum_id

STRING   sv_created_elements[VIRTUAL]

STRING   sv_created_nodes[VIRTUAL]

INTEGER  i_table_id

STRING   sv_created_ids[VIRTUAL]

INTEGER  i_num_fem_nodes

INTEGER  i_num_fem_elements

STRING   sv_fem_nodes_created[VIRTUAL]

STRING   sv_fem_elements_created[VIRTUAL]

INTEGER  i_return_value

#---------------------------------------------------------------------

#  Open a new database "new.db"

uil_file_new.go("","new.db")

$? YES 36000002

#---------------------------------------------------------------------

#  Create a surface

i_return_value =                                 @

   sgm_const_surface_vertex                      @

      (  "1", "[0 0 2]", "[0 5 2]", "[5 0 0]",   @

         "[5 2 5]", sv_created_ids )

dump i_return_value

i_return_value =                                 @

   ga_view_aa_set( -140., -30., 25. )

dump i_return_value

#---------------------------------------------------------------------

#  Mesh the surface

i_return_value =                                 @

   fem_create_mesh_surf_2                        @

      (  "IsoMesh", 0, "Surface 1 ", 1, [0.8],   @

         "Quad4", "1", "1", "Coord 0", "Coord 0",@

         i_num_fem_nodes, i_num_fem_elements,    @

         sv_fem_nodes_created, sv_fem_elements_created )

dump i_return_value

#---------------------------------------------------------------------

#  Session file paused. Press "Resume" to continue.

sf_pause()

#---------------------------------------------------------------------

#  Load graphic table with taper angle value of quadrilateral elements

l_normalize     = FALSE

r_threshold     = 0.917

l_split         = TRUE

i_return_value =                                 @

   fem_verify_quad_taper                         @

      (  l_normalize,                            @

         r_threshold,                            @

         l_split,                                @

         s_group_name,                           @

         r_minimum_value,                        @

         i_minimum_id,                           @

         r_maximum_value,                        @

         i_maximum_id,                           @

         sv_created_elements,                    @

         sv_created_nodes,                       @

         i_table_id )

dump i_return_value

dump s_group_name

dump r_minimum_value

dump i_minimum_id

dump r_maximum_value

dump i_maximum_id

dump sv_created_elements

dump sv_created_nodes

dump i_table_id

#---------------------------------------------------------------------

#  Display the graphic table

fem_verify_display                               @

   (  s_group_name, i_table_id, r_maximum_value, @

      r_minimum_value, r_threshold, "ELEMFILL")

sys_free_string(sv_created_elements)

sys_free_string(sv_created_nodes)

sys_free_string( sv_created_ids)

sys_free_string( sv_fem_nodes_created)

sys_free_string( sv_fem_elements_created)

#---------------------------------------------------------------------


fem_verify_quad_warp	()

#  Purpose          :  This file provides an example of a call to the

#                      function fem_verify_quad_warp()

#                      This session file creates a new database by the

#                      name new.db. A surface is created and meshed.

#                      This function is then called to load a graphic

#                      table with warp angle values of quadrilateral

#                      elements. Created graphic table is displayed.

#                      This file can be run by starting a session of

#                      Patran, and running this session file

#                      through the "File","Session","Play" pulldown

#                      menus on the menu bar.

#  The function fem_verify_quad_warp()

#  has the following arguments:

#  fem_verify_quad_warp

#     (  normalize,

#        threshold,

#        split,

#        group_name,

#        minimum_value,

#        minimum_id,

#        maximum_value,

#        maximum_id,

#        created_elements,

#        created_nodes,

#        table_id )

#---------------------------------------------------------------------

#  Variable Declarations

LOGICAL  l_normalize

REAL     r_threshold

LOGICAL  l_split

STRING   s_group_name[32]

REAL     r_minimum_value

INTEGER  i_minimum_id

REAL     r_maximum_value

INTEGER  i_maximum_id

STRING   sv_created_elements[VIRTUAL]

STRING   sv_created_nodes[VIRTUAL]

INTEGER  i_table_id

STRING   sv_created_ids[VIRTUAL]

INTEGER  i_num_fem_nodes

INTEGER  i_num_fem_elements

STRING   sv_fem_nodes_created[VIRTUAL]

STRING   sv_fem_elements_created[VIRTUAL]

INTEGER  i_return_value

#---------------------------------------------------------------------

#  Open a new database "new.db"

uil_file_new.go("","new.db")

$? YES 36000002

#---------------------------------------------------------------------

#  Create a surface

i_return_value =                                 @

   sgm_const_surface_vertex                      @

      (  "1", "[0 0 2]", "[0 5 2]", "[5 0 0]",   @

         "[5 2 5]", sv_created_ids )

dump i_return_value

i_return_value =                                 @

   ga_view_aa_set( -140., -30., 25. )

dump i_return_value

#---------------------------------------------------------------------

#  Mesh the surface

i_return_value =                                 @

   fem_create_mesh_surf_2                        @

      (  "IsoMesh", 0, "Surface 1 ", 1, [0.8],   @

         "Quad4", "1", "1", "Coord 0", "Coord 0",@

         i_num_fem_nodes, i_num_fem_elements,    @

         sv_fem_nodes_created, sv_fem_elements_created )

dump i_return_value

#---------------------------------------------------------------------

#  Session file paused. Press "Resume" to continue.

sf_pause()

#---------------------------------------------------------------------

#  Load graphic table with warp angle values of quadrilateral elements

l_normalize     = FALSE

r_threshold     = 9.2

l_split         = TRUE

i_return_value =                                 @

   fem_verify_quad_warp                          @

      (  l_normalize,                            @

         r_threshold,                            @

         l_split,                                @

         s_group_name,                           @

         r_minimum_value,                        @

         i_minimum_id,                           @

         r_maximum_value,                        @

         i_maximum_id,                           @

         sv_created_elements,                    @

         sv_created_nodes,                       @

         i_table_id )

dump i_return_value

dump s_group_name

dump r_minimum_value

dump i_minimum_id

dump r_maximum_value

dump i_maximum_id

dump sv_created_elements

dump sv_created_nodes

dump i_table_id

#---------------------------------------------------------------------

#  Display the graphic table

fem_verify_display                               @

   (  s_group_name, i_table_id, r_minimum_value, @

      r_maximum_value, r_threshold, "ELEMFILL")

sys_free_string(sv_created_elements)

sys_free_string(sv_created_nodes)

sys_free_string( sv_created_ids)

sys_free_string( sv_fem_nodes_created)

sys_free_string( sv_fem_elements_created)

#---------------------------------------------------------------------


fem_verify_reset_graphics	()

#  Purpose          :  This file provides an example of a call to the

#                      function fem_verify_reset_graphics()

#                      This session file creates a new database by the

#                      name new.db. A solid is created and is meshed

#                      An element verification procedure is carried

#                      out and created graphic table is displayed.

#                      Graphic display settings are retrieved before

#                      displaying. This function is then called to

#                      reset graphic parameters in the viewport using

#                      the retrieved settings.

#                      This file can be run by starting a session of

#                      Patran, and running this session file

#                      through the "File","Session","Play" pulldown

#                      menus on the menu bar.

#  The function fem_verify_reset_graphics()

#  has the following arguments:

#  fem_verify_reset_graphics

#     (  render_style,

#        group_name,

#        spectrum_set,

#        viewport_name )

#---------------------------------------------------------------------

#  Variable Declarations

STRING   s_render_style[32]

STRING   s_group_name[32]

INTEGER  i_spectrum_set

STRING   s_viewport_name[32]

INTEGER  i_display_method

REAL     r_minimum_value

INTEGER  i_minimum_id

REAL     r_maximum_value

INTEGER  i_maximum_id

INTEGER  i_table_id

STRING   sv_created_ids[VIRTUAL]

INTEGER  i_num_fem_nodes

INTEGER  i_num_fem_elements

STRING   sv_fem_nodes_created[VIRTUAL]

STRING   sv_fem_elements_created[VIRTUAL]

INTEGER  i_return_value

#---------------------------------------------------------------------

#  Open a new database "new.db"

uil_file_new.go("","new.db")

$? YES 36000002

#---------------------------------------------------------------------

#  Create a solid

i_return_value =                                 @

   asm_const_hpat_xyz                            @

      (  "1", "<15 15 15>", "[0 0 0]", "Coord 0", sv_created_ids )

dump i_return_value

i_return_value =                                 @

   ga_view_aa_set( 23., -34., 0. )

dump i_return_value

#---------------------------------------------------------------------

#  Create mesh seeds on two edges of the solid

i_return_value =                                 @

   mesh_seed_create                              @

      (  "Solid 1.4.2", 2, 0, 0., 3., 0.)

dump i_return_value

i_return_value =                                 @

   mesh_seed_create                              @

      (  "Solid 1.4.4", 2, 0, 0., 5., 0.)

dump i_return_value

#---------------------------------------------------------------------

#  Mesh the solid

i_return_value =                                 @

   fem_create_mesh_sol_3                         @

      (  "IsoMesh", 0, "Solid 1 ", 1, [5.],      @

         "Hex8", "1", "1", "Coord 0", "Coord 0", @

         i_num_fem_nodes, i_num_fem_elements,    @

         sv_fem_nodes_created, sv_fem_elements_created )

dump i_return_value

#---------------------------------------------------------------------

#  Retrieve the graphics display settings for restoring later

i_return_value =                                 @

   fem_verify_get_graphset                       @

      (  i_display_method, s_group_name,         @

         s_render_style, s_viewport_name, i_spectrum_set )

dump i_return_value

#---------------------------------------------------------------------

#  Session file paused. Press "Resume" to continue.

sf_pause()

#---------------------------------------------------------------------

#  Create a graphic table having Jacobian ratio values of all elements

i_return_value =                                 @

   fem_verify_elem_jacobratio                    @

      (  s_group_name, r_minimum_value,          @

         i_minimum_id, r_maximum_value, i_maximum_id, i_table_id )

dump i_return_value

#---------------------------------------------------------------------

#  Display the created graphic table

fem_verify_ids_display                           @

   (  s_group_name, i_table_id, r_minimum_value, @

      r_maximum_value, "ELEMFILL")

#---------------------------------------------------------------------

#  Session file paused. Press "Resume" to continue.

sf_pause()

#---------------------------------------------------------------------

#  Reset graphic parameters using retrieved graphics display settings

i_return_value =                                 @

   fem_verify_reset_graphics                     @

      (  s_render_style,                         @

         s_group_name,                           @

         i_spectrum_set,                         @

         s_viewport_name )

dump i_return_value

sys_free_string( sv_created_ids)

sys_free_string( sv_fem_nodes_created)

sys_free_string( sv_fem_elements_created)

#---------------------------------------------------------------------


fem_verify_tet_all	()

#  Purpose          :  This file provides an example of a call to the

#                      function fem_verify_tet_all()

#                      This session file creates a new database by the

#                      name new.db. A solid is created and is meshed.

#                      This function is then called to run all the

#                      verification tests for all tetrahedral elements

#                      This file can be run by starting a session of

#                      Patran, and running this session file

#                      through the "File","Session","Play" pulldown

#                      menus on the menu bar.

#  The function fem_verify_tet_all()

#  has the following arguments:

#  fem_verify_tet_all

#     (  threshold,

#        num_failures,

#        worst_value,

#        worst_id )

#---------------------------------------------------------------------

#  Variable Declarations

REAL     ra_threshold(8)

INTEGER  ia_num_failures(8)

REAL     ra_worst_value(8)

INTEGER  ia_worst_id(8)

STRING   sv_created_ids[VIRTUAL]

INTEGER  i_num_fem_nodes

INTEGER  i_num_fem_elements

STRING   sv_fem_nodes_created[VIRTUAL]

STRING   sv_fem_elements_created[VIRTUAL]

INTEGER  i_return_value

#---------------------------------------------------------------------

#  Open a new database "new.db"

uil_file_new.go("","new.db")

$? YES 36000002

#---------------------------------------------------------------------

#  Create a solid

i_return_value =                                 @

   asm_const_hpat_xyz                            @

      (  "1", "<3 3 3>", "[0 0 0]", "Coord 0", sv_created_ids)

dump i_return_value

i_return_value =                                 @

   ga_view_aa_set( 23., -34., 0. )

dump i_return_value

#---------------------------------------------------------------------

#  Create mesh seeds on two edges of the solid

i_return_value =                                 @

   mesh_seed_create                              @

      (  "Solid 1.4.2", 1, 2, 0., 0., 0.)

dump i_return_value

i_return_value =                                 @

   mesh_seed_create                              @

      (  "Solid 1.4.4", 1, 4, 0., 0., 0.)

dump i_return_value

#---------------------------------------------------------------------

#  Mesh the solid

i_return_value =                                 @

   fem_create_mesh_sol_3                         @

      (  "IsoMesh", 0, "Solid 1 ", 1, [1.],      @

         "Tet4", "1", "1", "Coord 0", "Coord 0", @

         i_num_fem_nodes, i_num_fem_elements,    @

         sv_fem_nodes_created, sv_fem_elements_created )

dump i_return_value

#---------------------------------------------------------------------

#  Session file paused. Press "Resume" to continue.

sf_pause()

#---------------------------------------------------------------------

#  Run all the verification tests for all tetrahedral elements

ra_threshold = [ 1.8, 60., 60., 0.3, 0.2, 0.2, 0., 0.]

i_return_value =                                 @

   fem_verify_tet_all                            @

      (  ra_threshold,                           @

         ia_num_failures,                        @

         ra_worst_value,                         @

         ia_worst_id )

dump i_return_value

dump ia_num_failures

dump ra_worst_value

dump ia_worst_id

sys_free_string( sv_created_ids)

sys_free_string( sv_fem_nodes_created)

sys_free_string( sv_fem_elements_created)

#---------------------------------------------------------------------


fem_verify_tet_aspect	()

#  Purpose          :  This file provides an example of a call to the

#                      function fem_verify_tet_aspect()

#                      This session file creates a new database by the

#                      name new.db. A solid is created and is meshed.

#                      This function is then called to load a graphic

#                      table with aspect ratio values of tetrahedral

#                      elements. Created graphic table is displayed.

#                      This file can be run by starting a session of

#                      Patran, and running this session file

#                      through the "File","Session","Play" pulldown

#                      menus on the menu bar.

#  The function fem_verify_tet_aspect()

#  has the following arguments:

#  fem_verify_tet_aspect

#     (  normalize,

#        threshold,

#        group_name,

#        minimum_value,

#        minimum_id,

#        maximum_value,

#        maximum_id,

#        table_id )

#---------------------------------------------------------------------

#  Variable Declarations

LOGICAL  l_normalize

REAL     r_threshold

STRING   s_group_name[32]

REAL     r_minimum_value

INTEGER  i_minimum_id

REAL     r_maximum_value

INTEGER  i_maximum_id

INTEGER  i_table_id

STRING   sv_created_ids[VIRTUAL]

INTEGER  i_num_fem_nodes

INTEGER  i_num_fem_elements

STRING   sv_fem_nodes_created[VIRTUAL]

STRING   sv_fem_elements_created[VIRTUAL]

INTEGER  i_return_value

#---------------------------------------------------------------------

#  Open a new database "new.db"

uil_file_new.go("","new.db")

$? YES 36000002

#---------------------------------------------------------------------

#  Create a solid

i_return_value =                                 @

   asm_const_hpat_xyz                            @

      (  "1", "<3 3 3>", "[0 0 0]", "Coord 0", sv_created_ids)

dump i_return_value

i_return_value =                                 @

   ga_view_aa_set( 23., -34., 0. )

dump i_return_value

#---------------------------------------------------------------------

#  Create mesh seeds on two edges of the solid

i_return_value =                                 @

   mesh_seed_create                              @

      (  "Solid 1.4.2", 1, 2, 0., 0., 0.)

dump i_return_value

i_return_value =                                 @

   mesh_seed_create                              @

      (  "Solid 1.4.4", 1, 4, 0., 0., 0.)

dump i_return_value

#---------------------------------------------------------------------

#  Mesh the solid

i_return_value =                                 @

   fem_create_mesh_sol_3                         @

      (  "IsoMesh", 0, "Solid 1 ", 1, [1.],      @

         "Tet4", "1", "1", "Coord 0", "Coord 0", @

         i_num_fem_nodes, i_num_fem_elements,    @

         sv_fem_nodes_created, sv_fem_elements_created )

dump i_return_value

#---------------------------------------------------------------------

#  Session file paused. Press "Resume" to continue.

sf_pause()

#---------------------------------------------------------------------

#  Load graphic table with aspect ratio values of tetrahedral elements

l_normalize     = FALSE

r_threshold     = 1.8

i_return_value =                                 @

   fem_verify_tet_aspect                         @

      (  l_normalize,                            @

         r_threshold,                            @

         s_group_name,                           @

         r_minimum_value,                        @

         i_minimum_id,                           @

         r_maximum_value,                        @

         i_maximum_id,                           @

         i_table_id )

dump i_return_value

dump s_group_name

dump r_minimum_value

dump i_minimum_id

dump r_maximum_value

dump i_maximum_id

dump i_table_id

#---------------------------------------------------------------------

#  Display the graphic table

fem_verify_display                               @

   (  s_group_name, i_table_id, r_minimum_value, @

      r_maximum_value, r_threshold, "ELEMFILL")

sys_free_string( sv_created_ids)

sys_free_string( sv_fem_nodes_created)

sys_free_string( sv_fem_elements_created)

#---------------------------------------------------------------------


fem_verify_tet_collapse	()

#  Purpose          :  This file provides an example of a call to the

#                      function fem_verify_tet_collapse()

#                      This session file creates a new database by the

#                      name new.db. A solid is created and is meshed.

#                      This function is then called to load a graphic

#                      table with collapse values of all tetrahedral

#                      elements. Created graphic table is displayed.

#                      This file can be run by starting a session of

#                      Patran, and running this session file

#                      through the "File","Session","Play" pulldown

#                      menus on the menu bar.

#  The function fem_verify_tet_collapse()

#  has the following arguments:

#  fem_verify_tet_collapse

#     (  normalize,

#        threshold,

#        group_name,

#        minimum_value,

#        minimum_id,

#        maximum_value,

#        maximum_id,

#        table_id )

#---------------------------------------------------------------------

#  Variable Declarations

LOGICAL  l_normalize

REAL     r_threshold

STRING   s_group_name[32]

REAL     r_minimum_value

INTEGER  i_minimum_id

REAL     r_maximum_value

INTEGER  i_maximum_id

INTEGER  i_table_id

STRING   sv_created_ids[VIRTUAL]

INTEGER  i_num_fem_nodes

INTEGER  i_num_fem_elements

STRING   sv_fem_nodes_created[VIRTUAL]

STRING   sv_fem_elements_created[VIRTUAL]

INTEGER  i_return_value

#---------------------------------------------------------------------

#  Open a new database "new.db"

uil_file_new.go("","new.db")

$? YES 36000002

#---------------------------------------------------------------------

#  Create a solid

i_return_value =                                 @

   asm_const_hpat_xyz                            @

      (  "1", "<3 3 3>", "[0 0 0]", "Coord 0", sv_created_ids)

dump i_return_value

i_return_value =                                 @

   ga_view_aa_set( -67., 0., -34.)

dump i_return_value

#---------------------------------------------------------------------

#  Create mesh seeds on two edges of the solid

i_return_value =                                 @

   mesh_seed_create                              @

      (  "Solid 1.4.2", 1, 2, 0., 0., 0.)

dump i_return_value

i_return_value =                                 @

   mesh_seed_create                              @

      (  "Solid 1.4.4", 1, 4, 0., 0., 0.)

dump i_return_value

#---------------------------------------------------------------------

#  Mesh the solid

i_return_value =                                 @

   fem_create_mesh_sol_3                         @

      (  "IsoMesh", 0, "Solid 1 ", 1, [1.],      @

         "Tet4", "1", "1", "Coord 0", "Coord 0", @

         i_num_fem_nodes, i_num_fem_elements,    @

         sv_fem_nodes_created, sv_fem_elements_created )

dump i_return_value

#---------------------------------------------------------------------

#  Session file paused. Press "Resume" to continue.

sf_pause()

#---------------------------------------------------------------------

#  Load graphic table with collapse values of all tetrahedral elements

l_normalize     = FALSE

r_threshold     = 0.3

i_return_value =                                 @

   fem_verify_tet_collapse                       @

      (  l_normalize,                            @

         r_threshold,                            @

         s_group_name,                           @

         r_minimum_value,                        @

         i_minimum_id,                           @

         r_maximum_value,                        @

         i_maximum_id,                           @

         i_table_id )

dump i_return_value

dump s_group_name

dump r_minimum_value

dump i_minimum_id

dump r_maximum_value

dump i_maximum_id

dump i_table_id

#---------------------------------------------------------------------

#  Display the graphic table

fem_verify_display                               @

   (  s_group_name, i_table_id, r_maximum_value, @

      r_minimum_value, r_threshold, "ELEMFILL")

sys_free_string( sv_created_ids)

sys_free_string( sv_fem_nodes_created)

sys_free_string( sv_fem_elements_created)

#---------------------------------------------------------------------


fem_verify_tet_edangle	()

#  Purpose          :  This file provides an example of a call to the

#                      function fem_verify_tet_edangle()

#                      This session file creates a new database by the

#                      name new.db. A solid is created and is meshed.

#                      This function is then called to load a graphic

#                      table with edge angle values of all tetrahedral

#                      elements. Created graphic table is displayed.

#                      This file can be run by starting a session of

#                      Patran, and running this session file

#                      through the "File","Session","Play" pulldown

#                      menus on the menu bar.

#  The function fem_verify_tet_edangle()

#  has the following arguments:

#  fem_verify_tet_edangle

#     (  normalize,

#        threshold,

#        group_name,

#        minimum_value,

#        minimum_id,

#        maximum_value,

#        maximum_id,

#        table_id )

#---------------------------------------------------------------------

#  Variable Declarations

LOGICAL  l_normalize

REAL     r_threshold

STRING   s_group_name[32]

REAL     r_minimum_value

INTEGER  i_minimum_id

REAL     r_maximum_value

INTEGER  i_maximum_id

INTEGER  i_table_id

STRING   sv_created_ids[VIRTUAL]

INTEGER  i_num_fem_nodes

INTEGER  i_num_fem_elements

STRING   sv_fem_nodes_created[VIRTUAL]

STRING   sv_fem_elements_created[VIRTUAL]

INTEGER  i_return_value

#---------------------------------------------------------------------

#  Open a new database "new.db"

uil_file_new.go("","new.db")

$? YES 36000002

#---------------------------------------------------------------------

#  Create a solid

i_return_value =                                 @

   asm_const_hpat_xyz                            @

      (  "1", "<3 3 3>", "[0 0 0]", "Coord 0", sv_created_ids)

dump i_return_value

i_return_value =                                 @

   ga_view_aa_set( -150., -50., 0.)

dump i_return_value

#---------------------------------------------------------------------

#  Create mesh seeds on two edges of the solid

i_return_value =                                 @

   mesh_seed_create                              @

      (  "Solid 1.4.2", 1, 2, 0., 0., 0.)

dump i_return_value

i_return_value =                                 @

   mesh_seed_create                              @

      (  "Solid 1.4.4", 1, 4, 0., 0., 0.)

dump i_return_value

#---------------------------------------------------------------------

#  Mesh the solid

i_return_value =                                 @

   fem_create_mesh_sol_3                         @

      (  "IsoMesh", 0, "Solid 1 ", 1, [1.],      @

         "Tet4", "1", "1", "Coord 0", "Coord 0", @

         i_num_fem_nodes, i_num_fem_elements,    @

         sv_fem_nodes_created, sv_fem_elements_created )

dump i_return_value

#---------------------------------------------------------------------

#  Session file paused. Press "Resume" to continue.

sf_pause()

#---------------------------------------------------------------------

#  Load a graphic table with edge angle values of tetrahedral elements

l_normalize     = FALSE

r_threshold     = 60.

i_return_value =                                 @

   fem_verify_tet_edangle                        @

      (  l_normalize,                            @

         r_threshold,                            @

         s_group_name,                           @

         r_minimum_value,                        @

         i_minimum_id,                           @

         r_maximum_value,                        @

         i_maximum_id,                           @

         i_table_id )

dump i_return_value

dump s_group_name

dump r_minimum_value

dump i_minimum_id

dump r_maximum_value

dump i_maximum_id

dump i_table_id

#---------------------------------------------------------------------

#  Display the graphic table

fem_verify_display                               @

   (  s_group_name, i_table_id, r_minimum_value, @

      r_maximum_value, r_threshold, "ELEMFILL")

sys_free_string( sv_created_ids)

sys_free_string( sv_fem_nodes_created)

sys_free_string( sv_fem_elements_created)

#---------------------------------------------------------------------


fem_verify_tet_fskew	()

#  Purpose          :  This file provides an example of a call to the

#                      function fem_verify_tet_fskew()

#                      This session file creates a new database by the

#                      name new.db. A solid is created and is meshed.

#                      This function is then called to load a graphic

#                      table with face skew values of all tetrahedral

#                      elements. Created graphic table is displayed.

#                      This file can be run by starting a session of

#                      Patran, and running this session file

#                      through the "File","Session","Play" pulldown

#                      menus on the menu bar.

#  The function fem_verify_tet_fskew()

#  has the following arguments:

#  fem_verify_tet_fskew

#     (  normalize,

#        threshold,

#        group_name,

#        minimum_value,

#        minimum_id,

#        maximum_value,

#        maximum_id,

#        table_id )

#---------------------------------------------------------------------

#  Variable Declarations

LOGICAL  l_normalize

REAL     r_threshold

STRING   s_group_name[32]

REAL     r_minimum_value

INTEGER  i_minimum_id

REAL     r_maximum_value

INTEGER  i_maximum_id

INTEGER  i_table_id

STRING   sv_created_ids[VIRTUAL]

INTEGER  i_num_fem_nodes

INTEGER  i_num_fem_elements

STRING   sv_fem_nodes_created[VIRTUAL]

STRING   sv_fem_elements_created[VIRTUAL]

INTEGER  i_return_value

#---------------------------------------------------------------------

#  Open a new database "new.db"

uil_file_new.go("","new.db")

$? YES 36000002

#---------------------------------------------------------------------

#  Create a solid

i_return_value =                                 @

   asm_const_hpat_xyz                            @

      (  "1", "<3 3 3>", "[0 0 0]", "Coord 0", sv_created_ids)

dump i_return_value

i_return_value =                                 @

   ga_view_aa_set( -67., 0., -34.)

dump i_return_value

#---------------------------------------------------------------------

#  Create mesh seeds on two edges of the solid

i_return_value =                                 @

   mesh_seed_create                              @

      (  "Solid 1.4.2", 1, 2, 0., 0., 0.)

dump i_return_value

i_return_value =                                 @

   mesh_seed_create                              @

      (  "Solid 1.4.4", 1, 4, 0., 0., 0.)

dump i_return_value

#---------------------------------------------------------------------

#  Mesh the solid

i_return_value =                                 @

   fem_create_mesh_sol_3                         @

      (  "IsoMesh", 0, "Solid 1 ", 1, [1.],      @

         "Tet4", "1", "1", "Coord 0", "Coord 0", @

         i_num_fem_nodes, i_num_fem_elements,    @

         sv_fem_nodes_created, sv_fem_elements_created )

dump i_return_value

#---------------------------------------------------------------------

#  Session file paused. Press "Resume" to continue.

sf_pause()

#---------------------------------------------------------------------

#  Load a graphic table with face skew values of tetrahedral elements

l_normalize     = FALSE

r_threshold     = 60.

i_return_value =                                 @

   fem_verify_tet_fskew                          @

      (  l_normalize,                            @

         r_threshold,                            @

         s_group_name,                           @

         r_minimum_value,                        @

         i_minimum_id,                           @

         r_maximum_value,                        @

         i_maximum_id,                           @

         i_table_id )

dump i_return_value

dump s_group_name

dump r_minimum_value

dump i_minimum_id

dump r_maximum_value

dump i_maximum_id

dump i_table_id

#---------------------------------------------------------------------

#  Display the graphic table

fem_verify_display                               @

   (  s_group_name, i_table_id, r_minimum_value, @

      r_maximum_value, r_threshold, "ELEMFILL")

sys_free_string( sv_created_ids)

sys_free_string( sv_fem_nodes_created)

sys_free_string( sv_fem_elements_created)

#---------------------------------------------------------------------


fem_verify_tria_all	()

#  Purpose          :  This file provides an example of a call to the

#                      function fem_verify_tria_all()

#                      This session file creates a new database by the

#                      name new.db. A surface is created and meshed.

#                      This function is then called to run all the

#                      verification tests for all triangular elements

#                      This file can be run by starting a session of

#                      Patran, and running this session file

#                      through the "File","Session","Play" pulldown

#                      menus on the menu bar.

#  The function fem_verify_tria_all()

#  has the following arguments:

#  fem_verify_tria_all

#     (  threshold,

#        num_failures,

#        worst_value,

#        worst_id )

#---------------------------------------------------------------------

#  Variable Declarations

REAL     ra_threshold(6)

INTEGER  ia_num_failures(6)

REAL     ra_worst_value(6)

INTEGER  ia_worst_id(6)

INTEGER  i_return_value

STRING   sv_created_ids[VIRTUAL]

INTEGER  i_num_fem_nodes

INTEGER  i_num_fem_elements

STRING   sv_fem_nodes_created[VIRTUAL]

STRING   sv_fem_elements_created[VIRTUAL]

INTEGER  i_return_value

#---------------------------------------------------------------------

#  Open a new database "new.db"

uil_file_new.go("","new.db")

$? YES 36000002

#---------------------------------------------------------------------

#  Create a surface

i_return_value =                                 @

   asm_const_patch_xyz                           @

      (  "1", "<3 3 0>", "[0 0 0]", "Coord 0", sv_created_ids )

dump i_return_value

#---------------------------------------------------------------------

#  Create mesh seeds on two edges of the surface

i_return_value =                                 @

   mesh_seed_create                              @

      (  "Surface 1.1", 1, 5, 0., 0., 0.)

dump i_return_value

i_return_value =                                 @

   mesh_seed_create                              @

      (  "Surface 1.3", 1, 7, 0., 0., 0.)

dump i_return_value

#---------------------------------------------------------------------

#  Mesh the surface

i_return_value =                                 @

   fem_create_mesh_surf_2                        @

      (  "IsoMesh", 0, "Surface 1 ", 1, [1.],    @

         "Tria3", "1", "1", "Coord 0", "Coord 0",@

         i_num_fem_nodes, i_num_fem_elements,    @

         sv_fem_nodes_created, sv_fem_elements_created )

dump i_return_value

#---------------------------------------------------------------------

#  Session file paused. Press "Resume" to continue.

sf_pause()

#---------------------------------------------------------------------

#  Run all the verification tests for all triangular elements

ra_threshold = [ 2.5, 42.88, 0.2, 0.2, 0., 0.]

i_return_value =                                 @

   fem_verify_tria_all                           @

      (  ra_threshold,                           @

         ia_num_failures,                        @

         ra_worst_value,                         @

         ia_worst_id )

dump i_return_value

dump ia_num_failures

dump ra_worst_value

dump ia_worst_id

sys_free_string( sv_created_ids)

sys_free_string( sv_fem_nodes_created)

sys_free_string( sv_fem_elements_created)

#---------------------------------------------------------------------


fem_verify_tria_aspect	()

#  Purpose          :  This file provides an example of a call to the

#                      function fem_verify_tria_aspect()

#                      This session file creates a new database by the

#                      name new.db. A surface is created and meshed.

#                      This function is then called to load a graphic

#                      table with aspect ratio values of triangular

#                      elements. Created graphic table is displayed.

#                      This file can be run by starting a session of

#                      Patran, and running this session file

#                      through the "File","Session","Play" pulldown

#                      menus on the menu bar.

#  The function fem_verify_tria_aspect()

#  has the following arguments:

#  fem_verify_tria_aspect

#     (  normalize,

#        threshold,

#        group_name,

#        minimum_value,

#        minimum_id,

#        maximum_value,

#        maximum_id,

#        table_id )

#---------------------------------------------------------------------

#  Variable Declarations

LOGICAL  l_normalize

REAL     r_threshold

STRING   s_group_name[32]

REAL     r_minimum_value

INTEGER  i_minimum_id

REAL     r_maximum_value

INTEGER  i_maximum_id

INTEGER  i_table_id

STRING   sv_created_ids[VIRTUAL]

INTEGER  i_num_fem_nodes

INTEGER  i_num_fem_elements

STRING   sv_fem_nodes_created[VIRTUAL]

STRING   sv_fem_elements_created[VIRTUAL]

INTEGER  i_return_value

#---------------------------------------------------------------------

#  Open a new database "new.db"

uil_file_new.go("","new.db")

$? YES 36000002

#---------------------------------------------------------------------

#  Create a surface

i_return_value =                                 @

   asm_const_patch_xyz                           @

      (  "1", "<3 3 0>", "[0 0 0]", "Coord 0", sv_created_ids )

dump i_return_value

#---------------------------------------------------------------------

#  Create mesh seeds on two edges of the surface

i_return_value =                                 @

   mesh_seed_create                              @

      (  "Surface 1.1", 1, 5, 0., 0., 0.)

dump i_return_value

i_return_value =                                 @

   mesh_seed_create                              @

      (  "Surface 1.3", 1, 7, 0., 0., 0.)

dump i_return_value

#---------------------------------------------------------------------

#  Mesh the surface

i_return_value =                                 @

   fem_create_mesh_surf_2                        @

      (  "IsoMesh", 0, "Surface 1 ", 1, [1.],    @

         "Tria3", "1", "1", "Coord 0", "Coord 0",@

         i_num_fem_nodes, i_num_fem_elements,    @

         sv_fem_nodes_created, sv_fem_elements_created )

dump i_return_value

#---------------------------------------------------------------------

#  Session file paused. Press "Resume" to continue.

sf_pause()

#---------------------------------------------------------------------

#  Load a graphic table with aspect ratios of all triangular elements

l_normalize     = FALSE

r_threshold     = 2.5

i_return_value =                                 @

   fem_verify_tria_aspect                        @

      (  l_normalize,                            @

         r_threshold,                            @

         s_group_name,                           @

         r_minimum_value,                        @

         i_minimum_id,                           @

         r_maximum_value,                        @

         i_maximum_id,                           @

         i_table_id )

dump i_return_value

dump s_group_name

dump r_minimum_value

dump i_minimum_id

dump r_maximum_value

dump i_maximum_id

dump i_table_id

#---------------------------------------------------------------------

#  Display the graphic table

fem_verify_display                               @

   (  s_group_name, i_table_id, r_minimum_value, @

      r_maximum_value, r_threshold, "ELEMFILL")

sys_free_string( sv_created_ids)

sys_free_string( sv_fem_nodes_created)

sys_free_string( sv_fem_elements_created)

#---------------------------------------------------------------------


fem_verify_tria_skew	()

#  Purpose          :  This file provides an example of a call to the

#                      function fem_verify_tria_skew()

#                      This session file creates a new database by the

#                      name new.db. A surface is created and meshed.

#                      This function is then called to load a graphic

#                      table with skew angle values of all triangular

#                      elements. Created graphic table is displayed.

#                      This file can be run by starting a session of

#                      Patran, and running this session file

#                      through the "File","Session","Play" pulldown

#                      menus on the menu bar.

#  The function fem_verify_tria_skew()

#  has the following arguments:

#  fem_verify_tria_skew

#     (  normalize,

#        threshold,

#        group_name,

#        minimum_value,

#        minimum_id,

#        maximum_value,

#        maximum_id,

#        table_id )

#---------------------------------------------------------------------

#  Variable Declarations

LOGICAL  l_normalize

REAL     r_threshold

STRING   s_group_name[32]

REAL     r_minimum_value

INTEGER  i_minimum_id

REAL     r_maximum_value

INTEGER  i_maximum_id

INTEGER  i_table_id

STRING   sv_created_ids[VIRTUAL]

INTEGER  i_num_fem_nodes

INTEGER  i_num_fem_elements

STRING   sv_fem_nodes_created[VIRTUAL]

STRING   sv_fem_elements_created[VIRTUAL]

INTEGER  i_return_value

#---------------------------------------------------------------------

#  Open a new database "new.db"

uil_file_new.go("","new.db")

$? YES 36000002

#---------------------------------------------------------------------

#  Create a surface

i_return_value =                                 @

   asm_const_patch_xyz                           @

      (  "1", "<3 3 0>", "[0 0 0]", "Coord 0", sv_created_ids )

dump i_return_value

#---------------------------------------------------------------------

#  Create mesh seeds on two edges of the surface

i_return_value =                                 @

   mesh_seed_create                              @

      (  "Surface 1.1", 1, 5, 0., 0., 0.)

dump i_return_value

i_return_value =                                 @

   mesh_seed_create                              @

      (  "Surface 1.3", 1, 7, 0., 0., 0.)

dump i_return_value

#---------------------------------------------------------------------

#  Mesh the surface

i_return_value =                                 @

   fem_create_mesh_surf_2                        @

      (  "IsoMesh", 0, "Surface 1 ", 1, [1.],    @

         "Tria3", "1", "1", "Coord 0", "Coord 0",@

         i_num_fem_nodes, i_num_fem_elements,    @

         sv_fem_nodes_created, sv_fem_elements_created )

dump i_return_value

#---------------------------------------------------------------------

#  Session file paused. Press "Resume" to continue.

sf_pause()

#---------------------------------------------------------------------

#  Load a graphic table with skew angle values of triangular elements

l_normalize     = FALSE

r_threshold     = 42.88

i_return_value =                                 @

   fem_verify_tria_skew                          @

      (  l_normalize,                            @

         r_threshold,                            @

         s_group_name,                           @

         r_minimum_value,                        @

         i_minimum_id,                           @

         r_maximum_value,                        @

         i_maximum_id,                           @

         i_table_id )

dump i_return_value

dump s_group_name

dump r_minimum_value

dump i_minimum_id

dump r_maximum_value

dump i_maximum_id

dump i_table_id

#---------------------------------------------------------------------

#  Display the graphic table

fem_verify_display                               @

   (  s_group_name, i_table_id, r_minimum_value, @

      r_maximum_value, r_threshold, "ELEMFILL")

sys_free_string( sv_created_ids)

sys_free_string( sv_fem_nodes_created)

sys_free_string( sv_fem_elements_created)

#---------------------------------------------------------------------


fem_verify_wedge_all	()

#  Purpose          :  This file provides an example of a call to the

#                      function fem_verify_wedge_all()

#                      This session file creates a new database by the

#                      name new.db. A solid is created and is meshed.

#                      This function is then called to run all the

#                      verification tests for all wedge elements.

#                      This file can be run by starting a session of

#                      Patran, and running this session file

#                      through the "File","Session","Play" pulldown

#                      menus on the menu bar.

#  The function fem_verify_wedge_all()

#  has the following arguments:

#  fem_verify_wedge_all

#     (  threshold,

#        num_failures,

#        worst_value,

#        worst_id )

#---------------------------------------------------------------------

#  Variable Declarations

REAL     ra_threshold(10)

INTEGER  ia_num_failures(10)

REAL     ra_worst_value(10)

INTEGER  ia_worst_id(10)

STRING   sv_created_ids[VIRTUAL]

INTEGER  i_num_fem_nodes

INTEGER  i_num_fem_elements

STRING   sv_fem_nodes_created[VIRTUAL]

STRING   sv_fem_elements_created[VIRTUAL]

INTEGER  i_return_value

#---------------------------------------------------------------------

#  Open a new database "new.db"

uil_file_new.go("","new.db")

$? YES 36000002

#---------------------------------------------------------------------

#  Create a solid

i_return_value =                                 @

   asm_const_hpat_xyz                            @

      ( "1", "<3 3 3>", "[0 0 0]", "Coord 0", sv_created_ids)

dump i_return_value

i_return_value =                                 @

   ga_view_aa_set( 23., -34., 0. )

dump i_return_value

#---------------------------------------------------------------------

#  Create mesh seeds on two edges of the solid

i_return_value =                                 @

   mesh_seed_create                              @

      (  "Solid 1.4.2", 1, 2, 0., 0., 0.)

dump i_return_value

i_return_value =                                 @

   mesh_seed_create                              @

      (  "Solid 1.4.4", 1, 4, 0., 0., 0.)

dump i_return_value

#---------------------------------------------------------------------

#  Mesh the solid

i_return_value =                                 @

   fem_create_mesh_sol_3                         @

      (  "IsoMesh", 0, "Solid 1", 1,             @

         [1.], "Wedge6", "1", "1",               @

         "Coord 0", "Coord 0",                   @

         i_num_fem_nodes, i_num_fem_elements,    @

         sv_fem_nodes_created, sv_fem_elements_created )

dump i_return_value

#---------------------------------------------------------------------

#  Session file paused. Press "Resume" to continue.

sf_pause()

#---------------------------------------------------------------------

#  Run all the verification tests for all wedge elements

ra_threshold = [ 2., 35., 35., 5., 5., 1., 0.2, 0.2, 0., 0.]

i_return_value =                                 @

   fem_verify_wedge_all                          @

      (  ra_threshold,                           @

         ia_num_failures,                        @

         ra_worst_value,                         @

         ia_worst_id )

dump i_return_value

dump ia_num_failures

dump ra_worst_value

dump ia_worst_id

sys_free_string( sv_created_ids)

sys_free_string( sv_fem_nodes_created)

sys_free_string( sv_fem_elements_created)

#---------------------------------------------------------------------


fem_verify_wedge_aspect	()

#  Purpose          :  This file provides an example of a call to the

#                      function fem_verify_wedge_aspect()

#                      This session file creates a new database by the

#                      name new.db. A solid is created and is meshed.

#                      This function is then called to load a graphic

#                      table with aspect ratio values of all wedge

#                      elements. Created graphic table is displayed.

#                      This file can be run by starting a session of

#                      Patran, and running this session file

#                      through the "File","Session","Play" pulldown

#                      menus on the menu bar.

#  The function fem_verify_wedge_aspect()

#  has the following arguments:

#  fem_verify_wedge_aspect

#     (  normalize,

#        threshold,

#        group_name,

#        minimum_value,

#        minimum_id,

#        maximum_value,

#        maximum_id,

#        table_id )

#---------------------------------------------------------------------

#  Variable Declarations

LOGICAL  l_normalize

REAL     r_threshold

STRING   s_group_name[32]

REAL     r_minimum_value

INTEGER  i_minimum_id

REAL     r_maximum_value

INTEGER  i_maximum_id

INTEGER  i_table_id

STRING   sv_created_ids[VIRTUAL]

INTEGER  i_num_fem_nodes

INTEGER  i_num_fem_elements

STRING   sv_fem_nodes_created[VIRTUAL]

STRING   sv_fem_elements_created[VIRTUAL]

INTEGER  i_return_value

#---------------------------------------------------------------------

#  Open a new database "new.db"

uil_file_new.go("","new.db")

$? YES 36000002

#---------------------------------------------------------------------

#  Create a solid

i_return_value =                                 @

   asm_const_hpat_xyz                            @

      ( "1", "<3 3 3>", "[0 0 0]", "Coord 0", sv_created_ids)

dump i_return_value

i_return_value =                                 @

   ga_view_aa_set( 23., 56., 0. )

dump i_return_value

#---------------------------------------------------------------------

#  Create mesh seeds on two edges of the solid

i_return_value =                                 @

   mesh_seed_create                              @

      (  "Solid 1.4.2", 1, 2, 0., 0., 0.)

dump i_return_value

i_return_value =                                 @

   mesh_seed_create                              @

      (  "Solid 1.4.4", 1, 4, 0., 0., 0.)

dump i_return_value

#---------------------------------------------------------------------

#  Mesh the solid

i_return_value =                                 @

   fem_create_mesh_sol_3                         @

      (  "IsoMesh", 0, "Solid 1", 1,             @

         [1.], "Wedge6", "1", "1",               @

         "Coord 0", "Coord 0",                   @

         i_num_fem_nodes, i_num_fem_elements,    @

         sv_fem_nodes_created, sv_fem_elements_created )

dump i_return_value

#---------------------------------------------------------------------

#  Session file paused. Press "Resume" to continue.

sf_pause()

#---------------------------------------------------------------------

#  Load a graphic table with aspect ratio values of wedge elements

l_normalize     = FALSE

r_threshold     = 2.

i_return_value =                                 @

   fem_verify_wedge_aspect                       @

      (  l_normalize,                            @

         r_threshold,                            @

         s_group_name,                           @

         r_minimum_value,                        @

         i_minimum_id,                           @

         r_maximum_value,                        @

         i_maximum_id,                           @

         i_table_id )

dump i_return_value

dump s_group_name

dump r_minimum_value

dump i_minimum_id

dump r_maximum_value

dump i_maximum_id

dump i_table_id

#---------------------------------------------------------------------

#  Display the graphic table

fem_verify_display                               @

   (  s_group_name, i_table_id, r_minimum_value, @

      r_maximum_value, r_threshold, "ELEMFILL")

sys_free_string( sv_created_ids)

sys_free_string( sv_fem_nodes_created)

sys_free_string( sv_fem_elements_created)

#---------------------------------------------------------------------


fem_verify_wedge_edangle	()

#  Purpose          :  This file provides an example of a call to the

#                      function fem_verify_wedge_edangle()

#                      This session file creates a new database by the

#                      name new.db. A solid is created and is meshed.

#                      This function is then called to load a graphic

#                      table with edge angle values of all wedge

#                      elements. Created graphic table is displayed.

#                      This file can be run by starting a session of

#                      Patran, and running this session file

#                      through the "File","Session","Play" pulldown

#                      menus on the menu bar.

#  The function fem_verify_wedge_edangle()

#  has the following arguments:

#  fem_verify_wedge_edangle

#     (  normalize,

#        threshold,

#        group_name,

#        minimum_value,

#        minimum_id,

#        maximum_value,

#        maximum_id,

#        table_id )

#---------------------------------------------------------------------

#  Variable Declarations

LOGICAL  l_normalize

REAL     r_threshold

STRING   s_group_name[32]

REAL     r_minimum_value

INTEGER  i_minimum_id

REAL     r_maximum_value

INTEGER  i_maximum_id

INTEGER  i_table_id

STRING   sv_created_ids[VIRTUAL]

INTEGER  i_num_fem_nodes

INTEGER  i_num_fem_elements

STRING   sv_fem_nodes_created[VIRTUAL]

STRING   sv_fem_elements_created[VIRTUAL]

INTEGER  i_return_value

#---------------------------------------------------------------------

#  Open a new database "new.db"

uil_file_new.go("","new.db")

$? YES 36000002

#---------------------------------------------------------------------

#  Create a solid

i_return_value =                                 @

   asm_const_hpat_xyz                            @

      ( "1", "<3 3 3>", "[0 0 0]", "Coord 0", sv_created_ids)

dump i_return_value

i_return_value =                                 @

   ga_view_aa_set( 23., 56., 0. )

dump i_return_value

#---------------------------------------------------------------------

#  Create mesh seeds on two edges of the solid

i_return_value =                                 @

   mesh_seed_create                              @

      (  "Solid 1.4.2", 1, 2, 0., 0., 0.)

dump i_return_value

i_return_value =                                 @

   mesh_seed_create                              @

      (  "Solid 1.4.4", 1, 4, 0., 0., 0.)

dump i_return_value

#---------------------------------------------------------------------

#  Mesh the solid

i_return_value =                                 @

   fem_create_mesh_sol_3                         @

      (  "IsoMesh", 0, "Solid 1", 1,             @

         [1.], "Wedge6", "1", "1",               @

         "Coord 0", "Coord 0",                   @

         i_num_fem_nodes, i_num_fem_elements,    @

         sv_fem_nodes_created, sv_fem_elements_created )

dump i_return_value

#---------------------------------------------------------------------

#  Session file paused. Press "Resume" to continue.

sf_pause()

#---------------------------------------------------------------------

#  Load a graphic table with edge angle values of wedge elements

l_normalize     = FALSE

r_threshold     = 35.

i_return_value =                                 @

   fem_verify_wedge_edangle                      @

      (  l_normalize,                            @

         r_threshold,                            @

         s_group_name,                           @

         r_minimum_value,                        @

         i_minimum_id,                           @

         r_maximum_value,                        @

         i_maximum_id,                           @

         i_table_id )

dump i_return_value

dump s_group_name

dump r_minimum_value

dump i_minimum_id

dump r_maximum_value

dump i_maximum_id

dump i_table_id

#---------------------------------------------------------------------

#  Display the graphic table

fem_verify_display                               @

   (  s_group_name, i_table_id, r_minimum_value, @

      r_maximum_value, r_threshold, "ELEMFILL")

sys_free_string( sv_created_ids)

sys_free_string( sv_fem_nodes_created)

sys_free_string( sv_fem_elements_created)

#---------------------------------------------------------------------


fem_verify_wedge_fskew	()

#  Purpose          :  This file provides an example of a call to the

#                      function fem_verify_wedge_fskew()

#                      This session file creates a new database by the

#                      name new.db. A solid is created and is meshed.

#                      This function is then called to load a graphic

#                      table with face skew values of all wedge

#                      elements. Created graphic table is displayed.

#                      This file can be run by starting a session of

#                      Patran, and running this session file

#                      through the "File","Session","Play" pulldown

#                      menus on the menu bar.

#  The function fem_verify_wedge_fskew()

#  has the following arguments:

#  fem_verify_wedge_fskew

#     (  normalize,

#        threshold,

#        group_name,

#        minimum_value,

#        minimum_id,

#        maximum_value,

#        maximum_id,

#        table_id )

#---------------------------------------------------------------------

#  Variable Declarations

LOGICAL  l_normalize

REAL     r_threshold

STRING   s_group_name[32]

REAL     r_minimum_value

INTEGER  i_minimum_id

REAL     r_maximum_value

INTEGER  i_maximum_id

INTEGER  i_table_id

STRING   sv_created_ids[VIRTUAL]

INTEGER  i_num_fem_nodes

INTEGER  i_num_fem_elements

STRING   sv_fem_nodes_created[VIRTUAL]

STRING   sv_fem_elements_created[VIRTUAL]

INTEGER  i_return_value

#---------------------------------------------------------------------

#  Open a new database "new.db"

uil_file_new.go("","new.db")

$? YES 36000002

#---------------------------------------------------------------------

#  Create a solid

i_return_value =                                 @

   asm_const_hpat_xyz                            @

      ( "1", "<3 3 3>", "[0 0 0]", "Coord 0", sv_created_ids)

dump i_return_value

i_return_value =                                 @

   ga_view_aa_set( 23., 56., 0. )

dump i_return_value

#---------------------------------------------------------------------

#  Create mesh seeds on two edges of the solid

i_return_value =                                 @

   mesh_seed_create                              @

      (  "Solid 1.4.2", 1, 2, 0., 0., 0.)

dump i_return_value

i_return_value =                                 @

   mesh_seed_create                              @

      (  "Solid 1.4.4", 1, 4, 0., 0., 0.)

dump i_return_value

#---------------------------------------------------------------------

#  Mesh the solid

i_return_value =                                 @

   fem_create_mesh_sol_3                         @

      (  "IsoMesh", 0, "Solid 1", 1,             @

         [1.], "Wedge6", "1", "1",               @

         "Coord 0", "Coord 0",                   @

         i_num_fem_nodes, i_num_fem_elements,    @

         sv_fem_nodes_created, sv_fem_elements_created )

dump i_return_value

#---------------------------------------------------------------------

#  Session file paused. Press "Resume" to continue.

sf_pause()

#---------------------------------------------------------------------

#  Load a graphic table with face skew values of wedge elements

l_normalize     = FALSE

r_threshold     = 35.

i_return_value =                                 @

   fem_verify_wedge_fskew                        @

      (  l_normalize,                            @

         r_threshold,                            @

         s_group_name,                           @

         r_minimum_value,                        @

         i_minimum_id,                           @

         r_maximum_value,                        @

         i_maximum_id,                           @

         i_table_id )

dump i_return_value

dump s_group_name

dump r_minimum_value

dump i_minimum_id

dump r_maximum_value

dump i_maximum_id

dump i_table_id

#---------------------------------------------------------------------

#  Display the graphic table

fem_verify_display                               @

   (  s_group_name, i_table_id, r_minimum_value, @

      r_maximum_value, r_threshold, "ELEMFILL")

sys_free_string( sv_created_ids)

sys_free_string( sv_fem_nodes_created)

sys_free_string( sv_fem_elements_created)

#---------------------------------------------------------------------


fem_verify_wedge_ftaper	()

#  Purpose          :  This file provides an example of a call to the

#                      function fem_verify_wedge_ftaper()

#                      This session file creates a new database by the

#                      name new.db. A solid is created and is meshed.

#                      This function is then called to load a graphic

#                      table with face taper values of all wedge

#                      elements. Created graphic table is displayed.

#                      This file can be run by starting a session of

#                      Patran, and running this session file

#                      through the "File","Session","Play" pulldown

#                      menus on the menu bar.

#  The function fem_verify_wedge_ftaper()

#  has the following arguments:

#  fem_verify_wedge_ftaper

#     (  normalize,

#        threshold,

#        group_name,

#        minimum_value,

#        minimum_id,

#        maximum_value,

#        maximum_id,

#        table_id )

#---------------------------------------------------------------------

#  Variable Declarations

LOGICAL  l_normalize

REAL     r_threshold

STRING   s_group_name[32]

REAL     r_minimum_value

INTEGER  i_minimum_id

REAL     r_maximum_value

INTEGER  i_maximum_id

INTEGER  i_table_id

STRING   sv_created_ids[VIRTUAL]

INTEGER  i_num_fem_nodes

INTEGER  i_num_fem_elements

STRING   sv_fem_nodes_created[VIRTUAL]

STRING   sv_fem_elements_created[VIRTUAL]

INTEGER  i_return_value

#---------------------------------------------------------------------

#  Open a new database "new.db"

uil_file_new.go("","new.db")

$? YES 36000002

#---------------------------------------------------------------------

#  Create a solid

i_return_value =                                 @

   asm_const_hpat_vertex                         @

      (  "1", "[0 0 0]", "[10 0 0]", "[10 10 0]",@

         "[0 10 0]", "[0 0 10]", "[10 3 10]",    @

         "[9 11 10]", "[-3 10 10]", sv_created_ids)

dump i_return_value

i_return_value =                                 @

   ga_view_aa_set( 23., -34., 0. )

dump i_return_value

#---------------------------------------------------------------------

#  Mesh the solid

i_return_value =                                 @

   fem_create_mesh_sol_3                         @

      (  "IsoMesh", 0, "Solid 1", 1,             @

         [5.], "Wedge6", "1", "1",               @

         "Coord 0", "Coord 0",                   @

         i_num_fem_nodes, i_num_fem_elements,    @

         sv_fem_nodes_created, sv_fem_elements_created )

dump i_return_value

#---------------------------------------------------------------------

#  Session file paused. Press "Resume" to continue.

sf_pause()

#---------------------------------------------------------------------

#  Load a graphic table with face taper values of wedge elements

l_normalize     = FALSE

r_threshold     = 0.95

i_return_value =                                 @

   fem_verify_wedge_ftaper                       @

      (  l_normalize,                            @

         r_threshold,                            @

         s_group_name,                           @

         r_minimum_value,                        @

         i_minimum_id,                           @

         r_maximum_value,                        @

         i_maximum_id,                           @

         i_table_id )

dump i_return_value

dump s_group_name

dump r_minimum_value

dump i_minimum_id

dump r_maximum_value

dump i_maximum_id

dump i_table_id

#---------------------------------------------------------------------

#  Display the graphic table

fem_verify_display                               @

   (  s_group_name, i_table_id, r_maximum_value, @

      r_minimum_value, r_threshold, "ELEMFILL")

sys_free_string( sv_created_ids)

sys_free_string( sv_fem_nodes_created)

sys_free_string( sv_fem_elements_created)

#---------------------------------------------------------------------


fem_verify_wedge_fwarp	()

#  Purpose          :  This file provides an example of a call to the

#                      function fem_verify_wedge_fwarp()

#                      This session file creates a new database by the

#                      name new.db. A solid is created and is meshed.

#                      This function is then called to load a graphic

#                      table with face warp values of all wedge

#                      elements. Created graphic table is displayed.

#                      This file can be run by starting a session of

#                      Patran, and running this session file

#                      through the "File","Session","Play" pulldown

#                      menus on the menu bar.

#  The function fem_verify_wedge_fwarp()

#  has the following arguments:

#  fem_verify_wedge_fwarp

#     (  normalize,

#        threshold,

#        group_name,

#        minimum_value,

#        minimum_id,

#        maximum_value,

#        maximum_id,

#        table_id )

#---------------------------------------------------------------------

#  Variable Declarations

LOGICAL  l_normalize

REAL     r_threshold

STRING   s_group_name[32]

REAL     r_minimum_value

INTEGER  i_minimum_id

REAL     r_maximum_value

INTEGER  i_maximum_id

INTEGER  i_table_id

STRING   sv_created_ids[VIRTUAL]

INTEGER  i_num_fem_nodes

INTEGER  i_num_fem_elements

STRING   sv_fem_nodes_created[VIRTUAL]

STRING   sv_fem_elements_created[VIRTUAL]

INTEGER  i_return_value

#---------------------------------------------------------------------

#  Open a new database "new.db"

uil_file_new.go("","new.db")

$? YES 36000002

#---------------------------------------------------------------------

#  Create a solid

i_return_value =                                 @

   asm_const_hpat_vertex                         @

      (  "1", "[0 0 0]", "[10 0 0]", "[10 10 0]",@

         "[0 10 0]", "[0 0 10]", "[10 3 10]",    @

         "[9 11 10]", "[-3 10 10]", sv_created_ids)

dump i_return_value

i_return_value =                                 @

   ga_view_aa_set( 23., -34., 0. )

dump i_return_value

#---------------------------------------------------------------------

#  Mesh the solid

i_return_value =                                 @

   fem_create_mesh_sol_3                         @

      (  "IsoMesh", 0, "Solid 1", 1,             @

         [5.], "Wedge6", "1", "1",               @

         "Coord 0", "Coord 0",                   @

         i_num_fem_nodes, i_num_fem_elements,    @

         sv_fem_nodes_created, sv_fem_elements_created )

dump i_return_value

#---------------------------------------------------------------------

#  Session file paused. Press "Resume" to continue.

sf_pause()

#---------------------------------------------------------------------

#  Load a graphic table with face warp values of wedge elements

l_normalize     = FALSE

r_threshold     = 6.

i_return_value =                                 @

   fem_verify_wedge_fwarp                        @

      (  l_normalize,                            @

         r_threshold,                            @

         s_group_name,                           @

         r_minimum_value,                        @

         i_minimum_id,                           @

         r_maximum_value,                        @

         i_maximum_id,                           @

         i_table_id )

dump i_return_value

dump s_group_name

dump r_minimum_value

dump i_minimum_id

dump r_maximum_value

dump i_maximum_id

dump i_table_id

#---------------------------------------------------------------------

#  Display the graphic table

fem_verify_display                               @

   (  s_group_name, i_table_id, r_minimum_value, @

      r_maximum_value, r_threshold, "ELEMFILL")

sys_free_string( sv_created_ids)

sys_free_string( sv_fem_nodes_created)

sys_free_string( sv_fem_elements_created)

#---------------------------------------------------------------------


fem_verify_wedge_twist	()

#  Purpose          :  This file provides an example of a call to the

#                      function fem_verify_wedge_twist()

#                      This session file creates a new database by the

#                      name new.db. A solid is created and is meshed.

#                      This function is then called to load a graphic

#                      table with the twist values of all wedge

#                      elements. Created graphic table is displayed.

#                      This file can be run by starting a session of

#                      Patran, and running this session file

#                      through the "File","Session","Play" pulldown

#                      menus on the menu bar.

#  The function fem_verify_wedge_twist()

#  has the following arguments:

#  fem_verify_wedge_twist

#     (  normalize,

#        threshold,

#        group_name,

#        minimum_value,

#        minimum_id,

#        maximum_value,

#        maximum_id,

#        table_id )

#---------------------------------------------------------------------

#  Variable Declarations

LOGICAL  l_normalize

REAL     r_threshold

STRING   s_group_name[32]

REAL     r_minimum_value

INTEGER  i_minimum_id

REAL     r_maximum_value

INTEGER  i_maximum_id

INTEGER  i_table_id

STRING   sv_created_ids[VIRTUAL]

INTEGER  i_num_fem_nodes

INTEGER  i_num_fem_elements

STRING   sv_fem_nodes_created[VIRTUAL]

STRING   sv_fem_elements_created[VIRTUAL]

INTEGER  i_return_value

#---------------------------------------------------------------------

#  Open a new database "new.db"

uil_file_new.go("","new.db")

$? YES 36000002

#---------------------------------------------------------------------

#  Create a solid

i_return_value =                                 @

   asm_const_hpat_vertex                         @

      (  "1", "[0 0 0]", "[10 0 0]", "[10 10 0]",@

         "[0 10 0]", "[0 0 10]", "[10 3 10]",    @

         "[9 11 10]", "[-3 10 10]", sv_created_ids)

dump i_return_value

i_return_value =                                 @

   ga_view_aa_set( -67., 0., -34. )

dump i_return_value

#---------------------------------------------------------------------

#  Mesh the solid

i_return_value =                                 @

   fem_create_mesh_sol_3                         @

      (  "IsoMesh", 0, "Solid 1", 1,             @

         [5.], "Wedge6", "1", "1",               @

         "Coord 0", "Coord 0",                   @

         i_num_fem_nodes, i_num_fem_elements,    @

         sv_fem_nodes_created, sv_fem_elements_created )

dump i_return_value

#---------------------------------------------------------------------

#  Session file paused. Press "Resume" to continue.

sf_pause()

#---------------------------------------------------------------------

#  Load a graphic table with the twist values of wedge elements

l_normalize     = FALSE

r_threshold     = 6.

i_return_value =                                 @

   fem_verify_wedge_twist                        @

      (  l_normalize,                            @

         r_threshold,                            @

         s_group_name,                           @

         r_minimum_value,                        @

         i_minimum_id,                           @

         r_maximum_value,                        @

         i_maximum_id,                           @

         i_table_id )

dump i_return_value

dump s_group_name

dump r_minimum_value

dump i_minimum_id

dump r_maximum_value

dump i_maximum_id

dump i_table_id

#---------------------------------------------------------------------

#  Display the graphic table

fem_verify_display                               @

   (  s_group_name, i_table_id, r_minimum_value, @

      r_maximum_value, r_threshold, "ELEMFILL")

sys_free_string( sv_created_ids)

sys_free_string( sv_fem_nodes_created)

sys_free_string( sv_fem_elements_created)

#---------------------------------------------------------------------


verify_boundaries_display_mgr.erase	()

#  Purpose          :  This file provides an example of a call to the

#                      function verify_boundaries_display_mgr.erase()

#                      This session file creates a new database by the

#                      name new.db. A solid is created and is meshed.

#                      The free edges of all the elements are plotted.

#                      This function is then called to erase the free

#                      boundary display in the viewport.

#                      This file can be run by starting a session of

#                      Patran, and running this session file

#                      through the "File","Session","Play" pulldown

#                      menus on the menu bar.

#  The function verify_boundaries_display_mgr.erase() has no arguments

#---------------------------------------------------------------------

#  Variable Declarations

STRING   sv_created_ids[VIRTUAL]

INTEGER  i_num_fem_nodes

INTEGER  i_num_fem_elements

STRING   sv_fem_nodes_created[VIRTUAL]

STRING   sv_fem_elements_created[VIRTUAL]

INTEGER  i_return_value

#---------------------------------------------------------------------

#  Open a new database "new.db"

uil_file_new.go("","new.db")

$? YES 36000002

#---------------------------------------------------------------------

#  Create a solid

i_return_value =                                 @

   asm_const_hpat_xyz                            @

      (  "1", "<15 15 15>", "[0 0 0]", "Coord 0", sv_created_ids )

dump i_return_value

i_return_value =                                 @

   ga_view_aa_set( 23., -34., 0. )

dump i_return_value

#---------------------------------------------------------------------

#  Create mesh seeds on two edges of the solid

i_return_value =                                 @

   mesh_seed_create                              @

      (  "Solid 1.4.2", 2, 0, 0., 3., 0.)

dump i_return_value

i_return_value =                                 @

   mesh_seed_create                              @

      (  "Solid 1.4.4", 2, 0, 0., 5., 0.)

dump i_return_value

#---------------------------------------------------------------------

#  Mesh the solid

i_return_value =                                 @

   fem_create_mesh_sol_3                         @

      (  "IsoMesh", 0, "Solid 1 ", 1, [5.],      @

         "Hex8", "1", "1", "Coord 0", "Coord 0", @

         i_num_fem_nodes, i_num_fem_elements,    @

         sv_fem_nodes_created, sv_fem_elements_created )

dump i_return_value

#---------------------------------------------------------------------

#  Session file paused. Press "Resume" to continue.

sf_pause()

#---------------------------------------------------------------------

#  Initialize the display manager and plot free edges of all elements

verify_boundaries_display_mgr.initialize(  )

verify_boundaries_display_mgr.plot( "Free_Edges")

#---------------------------------------------------------------------

#  Session file paused. Press "Resume" to continue.

sf_pause()

#---------------------------------------------------------------------

#  Erase the free boundary display

verify_boundaries_display_mgr.erase(  )

sys_free_string( sv_created_ids)

sys_free_string( sv_fem_nodes_created)

sys_free_string( sv_fem_elements_created)

#---------------------------------------------------------------------


verify_boundaries_display_mgr.plot	()

#  Purpose          :  This file provides an example of a call to the

#                      function verify_boundaries_display_mgr.plot()

#                      This session file creates a new database by the

#                      name new.db. A solid is created and is meshed

#                      after creating mesh seeds on two of its edges.

#                      This function is then called to plot the free

#                      edges of all the elements.

#                      This file can be run by starting a session of

#                      Patran, and running this session file

#                      through the "File","Session","Play" pulldown

#                      menus on the menu bar.

#  The function verify_boundaries_display_mgr.plot()

#  has the following arguments:

#  verify_boundaries_display_mgr.plot

#     (  display_type )

#---------------------------------------------------------------------

#  Variable Declarations

STRING   s_display_type[10]

STRING   sv_created_ids[VIRTUAL]

INTEGER  i_num_fem_nodes

INTEGER  i_num_fem_elements

STRING   sv_fem_nodes_created[VIRTUAL]

STRING   sv_fem_elements_created[VIRTUAL]

INTEGER  i_return_value

#---------------------------------------------------------------------

#  Open a new database "new.db"

uil_file_new.go("","new.db")

$? YES 36000002

#---------------------------------------------------------------------

#  Create a solid

i_return_value =                                 @

   asm_const_hpat_xyz                            @

      (  "1", "<15 15 15>", "[0 0 0]", "Coord 0", sv_created_ids )

dump i_return_value

i_return_value =                                 @

   ga_view_aa_set( 23., -34., 0. )

dump i_return_value

#---------------------------------------------------------------------

#  Create mesh seeds on two edges of the solid

i_return_value =                                 @

   mesh_seed_create                              @

      (  "Solid 1.4.2", 2, 0, 0., 3., 0.)

dump i_return_value

i_return_value =                                 @

   mesh_seed_create                              @

      (  "Solid 1.4.4", 2, 0, 0., 5., 0.)

dump i_return_value

#---------------------------------------------------------------------

#  Mesh the solid

i_return_value =                                 @

   fem_create_mesh_sol_3                         @

      (  "IsoMesh", 0, "Solid 1 ", 1, [5.],      @

         "Hex8", "1", "1", "Coord 0", "Coord 0", @

         i_num_fem_nodes, i_num_fem_elements,    @

         sv_fem_nodes_created, sv_fem_elements_created )

dump i_return_value

#---------------------------------------------------------------------

#  Session file paused. Press "Resume" to continue.

sf_pause()

#---------------------------------------------------------------------

#  Initialize the display manager

verify_boundaries_display_mgr.initialize(  )

#---------------------------------------------------------------------

#  Plot free edges of all elements

s_display_type = "Free_Edges"

verify_boundaries_display_mgr.plot( s_display_type)

sys_free_string( sv_created_ids)

sys_free_string( sv_fem_nodes_created)

sys_free_string( sv_fem_elements_created)

#---------------------------------------------------------------------