/dports/math/reduce/Reduce-svn5758-src/packages/factor/ |
H A D | pfacmult.red | 52 writepri(mkquote prepf fs,'last)>>; 63 writepri(mkquote prepf y,'last)>>; 71 writepri(mkquote prepf f0, 'only)>>; 75 writepri(mkquote prepf car fl, 'last); 78 writepri(mkquote prepf car fc, nil); 80 writepri(mkquote prepf cdr fc, 'last)>> >>; 91 writepri(mkquote prepf caar xx,'last)>> >> >>; 96 writepri(mkquote prepf y,'last)>>;
|
/dports/math/reduce/Reduce-svn5758-src/contrib/exptsimp/ |
H A D | exptsimp.red | 40 prepsq simpexpt1 (prepf car f, cdr f ./ denr n, nil); 44 prepsq simpexpt1 (prepf car f, cdr f ./ denr n, nil); 195 writepri (mkquote prepf p, 'last); 241 writepri (mkquote prepf car sl, 'last); 251 writepri (mkquote prepf p, 'only); 252 for each poly in sl do writepri (mkquote prepf poly, 'only); 263 writepri (mkquote prepf p, 'only); 264 for each poly in sl do writepri (mkquote prepf poly, 'only); 273 prepf numr subsq (simp el, !*exptsimp!*sublis!*); 277 w := prepf p . append (u, for each poly in sl collect prepf poly);
|
/dports/math/reduce/Reduce-svn5758-src/csl/embedded/ |
H A D | u39.lsp | 7 !'true !'false t times not full boolean reval simp!-prop1 prepf 24 (c!:install 'bc_2a '(bc_2a prepf) 644824148841606953) 71 !*allfac upl!* !*div plus minus quotient prepf quotfm prepsq!*0 fkern 118 (c!:install '!*q2f '(!*q2f prepf polynomial sqform typerr)
|
H A D | u40.lsp | 21 constant_exprp simp fctrf prepf) 2234765308638356198) 41 (c!:install 'addfactors '(addfactors times prepf retimes) 134 (c!:install 'arprep!: '(arprep!: !*reexpress express!-in!-arvars prepf) 150 (c!:install 'prepcadr '(prepcadr prepf sqform) 1058285785135560299) 171 (c!:install 'simpdf '(simpdf subfg!* df t prepf "kernel or integer"
|
H A D | u52.lsp | 29 list plus gv prepf invtempbasis !*protfg 35 domainvalchk !*q2f multd prepf comfac quotf minusf negf lnc radf1 fkern 57 "<math>" setq prepf mat list !*sq "</math>" """ HEIGHT=300 WIDTH=500>"
|
H A D | u56.lsp | 14 (c!:install 'freeindp '(freeindp t nil !*sq prepf dname indexvar 32 plus gv prepf reval gvarlis readsys invbase!* !*di2q sqform lprie)
|
H A D | u55.lsp | 83 (c!:install 'tstpolyarg '(tstpolyarg !*ratarg prepf "polynomial" nil 95 (c!:install 'numrdeg '(numrdeg t !*a2k updkorder reorder setkorder prepf 159 (c!:install 'nestprep!: '(nestprep!: co prepf simp sqform)
|
H A D | u36.lsp | 7 abs sqrt !*keepsqrts times quotient t prepf !*mcd minus dmode!* frlis!* 65 evaluate1 apply prepf simp force!-to!-dm !:dmtimeslst !:dmpluslst
|
H A D | u01.lsp | 37 (c!:install 'mchk!* '(mchk!* !*mcd nil mchk prepf) 2103513295582221545) 39 (c!:install 'prepf '(prepf nil prepf1a replus1) 632788825718117041)
|
H A D | u43.lsp | 87 (c!:install 'preproc1 '(preproc1 !:rd!: !:dn!: !*sq prepf procedure 139 (c!:install '!*ff2a '(!*ff2a wtl!* prepf cancel sqform mk!*sq)
|
H A D | u29.lsp | 42 !*uncached prepf nil sqform simp prepsq!* comblog simp!*) 160 expt safe!-modrecip negf multf moduntag prepf general!-modular!-number
|
H A D | u44.lsp | 61 (c!:install 'radd '(radd t !*reduced i prepf nrootnn multd) 182 (c!:install 'change!+sq!+to!+int '(change!+sq!+to!+int prepf !*protfg
|
H A D | u15.lsp | 14 (c!:install 'bc2a '(bc2a !*grmod!* prepf sqform) 396131917685321352) 36 (c!:install 'revalx '(revalx nil prepf reval) 1238719321379615845)
|
/dports/math/reduce/Reduce-svn5758-src/packages/cali/ |
H A D | bcsf.red | 69 list('replaceby,prepf car x,prepf cdr x); 93 null bc!=simp numr simp prepf u 123 symbolic procedure cali_bc_2a u; prepf u; 128 if dmode!*='!:mod!: then prin2 prepf u
|
/dports/math/reduce/Reduce-svn5758-src/packages/numeric/ |
H A D | numsolve.red | 99 dm!:(if zerop fl then return prepf l else 100 if zerop fu then return prepf u else 114 'list.for each r in u collect {'equal,x,prepf r}; 155 i:=boundseval {e,{'equal,x,{'!*interval!*,prepf l,prepf u} }}; 225 {'list,{'!*interval!*,prepf caar i,prepf cadr i}, 226 dm!: prepf(cadr i-caar i)}),
|
H A D | steepstd.red | 111 r:= for each x in r collect prepf x; 197 writepri(mkquote prepf e0,nil); 199 writepri(mkquote prepf ng,'last); 204 writepri(mkquote prepf y,nil)>>; 207 writepri(mkquote prepf d,nil);
|
/dports/math/reduce/Reduce-svn5758-src/packages/excalc/ |
H A D | idexf.red | 51 <<y := partitsq(simp list('wedge,prepf v,x),'wedgefp); 60 x := prepf u; 61 y := prepf v;
|
H A D | vardf.red | 43 putform(w, prepf deg!*form v); 90 … {'hodge, prepf lc p}}}, 93 {'hodge, prepf lc p}}, 97 … {'hodge, prepf lc p}}, 176 !*pf2psf(partitop append(x,prepf ldpf y . cdr j), 179 % append(x,prepf numr lc y . cdr j))
|
/dports/math/reduce/Reduce-svn5758-src/packages/redlog/qqe/ |
H A D | qqesiat.red | 46 begin scalar prepf, eta_lhs, eta_rhs, op; 48 prepf := rl_prepat f; 49 % prepf := f; 52 eta_lhs := qqe_eta!-in!-term qqe_arg2l prepf; 53 eta_rhs := qqe_eta!-in!-term qqe_arg2r prepf; 67 else return rl_simpat prepf;
|
/dports/math/reduce/Reduce-svn5758-src/packages/spde/ |
H A D | spde.red | 269 return numr simp prepf u; 411 if not red u then numr simp prepf !*k2f mvar u else 413 v:=numr simp prepf u; 424 ldf!-simp numr simp prepf x; 523 return numr simp prepf addf(v,w); 569 z:=(ldf!-simp numr simp prepf cdr x) . z; 746 z:=prepf nth(v,k); 909 k:=lisp lengthf prepf z; 911 write"DEQ(",i,"):=",lisp prepf z; 933 z:=prepf nth(car uhf,k); [all …]
|
/dports/math/reduce/Reduce-svn5758-src/packages/arnum/ |
H A D | arnum.red | 130 ((x and put(j,'currep,numr simp prepf cdr x)) 276 l := list(mvu . prepf addf(!*k2f mvu, 380 l := list(mvar u . prepf 413 initalgnum prepf newdefpoly end; 414 y := gcdf!*(numr simp prepf newu,olddefpoly); 427 maprin prepf curdefpol!*; 473 mkextension prepf minpoly; 510 maprin prepf newminpoly; 523 initalgnum prepf newminpoly; 524 x := gcdf!*(minpoly,numr simp prepf bpoly); [all …]
|
/dports/math/reduce/Reduce-svn5758-src/packages/solve/ |
H A D | polineq.red | 106 if ldeg f = 1 then {reval{'quotient,prepf negf red f,prepf lc f}} 108 for each y in cdr realroots list prepf f collect caddr y
|
/dports/math/reduce/Reduce-svn5758-src/packages/poly/ |
H A D | decompos.red | 78 if d neq 1 then<<u:=list('quotient,u,prepf d);d:=1>>; 159 eqs := solveeval list('list . for each u in eqs collect prepf u, 214 numr subf(u,list(mvar u . prepf v)); 239 rr := for each p in reverse r collect simp prepf p; 251 list('plus,list('times,decomposegensym(),prepf c), 252 prepf a), 253 prepf q)));
|
/dports/math/reduce/Reduce-svn5758-src/packages/groebner/ |
H A D | hille.red | 50 <<d:='list.for each c in b collect prepf c; 65 p:=prepf p;a:='list.for each gg in g collect prepf gg; 232 <<d:=prepf gg;if not(d=0)then a:=d.a>>; 254 while g do<<writepri(mkquote prepf car g,'first);g:=cdr g; 265 while aa do<<writepri(mkquote prepf car aa,'first);
|
/dports/textproc/agrep/agrep-2.04/ |
H A D | agrep.h | 80 void prepf(int fp);
|