contrib
contact
clib
fugo_calc.c
Go to the documentation of this file.
1
#include "
arith.h
"
2
3
REAL
fugo_calc
(f,linetab,i,en,r)
4
MATRIX
f
;
5
LINE
linetab[
MAXEDGE
];
6
int
i,en,r;
7
{
8
REAL
fugo;
9
register
int
j;
10
11
fugo=0.0;
12
for
(j=0; j<r; j++)
13
fugo +=
f
[i][j] * linetab[en].
s
[j];
14
15
return
(fugo);
16
}
f
f
arith.h
REAL
double REAL
Definition:
arith.h:25
MAXEDGE
#define MAXEDGE
Definition:
arith.h:14
line
Definition:
arith.h:33
s
short s
Definition:
structsize.c:2
MATRIX
VECTOR MATRIX[MAX]
Definition:
arith.h:27
fugo_calc
REAL fugo_calc(MATRIX f, linetab, int i, int en, int r)
Definition:
fugo_calc.c:3
euslisp
Author(s): Toshihiro Matsui
autogenerated on Mon Feb 28 2022 22:18:27