summaryrefslogtreecommitdiff
path: root/2.3-1/src/c/implicitList/testFloatImplicitList.c
blob: 5c021c67efe36da94cc8f26678b088ea5f1c17b2 (plain)
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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
/*
 *  Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
 *  Copyright (C) 2008-2008 - INRIA - Bruno JOFRET
 *
 *  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
 *
 */

#include <stdio.h>
#include "implicitList.h"

static void testsimplicitLists(void)
{
  int i = 0;
  float one_to_five[5] = {0};
  float five_to_one[5] = {0};
  float five_to_one_by_minus_ten[5] = {0};
  float result[1001] = {0};
  /*
  ** 1:1:5
  */
  simplicitLists(1.0f, 1.0f, 5.0f, one_to_five);
  for (i = 0 ; i < 5 ; ++i)
    {
      printf("one_to_five[%d] = %e\n", i, one_to_five[i]);
    }

  /*
  ** 5:1:1
  */
  simplicitLists(5.0f, 1.0f, 1.0f, five_to_one);
  for (i = 0 ; i < 5 ; ++i)
    {
      printf("five_to_one[%d] = %e\n", i, five_to_one[i]);
    }

  /*
  ** 5:-10:1
  */
  simplicitLists(5.0f, -10.0f, 1.0f, five_to_one_by_minus_ten);
  for (i = 0 ; i < 5 ; ++i)
    {
      printf("five_to_one_by_minus_ten[%d] = %e\n", i, five_to_one_by_minus_ten[i]);
    }

  /*
  ** 0:1e-03:1
  */
  simplicitLists(0.0f, 1e-03f, 1.0f, result);
  for (i = 0 ; i < 1001 ; ++i)
    {
      printf("result[%d] = %e\n", i, result[i]);
    }
}


int main(void)
{
  testsimplicitLists();
  return 0;
}