Changeset 51 for trunk/ADOL-C/src/drivers
- Timestamp:
- Nov 9, 2009 6:43:13 AM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/ADOL-C/src/drivers/taylor.c
r49 r51 118 118 119 119 long binomi(int n, int k) { 120 long double accum = 1; 121 unsigned int i; 120 122 121 123 if (k > n) … … 125 127 k = n-k; 126 128 127 long double accum = 1;128 unsigned int i;129 129 for (i = 1; i <= k; i++) 130 130 accum = accum * (n-k+i) / i; … … 590 590 for (j=0; j<n; j++) 591 591 if (nonzero[i][j]>1) { 592 int indj = j; 593 int indX = l; 592 594 Aij = A[i][j]; 593 int indj = j;594 595 indexA = l-1; 595 596 Xj = X[j]+l; 596 int indX = l;597 597 indexX = 1; 598 598 if (da == l-1)
Note: See TracChangeset
for help on using the changeset viewer.