Home
last modified time | relevance | path

Searched refs:deg_poly (Results 1 – 9 of 9) sorted by relevance

/dports/math/octave-forge-interval/interval-3.2.0/src/crlibm/scs_lib/maple/
H A DSCSS_procedures.mws53 \n local i, deg_poly;\n\n deg_poly := degree(poly);\n for i from deg_p
54 oly by -1 while i>=0 do\n if coeff(poly, x, i)=0 then\n deg_poly :=
55 deg_poly-1;\n end if;\n end do;\n\n return deg_poly;\nend proc:" }}
/dports/math/m4rie/m4rie-release-20200115/src/
H A Dblm.c115 deg_t deg_poly = 1; in crt_init() local
122 p[deg_poly] = irreducible_polynomials[deg_poly][0]; in crt_init()
123 if (deg_have + deg_poly * p[deg_poly] < deg_need) { in crt_init()
124 deg_have += deg_poly * p[deg_poly]; in crt_init()
127 p[deg_poly] = ceil(deg_diff/(double)deg_poly); in crt_init()
128 deg_have += deg_poly * p[deg_poly]; in crt_init()
130 deg_poly ++; in crt_init()
/dports/math/reduce/Reduce-svn5758-src/libraries/crlibm/maple/
H A Datan.mpl83 deg_poly := 4:
273 fprintf(fd, "#define DEGREE %d\n", deg_poly):
274 fprintf(fd, "static double const coef_poly[%d] = \n{\n",deg_poly):
276 for i from deg_poly-1 to 0 by -1 do
H A Dcommon-procedures.mpl978 local i, deg_poly:
980 deg_poly := degree(poly):
981 for i from deg_poly by -1 while i>=0 do
983 deg_poly := deg_poly-1:
987 return deg_poly:
/dports/math/crlibm/crlibm-1.0beta4/maple/
H A Datan.mpl83 deg_poly := 4:
273 fprintf(fd, "#define DEGREE %d\n", deg_poly):
274 fprintf(fd, "static double const coef_poly[%d] = \n{\n",deg_poly):
276 for i from deg_poly-1 to 0 by -1 do
H A Dcommon-procedures.mpl978 local i, deg_poly:
980 deg_poly := degree(poly):
981 for i from deg_poly by -1 while i>=0 do
983 deg_poly := deg_poly-1:
987 return deg_poly:
/dports/math/octave-forge-interval/interval-3.2.0/src/crlibm/maple/
H A Datan.mpl105 deg_poly := 4:
295 fprintf(fd, "#define DEGREE %d\n", deg_poly):
296 fprintf(fd, "static double const coef_poly[%d] = \n{\n",deg_poly):
298 for i from deg_poly-1 to 0 by -1 do
H A Dcommon-procedures.mpl999 local i, deg_poly:
1001 deg_poly := degree(poly):
1002 for i from deg_poly by -1 while i>=0 do
1004 deg_poly := deg_poly-1:
1008 return deg_poly:
/dports/math/maxima/maxima-5.43.2/share/solve_rec/
H A Dsolve_rec.mac694 d : length(coeffs), j, deg_poly : 0, i, sol, deg, %x, gen_p, %u, eqn,
699 deg_poly : coeff(coeffs[1], %n, m-s) +
705 deg_poly : ratsimp(deg_poly),
706 if deg_poly#0 then return(true)
708 sol : solve(deg_poly, %x),