OpenXM_contrib2/asir2018/builtin/isolv.c - diff

Return to isolv.c CVS log

Up to [local] / OpenXM_contrib2 / asir2018 / builtin

Diff for /OpenXM_contrib2/asir2018/builtin/isolv.c between version 1.1 and 1.2

version 1.1, 2018/09/19 05:45:06

version 1.2, 2019/06/04 07:11:23

Line 1

* $OpenXM$

* $OpenXM: OpenXM_contrib2/asir2018/builtin/isolv.c,v 1.1 2018/09/19 05:45:06 noro Exp $

#include "ca.h"

Line 11

static void Solve(NODE, Obj *);

static void NSolve(NODE, Obj *);

/* in builtin/vars.c */

void Pvars();

/* */

void Solve1(P, Q, pointer *);

void Sturm(P, VECT *);

void boundbody(P, Q *);

void binary(int , MAT);

void separate(Q, Q, VECT, Q, Q, int, int, MAT, int *);

void ueval(P, Q, Q *);

int stumq(VECT, Q);

// in engine/bf.c

Num tobf(Num,int);

struct ftab isolv_tab[] = {

{"solve", Solve, 2},

{"nsolve", NSolve, 2},

Line 72 Obj *rp;

Line 81 Obj *rp;

}

static void

NSolve(arg, rp)

NSolve(NODE arg, Obj *rp)

NODE arg;

Obj *rp;

{

pointer p, Eps;

pointer root;

Line 115 Obj *rp;

Line 122 Obj *rp;

for (m0 = BDY((LIST)root), n0 = 0; m0; m0 = NEXT(m0)) {

m = BDY((LIST)BDY(m0));

miditvp(BDY(m), &r);

ToBf(r, &breal);

//ToBf(r, &breal);

breal = (BF)tobf(r, DEFAULTPREC);

NEXTNODE( n0, n );

MKNODE(ln0, breal, NEXT(m));

MKLIST(listp, ln0);

Line 340 VECT *ret;

Line 348 VECT *ret;

}

int

stumq(s, val)

stumq(VECT s, Q val)

VECT s;

Q val;

{

int len, i, j, c;

P *ss;

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>