Home
last modified time | relevance | path

Searched +refs:form +refs:mrat (Results 1 – 25 of 28) sorted by relevance

12

/dports/math/maxima/maxima-5.43.2/src/
H A Dmhayat.lisp166 (defmacro mrat-header (mrat) `(car ,mrat))
167 (defmacro mrat-varlist (mrat) `(third (mrat-header ,mrat)))
168 (defmacro mrat-genvar (mrat) `(fourth (mrat-header ,mrat)))
169 (defmacro mrat-tlist (mrat) `(fifth (mrat-header ,mrat)))
170 (defmacro mrat-ps (mrat) `(cdr ,mrat))
267 (defmacro merrcatch (form) `(catch 'errorsw ,form))
H A Dnforma.lisp28 (cond ((and (realp form) (minusp form) (not (float-inf-p form))) (list '(mminus) (- form)))
60 form)
126 (setq form (ratdisrepd form))
135 (cond ((or (atom form) (specrepp form)))
136 ((null (cdar form)) (rplaca form (list (caar form) 'ratsimp)))
147 (setq form (nformat form))
159 #'(lambda(form)(cond ((minusp (cadr form))
164 #'(lambda(form)(nformat (caddr form))))
169 (setf (get 'mrat 'formatter) #'form-mrat)
175 (list '(mminus) (list (car form) (- (cadr form)) (caddr form)))
[all …]
H A Dtrans1.lisp25 (and (consp form)
29 (def%tr $apply (form)
47 (def%tr $map (form)
51 (def%tr $maplist (form)
86 (def%tr $qput (form)
87 `($any $put ',(cadr form) ',(caddr form) ',(cadddr form)))
150 (setq form (translate `((mprogn) ,@(cdr form))))
193 (setq form (cdr form))
198 (((exp) form))
307 (setq form (cdr form))
[all …]
H A Dsimp.lisp304 (eq (caar x) 'mrat)))
308 (eq (caar x) 'mrat)
360 (defun subargcheck (form subsharp argsharp fun)
361 (if (or (not (= (length (subfunsubs form)) subsharp))
362 (not (= (length (subfunargs form)) argsharp)))
562 ((eq (caar x) 'mrat) x)
609 (eq (caar x) 'mrat)
1013 ((eq (caar w) 'mrat)
1692 ((eq (caar w) 'mrat)
3062 ((or (eq (caar x) 'mrat) (eq (caar y) 'mrat))
[all …]
H A Dnisimp.lisp205 (defmspec $letsimp (form) ;letsimp(expr,tree1,...,treen)
206 (setq form (cdr form))
207 (let* ((expr (strip-lineinfo (meval (pop form))))
214 (dolist (rulepackage (or form (list $current_let_rule_package))
237 ((or (eq (caar e) 'mrat)
H A Dhayat.lisp210 ((eq (caar e) 'mrat)
218 ((eq (caar exp) 'mrat)
2158 (list 'mrat 'simp varlist genvar)))
2171 ((eq (caar e) 'mrat)
2263 (defun re-taylor (mrat)
2264 (let ((old-tlist (mrat-tlist mrat)) (old-varlist (mrat-varlist mrat))
2265 (old-genvar (mrat-genvar mrat)) old-ivars)
2269 (setup-multivar-disrep mrat)
2272 (prog1 (re-taylor-recurse (mrat-ps mrat))
2620 (defun ts-formula (form var pw)
[all …]
H A Dcomm.lisp332 (defmspec $dependencies (form)
333 (i-$dependencies (cdr form)))
483 ((eq (caar e) 'mrat) (ratdx e x))
746 (defmspec $ldisplay (form)
747 (disp1 (cdr form) t t))
754 (defmspec $display (form)
755 (disp1 (cdr form) nil t))
1182 ((eq (caar e) 'mrat) ($ratnumer e))
1192 ((eq (caar e) 'mrat) ($ratdenom e))
1316 ((eq (caar e) 'mrat) (ratcoeff e var pow))
H A Dcomm2.lisp220 (eq (caar expr) 'mrat)
698 (defun subgen (form) ; This function does mapping of subscripts.
699 (do ((ds (if (eq (caar form) 'mqapply) (list (car form) (cadr form))
700 (ncons (car form)))
702 (sub (reverse (or (and (eq 'mqapply (caar form)) (cddr form))
703 (cdr form)))
H A Doutmis.lisp326 (cond ((or (atom expr) (eq (caar expr) 'rat) (eq (caar expr) 'mrat))
424 (defun kernsubst (expr form ovar)
428 (solvable form x)))
H A Dcompar.lisp336 (defmspec $is (form)
682 (defmspec mand (form)
683 (setq form (cdr form))
695 (defmspec mor (form)
696 (setq form (cdr form))
708 (defmspec mnot (form)
709 (setq form (cdr form))
1929 ((eq x-op 'mrat) (and (integerp (cadr x)) (equal (cddr x) 1)))
2348 (if (atom form)
2349 form
[all …]
/dports/math/maxima/maxima-5.43.2/share/affine/
H A Dpolybas.lisp25 ((affine-polynomialp expr)(cons (list 'mrat 'simp *varlist* *genvar*) (cons expr 1)))
26 ((rational-functionp expr)(cons (list 'mrat 'simp *varlist* *genvar* ) expr ))
36 (cond ((member type-of-n '(mrat rat) :test #'eq)
234 (defmacro setq-num-den (num den expr &aux form .expr.)
237 (setq form
242 form)
H A Dmodsimp.lisp373 ((eql (caar repl) 'mrat) (setq repl (cdr repl)))
659 (eql (car tem) 'mrat))
717 (defun fake-header (form)
719 ((affine-polynomialp form)(cons *fake-rat* (cons form 1)))
720 ((rational-functionp form) (cons *fake-rat* form))
722 (defun $modsimp(form)
723 (cond ((atom form)(fake-header (module-simp (new-rat form))))
724 ((or (affine-polynomialp form)
725 (rational-functionp form))
726 (fake-header (module-simp form)))
[all …]
H A Dpolya.lisp82 (defun macsyma-display (form)
86 (defun gt (form)
87 (grind-top-level form))
213 (defmacro reverse-two-values (form)
1308 (cond ((not (eq (car vv) 'mrat)) ( rplacd vv (mysub1 (cdr vv) h)))
1483 (mrat (my-ratcoeff expr monom deg))
1601 (defun create-list2 (form l)
2162 (setf deg ($nc_degree form))
2207 ((eq (caar f) 'mrat)
2506 (cond ((affine-polynomialp form) (pcoeff form mon vars-to-exclude))
[all …]
H A Dpolyb.lisp129 (defun contains-a-zero-replacement (form &aux u)
131 (cond ((atom form)
133 when (and (eql 0 (second v)) (eq (car v) form))
138 (cond ((member u form :test #'equal) (return t))))
141 (defun contains-a-replacement (form &aux tem1 u)
145 (cond ((atom form)
148 when (and (oddp i)(eq u form))
692 (defmacro $with_no_simp (form)
694 `(progn ' ,(meval* form))))
937 (mrat
[all …]
H A Dsheafa.lisp388 (defmacro type? (a form &optional descrip &aux (ctrl-string "not a ~A"))
390 (t (setq descrip form) (setq ctrl-string "Doesn't satisfy ~A")))
391 (cond ((functionp form)
392 `(cond ( (, form ,a) nil)
1852 (cons '(mrat nil nil) (cons expr 1)))
1855 (cons '(mrat nil nil) expr))
/dports/math/maxima/maxima-5.43.2/share/contrib/unit/
H A Dunit-functions.lisp146 (cond ((atom form) ($member form $allunitslist))
166 ((null (cddr form)) form)
173 (cond ((and (not (atom form)) (notunitfree form) (equal (caar form) 'mplus))
228 (cond ((and (numberp form) (minusp form)) (list '(mminus) (- form)))
233 form)
239 ((null (cdar form)) form)
240 ((eq 'mplus (caar form)) (form-mplus form))
242 ((eq 'mexpt (caar form)) (form-mexpt form))
243 ((eq 'mrat (caar form)) (form-mrat form))
247 (list '(mminus) (list (car form) (- (cadr form)) (caddr form)))
[all …]
/dports/math/fricas/fricas-1.3.7/src/algebra/
H A Dmultpoly.spad736 -- mrat := MRationalFactorize(VarSet, %)
737 -- gcd(p1, p2)$mrat
873 -- - Redistributions in binary form must reproduce the above copyright
/dports/science/gnudatalanguage/gdl-1.0.1/src/pro/CMprocedures/
H A Dmpfit.pro307 ; A line of this form may also appear
501 ; a string of the form 'X.Y' where X and Y are integers.
814 ; a scalar string of the form returned by the VERSION
1085 ; The method of solution employed by MINPACK is to form the Q . R
1701 ; column k, k = 1,2,...,min(m,n), is of the form
1706 ; where u has zeros in the first k-1 positions. the form of
1726 ; part of a contains a factored form of q (the non-trivial
1818 ; Note that it is usually never necessary to form the Q matrix
2615 ;; Parse version numbers of the form 'X.Y'
3483 mrat = max(abs(nwa1[whmax])/abs(maxstep[whmax]))
[all …]
/dports/science/dynare/dynare-4.6.4/doc/parallel/
H A Dmarco.bib1177 title = {Using the generalized Schur form to solve a multivariate linear rational
1296 Euler Equation Models with Time-varying Reduced-form Coefficients},
1768 note = {available at {http://webfarm.jrc.cec.eu.int/uasa/doc/mrat/eur/EUR22251EN.pdf}}
/dports/science/jmol/jmol-14.32.7/src/org/jmol/viewer/
H A DJmol.properties1013 $ print {atomno=3}.label("%[unitid-mrat]") // full unitID, right-trimmed
1235 -- unitcell is an array of the form [origin, va, vb, vc]
5671 -- unitcell is an array of the form [origin, va, vb, vc]
6417 $ print {atomno=3}.label("%[unitid-mrat]") // full unitID, right-trimmed
10031 - ` information is in the JSON form (in all cases below,
10044 <entryInfo> is one or more records of the form:
10240 <entryInfo> is one or more records of the form:
10504 -- abc_offset is of the form "a,b,c;0,0,0"
11185 -- Seen in string form when in a string context.
11333 -- Seen in string form when in a string context.
[all …]
/dports/astro/stellarium/stellarium-0.21.3/po/stellarium/
H A Dsv.po1810 msgid "circular form"
1811 msgstr "cirkulär form"
1814 msgid "elliptical form"
1815 msgstr "elliptisk form"
1818 msgid "irregular form"
1819 msgstr "oregelbunden form"
1849 msgid "undocumented form"
1850 msgstr "ej dokumenterad form"
3246 "form) ger värden från en ungefärlig parabola."
20433 "sparks of Muspelheim to form the sun, moon, planets, and stars."
[all …]
/dports/devel/cld2/cld-20150505/internal/
H A Dtest_shuffle_1000_48_666.utf812343 …y komisyonner lapolis e sov nou ~ pour protez zanfan kont tou form move tretman par ~ form ledikas…
15362 …tet sig af denne form ~ (hvid eller farvet) lysdiode til en lysdiodelampe ~ indtægterne fra kongsj…
35117 …formában, egyedülálló módon ~ A hozzászóláshoz regisztráció és belépés szükséges ~ jut egy bölcsőd…
35631 …formában sem vállal felelősséget az ~ feljelentést, a tettesek könnyen azonosíthatóak, ~ A Prohard…
35632 …formájában beszéljük meg ~ jogi információk A Prohardver Kft. semmilyen ~ tégy rendőrségi feljelen…
39038 …i 1 scientie e mem ~ proque divers persones es chocat per li form ~ ma in li derivativ form attinc…
39042 …li formes ~ quam ja dit li max grand labor esset ja fat ma ~ form adverbial derivat del form verba…
39082 …form del apostrofe quel monstra ~ sin i distiner attiner extiner li unesim metode ~ solmen li y in…
55728 …formā ~ A. Studāne IK veikals - 1188 Uzziņu portāls | ~ Uzņēmumu katalogs "IT Latvija" AS Ziemeļu …
55730 …formā stingri aizliegta. ~ formā noteikumi 1189.lv – Biznesa uzziņu portāls, ~ Sanatorijas, rehabi…
[all …]
/dports/mail/thunderbird-dictionaries/dictionaries/spell-cs.xpi/
H A Dcs.dic50865 form�ln�/KNRY
50866 form�t/H
50867 form�tovac�/Y
50869 form�tovat/ANT
50870 form�tova�/SU
50871 form�tova��v/Y
50872 form�tov�n�/NS
50876 form�tov�/NRY
50878 form�m/H
50879 form�
[all …]
/dports/chinese/gcin-qt5/gcin-2.9.0/data/
H A DNewCJ3.cin43087 form 熻
69075 mrat ��
/dports/chinese/gcin/gcin-2.9.0/data/
H A DNewCJ3.cin43087 form 熻
69075 mrat ��

12