30 (** problems **) |
30 (** problems **) |
31 store_pbt |
31 store_pbt |
32 (prep_pbt thy "pbl_test_equ_univ_log" [] e_pblID |
32 (prep_pbt thy "pbl_test_equ_univ_log" [] e_pblID |
33 (["logarithmic","univariate","equation"], |
33 (["logarithmic","univariate","equation"], |
34 [("#Given",["equality e_e","solveFor v_v"]), |
34 [("#Given",["equality e_e","solveFor v_v"]), |
35 ("#Where",["matches ((?a log ?v_) = ?b) e_e"]), |
35 ("#Where",["matches ((?a log ?v_v) = ?b) e_e"]), |
36 ("#Find" ,["solutions v_i"]), |
36 ("#Find" ,["solutions v_i"]), |
37 ("#With" ,["||(lhs (Subst (v_i_,v_) e_e) - " ^ |
37 ("#With" ,["||(lhs (Subst (v_i_,v_v) e_e) - " ^ |
38 " (rhs (Subst (v_i_,v_) e_e) || < eps)"]) |
38 " (rhs (Subst (v_i_,v_v) e_e) || < eps)"]) |
39 ], |
39 ], |
40 PolyEq_prls, SOME "solve (e_e::bool, v_v)", |
40 PolyEq_prls, SOME "solve (e_e::bool, v_v)", |
41 [["Equation","solve_log"]])); |
41 [["Equation","solve_log"]])); |
42 |
42 |
43 (** methods **) |
43 (** methods **) |
44 store_met |
44 store_met |
45 (prep_met thy "met_equ_log" [] e_metID |
45 (prep_met thy "met_equ_log" [] e_metID |
46 (["Equation","solve_log"], |
46 (["Equation","solve_log"], |
47 [("#Given" ,["equality e_e","solveFor v_v"]), |
47 [("#Given" ,["equality e_e","solveFor v_v"]), |
48 ("#Where" ,["matches ((?a log ?v_) = ?b) e_e"]), |
48 ("#Where" ,["matches ((?a log ?v_v) = ?b) e_e"]), |
49 ("#Find" ,["solutions v_i"]) |
49 ("#Find" ,["solutions v_i"]) |
50 ], |
50 ], |
51 {rew_ord'="termlessI",rls'=PolyEq_erls,srls=e_rls,prls=PolyEq_prls, |
51 {rew_ord'="termlessI",rls'=PolyEq_erls,srls=e_rls,prls=PolyEq_prls, |
52 calc=[],crls=PolyEq_crls, nrls=norm_Rational}, |
52 calc=[],crls=PolyEq_crls, nrls=norm_Rational}, |
53 "Script Solve_log (e_e::bool) (v_v::real) = " ^ |
53 "Script Solve_log (e_e::bool) (v_v::real) = " ^ |