1.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     1.2 +++ b/test/Tools/isac/Knowledge/logexp.sml	Mon Aug 30 14:35:51 2010 +0200
     1.3 @@ -0,0 +1,61 @@
     1.4 +(* testexamples for LogExp, logarithms and exponential functions and terms
     1.5 +
     1.6 +use"../smltest/IsacKnowledge/logexp.sml";
     1.7 +*)
     1.8 +
     1.9 +val thy = LogExp.thy;
    1.10 +"-----------------------------------------------------------------";
    1.11 +"table of contents -----------------------------------------------";
    1.12 +"-----------------------------------------------------------------";
    1.13 +"----------- setup presentation innsbruck ------------------------";
    1.14 +"-----------------------------------------------------------------";
    1.15 +"-----------------------------------------------------------------";
    1.16 +"-----------------------------------------------------------------";
    1.17 +
    1.18 +
    1.19 +"----------- setup presentation innsbruck ------------------------";
    1.20 +"----------- setup presentation innsbruck ------------------------";
    1.21 +"----------- setup presentation innsbruck ------------------------";
    1.22 +(*
    1.23 +NOT INCLUDED IN ROOT.ML and RTEST-root.sml, since the pbl and met
    1.24 +defined in IsacKnowledge/Test.ML are out-commented
    1.25 +in order to allow for demonstration of authoring !
    1.26 +
    1.27 +equality_power;
    1.28 +exp_invers_log;
    1.29 +(* WN071203 ???... wrong thy ?!? because parsing with Isac.thy works ?
    1.30 +refine ["equality ((2 log x) = 3)","solveFor x", "solutions L"] 
    1.31 +       ["equation","test"];
    1.32 +*)
    1.33 +
    1.34 +val t = str2term "(2 log x)";
    1.35 +val t = str2term "(2 log x) = 3";
    1.36 +val t = str2term "matches ((?a log x) = ?b) ((2 log x) = 3)";
    1.37 +atomty t;
    1.38 +
    1.39 +
    1.40 +val fmz = ["equality ((2 log x) = 3)","solveFor x", "solutions L"];
    1.41 +val (dI',pI',mI') =
    1.42 +  ("Isac.thy",["logarithmic","univariate","equation","test"],
    1.43 +   ["Test","solve_log"]);
    1.44 +val p = e_pos'; val c = []; 
    1.45 +val (p,_,f,nxt,_,pt) = CalcTreeTEST [(fmz, (dI',pI',mI'))];
    1.46 +val (p,_,f,nxt,_,pt) = me nxt p c pt;
    1.47 +val (p,_,f,nxt,_,pt) = me nxt p c pt;
    1.48 +val (p,_,f,nxt,_,pt) = me nxt p c pt;
    1.49 +val (p,_,f,nxt,_,pt) = me nxt p c pt;
    1.50 +val (p,_,f,nxt,_,pt) = me nxt p c pt;
    1.51 +val (p,_,f,nxt,_,pt) = me nxt p c pt;
    1.52 +val (p,_,f,nxt,_,pt) = me nxt p c pt;
    1.53 +case nxt of ("Apply_Method",_) => ()
    1.54 +	  | _ => raise error "logexp.sml setup innsbruck";
    1.55 +val (p,_,f,nxt,_,pt) = me nxt p c pt;f2str f;
    1.56 +
    1.57 +
    1.58 +val (p,_,f,nxt,_,pt) = me nxt p c pt;f2str f;
    1.59 +val (p,_,f,nxt,_,pt) = me nxt p c pt;f2str f;
    1.60 +val (p,_,f,nxt,_,pt) = me nxt p c pt;f2str f;
    1.61 +val (p,_,f,nxt,_,pt) = me nxt p c pt;f2str f;
    1.62 +show_pt pt;
    1.63 +
    1.64 +*-------------------------------------------------------------------*)