/dports/math/eclib/eclib-20210318/progs/out_no_ntl/ |
H A D | ecnf.out | 4 Enter sign (1,-1,0 for both):Newform information: 13 lplus = 1, mplus = 1 50 Enter sign (1,-1,0 for both):Newform information: 59 lplus = 1, mplus = 1 104 lplus = 1, mplus = 1 150 lplus = 1, mplus = 1 195 lplus = 1, mplus = 1 241 lplus = 1, mplus = 1 287 lplus = 5, mplus = 4 349 lplus = 5, mplus = 4 [all …]
|
H A D | moreap.out | 18 lplus = 1, mplus = 1 21 Making homspace...Constructing H1 (with sign=+1) ...done
|
/dports/math/eclib/eclib-20210318/progs/out_ntl/ |
H A D | ecnf.out | 4 Enter sign (1,-1,0 for both):Newform information: 13 lplus = 1, mplus = 1 50 Enter sign (1,-1,0 for both):Newform information: 59 lplus = 1, mplus = 1 104 lplus = 1, mplus = 1 150 lplus = 1, mplus = 1 195 lplus = 1, mplus = 1 241 lplus = 1, mplus = 1 287 lplus = 5, mplus = 4 349 lplus = 5, mplus = 4 [all …]
|
H A D | moreap.out | 18 lplus = 1, mplus = 1 21 Making homspace...Constructing H1 (with sign=+1) ...done
|
/dports/math/maxima/maxima-5.43.2/src/ |
H A D | laplac.lisp | 246 (list '(mplus) 376 (defun mostpart (f parm sign a b) 380 (list '(mplus) parm (afixsign (list '(mtimes) a '$%i) sign)))))) 489 (sign nil) 494 (simplifya (cond ((eq sign '$positive) 496 ((eq sign '$zero) 782 '(mplus) 871 (cond ((eq sign '$zero) 876 ) ((eq sign '$negative) 881 (setq sign [all …]
|
H A D | combin.lisp | 182 ((eq (caar e) 'mplus) 282 (fpn (list '(mplus) fact 1) (list '(mplus) fact i)) 757 (let ((w 2) (x 2) (y 1) u v (sign (signum n))) (declare (fixnum sign)) 767 ((or (= 1 sign) (not (logbitp 0 n))) 1198 (defun ipoly2 (a n lo sign) 1206 (cond ((eq sign '$negative) 1221 (list '(mplus) 1232 (defun isgeo1 (a r sign) 1233 (cond ((eq sign '$positive) 1235 ((eq sign '$zero) [all …]
|
H A D | trigo.lisp | 439 ((and $trigexpandplus (eq 'mplus (caar arg))) 469 (sign 1 (* flag sign)) 471 ((> i len) (simplify (cons '(mplus) result))) 477 (sign 1 (* flag sign)) 481 ((> i len) (div* (cons '(mplus) num) (cons '(mplus) den))) 482 (setq num (mpc1 (list sign '(mtimes)) l num f len i) 487 (do ((i (length l) (- i 2)) (len (length l)) (sign 1 (* flag sign)) (num) (den)) 488 ((< i 0) (div* (cons '(mplus) num) (cons '(mplus) den))) 489 (setq num (mpc1 (list sign '(mtimes)) l num f len i) 521 ((> i end) (setq num (div* (cons '(mplus) num) (cons '(mplus) den))) [all …]
|
H A D | sinint.lisp | 125 (return (list '(mplus) 178 (prog (p1e p2e a1e a2e a3e discrim repart sign ncc dcc allcc xx deg) 231 (setq sign (npask xx)) 232 (cond ((eq sign '$negative) (go e30)) 233 ((eq sign '$zero) (go zip)))) 237 (list '(mplus) 242 (list '(mplus) 254 '(mplus) 280 (return (list '(mplus) 304 (return (cons '(mplus) a2e)))) [all …]
|
H A D | gamma.lisp | 444 ((mplus) 1260 ((mplus) 1266 ((mlist) ((mplus) 1 a) ((mplus) 1 a)) 1273 ((mlist) ((mplus) 1 a) ((mplus) 1 a)) 1475 ((mplus) 1481 ((mlist) ((mplus) 1 a) ((mplus) 1 a)) 3026 (sign 1) 3036 (setq sum (+ sum (/ (* sign term) n))) 3040 (setq sign (- sign)) 3320 ((mlist) ((mplus) 1 a) ((mplus) 1 a)) [all …]
|
H A D | bessel.lisp | 76 ((mplus) 93 ((mplus) 107 ((mplus) 399 ((mplus) 742 ((mplus) 757 ((mplus) ((%bessel_i) ((mplus) -1 n) x) 771 ((mplus) 1073 ((mplus) 1088 ((mplus) ((%bessel_k) ((mplus) -1 n) x) 1392 (sign (if (oddp n) -1 1)) [all …]
|
H A D | rat3e.lisp | 225 (cond ((eq (caar ans) 'mplus) 604 ((eq (caar x) 'mplus) 765 '(mplus mtimes rat mdifference 931 (cons '(mplus ratsimp) p))))) 1001 (defun cdisrep (x &aux n d sign) 1010 (list '(rat) (* sign n) d)) 1013 (eq (caar n) 'mplus)) 1017 (list '(rat) sign d) n)) 1018 ((equal sign -1) 1023 (t (list sign n (list '(mexpt ratsimp) d -1)))))) [all …]
|
H A D | specfn.lisp | 274 (t `((mqapply) (($psi array) ((mplus) -1 ,n)) ,x)))) 420 (prog ((e 0) (sign 0) npw) 421 (declare (fixnum e) (fixnum sign)) 437 a (setq e (1+ e) sign (- sign)) 447 (cond ((= subl -1) (cons sign k)) 448 ((= subl 0) (cons sign 1)) 450 (cons (* sign *last*) 1) 562 ((mexpt) ((mplus) 1 ((%lambert_w) x)) -1))) 571 ((mplus) 818 ((mexpt) ((mplus) 1 ((%generalized_lambert_w) k x)) -1))) [all …]
|
H A D | simp.lisp | 1392 (cons '(mplus) 1394 (outermap1 'mplus (cons '(mplus) (car sc)) mx)) 1396 (t (simplify (outermap1 'mplus (cons '(mplus) (car sc)) mx))))) 1771 (let (sign out) 1774 (setq sign (cadr sc)) (rplaca (cdr sc) nil)) 1793 (cond (sign (if (mtimesp out) 1794 (rplacd out (cons sign (cdr out))) 1795 (list '(mtimes) sign out))) 3194 ((or (eq cx 'mplus) (eq cy 'mplus)) 3195 (ordlist (term-list x) (term-list y) 'mplus 'mplus)) [all …]
|
H A D | compar.lisp | 914 (if minus (setq sign (flip sign))) 1278 (sign exp)) 1310 (list 'mplus 'sign-mplus) 1447 (setq sign (flip sign))) 1559 (when (atom x) (setq x (cons '(mplus) (list x)))) 1570 (or (eq sign '$complex) (eq sign '$imaginary))) 1713 (setq sign 1908 (setf (get 'mplus 'maps-integers-to-integers) t) 2065 ((eq 'mplus (caar e)) (evod-mplus e)) 2427 ((eq (caaar exp) 'mplus) (setq exp (splitsum exp))) [all …]
|
H A D | hayat.lisp | 1472 (if (eq (caar e) 'mplus) 1728 (setq sign (e* sign chng)))) 1758 sign (e* sign chng)))) 1768 sign (e* chng sign)) 1783 sign (e* chng sign)) 1797 sign (e* chng sign)) 1809 sign (* sign chng)) 2525 (taylor2 `((mplus) ((%gamma) ,s) 2549 ((mplus) ,s k)) 3074 '(mplus exact))) [all …]
|
/dports/math/eclib/eclib-20210318/libsrc/ |
H A D | newforms.cc | 139 mplus=data[5]; in newform() 206 lplus=mplus=0; in newform() 492 mplus =0; in find_twisting_primes() 504 (((sign!=-1)&&(mplus==0)) || in find_twisting_primes() 514 if((sign!=-1)&&(mplus==0)&&(l%4==1)) in find_twisting_primes() 522 mplus = (vi->second)*bplus; in find_twisting_primes() 527 if (mplus<0) in find_twisting_primes() 529 mplus *= -1; in find_twisting_primes() 533 if((denomplus>1)&&(mplus!=0)) in find_twisting_primes() 535 if(::divides(denomplus,mplus)) mplus/=denomplus; in find_twisting_primes() [all …]
|
/dports/lang/tcl85/tcl8.5.19/generic/ |
H A D | tclStrToD.c | 2131 *sign = 1; in TakeAbsoluteValue() 2134 *sign = 0; in TakeAbsoluteValue() 2957 mplus = 10 * mplus; in ShorteningInt64Conversion() 3282 mp_mul_2d(&mplus, m2plus-m2minus, &mplus); in ShorteningBignumConversionPowD() 3684 mp_mul_2d(&mplus, m2plus-m2minus, &mplus); in ShorteningBignumConversion() 3758 mp_mul_2d(&mplus, 1, &mplus); in ShorteningBignumConversion() 3793 mp_mul_2d(&mplus, 10, &mplus); in ShorteningBignumConversion() 4570 if (a->sign == MP_ZPOS) { in TclBignumToDouble() 4603 if (b.sign == MP_ZPOS) { in TclBignumToDouble() 4616 if (b.sign == MP_ZPOS) { in TclBignumToDouble() [all …]
|
/dports/lang/tcl86/tcl8.6.12/generic/ |
H A D | tclStrToD.c | 2239 int *sign) /* Place to put the signum. */ in TakeAbsoluteValue() argument 2242 *sign = 1; in TakeAbsoluteValue() 2245 *sign = 0; in TakeAbsoluteValue() 3029 if (b < mplus || (b == mplus in ShorteningInt64Conversion() 3087 mplus = 10 * mplus; in ShorteningInt64Conversion() 3397 mp_mul_2d(&mplus, m2plus-m2minus, &mplus); in ShorteningBignumConversionPowD() 3791 mp_mul_2d(&mplus, m2plus-m2minus, &mplus); in ShorteningBignumConversion() 3871 mp_mul_2d(&mplus, 1, &mplus); in ShorteningBignumConversion() 3907 mp_mul_2d(&mplus, 10, &mplus); in ShorteningBignumConversion() 4176 int *sign, /* OUTPUT: 1 if the result is negative. */ in TclDoubleDigits() argument [all …]
|
/dports/lang/tcl87/tcl8.7a5/generic/ |
H A D | tclStrToD.c | 2389 int *sign) /* Place to put the signum. */ in TakeAbsoluteValue() argument 2392 *sign = 1; in TakeAbsoluteValue() 2395 *sign = 0; in TakeAbsoluteValue() 3170 if (b < mplus || (b == mplus in ShorteningInt64Conversion() 3228 mplus = 10 * mplus; in ShorteningInt64Conversion() 3538 err = mp_mul_2d(&mplus, m2plus-m2minus, &mplus); in ShorteningBignumConversionPowD() 3948 err = mp_mul_2d(&mplus, m2plus-m2minus, &mplus); in ShorteningBignumConversion() 4031 err = mp_mul_2d(&mplus, 1, &mplus); in ShorteningBignumConversion() 4071 err = mp_mul_2d(&mplus, 10, &mplus); in ShorteningBignumConversion() 4342 int *sign, /* OUTPUT: 1 if the result is negative. */ in TclDoubleDigits() argument [all …]
|
/dports/math/maxima/maxima-5.43.2/share/numeric/ |
H A D | decfp-core.lisp | 71 (sign (signum s))) 91 (list (cond ((= sign 1) 216 (sign nil)) 218 (setq sign t 224 (when sign (princ "-")) 232 (when sign (princ "-")) 297 ((eq (caar x) 'mplus) 338 ((mplus simp) 1 ((mexpt simp) 5 ((rat simp) 1 2))))) 405 (unless (member j '(mabs mplus mtimes rat) :test 'eq) 425 (defprop mplus decaddbigfloat floatprog) unknown [all …]
|
/dports/math/eclib/eclib-20210318/libsrc/eclib/ |
H A D | newforms.h | 63 int sign; // 1/-1 for old-style newform, 0 for old-style h1newform variable 78 long mplus, mminus; // mplus*x=sqrt(lplus)*L(fxlplus,1) variable 134 int verbose; long maxdepth, cuspidal, sign; variable 174 void set_sign(int s) {sign=s;} in set_sign() 175 int get_sign() {return sign;} in get_sign()
|
/dports/math/maxima/maxima-5.43.2/share/contrib/format/ |
H A D | coeflist.lisp | 198 ((eq op 'mplus) (cl-reduce #'clist-add (cdr expr) #'gcf)) 313 (sign +1)) 315 (setq m (mapcar #'neg m) sign -1)) 318 `(((,(mul (- sign) ($sin arg)) . ,m)) ((,($cos arg) . ,m)))) 320 `(((,(mul sign ($cos arg)) . ,m)) ((,($sin arg) . ,m))))))) 338 ((eq op 'mplus) (cl-reduce #'tlist-add (cdr expr) #'gcf)) 421 ((member op '(mplus mlist mequal $matrix)) 433 ((eq op 'mplus)
|
/dports/math/maxima/maxima-5.43.2/share/tensor/ |
H A D | itensor.lisp | 274 '(mplus) 328 '(mplus) 423 '(mplus) 482 '(mplus) 539 '(mplus simp) 595 '(mplus) 0 678 '(mplus) 807 (eq (caar e) 'mplus) 2383 (prog (a b c sign) 2391 ((< (car c) a) (setq sign (not sign)))) [all …]
|
/dports/lang/purescript/purescript-0.14.5/_cabal_deps/scientific-0.3.7.0/src/Data/ |
H A D | Scientific.hs | 108 import Control.Monad (mplus) 759 | e > limit = if e > hiLimit then Left $ sign (1/0) -- Infinity 761 | e < -limit = if e < loLimit && e + d < loLimit then Left $ sign 0 783 sign x | c < 0 = -x function 916 let positive = (('+' ==) <$> ReadP.satisfy isSign) `mplus` return True 942 ((Scientific signedCoeff . (expnt +)) <$> eP)) `mplus`
|
/dports/finance/hs-hledger-ui/hledger-ui-1.19/_cabal_deps/scientific-0.3.7.0/src/Data/ |
H A D | Scientific.hs | 108 import Control.Monad (mplus) 759 | e > limit = if e > hiLimit then Left $ sign (1/0) -- Infinity 761 | e < -limit = if e < loLimit && e + d < loLimit then Left $ sign 0 783 sign x | c < 0 = -x function 916 let positive = (('+' ==) <$> ReadP.satisfy isSign) `mplus` return True 942 ((Scientific signedCoeff . (expnt +)) <$> eP)) `mplus`
|