Code covered by the BSD License  

Highlights from
FELICITY

image thumbnail

FELICITY

by

 

21 Apr 2011 (Updated )

Finite ELement Implementation and Computational Interface Tool for You

test_FEL_RT0_triangle_codim_1()
function status = test_FEL_RT0_triangle_codim_1()
%test_FEL_RT0_triangle_codim_1
%
%   Test code for FELICITY class.

% Copyright (c) 03-28-2012,  Shawn W. Walker

m_script = 'MatAssem_RT0_triangle_codim_1';
MEX_File = 'UNIT_TEST_mex_Assemble_FEL_RT0_triangle_codim_1';

% get directory that this mfile lives in
Main_Dir = fileparts(mfilename('fullpath'));

[status, Path_To_Mex] = Convert_Mscript_to_MEX(Main_Dir,m_script,MEX_File);
if status~=0
    disp('Compile did not succeed.');
    return;
end

status = FEL_Execute_RT0_triangle_codim_1(MEX_File);
if (status==0)
    disp('Test passed!');
else
    disp('Test failed!');
end

% remove the mex file
delete([Path_To_Mex, '.*']);

end

Contact us