neuper@41985
|
1 |
(* Title: 300-init-subpbl.sml
|
neuper@41985
|
2 |
Author: Walther Neuper 1105
|
neuper@41985
|
3 |
(c) copyright due to lincense terms.
|
neuper@41985
|
4 |
*)
|
neuper@41985
|
5 |
|
neuper@42011
|
6 |
"----------- Minisubplb/300-init-subpbl.sml ----------------------";
|
neuper@42011
|
7 |
"----------- Minisubplb/300-init-subpbl.sml ----------------------";
|
neuper@42011
|
8 |
"----------- Minisubplb/300-init-subpbl.sml ----------------------";
|
neuper@41985
|
9 |
val fmz = ["equality (x+1=(2::real))", "solveFor x","solutions L"];
|
neuper@41985
|
10 |
val (dI',pI',mI') =
|
neuper@41985
|
11 |
("Test", ["sqroot-test","univariate","equation","test"],
|
neuper@41985
|
12 |
["Test","squ-equ-test-subpbl1"]);
|
neuper@41985
|
13 |
val (p,_,f,nxt,_,pt) = CalcTreeTEST [(fmz, (dI',pI',mI'))];
|
neuper@41985
|
14 |
val (p,_,f,nxt,_,pt) = me nxt p [] pt;
|
neuper@41986
|
15 |
val (p,_,f,nxt,_,pt) = me nxt p [] pt;
|
neuper@41986
|
16 |
val (p,_,f,nxt,_,pt) = me nxt p [] pt;
|
neuper@41986
|
17 |
val (p,_,f,nxt,_,pt) = me nxt p [] pt;
|
neuper@41986
|
18 |
val (p,_,f,nxt,_,pt) = me nxt p [] pt;
|
neuper@41986
|
19 |
val (p,_,f,nxt,_,pt) = me nxt p [] pt;
|
neuper@41986
|
20 |
val (p,_,f,nxt,_,pt) = me nxt p [] pt;
|
neuper@41986
|
21 |
val (p,_,f,nxt,_,pt) = me nxt p [] pt;
|
neuper@41986
|
22 |
val (p,_,f,nxt,_,pt) = me nxt p [] pt;
|
neuper@41986
|
23 |
val (p,_,f,nxt,_,pt) = me nxt p [] pt; (*nxt = ("Subproblem"*)
|
neuper@41986
|
24 |
"~~~~~ fun me, args:"; val (_,tac) = nxt;
|
neuper@41986
|
25 |
"~~~~~ fun locatetac, args:"; val (tac, ptp as (pt, p)) = (tac, (pt,p));
|
neuper@41986
|
26 |
val (mI,m) = mk_tac'_ tac;
|
neuper@41986
|
27 |
val Appl m = applicable_in p pt m;
|
neuper@41986
|
28 |
|
neuper@41985
|
29 |
val (p,_,f,nxt,_,pt) = me nxt p [1] pt;
|
neuper@41986
|
30 |
case nxt of ("Model_Problem", _) => ()
|
neuper@41986
|
31 |
| _ => error "minisubpbl: CalcTreeTEST has no nxt = Model_Problem";
|
neuper@41986
|
32 |
|