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     ! 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:   }