OpenXM_contrib2/asir2000/lib/solve - diff

Return to solve CVS log

Up to [local] / OpenXM_contrib2 / asir2000 / lib

version 1.2, 2000/08/21 08:31:43

version 1.5, 2005/08/24 04:37:46

Line 23

* shall be made on your publication or presentation in any form of the

* results obtained by use of the SOFTWARE.

* (4) In the event that you modify the SOFTWARE, you shall notify FLL by

* e-mail at risa-admin@flab.fujitsu.co.jp of the detailed specification

* e-mail at risa-admin@sec.flab.fujitsu.co.jp of the detailed specification

* for such modification or the source code of the modified part of the

* SOFTWARE.

Line 45

* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE,

* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE.

* $OpenXM: OpenXM_contrib2/asir2000/lib/solve,v 1.1.1.1 1999/12/03 07:39:11 noro Exp $

* $OpenXM: OpenXM_contrib2/asir2000/lib/solve,v 1.4 2003/11/11 02:58:12 noro Exp $

def kenzan(El,Sl)

{

Line 85 def solve(El,Vl)

for ( I = 0, Tl = Vl; I < M; Tl = cdr(Tl), I++ )

Vs[I] = car(Tl);

for ( I = 0, Tl = El; I < N; Tl = cdr(Tl), I++ ) {

ltov(car(Tl),Vl,W);

solve_ltov(car(Tl),Vl,W);

for ( J = 0; J <= M; J++ )

Mat[I][J] = W[J];

}

Line 140 def solvemain(Mat,Index,N,M)

return [L,D];

}

def length(L)

def solve_ltov(P,VL,W)

{

for ( I = 0; L != []; L = cdr(L), I++ );

return I;

}

def ltov(P,VL,W)

{

for ( I = 0, L = VL; L != []; L = cdr(L), I++ ) {

W[I] = co(P,car(L),1); P -= W[I]*car(L);