| /dports/lang/clisp/clisp-df3b9f6fdcff22832898e89a989eb499c0f842ed/benchmarks/ |
| H A D | frpoly.lisp | 38 ((pzerop (car x)) (pcoefadd 0 (pplus c (cadr x)) nil))
50 (defun pplus (x y) (cond ((pcoefp x) (pcplus x y)) function
63 (pplus (cadr x) (cadr y))
106 (setq c (pplus c (cadr **v**)))
121 (cond ((pzerop (setq c (pplus (caddr u) c)))
146 frpoly-r (pplus '(x 1 1 0 1) (pplus '(y 1 1) '(z 1 1)))
|
| /dports/lang/eisl/eisl-2.35/bench/ |
| H A D | frpoly.lsp | 57 (pcoefadd 0 (pplus c (car (cdr x))) nil))
73 (defun pplus (x y) function
92 (pplus (car (cdr x)) (car (cdr y)))
158 (setq c (pplus c (car (cdr (dynamic v)))))
177 (setq c (pplus (car (cdr (cdr u))) c))
209 (setq r (pplus '(x 1 1 0 1) (pplus '(y 1 1) '(z 1 1)))) ; r = x+y+z+1
|
| /dports/science/fastjet/fastjet-3.3.4/src/ |
| H A D | GhostedAreaSpec.cc | 145 double pplus = pt*exprap; in add_ghosts() local
148 PseudoJet mom(px,py,0.5*(pplus-pminus),0.5*(pplus+pminus)); in add_ghosts()
|
| H A D | PseudoJet.cc | 356 double pplus = ptm*exprap; in reset_momentum_PtYPhiM() local
359 reset_momentum(px_local,py_local,0.5*(pplus-pminus),0.5*(pplus+pminus)); in reset_momentum_PtYPhiM()
370 double pplus = ptm*exprap; in PtYPhiM() local
373 PseudoJet mom(px,py,0.5*(pplus-pminus),0.5*(pplus+pminus)); in PtYPhiM()
|
| /dports/math/maxima/maxima-5.43.2/src/ |
| H A D | rat3b.lisp | 214 (pplus (wtptimes (car x) (cdr y) 0)
219 (pplus (ptimeschk (car x) (cdr y))
224 ((equal 1 (cdr y)) (cons (pplus (car x) (car y)) 1))
225 (t (cons (pplus (ptimes (car x) (cdr y)) (car y)) (cdr y)))))
228 (t (cons (pplus (ptimes (car y) (cdr x)) (car x)) (cdr x)))))
230 (setq n (pplus (ptimes (car x)(caddr q))
|
| H A D | rat3a.lisp | 235 (defun pplus (x y) function
252 (pplus (pt-lc x) (pt-lc y))
283 (pcoefadd 0 (pplus c (pt-lc terms)) nil))
432 (pplus (ptimes ans (pexpt val (- last-le (pt-le terms))))
609 (pplus sum
803 (pplus sum (p-delete-zeros var x))))
809 (setq sum (pplus sum
873 (setq c (pplus c (cadr vvv)))
885 (cond ((pzerop (setq c (pplus (caddr u) c)))
|
| H A D | factor.lisp | 197 (setq d (pplus (list var deg lc)d))
318 (setq b (pplus b (ptimes (car d) kterm))
319 a (pplus a (ptimes (cadr d) kterm))
337 (setq res (pplus res step))
1106 (pplus (ptimes (car ql) f)
1110 (setq r (pplus (pplus r (ptimes a1 b1))
1111 (pplus (ptimes a1 g) (ptimes b1 f))))
1112 (setq f (pplus f a1))
1113 (setq g (pplus g b1)))
1116 (setq h (npquo (pplus (pplus (ptimes a f)
[all …]
|
| H A D | algfac.lisp | 69 (setq vj (pplus v (car j))
245 (setq ans (pplus ans term))
255 (setq ans (pplus ans (setq term (pexptmod term prime q))))
286 (setq ans (pplus ans (ptimes (pexpt (car a) n) (car l))))
364 (rplaca q (pplus (cadr q) (ptimes lc (car xn))))
413 (setf (a i s) (pplus (a i s) (ptimes (a i j) aks)))
|
| H A D | nalgfa.lisp | 35 (pplus
43 (pplus ans
105 (pplus tr (car (last b)))))
247 (pgsubst (pplus (make-poly (car f)) (pctimes c (make-poly alg)))
433 (pplus (make-poly a) ;;new prim elm in old guys
|
| H A D | homog.lisp | 115 (pplus sum (hreduce (cadr p) (cdr vl) (cdr hl)))))
155 (p (hsimp1 (car pl) vl) (pplus p (hsimp1 (car pl) vl))))
|
| H A D | lesfac.lisp | 191 (setq a (makprod (pplus (pflatten (ptimeschk a d))
210 (pplus a (pflatten (pquotient (car ll) g))))
298 (setq ans (pplus (ptimes ans (pexpt val (- ld (car a))))
|
| /dports/math/R/R-4.1.2/src/nmath/ |
| H A D | ptukey.c | 106 pminus, pplus, qexpo, qsqz, rinsum, wi, wincr, xx; in wprob() local
179 pplus = 2 * pnorm(ac, 0., 1., 1,0); in wprob()
185 rinsum = (pplus * 0.5) - (pminus * 0.5); in wprob()
|
| /dports/math/libRmath/R-4.1.1/src/nmath/ |
| H A D | ptukey.c | 106 pminus, pplus, qexpo, qsqz, rinsum, wi, wincr, xx; in wprob() local
179 pplus = 2 * pnorm(ac, 0., 1., 1,0); in wprob()
185 rinsum = (pplus * 0.5) - (pminus * 0.5); in wprob()
|
| /dports/biology/vt/vt-0.57721/lib/Rmath/ |
| H A D | ptukey.c | 106 pminus, pplus, qexpo, qsqz, rinsum, wi, wincr, xx; in wprob() local
179 pplus = 2 * pnorm(ac, 0., 1., 1,0); in wprob()
185 rinsum = (pplus * 0.5) - (pminus * 0.5); in wprob()
|
| /dports/math/py-rvlib/rvlib-0.0.6/src/ |
| H A D | ptukey.c | 106 pminus, pplus, qexpo, qsqz, rinsum, wi, wincr, xx; in wprob() local
179 pplus = 2 * pnorm(ac, 0., 1., 1,0); in wprob()
185 rinsum = (pplus * 0.5) - (pminus * 0.5); in wprob()
|
| /dports/math/pspp/pspp-1.4.1/lib/tukey/ |
| H A D | ptukey.c | 163 pminus, pplus, qexpo, qsqz, rinsum, wi, wincr, xx; in wprob() local
241 pplus = 2 * pnorm (ac, 0., 1., 1, 0); in wprob()
247 rinsum = (pplus * 0.5) - (pminus * 0.5); in wprob()
|
| /dports/biology/ncbi-cxx-toolkit/ncbi_cxx--25_2_0/src/algo/blast/unit_tests/api/data/ |
| H A D | magicblast_discordant.asn | 146 title "pplus.1",
169 title "pplus.2",
|
| /dports/biology/ncbi-blast+/ncbi-blast-2.12.0+-src/c++/src/algo/blast/unit_tests/api/data/ |
| H A D | magicblast_discordant.asn | 146 title "pplus.1",
169 title "pplus.2",
|
| /dports/biology/fluctuate/fluctuate1.4/ |
| H A D | fluc_modellike.c | 770 long lowcus, growthplus, thetaplus, pplus, lastchain, ldummy; in fluc_locus_partial_lderiv() local
793 dummy = fluc_partial_lderiv(lastchain,rtheta,rgrowth,&fnp,&pplus, in fluc_locus_partial_lderiv()
799 temp4 += pplus * exp(fnp - fn); in fluc_locus_partial_lderiv()
1027 **dfxplus, *pplus; in matrixpoint() local
1037 pplus = (long *)calloc(NUMPARAMETERS,sizeof(long)); in matrixpoint()
1107 pplus[0] = -1 * fxplus[0]; in matrixpoint()
1108 pplus[1] = -1 * fxplus[1]; in matrixpoint()
1109 if (fabs(g) > LHOP_TOLERANCE) gchange = pplus[0] * fabs(g)/2.0; in matrixpoint()
1110 else gchange = pplus[0] * 3.0 * fabs(g)/2.0; in matrixpoint()
1111 thetachange = pplus[1] * theta/2.0; in matrixpoint()
[all …]
|
| /dports/science/dakota/dakota-6.13.0-release-public.src-UI/packages/external/trilinos/packages/rol/src/sol/function/progressivehedging/ |
| H A D | ROL_PH_bPOEObjective.hpp | 118 Real pplus(const Real x, const int deriv = 0) const { in pplus() function in ROL::PH_bPOEObjective
144 return pplus(arg,deriv); in bPOEobjective()
|
| /dports/math/maxima/maxima-5.43.2/share/affine/ |
| H A D | aquotient.lisp | 144 (setq prod-cof (pplus (term-cof answ) prod-cof))
313 (setq f (pplus
367 (setq remainder (pplus
887 (pplus answ
1252 (setq poly (pplus v j))
1369 when (not (numberp (setq tem (afp-gcd (pplus w i) u))))
1422 (setq tem (afp-gcd v (pplus tt 1)))
1538 (setq kk (pplus kk (ptimes quot we)))
1539 (list (pplus ve h) (pplus we kk))))))
1654 (pplus (list (car v) 1 1) (cdr v)))))
[all …]
|
| H A D | sub-proj.lisp | 55 (setq -answer- (pplus -answer- ,summand))))
116 (setq answer (pplus
132 (pplus answer
346 (setq q (pplus (ptimes rfactor q) deltaq))
525 do (setq answer (pplus answer (ptimes (first v) (second v))))
|
| H A D | polybas.lisp | 70 (pplus answer
83 do (setq answer (pplus answer
172 (polyop x y 0 0 + pplus ratplus ))
|
| /dports/science/openbabel/openbabel-3.1.1/src/formats/libinchi/ |
| H A D | ikey_dll.c | 137 static const char *pplus = "OPQRSTUVWXYZ"; in GetINCHIKeyFromINCHI() local
282 else flagproto = pplus[nprotons-1]; in GetINCHIKeyFromINCHI()
|
| /dports/audio/praat/praat-6.2.03/dwsys/ |
| H A D | NUMmathlib.cpp | 202 const double pplus = 2 * NUMgaussP (ac); // djmw: 2 * pnorm(ac, 0., 1., 1,0); in wprob() local
208 rinsum = pplus * 0.5 - pminus * 0.5; in wprob()
|