| version 1.1, 2014/07/27 03:18:44 |
version 1.2, 2014/07/31 06:24:11 |
|
|
| |
/* $OpenXM$ */ |
| load("tk_fd.rr")$ |
load("tk_fd.rr")$ |
| |
import("tk_r.rr")$ |
| def r_ahvec(A,B,C,Y) { |
def r_ahvec(A,B,C,Y) { |
| R=tk_fd.ygahvec(A,B,C,Y|all=1); |
R=tk_fd.ygahvec(A,B,C,Y|all=1); |
| Gamma=R[1]; |
Gamma=R[1]; |
| Line 10 def r_ahvec(A,B,C,Y) { |
|
| Line 12 def r_ahvec(A,B,C,Y) { |
|
| Ans=cons(Z,Der2); |
Ans=cons(Z,Der2); |
| /* Fans=map(rtostr,map(tk_fd.tk_number_rattofloat,Ans)); */ |
/* Fans=map(rtostr,map(tk_fd.tk_number_rattofloat,Ans)); */ |
| Fans=map(deval,Ans); |
Fans=map(deval,Ans); |
| |
Fans = tk_r.asir2r_c(Fans); |
| return Fans; |
return Fans; |
| } |
} |
| end$ |
end$ |
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to r-fd.rr CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM / src / asir-port / cgi