Return to r-fd.rr CVS log

Up to [local] / OpenXM / src / asir-port / cgi

Annotation of OpenXM/src/asir-port/cgi/r-fd.rr, Revision 1.1

1.1     ! takayama    1: load("tk_fd.rr")$
        !             2: def r_ahvec(A,B,C,Y) {
        !             3:   R=tk_fd.ygahvec(A,B,C,Y|all=1);
        !             4:   Gamma=R[1];
        !             5:   Der=R[0];
        !             6:   Z=R[2]*Gamma;
        !             7:   Der2 = newvect(length(Der));
        !             8:   for (I=0; I<length(Der); I++) Der2[I] = Der[I]*Gamma;
        !             9:   Der2 = vtol(Der2);
        !            10:   Ans=cons(Z,Der2);
        !            11:   /*  Fans=map(rtostr,map(tk_fd.tk_number_rattofloat,Ans)); */
        !            12:   Fans=map(deval,Ans);
        !            13:   return Fans;
        !            14: }
        !            15: end$