| version 1.9, 2018/10/02 09:06:15 |
version 1.10, 2018/10/19 23:27:38 |
|
|
| /* $OpenXM: OpenXM_contrib2/asir2018/engine/nd.c,v 1.8 2018/10/01 07:48:01 noro Exp $ */ |
/* $OpenXM: OpenXM_contrib2/asir2018/engine/nd.c,v 1.9 2018/10/02 09:06:15 noro Exp $ */ |
| |
|
| #include "nd.h" |
#include "nd.h" |
| |
|
| Line 8201 P ndc_div(int mod,union oNDC a,union oNDC b) |
|
| Line 8201 P ndc_div(int mod,union oNDC a,union oNDC b) |
|
| int inv,t; |
int inv,t; |
| |
|
| if ( mod == -1 ) c.m = _mulsf(a.m,_invsf(b.m)); |
if ( mod == -1 ) c.m = _mulsf(a.m,_invsf(b.m)); |
| else if ( mod == -2 ) divlf(a.gz,b.gz,&c.gz); |
else if ( mod == -2 ) divlf(a.z,b.z,&c.z); |
| else if ( mod ) { |
else if ( mod ) { |
| inv = invm(b.m,mod); |
inv = invm(b.m,mod); |
| DMAR(a.m,inv,0,mod,t); c.m = t; |
DMAR(a.m,inv,0,mod,t); c.m = t; |
| Line 8221 P ndctop(int mod,union oNDC c) |
|
| Line 8221 P ndctop(int mod,union oNDC c) |
|
| if ( mod == -1 ) { |
if ( mod == -1 ) { |
| e = IFTOF(c.m); MKGFS(e,gfs); return (P)gfs; |
e = IFTOF(c.m); MKGFS(e,gfs); return (P)gfs; |
| } else if ( mod == -2 ) { |
} else if ( mod == -2 ) { |
| q = c.gz; return (P)q; |
q = c.z; return (P)q; |
| } else if ( mod > 0 ) { |
} else if ( mod > 0 ) { |
| STOZ(c.m,q); return (P)q; |
STOZ(c.m,q); return (P)q; |
| } else |
} else |
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to nd.c CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM_contrib2 / asir2018 / engine