File: [local] / OpenXM / src / asir-port / cgi / r-fd.rr (download)
Revision 1.1, Sun Jul 27 03:18:44 2014 UTC (9 years, 11 months ago) by takayama
Branch: MAIN
A CGI script for R to evaluate FD by contiguity relations.
|
load("tk_fd.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);
return Fans;
}
end$