Home
last modified time | relevance | path

Searched +refs:sign +refs:mplus (Results 1 – 25 of 81) sorted by relevance

1234

/dports/math/eclib/eclib-20210318/progs/out_no_ntl/
H A Decnf.out4 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 Dmoreap.out18 lplus = 1, mplus = 1
21 Making homspace...Constructing H1 (with sign=+1) ...done
/dports/math/eclib/eclib-20210318/progs/out_ntl/
H A Decnf.out4 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 Dmoreap.out18 lplus = 1, mplus = 1
21 Making homspace...Constructing H1 (with sign=+1) ...done
/dports/math/maxima/maxima-5.43.2/src/
H A Dlaplac.lisp246 (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 Dcombin.lisp182 ((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 Dtrigo.lisp439 ((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 Dsinint.lisp125 (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 Dgamma.lisp444 ((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 Dbessel.lisp76 ((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 Drat3e.lisp225 (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 Dspecfn.lisp274 (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 Dsimp.lisp1392 (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 Dcompar.lisp914 (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 Dhayat.lisp1472 (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 Dnewforms.cc139 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 DtclStrToD.c2131 *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 DtclStrToD.c2239 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 DtclStrToD.c2389 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 Ddecfp-core.lisp71 (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 Dnewforms.h63 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 Dcoeflist.lisp198 ((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 Ditensor.lisp274 '(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 DScientific.hs108 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 DScientific.hs108 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`

1234