OpenXM_contrib2/asir2000/engine/t-itv.c - diff

Return to t-itv.c CVS log

Up to [local] / OpenXM_contrib2 / asir2000 / engine

version 1.1, 2000/12/22 10:03:28

version 1.2, 2002/01/08 04:14:37

Line 1

* $OpenXM: $

* $OpenXM: OpenXM_contrib2/asir2000/engine/t-itv.c,v 1.1 2000/12/22 10:03:28 saito Exp $

#if defined(INTERVAL)

#include "ca.h"

Line 50 void additvp(Itv a, Itv b, Itv *c)

addnum(0,a,b,c);

else if ( (NID(a) == N_IP) && (NID(b) == N_R )

||(NID(a) == N_R ) && (NID(b) == N_IP) )

additvd((Num)a,(Num)b,(ItvD *)c);

additvd((Num)a,(Num)b,(IntervalDouble *)c);

else {

itvtois(a,&ai,&as);

itvtois(b,&bi,&bs);

Line 73 void subitvp(Itv a, Itv b, Itv *c)

subnum(0,a,b,c);

else if ( (NID(a) == N_IP) && (NID(b) == N_R )

||(NID(a) == N_R ) && (NID(b) == N_IP) )

subitvd((Num)a,(Num)b,(ItvD *)c);

subitvd((Num)a,(Num)b,(IntervalDouble *)c);

else {

itvtois(a,&ai,&as);

itvtois(b,&bi,&bs);

Line 94 void mulitvp(Itv a, Itv b, Itv *c)

mulnum(0,a,b,c);

else if ( (NID(a) == N_IP) && (NID(b) == N_R )

||(NID(a) == N_R ) && (NID(b) == N_IP) )

mulitvd((Num)a,(Num)b,(ItvD *)c);

mulitvd((Num)a,(Num)b,(IntervalDouble *)c);

else {

itvtois(a,&ai,&as);

itvtois(b,&bi,&bs);

Line 176 void divitvp(Itv a, Itv b, Itv *c)

divnum(0,a,b,c);

else if ( (NID(a) == N_IP) && (NID(b) == N_R )

||(NID(a) == N_R ) && (NID(b) == N_IP) )

divitvd((Num)a,(Num)b,(ItvD *)c);

divitvd((Num)a,(Num)b,(IntervalDouble *)c);

else {

itvtois(a,&ai,&as);

itvtois(b,&bi,&bs);