Home > mex > check1.m

check1

PURPOSE ^

CHECK script to compare M-file and MEX-file versions of RNE

SYNOPSIS ^

This is a script file.

DESCRIPTION ^

CHECK script to compare M-file and MEX-file versions of RNE

CROSS-REFERENCE INFORMATION ^

This function calls: This function is called by:

SOURCE CODE ^

0001 %CHECK script to compare M-file and MEX-file versions of RNE
0002 
0003 % load the model and remove non-linear friction
0004 rdh = nofriction(rdh, 'coulomb');
0005 rmdh = nofriction(rdh, 'coulomb');
0006 
0007 % number of trials
0008 n = 10;
0009 
0010 fprintf('************************ normal case *****************************\n')
0011 args = {};
0012 fprintf('DH:  ')
0013 check2(rdh, n, args);
0014 fprintf('MDH: ')
0015 check2(rmdh, n, args);
0016 
0017 fprintf('************************ no gravity *****************************\n')
0018 args = {[0 0 0]};
0019 fprintf('DH:  ')
0020 check2(rdh, n, args);
0021 fprintf('MDH: ')
0022 check2(rmdh, n, args);
0023 
0024 fprintf('************************ ext force *****************************\n')
0025 args = {[0 0 9.81], [10 10 10 10 10 10]'};
0026 fprintf('DH:  ')
0027 check2(rdh, n, args);
0028 fprintf('MDH: ')
0029 check2(rmdh, n, args);

Generated on Sun 15-Feb-2009 18:09:29 by m2html © 2003