Home
last modified time | relevance | path

Searched +refs:ptimes +refs:e (Results 1 – 25 of 45) sorted by relevance

12

/dports/math/maxima/maxima-5.43.2/src/
H A Dresidu.lisp191 (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))))))
201 (setq e (div* n e))
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 Drat3b.lisp33 (defun ratdx (e *x*)
37 (and (member 'trunc (car e) :test #'eq) (setq trunclist (cadddr (cdar e))))
38 (cond ((not (eq (caar e) (quote mrat))) (setq e (ratf e))))
39 (setq varlist (caddar e))
69 (cond (flag (psdp (cdr e)))
72 (cond (flag (ratdx1 (cadr e) (cddr e)))
107 (cons (ptimes (car v)
127 (t (rplacd num (ptimes (cdr num)
184 (t (ptimes p q))))
231 (ptimes (car y)(cadr q))))
[all …]
H A Drat3a.lisp850 (defun ptimes (x y) function
864 (prog (e u c)
866 (setq e (+ xe (car y)))
872 ((= e (car vvv))
884 (rplacd u (cons e (cons c (cdr u)))) (go e)))
888 e (setq u (cddr u))
891 (setq e (+ xe (car y)))
897 (defun pcetimes1 (y e c) ;C*V^E*Y
900 nconc (list (+ e exp) coef)))
977 (setq a (pexpt a e))
[all …]
H A Dlesfac.lisp82 (ptimes (cexpt (caar l) (cdar l)) (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)
269 (e (pdis p)))
270 (putprop g e 'disrep)
273 (push e varlist)
[all …]
H A Drat3c.lisp42 (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))
167 (ptimes coeff12 gcdcd))))
169 (ptimes coeff11 rpol1)
259 q (pquotientchk-safe (prem p q) (ptimes g (ptimes h h^1-d))))
303 (ptimes lcu (pt-lc v)))
468 (e (pdegree (p-lc p) var) (max e (pdegree (pt-lc l) var))))
469 ((null l) e)))))
[all …]
H A Dalgfac.lisp132 (mapcar #'(lambda (a) (ptimes var a)) row))
144 (prog (e d m row rowd vecd)
156 (setq e (car vecd))
157 (cond ((equal 0 e)
164 (cons (divl vec e) (mapcar (function cdr) (cdr m))))
166 (setq vec (pdifrows (cdr vec) (ptimesrow e (cdr row))))
213 (setq trm (pdifference tr (ptimes m alc)))
317 (setq b1 (pmodrem(ptimes b1 b2) u))
366 (t (rplaca q (ptimes lc (car xn)))
399 (setq m (ptimes mone (painvmod m)))
[all …]
H A Dfactor.lisp58 (nl (loop for (c e) on (cfactorw n) by #'cddr
59 nconc (make-list e :initial-element c))))
195 (setq d (ptimes (ptimes h (car r)) (psimp var (cdddr d))))
330 (t (ptimes a 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))))
1111 (pplus (ptimes a1 g) (ptimes b1 f))))
1117 (ptimes b g))
[all …]
H A Dmat.lisp106 (defun const (e varl)
108 (setq e (cdr (ratrep* e)))
110 (ratreduce (pctimes -1 (pcsubsty zl varl (car e)))
111 (pcsubsty zl varl (cdr e)))))
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))
[all …]
H A Dresult.lisp50 (setq ans (ptimes ans
145 (ptimes g (ptimes h h^1-d)))))))
212 (defun coefbound (m n d e)
221 (expt e m) ))
304 (ptimes br a) (ptimes ar b))))
H A Dsinint.lisp38 (cons (ptimes (car q) (car rootfactor)) (cdr rootfactor)))
293 (pexpt (ptimes 2 (polcoef p2e 2)) 2)
294 (pcoefadd 1 (ptimes 4 (ptimes (polcoef p2e 2)
297 (ptimes 4 (polcoef p2e 2))))
307 (prog (a b c d e r ratr var* x)
309 d (polcoef denom 3) e (polcoef denom 0))
311 (simpnrt (disrep (ratqu (ratti -1 e t) d)) 3))
312 (t (neg (simpnrt (disrep (ratqu e d)) 3)))))
329 (r+ (ratqu (r* -1 a e) d)
416 (defun zerocoefl (e n)
[all …]
H A Dratout.lisp154 (cond ((vgreat e degree) (setq e degree)))
164 (setq f1f2 (ptimes f1 f1f2))
180 ((vgreat e degree) (setq n 0) (setq e degree)))
189 (setq q (ptimes q (list xv 1 1 0 (cminus b))))))
213 (t (list (ptimes (crecip lcf) gcd)
214 (ptimes lcf x)
215 (ptimes lcf y) )) ))
244 (cond ((vgreat e degree) (setq e degree)))
275 ((vgreat e degree) (setq n 0) (setq e degree)))
366 (t (cons (ptimes x (car l)) (ap1 x (cdr l))))))
[all …]
H A Drat3d.lisp152 (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))
448 (defun retfactor1 (p e)
449 (power (tagirr (simplify (pdisrep p))) e))
H A Dnrat4.lisp182 (defun xptimes (x y) (if $ratwtlvl (wtptimes x y 0) (ptimes x y)))
211 (setf (cadr ptr) (ptimes h (cadr ptr)))))
266 (ptimes (psimp k (list (- j (* n (car ptr))) 1))
339 (if (pzerop c) (cons (pzero) b) (cons c (pdifference b (ptimes c a))))))
355 (prog (l e)
357 e (car l))
364 ((atom e) t)
370 (and (eq (caar e) '%integrate) (cdddr e))
371 (and (eq (caar e) '%limit) (cddr e)))
374 ((eq (caar e) '%at)
[all …]
H A Dalgsys.lisp496 (t (return (ptimes (car l) (ptimeftrs ll)))))))
512 (setq e (simplify-after-subst e))
513 (cadr (ratf e))))
574 (if ($constantp e)
576 (setq e (sqrtdenest e))
582 (setq e tmp))
583 (setq e ($rootscontract e))
584 (setq e2 (sratsimp e))
716 (let ((e (first l)))
717 `(((,(mop e)) ,(second e) ,(simplify-after-subst (third e))))))
[all …]
H A Dsolve.lisp172 (e (cond (($listp *eql) *eql)
182 u e)
187 u e)))))
697 (defun of-form-A*F<X>^N+B (e)
698 (and (memalike (simplify (pdis (list (car e) 1 1))) *has*var)
699 (or (atom (caddr e))
700 (not (memalike (simplify (pdis (list (caaddr e) 1 1)))
702 (or (null (cdddr e)) (equal (cadddr e) 0))))
790 (pminus (ptimes 4. (ptimes a c)))))))
792 (setq a (pdis (ptimes 2. a)))
H A Dnewinv.lisp18 (prog (e)
21 (setq e (car l) l (cdr l))
23 (setf (aref ax i j) (rattimes e (aref ax i j) t))))))
53 (prog (ei e *rr* *r0 co)
61 (setq e (car ei) ei (cdr ei))
62 (setq co (cons (bmhk ax e d co r detl* *r0) co))
101 on (setq det (cons (ptimes (pminus (caar a)) (car det)) 1))
/dports/lang/clisp/clisp-df3b9f6fdcff22832898e89a989eb499c0f842ed/benchmarks/
H A Dfrpoly.lisp47 (ptimes c (cadr x))
75 (defun ptimes (x y) (cond ((or (pzerop x) (pzerop y)) (pzero)) function
97 (prog (e u c)
100 (setq c (ptimes (cadr y) (cadr ***x***) ))
120 (rplacd u (cons e (cons c (cdr u)))) (go e)))
124 e (setq u (cddr u))
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)
[all …]
/dports/lang/eisl/eisl-2.35/bench/
H A Dfrpoly.lsp41 (defun pcoefadd (e c x)
44 (cons e (cons c x))))
70 (ptimes c (car (cdr x)))
107 (defun ptimes (x y) function
136 (ptimes (car (cdr (dynamic *x*))) (car (cdr y)))
140 (let ((e ())
147 (setq c (ptimes (car (cdr y)) (car (cdr (dynamic *x*)))))
176 (go e))
188 (setq c (ptimes (car (cdr y)) (car (cdr (dynamic *x*)))))
202 (setq p (ptimes p p))
[all …]
/dports/www/zenphoto/zenphoto-1.5.9/zp-core/zp-extensions/elFinder/php/
H A DelFinderVolumeDropbox.class.php327 } catch (Dropbox_Exception $e) {
383 } catch (PDOException $e) {
445 } catch (PDOException $e) {
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) {
599 $e = $this->DB->errorInfo();
600 return $e[2];
606 return $e->getMessage();
[all …]
/dports/www/tikiwiki/tiki-21.2/vendor_bundled/vendor/studio-42/elfinder/php/
H A DelFinderVolumeDropbox.class.php327 } catch (Dropbox_Exception $e) {
383 } catch (PDOException $e) {
445 } catch (PDOException $e) {
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) {
599 $e = $this->DB->errorInfo();
600 return $e[2];
606 return $e->getMessage();
[all …]
/dports/math/maxima/maxima-5.43.2/share/affine/
H A Daquotient.lisp207 (defun afp-terms-plus (terms-f terms-g &aux e)
213 (setq e (afp-plus (second terms-f) (second terms-g)))
214 (cond ((pzerop e)(afp-terms-plus (cddr terms-f) (cddr terms-g)))
215 (t (cons (car terms-f) (cons e (afp-terms-plus (cddr terms-f) (cddr terms-g)))))))
318 ptimes
372 ptimes deg-dif)))
502 (t (ptimes f g))))
563 (iassert (equal f (ptimes d qf))) (iassert (equal g (ptimes d qg)))))
769 (ptimes f g)
1532 (setq h (ptimes b dif))
[all …]
H A Dnew-rat.lisp314 (defmfun ptimes (x y)
322 (defun ptimes (x y)
491 (ratreduce (ptimes the-num the-denom) (ptimes the-denom (denom expr))))
529 ((fixnump e)
532 ((atom e) nil)
536 (cond ((or (minusp (cadr e)) (greaterp (cadr e) 1))
556 (setq e (cddr e)))
566 (cddr e)))))
571 e)))))
587 (cdr e))))
[all …]
/dports/math/sympol/SymPol-0.1.9/external/lrslib-042c/
H A Dlrsgmp.h93 #define errcheck(s,e) if ((long)(e)==-1L){ perror(s);exit(1);} argument
97 void ptimes ();
H A Dlrslib.h43 #define errcheck(s,e) if ((long)(e)==-1L){ perror(s);exit(1);} argument
47 void ptimes ();
/dports/science/nest/nest-simulator-3.1/lib/sli/
H A Dsli-init.sli41 % starts, i.e. at the beginning of this file.
61 length counts type-dependent elements, e.g. characters of a string,
507 %% ptimes, realtime, usertime, systemtime, tic, toc
516 i.e., only differences are meaningful.
526 /ptimes
536 Real time has arbitrary origin, i.e., only differences are meaningful.
545 ptimes 0 get
563 ptimes 1 get
581 ptimes 2 get
594 SeeAlso: toc, realtime, ptimes
[all …]

12