Exemplo n.º 1
0
TEST(TestFiniteElement, Print)
{
  FiniteElement   fe1(4);
  MxFiniteElement fe2({3,2,4});

  std::cout << fe1 << std::endl;
  std::cout << fe2 << std::endl;

  ASSERT_EQ((int)fe1.N.size(),4);
  ASSERT_EQ((int)fe2.basis(1).size(),3);
  ASSERT_EQ((int)fe2.basis(2).size(),2);
  ASSERT_EQ((int)fe2.basis(3).size(),4);
}
Exemplo n.º 2
0
static object *_SXI_fe1(SS_psides *si, object *argl)
   {str *_la1;
    int _la2;
    str *_rv;
    long _sz;
    C_array *_arr;
    object *_lo;

/* local variable initializations */
    _la1       = NULL;
    _la2       = 0;

    SS_args(si, argl,
            G_STR_I, &_la1,
            G_INT_I, &_la2,
            0);

    _rv = fe1(_la1, _la2);
    _sz = SC_arrlen(_rv)/sizeof(str);
    _arr = PM_make_array("str", _sz, _rv);
    _lo  = SX_make_c_array(si, _arr);

    return(_lo);}