| version 1.3, 2001/05/04 01:06:25 |
version 1.4, 2005/06/16 05:07:23 |
|
|
| /* $OpenXM: OpenXM/src/kan96xx/Kan/rat.c,v 1.2 2000/01/16 07:55:41 takayama Exp $ */ |
/* $OpenXM: OpenXM/src/kan96xx/Kan/rat.c,v 1.3 2001/05/04 01:06:25 takayama Exp $ */ |
| |
|
| /* rat.c: rational functions */ |
/* rat.c: rational functions */ |
| #include <stdio.h> |
#include <stdio.h> |
| Line 14 struct object KnewRationalFunction0(op1,op2) |
|
| Line 14 struct object KnewRationalFunction0(op1,op2) |
|
| objectp op1; |
objectp op1; |
| objectp op2; |
objectp op2; |
| { |
{ |
| struct object rob; |
struct object rob = OINIT; |
| rob.tag = SrationalFunction; |
rob.tag = SrationalFunction; |
| Knumerator(rob) = op1; |
Knumerator(rob) = op1; |
| Kdenominator(rob) = op2; |
Kdenominator(rob) = op2; |
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to rat.c CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM / src / kan96xx / Kan