1 (* Title: partial fraction decomposition
3 (c) due to copyright terms
6 "--------------------------------------------------------";
7 "table of contents --------------------------------------";
8 "--------------------------------------------------------";
9 "----------- why helpless here ? ------------------------";
10 "----------- why not nxt = Model_Problem here ? ---------";
11 "--------------------------------------------------------";
12 "--------------------------------------------------------";
13 "--------------------------------------------------------";
16 "----------- why helpless here ? ------------------------";
17 "----------- why helpless here ? ------------------------";
18 "----------- why helpless here ? ------------------------";
19 val fmz = ["filterExpression (X z = 3 / (z - 1/4 + -1/8 * (1/(z::real))))",
20 "stepResponse (x[n::real]::bool)"];
21 val (dI,pI,mI) = ("Isac", ["inverse", "Z_Transform", "SignalProcessing"],
22 ["SignalProcessing","Z_Transform","inverse"]);
23 val (p,_,f,nxt,_,pt) = CalcTreeTEST [(fmz, (dI,pI,mI))];
24 val (p,_,f,nxt,_,pt) = me nxt p [] pt; "Add_Given";
25 val (p,_,f,nxt,_,pt) = me nxt p [] pt; "Add_Find";
26 val (p,_,f,nxt,_,pt) = me nxt p [] pt; "Specify_Theory";
27 val (p,_,f,nxt,_,pt) = me nxt p [] pt; "Specify_Problem";
28 val (p,_,f,nxt,_,pt) = me nxt p [] pt; "Specify_Method";
29 val (p,_,f,nxt,_,pt) = me nxt p [] pt; "nxt = Apply_Method";
30 val (p,_,f,nxt,_,pt) = me nxt p [] pt; "nxt = Rewrite (ruleZY, Inverse_Z_Transform.ruleZY) --> X z = 3 / (z - 1 / 4 + -1 / 8 * (1 / z))";
31 val (p''',_,f,nxt''',_,pt''') = me nxt p [] pt; "nxt = Rewrite_Set norm_Rational --> X' z = 3 / (z * (z - 1 / 4 + -1 / 8 * (1 / z)))";
32 "~~~~~ fun me, args:"; val ((_,tac), (p:pos'), _, (pt:ptree)) = (nxt, p, [], pt);
33 val ("ok", (_, _, ptp)) = locatetac tac (pt,p)
35 "~~~~~ fun step, args:"; val (((ip as (_,p_)):pos'), ((ptp as (pt,p), tacis):calcstate)) =
36 (p, ((pt, e_pos'),[]));
37 val pIopt = get_pblID (pt,ip);
38 ip = ([],Res); "false";
40 pIopt; (* = SOME ["inverse", "Z_Transform", "SignalProcessing"]*)
41 member op = [Pbl,Met] p_ andalso is_none (get_obj g_env pt (fst p)); "false";
42 (*nxt_solve_ (pt,ip); "WAS isalist2list applied to NON-list 'no_meth'"
43 THIS MEANS: replace no_meth by [no_meth] in Script.*)
44 (*WAS val ("helpless",_) = step p ((pt, e_pos'),[]) *)
45 (*WAS val (p,_,f,nxt,_,pt) = me nxt p [] pt; "Empty_Tac instead SubProblem";*)
47 "----------- why not nxt = Model_Problem here ? ---------";
48 "----------- why not nxt = Model_Problem here ? ---------";
49 "----------- why not nxt = Model_Problem here ? ---------";
50 val (p,_,f,nxt,_,pt) = me nxt''' p''' [] pt''';
51 "~~~~~ fun me, args:"; val (((_,tac):tac'_), (p:pos'), _, (pt:ptree)) = (nxt, p, c, pt);
52 val ("ok", (_, _, ptp)) = locatetac tac (pt,p);
54 "~~~~~ fun step, args:"; val (((ip as (_,p_)):pos'), ((ptp as (pt,p), tacis):calcstate)) =
55 (p, ((pt, e_pos'),[]));
56 val pIopt = get_pblID (pt,ip);
57 ip = ([],Res); " = false";
59 pIopt (* = SOME ["inverse", "Z_Transform", "SignalProcessing"]*);
60 member op = [Pbl,Met] p_ andalso is_none (get_obj g_env pt (fst p)); " = false";
61 (* ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ leads into
62 nxt_solve_, which is definitely WRONG (should be nxt_specify_ for FIND_ADD).
63 This ERROR seems to be introduced together with ctxt, concerns Apply_Method without init_form.