| version 1.5, 2014/08/27 02:14:40 |
version 1.6, 2014/12/12 08:29:53 |
|
|
| /* $OpenXM: OpenXM/src/asir-port/cgi/r-fd.rr,v 1.4 2014/08/06 07:39:47 takayama Exp $ */ |
/* $OpenXM: OpenXM/src/asir-port/cgi/r-fd.rr,v 1.5 2014/08/27 02:14:40 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")$ |
| Line 54 def checkrats2() { |
|
| Line 54 def checkrats2() { |
|
| } |
} |
| } |
} |
| } |
} |
| |
|
| |
def a_expect(A,B,C,Y) { |
| |
E=tk_fd.expectation_abc(A,B,C,Y); |
| |
return(E); |
| |
} |
| |
def r_expect(A,B,C,Y) { |
| |
Y = r_d2rat(Y); |
| |
E=a_expect(A,B,C,Y); |
| |
Fans=map(deval,E); |
| |
Fans = tk_r.asir2r_c(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