| /dports/math/maxima/maxima-5.43.2/src/ |
| H A D | residu.lisp | 190 (setq b (cadr a) c (ptimes (cddr a) n2) a (caar a))
191 (setq a (ptimes n a) b (ptimes n b))
194 (setq b (cons (pplus (ptimes (car r) f) (ptimes (cdr r) b))
196 (return (cons (cons (car a) (ptimes (cdr a) c))
197 (cons (car b) (ptimes (cdr b) c))))))
238 (ptimes f1
239 (ptimes zeropolb
242 (setq coef1r (pdifference (ptimes f2 coef1r)
243 (ptimes (ptimes f1 coef2r) zeropolb)))
244 (setq coef1s (pdifference (ptimes f2 coef1s)
[all …]
|
| H A D | lesfac.lisp | 51 (ptimes (pexpt (pget (caar a)) ;CHECK FOR ALG. TRUNC.
82 (ptimes (cexpt (caar l) (cdar l)) (pmake (cdr l))))
84 (ptimes (list (caar l) (cdar l) 1) (pmake (cdr l))))))
111 (rplaca l2 (ptimes x (car l2))))))
197 (cons (ptimes x a) y))
212 ((null ll) (ptimes g (makprod a nil))))))))
224 (cons (ptimes g1 (ptimes x2 y2))
238 (setq poly (list (ptimes (car poly) a)
253 (ptimes (list (car poly) (cadr poly) 1)
297 ((null a) (ptimes ans (pexpt val ld)))
[all …]
|
| H A D | rat3c.lisp | 42 (t (ptimes a b))))
61 (ptimes (car x) (ptimes (cadr x) (caddr x))))
65 (list (ptimes (car x) (ptimes (cadr x) (caddr x)))
80 (ptimes (car y) (cadr a))
81 (ptimes (cadr a) (cdr y))))))
167 (ptimes coeff12 gcdcd))))
169 (ptimes coeff11 rpol1)
170 (ptimes coeff12 rpol2))))))
259 q (pquotientchk-safe (prem p q) (ptimes g (ptimes h h^1-d))))
303 (ptimes lcu (pt-lc v)))
[all …]
|
| H A D | rat3b.lisp | 107 (cons (ptimes (car v)
121 (setq num (ratreduce (pdifference (ptimes (cadr denom)
123 (ptimes num (caddr denom)))
127 (t (rplacd num (ptimes (cdr num)
184 (t (ptimes p q))))
225 (t (cons (pplus (ptimes (car x) (cdr y)) (car y)) (cdr y)))))
230 (setq n (pplus (ptimes (car x)(caddr q))
231 (ptimes (car y)(cadr q))))
233 (setq n (ptimes n (cadddr q))))
235 (ptimes (car q)
[all …]
|
| H A D | rat3a.lisp | 436 (ptimes ans (pexpt val last-le))))))
850 (defun ptimes (x y) function
867 (setq c (ptimes (cadr y) xc))
892 (setq c (ptimes (cadr y) xc))
899 unless (pzerop (setq coef (ptimes c coef)))
908 unless (pzerop (setq coef (ptimes c coef)))
972 (setq p (ptimes p (car a)))
973 (setq q (ptimes q (car a)))
980 (pquotient (ptimes a p) q)))
1008 (setq p (ptimes p p))
[all …]
|
| H A D | factor.lisp | 195 (setq d (ptimes (ptimes h (car r)) (psimp var (cdddr d))))
330 (t (ptimes a b)))
333 (t (ptimes df1 b))))
336 (t (ptimes df2 a)))))
358 (setq h (pquo (pmod (pdifference (pplus (ptimes a f) (ptimes b g))
362 (setq b1 (pplus (ptimes b h) (ptimes (car qlp) f)))
870 (setq v (ptimes lc (ptimes (caddr u) u))))
1107 (ptimes b c))))
1111 (pplus (ptimes a1 g) (ptimes b1 f))))
1117 (ptimes b g))
[all …]
|
| H A D | algfac.lisp | 90 (return (cons (ptimes lc (car fnq)) (cdr fnq)))))
132 (mapcar #'(lambda (a) (ptimes var a)) row))
201 (setq alc (painvmod (caddr tr)) tr (ptimes alc tr)))
213 (setq trm (pdifference tr (ptimes m alc)))
286 (setq ans (pplus ans (ptimes (pexpt (car a) n) (car l))))
317 (setq b1 (pmodrem(ptimes b1 b2) u))
364 (rplaca q (pplus (cadr q) (ptimes lc (car xn))))
366 (t (rplaca q (ptimes lc (car xn)))
399 (setq m (ptimes mone (painvmod m)))
402 (setf (a s j) (ptimes m (a s j)))
[all …]
|
| H A D | ezgcd.lisp | 103 (cond (pl1 (cons (ptimes (car pl1) (car pl2))
113 (setq builder (ptimes builder lc1))))
143 (setq factrs (list (ptimes mult (car factrs))
144 (ptimes lcd0 (cadr factrs))))
205 contgcd (ptimes termcont (car contgcd)))
220 (setq lcprod (ptimes lcprod (car l))))
296 (return (cons (ptimes contgcd d)
324 (mapcar #'(lambda (x) (ptimes x cof1)) pfl2))
335 (mapcar #'ptimes (cdr presult) pfl2))))
359 (setq d (ptimes (car pl) d)
[all …]
|
| H A D | mat.lisp | 134 (t (ptimes (car d)
152 (and *det* (setq mul* (ptimes mul* mul)))
155 (t (setq mul (ptimes mul (pquotient d (pgcd mul d)))))))))
213 (pquotient (pdifference (ptimes (aref ax (aref *row* k) (aref *col* k))
215 (ptimes (aref ax (aref *row* i) (aref *col* k))
235 (ptimes (aref ax (aref *row* i) (aref *col* l))
239 (setq sum (pplus sum (ptimes (aref ax (aref *row* i) (aref *col* j))
|
| H A D | result.lisp | 50 (setq ans (ptimes ans
145 (ptimes g (ptimes h h^1-d)))))))
304 (ptimes br a) (ptimes ar b))))
|
| H A D | nalgfa.lisp | 36 (ptimes ans (pexpt val (- ld (car a))))
38 ((null a) (ptimes ans (pexpt val ld)))))))
41 (ans (ptimes (list (car p) (cadr p) 1)
44 (ptimes (list (car p) (car a) 1)
111 (rplaca l (pdifference (car l) (ptimes (car b) (car tv))))))))
447 (mapcar #'(lambda (q2) (algtrace (ptimes q1 q2) minp)) l))
|
| H A D | rat3d.lisp | 152 (and algfac* (cadddr p) (setq adn* (ptimes adn* (cadddr p))))
158 (and algfac* (cadddr r) (setq adn* (ptimes adn* (cadddr r))))
239 (setq d (pplus (pexpt b 2) (ptimes -4 (ptimes a c))))
242 (setq d (ratreduce (pplus b c) (ptimes 2 a)))
243 (setq d (pabs (pplus (ptimes (make-poly v) (cdr d))
|
| H A D | sinint.lisp | 38 (cons (ptimes (car q) (car rootfactor)) (cdr rootfactor)))
56 (setq ppdenom (cons (ptimes (car ppdenom) (car pardenomc)) ppdenom))
293 (pexpt (ptimes 2 (polcoef p2e 2)) 2)
294 (pcoefadd 1 (ptimes 4 (ptimes (polcoef p2e 2)
297 (ptimes 4 (polcoef p2e 2))))
|
| /dports/lang/clisp/clisp-df3b9f6fdcff22832898e89a989eb499c0f842ed/benchmarks/ |
| H A D | frpoly.lisp | 47 (ptimes c (cadr x))
75 (defun ptimes (x y) (cond ((or (pzerop x) (pzerop y)) (pzero)) function
93 (ptimes (cadr ***x***) (cadr y))
100 (setq c (ptimes (cadr y) (cadr ***x***) ))
128 (setq c (ptimes (cadr y) (cadr ***x***)))
137 (setq p (ptimes p p))
138 (and (oddp n) (setq s (ptimes s p))) ))
148 frpoly-r2 (ptimes frpoly-r 100000)
150 frpoly-r3 (ptimes frpoly-r 1.0)))
|
| /dports/lang/eisl/eisl-2.35/bench/ |
| H A D | frpoly.lsp | 70 (ptimes c (car (cdr x)))
107 (defun ptimes (x y) function
136 (ptimes (car (cdr (dynamic *x*))) (car (cdr y)))
147 (setq c (ptimes (car (cdr y)) (car (cdr (dynamic *x*)))))
188 (setq c (ptimes (car (cdr y)) (car (cdr (dynamic *x*)))))
202 (setq p (ptimes p p))
203 (and (oddp n) (setq s (ptimes s p)))))
210 (setq r2 (ptimes r 100000)) ; r2 = 100000*r
211 (setq r3 (ptimes r 1.0)) ; r3 = r in flonums
|
| /dports/math/maxima/maxima-5.43.2/share/affine/ |
| H A D | sub-proj.lisp | 74 (ptimes cof
79 (ptimes (list (car poly) degree 1)
80 (ptimes cof (pexpt denom (- deg degree)))))))))
91 (ptimes (list (car poly) degree 1)
93 (t(setq poly (ptimes poly (pexpt denom deg)))))
117 (ptimes (pexpt repl(car tail))
133 (ptimes
329 (setq rnew (ptimes rfactor r))
330 (setq c (ptimes c rfactor))
342 (ptimes divisor
[all …]
|
| H A D | polysmp.lisp | 299 (setq answer (ptimes denom-replacement answer))
300 (setq tem (ptimes
329 (setq answer (ptimes denom-replacement answer))
330 (setq tem (ptimes
337 (ptimes (denom poly )
374 (ptimes cof
523 (ptimes (num replacement-of-mono)
525 (ptimes (num repl) (denom replacement-of-mono))))
541 (ptimes (denom repl-simp) (denom repl))))
981 (ptimes (convert-deg-sequence-to-monomial seq)
[all …]
|
| H A D | aquotient.lisp | 318 ptimes
372 ptimes deg-dif)))
450 do (return (ptimes d v))
502 (t (ptimes f g))))
563 (iassert (equal f (ptimes d qf))) (iassert (equal g (ptimes d qg)))))
769 (ptimes f g)
825 (setq a (ptimes a fact))
826 (setq b (ptimes b fact))))
1532 (setq h (ptimes b dif))
1533 (setq kk (ptimes a dif))
[all …]
|
| H A D | polybas.lisp | 65 (cond ((atom poly) (ptimes poly (pexpt denom degree)))
71 (ptimes
84 (ptimes
89 (t (ptimes (pexpt denom degree) poly))))
175 (polyop x y 1 1 * ptimes rattimes t))
|
| /dports/math/calc/calc-2.14.0.14/cal/ |
| H A D | test4000.cal | 38 * ptimes(str, N [, n [, count [, skip, [, verbose]]]])
121 define ptimes(str, N, n, count, skip, verbose)
435 err += ptimes(strcat(str(tnum++),": ptimes(1,250)"), 1, 250,,,v);
436 err += ptimes(strcat(str(tnum++),": ptimes(3,50)"), 3, 50,,,v);
437 err += ptimes(strcat(str(tnum++),": ptimes(5,20)"), 5, 20,,,v);
|
| /dports/science/elmerfem/elmerfem-release-9.0/ElmerGUI/matc/src/ |
| H A D | parser.c | 522 while(symbol == times || symbol == ptimes || symbol == divide)
532 case ptimes:
592 case times: case ptimes: case divide:
661 case times: case ptimes: case divide:
707 case times: case ptimes: case divide:
766 case times: case ptimes: case divide:
819 case times: case ptimes: case divide:
876 case times: case ptimes: case divide:
938 case times: case ptimes: case divide: in equation()
|
| /dports/science/elmerfem/elmerfem-release-9.0/matc/src/ |
| H A D | parser.c | 523 while(symbol == times || symbol == ptimes || symbol == divide)
533 case ptimes:
593 case times: case ptimes: case divide:
662 case times: case ptimes: case divide:
708 case times: case ptimes: case divide:
767 case times: case ptimes: case divide:
820 case times: case ptimes: case divide:
877 case times: case ptimes: case divide:
939 case times: case ptimes: case divide: in equation()
|
| /dports/science/elmerfem/elmerfem-release-9.0/post/matc/src/ |
| H A D | parser.c | 522 while(symbol == times || symbol == ptimes || symbol == divide)
532 case ptimes:
592 case times: case ptimes: case divide:
661 case times: case ptimes: case divide:
707 case times: case ptimes: case divide:
766 case times: case ptimes: case divide:
819 case times: case ptimes: case divide:
876 case times: case ptimes: case divide:
938 case times: case ptimes: case divide: in equation()
|
| /dports/www/zenphoto/zenphoto-1.5.9/zp-core/zp-extensions/elFinder/php/ |
| H A D | elFinderVolumeDropbox.class.php | 534 $ptimes = array();
561 $ptimes[$pkey] = isset($ptimes[$pkey])? max(array($now, $ptimes[$pkey])) : $now;
568 $ptimes[$pkey] = isset($ptimes[$pkey])? max(array($_itemTime, $ptimes[$pkey])) : $_itemTime;
579 foreach ($ptimes as $_p => $_t) {
|
| /dports/www/tikiwiki/tiki-21.2/vendor_bundled/vendor/studio-42/elfinder/php/ |
| H A D | elFinderVolumeDropbox.class.php | 534 $ptimes = array();
561 $ptimes[$pkey] = isset($ptimes[$pkey])? max(array($now, $ptimes[$pkey])) : $now;
568 $ptimes[$pkey] = isset($ptimes[$pkey])? max(array($_itemTime, $ptimes[$pkey])) : $_itemTime;
579 foreach ($ptimes as $_p => $_t) {
|