![[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|
Return to r-fd.rr CVS log | Up to [local] / OpenXM / src / asir-port / cgi |
| version 1.4, 2014/08/06 07:39:47 | version 1.5, 2014/08/27 02:14:40 | ||
|---|---|---|---|
|
|
||
| /* $OpenXM: OpenXM/src/asir-port/cgi/r-fd.rr,v 1.3 2014/07/31 07:00:41 takayama Exp $ */ | /* $OpenXM: OpenXM/src/asir-port/cgi/r-fd.rr,v 1.4 2014/08/06 07:39:47 takayama Exp $ */ | ||
| load("tk_fd.rr")$ | load("tk_fd.rr")$ | ||
| import("tk_r.rr")$ | import("tk_r.rr")$ | ||
| import("oh_number.rr")$ | import("oh_number.rr")$ | ||
|
|
||
| } | } | ||
| def r_ahvec(A,B,C,Y) { | def r_ahvec(A,B,C,Y) { | ||
| Y = r_d2rat(Y); | Y = r_d2rat(Y); | ||
| R=tk_fd.ygahvec(A,B,C,Y|all=1); | R=tk_fd.ahvec_abc(A,B,C,Y|all=1); | ||
| Gamma=R[1]; | Gamma=R[1]; | ||
| Der=R[0]; | Der=R[0]; | ||
| Z=R[2]*Gamma; | Z=R[2]*Gamma; |