diff options
| author | Farid Belahcene <farid.belahcene@inria.fr> | 2006-09-01 09:26:06 +0000 |
|---|---|---|
| committer | Farid Belahcene <farid.belahcene@inria.fr> | 2006-09-01 09:26:06 +0000 |
| commit | f81763976443c5e3ab6af2d0b72b0c319e3f0229 (patch) | |
| tree | 4db0bee80af8b5137b091b21c0ffc25068411a4e /scilab_doc | |
| parent | 272c19bfb20ef5c9db9e272e5f14392d4e6aeee3 (diff) | |
| download | scilab-f81763976443c5e3ab6af2d0b72b0c319e3f0229.zip scilab-f81763976443c5e3ab6af2d0b72b0c319e3f0229.tar.gz | |
New modifications
Diffstat (limited to 'scilab_doc')
| -rw-r--r-- | scilab_doc/toolbox_guide/toolbox_example/src/fun1.c | 28 |
1 files changed, 13 insertions, 15 deletions
diff --git a/scilab_doc/toolbox_guide/toolbox_example/src/fun1.c b/scilab_doc/toolbox_guide/toolbox_example/src/fun1.c index 833a0a9..ce91966 100644 --- a/scilab_doc/toolbox_guide/toolbox_example/src/fun1.c +++ b/scilab_doc/toolbox_guide/toolbox_example/src/fun1.c | |||
| @@ -1,17 +1,15 @@ | |||
| 1 | void fun2(double *, int, int *); | 1 | extern void fun2(double *, int, int *); |
| 2 | 2 | ||
| 3 | void fun1(double * a, int na, int * nb, double ** b , double * positive_sum) | 3 | void fun1(double * a, int na, int * nx, double ** x , double * y){ |
| 4 | { | 4 | int i, k1=0; |
| 5 | int i, k1=0; | 5 | *y=0; |
| 6 | *positive_sum=0; | 6 | fun2(a, na, nx); |
| 7 | fun2(a, na, nb); | 7 | *x=(double *)malloc((*nx)*sizeof(double)); |
| 8 | *b=(double *)malloc((*nb)*sizeof(double)); | 8 | *y=0; |
| 9 | *positive_sum=0; | 9 | for(i=0;i<na;i++) |
| 10 | for(i=0;i<na;i++) | 10 | if(a[i]>0) { |
| 11 | if(a[i]>0) | 11 | *(*x+k1)=a[i]; |
| 12 | { | 12 | *y += a[i]; |
| 13 | *(*b+k1)=a[i]; | 13 | k1++; |
| 14 | *positive_sum += a[i]; | 14 | }; |
| 15 | k1++; | ||
| 16 | }; | ||
| 17 | } \ No newline at end of file | 15 | } \ No newline at end of file |