Searched refs:tabsc1 (Results 1 – 7 of 7) sorted by relevance
| /dports/science/py-scipy/scipy-1.7.1/scipy/integrate/quadpack/ |
| H A D | dqk15i.f | 74 * resabs,resasc,resg,resk,reskh,result,tabsc1,tabsc2,uflow,wg,wgk, local
151 tabsc1 = boun+dinf*(0.1d+01-centr)/centr
152 fval1 = f(tabsc1)
153 if(inf.eq.2) fval1 = fval1+f(-tabsc1)
166 tabsc1 = boun+dinf*(0.1d+01-absc1)/absc1
168 fval1 = f(tabsc1)
170 if(inf.eq.2) fval1 = fval1+f(-tabsc1)
|
| /dports/math/octave/octave-6.4.0/liboctave/external/quadpack/ |
| H A D | qk15i.f | 73 * fv2,hlgth,resabs,resasc,resg,resk,reskh,result,tabsc1,tabsc2, local
143 tabsc1 = boun+dinf*(0.1e+01-centr)/centr
144 call f(tabsc1, ierr, fval1)
147 call f(-tabsc1, ierr, fval1)
163 tabsc1 = boun+dinf*(0.1e+01-absc1)/absc1
165 call f(tabsc1, ierr, fval1)
170 call f(-tabsc1,ierr,fvalt)
|
| /dports/math/maxima/maxima-5.43.2/src/numerical/slatec/ |
| H A D | dqk15i.lisp | 50 (reskh 0.0) (tabsc1 0.0) (tabsc2 0.0) (uflow 0.0))
52 (type (double-float) uflow tabsc2 tabsc1 reskh resk resg hlgth
66 (setf tabsc1 (+ boun (/ (* dinf (- 1.0 centr)) centr)))
69 (funcall f tabsc1)
72 (setf tabsc1 var-0))
74 (if (= inf 2) (setf fval1 (+ fval1 (funcall f (- tabsc1)))))
85 (setf tabsc1 (+ boun (/ (* dinf (- 1.0 absc1)) absc1)))
89 (funcall f tabsc1)
92 (setf tabsc1 var-0))
101 (if (= inf 2) (setf fval1 (+ fval1 (funcall f (- tabsc1)))))
|
| /dports/math/R/R-4.1.2/src/appl/ |
| H A D | integrate.c | 1514 double tabsc1, tabsc2, fc, epmach; in rdqk15i() local
1635 tabsc1 = *boun + dinf * (1. - centr) / centr; in rdqk15i()
1636 vec[0] = tabsc1; in rdqk15i()
1638 vec2[0] = -tabsc1; in rdqk15i()
1644 tabsc1 = *boun + dinf * (1. - absc1) / absc1; in rdqk15i()
1646 vec[(j << 1) - 1] = tabsc1; in rdqk15i()
1649 vec2[(j << 1) - 1] = -tabsc1; in rdqk15i()
1670 tabsc1 = *boun + dinf * (1. - absc1) / absc1; in rdqk15i()
|
| /dports/math/libRmath/R-4.1.1/src/appl/ |
| H A D | integrate.c | 1514 double tabsc1, tabsc2, fc, epmach; in rdqk15i() local
1635 tabsc1 = *boun + dinf * (1. - centr) / centr; in rdqk15i()
1636 vec[0] = tabsc1; in rdqk15i()
1638 vec2[0] = -tabsc1; in rdqk15i()
1644 tabsc1 = *boun + dinf * (1. - absc1) / absc1; in rdqk15i()
1646 vec[(j << 1) - 1] = tabsc1; in rdqk15i()
1649 vec2[(j << 1) - 1] = -tabsc1; in rdqk15i()
1670 tabsc1 = *boun + dinf * (1. - absc1) / absc1; in rdqk15i()
|
| /dports/math/fpc-numlib/fpc-3.2.2/packages/numlib/src/ |
| H A D | int.pas | 670 tabsc1, tabsc2: ArbFloat;
680 tabsc1 := boun+dinf*(1-centr)/centr;
681 fval1 := f(tabsc1);
682 If (inf=2) Then fval1 := fval1+f(-tabsc1);
692 tabsc1 := boun+dinf*(1-absc1)/absc1;
694 fval1 := f(tabsc1);
696 If (inf=2) Then fval1 := fval1+f(-tabsc1);
|
| /dports/lang/fpc-source/fpc-3.2.2/packages/numlib/src/ |
| H A D | int.pas | 670 tabsc1, tabsc2: ArbFloat;
680 tabsc1 := boun+dinf*(1-centr)/centr;
681 fval1 := f(tabsc1);
682 If (inf=2) Then fval1 := fval1+f(-tabsc1);
692 tabsc1 := boun+dinf*(1-absc1)/absc1;
694 fval1 := f(tabsc1);
696 If (inf=2) Then fval1 := fval1+f(-tabsc1);
|