accsum

accsum Commit Details

Date:2011-05-30 16:48:14 (7 years 6 months ago)
Author:Michael Baudin
Commit:21
Parents: 20
Message:Added missing .ref. Fixed start for release.
Changes:
A/tests/unit_tests/fscs.dia.ref
A/tests/unit_tests/fdcs.dia.ref
A/tests/unit_tests/fcompsum.dia.ref
M/builder.sce
M/etc/accsum.start

File differences

etc/accsum.start
3232
3333
3434
35
35
3636
3737
3838
// load gateways
// =============================================================================
if ( %f ) then
if ( %t ) then
mprintf("\tLoad gateways\n");
ilib_verbose(0);
exec( pathconvert(root_tlbx+"/sci_gateway/loader_gateway.sce",%f));
builder.sce
2828
2929
3030
31
3231
3332
34
3533
3634
3735
// ====================================================================
toolbox_dir = get_absolute_file_path("builder.sce");
if ( haveacompiler() ) then
tbx_builder_src(toolbox_dir);
tbx_builder_gateway(toolbox_dir);
end
tbx_builder_macros(toolbox_dir);
tbx_builder_help(toolbox_dir);
tbx_build_loader(TOOLBOX_NAME, toolbox_dir);
tests/unit_tests/fcompsum.dia.ref
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
// Copyright (C) 2011 - Michael Baudin
// Copyright (C) 2011 - DIGITEO - Michael Baudin
//
// This file must be used under the terms of the CeCILL.
// This source file is licensed as described in the file COPYING, which
// you should have received as part of this distribution. The terms
// are also available at
// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
//
// <-- JVM NOT MANDATORY -->
// <-- ENGLISH IMPOSED -->
[s,e] = accsum_fcompsum ( [2 1] );
assert_checkequal(s,3);
assert_checkequal(e,0);
//
[s,e] = accsum_fcompsum ( [1 2] );
assert_checkequal(s,3);
assert_checkequal(e,0);
//
[s,e] = accsum_fcompsum ( [2 1] );
assert_checkequal(s,3);
assert_checkequal(e,0);
//
[s,e] = accsum_fcompsum ( [1 2] );
assert_checkequal(s,3);
assert_checkequal(e,0);
//
x = accsum_wilkinson(10);
[s,e] = accsum_fcompsum ( x );
assert_checkalmostequal(s,1024,1.e-12);
assert_checkalmostequal(e,-3.786e-14,[],1.e-10);
tests/unit_tests/fdcs.dia.ref
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
// Copyright (C) 2011 - Michael Baudin
// Copyright (C) 2011 - DIGITEO - Michael Baudin
//
// This file must be used under the terms of the CeCILL.
// This source file is licensed as described in the file COPYING, which
// you should have received as part of this distribution. The terms
// are also available at
// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
//
// <-- JVM NOT MANDATORY -->
// <-- ENGLISH IMPOSED -->
[s,e] = accsum_fdcs ( [2 1] );
assert_checkequal(s,3);
assert_checkequal(e,0);
//
[s,e] = accsum_fdcs ( [1 2] );
assert_checkequal(s,3);
assert_checkequal(e,0);
//
[s,e] = accsum_fdcs ( [2 1] );
assert_checkequal(s,3);
assert_checkequal(e,0);
//
[s,e] = accsum_fdcs ( [1 2] );
assert_checkequal(s,3);
assert_checkequal(e,0);
//
x = accsum_wilkinson(10);
[s,e] = accsum_fdcs ( x );
assert_checkalmostequal(s,1024,1.e-12);
assert_checkalmostequal(e,-3.786e-14,[],1.e-10);
tests/unit_tests/fscs.dia.ref
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
// Copyright (C) 2011 - Michael Baudin
// Copyright (C) 2011 - DIGITEO - Michael Baudin
//
// This file must be used under the terms of the CeCILL.
// This source file is licensed as described in the file COPYING, which
// you should have received as part of this distribution. The terms
// are also available at
// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
//
// <-- JVM NOT MANDATORY -->
// <-- ENGLISH IMPOSED -->
[s,e] = accsum_fscs ( [2 1] );
assert_checkequal(s,3);
assert_checkequal(e,0);
//
[s,e] = accsum_fscs ( [1 2] );
assert_checkequal(s,3);
assert_checkequal(e,0);
//
[s,e] = accsum_fscs ( [2 1] );
assert_checkequal(s,3);
assert_checkequal(e,0);
//
[s,e] = accsum_fscs ( [1 2] );
assert_checkequal(s,3);
assert_checkequal(e,0);
//
x = accsum_wilkinson(10);
[s,e] = accsum_fscs ( x );
assert_checkalmostequal(s,1024,1.e-12);
assert_checkalmostequal(e,-3.786e-14,[],1.e-10);

Archive Download the corresponding diff file

Revision: 21