test/Tools/isac/Knowledge/partial_fractions.sml
changeset 52105 2786cc9704c8
parent 52103 0d13f07d8e2a
child 55444 ede4248a827b
equal deleted inserted replaced
52104:83166e7c7e52 52105:2786cc9704c8
   249   "B = -4,lhs (3 + 3 / 4 * B = 0) is_poly_in B,lhs (3 + 3 / 4 * B = 0) has_degree_in B = 1," ^
   249   "B = -4,lhs (3 + 3 / 4 * B = 0) is_poly_in B,lhs (3 + 3 / 4 * B = 0) has_degree_in B = 1," ^
   250   "B is_polyexp,A is_polyexp," ^
   250   "B is_polyexp,A is_polyexp," ^
   251   "~ matches (?a = 0) (3 = 3 * A / 4) | ~ lhs (3 = 3 * A / 4) is_poly_in A," ^
   251   "~ matches (?a = 0) (3 = 3 * A / 4) | ~ lhs (3 = 3 * A / 4) is_poly_in A," ^
   252   "A = 4,lhs (3 + -3 / 4 * A = 0) is_poly_in A,lhs (3 + -3 / 4 * A = 0) has_degree_in A = 1," ^
   252   "A = 4,lhs (3 + -3 / 4 * A = 0) is_poly_in A,lhs (3 + -3 / 4 * A = 0) has_degree_in A = 1," ^
   253   "lhs (-1 + -2 * z + 8 * z ^^^ 2 = 0) has_degree_in z = 2," ^
   253   "lhs (-1 + -2 * z + 8 * z ^^^ 2 = 0) has_degree_in z = 2," ^
   254   "lhs (-1 + -2 * z + 8 * z ^^^ 2 = 0) is_poly_in z,z = 1 / 2,z = -1 / 4,z ~= 0,z is_polyexp]"
   254   "lhs (-1 + -2 * z + 8 * z ^^^ 2 = 0) is_poly_in z,z = 1 / 2,z = -1 / 4,z is_polyexp]"
   255 then ()
   255 then ()
   256   else error "autoCalculate for met_partial_fraction changed: final result"
   256   else error "autoCalculate for met_partial_fraction changed: final result"
   257 
   257 
   258 show_pt pt;
   258 show_pt pt;
   259 (*[
   259 (*[