![]() ![]() | ![]() |
version 1.2, 2000/08/21 08:31:43 | version 1.5, 2005/08/24 04:37:46 | ||
---|---|---|---|
|
|
||
* shall be made on your publication or presentation in any form of the | * shall be made on your publication or presentation in any form of the | ||
* results obtained by use of the SOFTWARE. | * results obtained by use of the SOFTWARE. | ||
* (4) In the event that you modify the SOFTWARE, you shall notify FLL by | * (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 | * for such modification or the source code of the modified part of the | ||
* SOFTWARE. | * SOFTWARE. | ||
* | * | ||
|
|
||
* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE, | * DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE, | ||
* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE. | * 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) | def kenzan(El,Sl) | ||
{ | { | ||
|
|
||
for ( I = 0, Tl = Vl; I < M; Tl = cdr(Tl), I++ ) | for ( I = 0, Tl = Vl; I < M; Tl = cdr(Tl), I++ ) | ||
Vs[I] = car(Tl); | Vs[I] = car(Tl); | ||
for ( I = 0, Tl = El; I < N; Tl = cdr(Tl), I++ ) { | 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++ ) | for ( J = 0; J <= M; J++ ) | ||
Mat[I][J] = W[J]; | Mat[I][J] = W[J]; | ||
} | } | ||
|
|
||
return [L,D]; | 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++ ) { | for ( I = 0, L = VL; L != []; L = cdr(L), I++ ) { | ||
W[I] = co(P,car(L),1); P -= W[I]*car(L); | W[I] = co(P,car(L),1); P -= W[I]*car(L); |