![]() ![]() | ![]() |
File: [local] / OpenXM / src / asir-port / cgi / r-fd.rr (download)
Revision 1.2, Thu Jul 31 06:24:11 2014 UTC (10 years ago) by takayama
Fixed bug on the output format. |
/* $OpenXM: OpenXM/src/asir-port/cgi/r-fd.rr,v 1.2 2014/07/31 06:24:11 takayama Exp $ */ load("tk_fd.rr")$ import("tk_r.rr")$ def r_ahvec(A,B,C,Y) { R=tk_fd.ygahvec(A,B,C,Y|all=1); Gamma=R[1]; Der=R[0]; Z=R[2]*Gamma; Der2 = newvect(length(Der)); for (I=0; I<length(Der); I++) Der2[I] = Der[I]*Gamma; Der2 = vtol(Der2); Ans=cons(Z,Der2); /* Fans=map(rtostr,map(tk_fd.tk_number_rattofloat,Ans)); */ Fans=map(deval,Ans); Fans = tk_r.asir2r_c(Fans); return Fans; } end$