Searched +refs:m2 +refs:twok (Results 1 – 2 of 2) sorted by relevance
| /dports/math/eclib/eclib-20210318/libsrc/ |
| H A D | marith.cc | 64 bigint twok = BIGINT(8), twok3= BIGINT(1); in sqrtq2() local
77 lshift(twok,1,twok); lshift(twok3,1,twok3); in sqrtq2()
82 if(r+a==(twok>>2)) {root=(twok>>1)-a; return 1;} in sqrtq2()
730 m1=a; m2=b; m3=1; c1=1; c2=1; in rusin_lem3()
737 d=abs(gcd(m1,m2)); in rusin_lem3()
748 d=abs(gcd(m2,m3)); in rusin_lem3()
755 && (gcd(m1,m3)==1) && (gcd(m2,m3)==1) && (gcd(m1,m2)==1) ) in rusin_lem3()
767 const bigint& m1, const bigint& m2) in chrem() argument
770 bigint g = bezout(m1,m2,u,v); in chrem()
771 bigint l = m1*(m2/g); in chrem()
[all …]
|
| /dports/math/maxima/maxima-5.43.2/share/contrib/elliptic_curves/ |
| H A D | elliptic_curves.lisp | 921 (do ((k 1) twok tmp)
923 (setq twok (* 2 k))
925 (* (+ twok 1) (+ twok 2)) p) )
1596 h1 h2 l1 l2 m1 m2 c1 c2 )
1625 m2 (apply #'* (car l2))
1628 (values c1 n1 m1 c2 n2 m2) ))
1744 (setq r2q (- (mod (* (- y c3) inv-m1m3) m2) m2))
1745 (when (= r2q (- m2))
1747 (setq h (- (+ c3 (* r1q m2 m3)) (* m1 m2 m3))
1763 (setq h (+ c3 (* r1q m2 m3) (* (+ r2q0 m2) m1 m3))) )
[all …]
|