![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to dmul102 CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM_contrib2 / asir2000 / lib|
Return to dmul102 CVS log | Up to [local] / OpenXM_contrib2 / asir2000 / lib |
| version 1.2, 2003/12/12 09:17:31 | version 1.3, 2005/02/09 07:56:52 | ||
|---|---|---|---|
|
|
||
| /* $OpenXM: OpenXM_contrib2/asir2000/lib/dmul102,v 1.1 2003/12/12 07:57:20 noro Exp $ */ | /* $OpenXM: OpenXM_contrib2/asir2000/lib/dmul102,v 1.2 2003/12/12 09:17:31 noro Exp $ */ | ||
| #define MAX(a,b) ((a)>(b)?(a):(b)) | #define MAX(a,b) ((a)>(b)?(a):(b)) | ||
| #define MIN(a,b) ((a)>(b)?(b):(a)) | #define MIN(a,b) ((a)>(b)?(b):(a)) | ||
|
|
||
| ]$ | ]$ | ||
| def spawn102(Hosts,N) | def spawn102(Hosts,N) | ||
| "spawn102(hostlist,nserver|debug=1) | "spawn102(hostlist,nserver|debug=1)\n\ | ||
| hostlist : [\"iyokan-0\",\"iyokan-1\",...] | hostlist : [\"iyokan-0\",\"iyokan-1\",...]\n\ | ||
| nserver : number of servers to be used in hostlist | nserver : number of servers to be used in hostlist\n\ | ||
| If debug is specified, the debug windows will appear." | If debug is specified, the debug windows will appear." | ||
| { | { | ||
| Debug = getopt(debug); | Debug = getopt(debug); | ||
|
|
||
| } | } | ||
| def spawn102_local(N) | def spawn102_local(N) | ||
| "spawn102_local(nserver|debug=1) | "spawn102_local(nserver|debug=1)\n\ | ||
| nserver : number of servers to be used in hostlist | nserver : number of servers to be used in hostlist\n\ | ||
| If debug is specified, the debug windows will appear." | If debug is specified, the debug windows will appear." | ||
| { | { | ||
| Debug = getopt(debug); | Debug = getopt(debug); | ||
|
|
||
| } | } | ||
| def urandompoly(N,D) | def urandompoly(N,D) | ||
| "urandompoly(N,D) | "urandompoly(N,D)\n\ | ||
| generate a univariate random polynomial of degree N, | generate a univariate random polynomial of degree N,\n\ | ||
| with D bit random coefficients." | with D bit random coefficients." | ||
| { | { | ||
| for(I=0,R=0;I<=N;I++)R+= lrandom(D)*x^I; return R; | for(I=0,R=0;I<=N;I++)R+= lrandom(D)*x^I; return R; | ||
|
|
||
| */ | */ | ||
| def d_mul(F1,F2) | def d_mul(F1,F2) | ||
| "d_mul(F1,F2|proc=ProcList) | "d_mul(F1,F2|proc=ProcList)\n\ | ||
| computes the product of F1 and F2. | computes the product of F1 and F2.\n\ | ||
| If ProcList is specified, the product is computed in parallel." | If ProcList is specified, the product is computed in parallel." | ||
| { | { | ||
| Procs = getopt(proc); | Procs = getopt(proc); |