Subversion Repositories wimsdev

Rev

Rev 4351 | Rev 8321 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 4351 Rev 7692
Line 24... Line 24...
24 
	slib_s=!line $slib_S of $slib_u
 24 
	slib_s=!line $slib_S of $slib_u
25 
		slib_bonsom=!listcomplement $slib_s in $slib_sommet
 25 
		slib_bonsom=!listcomplement $slib_s in $slib_sommet
26 
		!if $slib_bonsom <> $empty
 26 
		!if $slib_bonsom <> $empty
27 
			 slib_a = !randitem  $slib_bonsom
 27 
			 slib_a = !randitem  $slib_bonsom
28 
		!else
 28 
		!else
29 
			!goto end
29 
			!goto end
30 
		!endif
 30 
		!endif
31 
		slib_u=!translate internal  $\
 31 
		slib_u=!translate internal  $\
32 
$ to ; in $slib_u
 32 
$ to ; in $slib_u
33 
		slib_u=!exec pari {slib_M=Mat([$slib_u]); slib_M[$slib_a,$slib_S]=$slib_S ;  slib_M[$slib_S,$slib_a]=$slib_a;print(slib_M)}
 33 
		slib_u=!exec pari {slib_M=Mat([$slib_u]); slib_M[$slib_a,$slib_S]=$slib_S ;  slib_M[$slib_S,$slib_a]=$slib_a;print(slib_M)}
34 
		slib_u=!translate internal  ; to $\
 34 
		slib_u=!translate internal  ; to $\
35 
$  in $slib_u
 35 
$  in $slib_u
36 
		slib_euler=$slib_euler, $slib_a
36 
		slib_euler=$slib_euler, $slib_a
37 
		slib_S=$slib_a
 37 
		slib_S=$slib_a
38 
!next slib_k
 38 
!next slib_k
39 
 
 39 
 
40 
slib_manquant=!listcomplement $slib_euler in $slib_sommet
 40 
slib_manquant=!listcomplement $slib_euler in $slib_sommet
41 
!if $slib_manquant <> $empty
 41 
!if $slib_manquant <> $empty
42 
	 !for slib_a in $slib_manquant
 42 
	 !for slib_a in $slib_manquant
43 
	 	slib_u=!translate internal  $\
 43 
	 	slib_u=!translate internal  $\
44 
$ to ; in $slib_u
 44 
$ to ; in $slib_u
45 
		slib_u=!exec pari {slib_M=Mat([$slib_u]); slib_M[$slib_a,$slib_S]=$slib_S ;  slib_M[$slib_S,$slib_a]=$slib_a;print(slib_M)}
 45 
		slib_u=!exec pari {slib_M=Mat([$slib_u]); slib_M[$slib_a,$slib_S]=$slib_S ;  slib_M[$slib_S,$slib_a]=$slib_a;print(slib_M)}
46 
		slib_euler=$slib_euler, $slib_a
 46 
		slib_euler=$slib_euler, $slib_a
47 
		slib_S=$slib_a
 47 
		slib_S=$slib_a
48 
	!next slib_a
48 
	!next slib_a
49 
!endif
49 
!endif
50 
:end
 50 
:end
51 
 
 51 
 
52
52 
 
53 
slib_m=!itemcnt $slib_euler
 53 
slib_m=!itemcnt $slib_euler
54 
 
 54 
 
55 
slib_u = !nonempty lines $slib_u
 55 
slib_u = !nonempty lines $slib_u
56 
slib_u=!translate internal  $\
 56 
slib_u=!translate internal  $\
57 
$  to ; in $slib_u
 57 
$  to ; in $slib_u