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.2

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