Return to trash.k CVS log

Up to [local] / OpenXM / src / k097 / debug

Annotation of OpenXM/src/k097/debug/trash.k, Revision 1.1.1.1

1.1       maekawa     1:   if (ShimomuraSpecial) {
                      2:     Println(" ---- S-Special -----");
                      3:     /* F-homogenization. z[0], ..., z[n-1],
                      4:        z[n] is the homogenization variable*/
                      5:     /* z[n]^(-1) とは書けないのはつらい. 1 を戻すので bug ともいえる. */
                      6:     zinverse = PolyR(AddString([Indexed("z",n),"^(-1)"]),rz);
                      7:     rule = [[Dz[n-1], Dz[n-1]*z[n]], [z[n-1],z[n-1]*zinverse]];
                      8:     input = Replace(input,rule);
                      9:     m = Length(input);
                     10:     for (i=0; i<m; i++) {
                     11:       d = -Degree(Replace(input[i],[[z[n],zinverse]]),z[n]);
                     12:       if (d < 0) {
                     13:            input[i] = z[n]^(-d)*input[i];
                     14:       }
                     15:     }
                     16:     for (i=0; i<m; i++)  {
                     17:       /* FW principal part をとる. */
                     18:       input[i] = Init_w(input[i],[z[n]],[1]);
                     19:     }
                     20:     Print("--------FW principal parts : ");Println(input);
                     21:   }