Subversion Repositories wimsdev

Rev

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

Rev 8560 Rev 12676
Line 19... Line 19...
19 
slib_u=!translate internal ; to $\
 19 
slib_u=!translate internal ; to $\
20 
$  in $slib_u
 20 
$  in $slib_u
21 
slib_S=1
 21 
slib_S=1
22 
slib_euler=$slib_S
 22 
slib_euler=$slib_S
23 
!for slib_k=2 to $slib_m
 23 
!for slib_k=2 to $slib_m
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 
 
 - 
 
52 
 
 51 
 
53 
slib_m=!itemcnt $slib_euler
 52 
slib_m=!itemcnt $slib_euler
54 
 
 53 
 
55 
slib_u = !nonempty lines $slib_u
 54 
slib_u = !nonempty lines $slib_u
56 
slib_u=!translate internal $\
 55 
slib_u=!translate internal $\
57 
$  to ; in $slib_u
 56 
$  to ; in $slib_u
58 
 
 - 
 
59 
 
 57 
 
60 
slib_p = !shuffle $slib_n
 58 
slib_p = !shuffle $slib_n
61 
slib_pp =!item $slib_p of $slib_sommet
 59 
slib_pp =!item $slib_p of $slib_sommet
62 
slib_euler1=
 60 
slib_euler1=
63 
!for slib_i in $slib_euler
 61 
!for slib_i in $slib_euler
64 
    slib_pos=!positionof item $slib_i in $slib_p
 62 
  slib_pos=!positionof item $slib_i in $slib_p
65 
    slib_euler1=!append item $slib_pos to $slib_euler1
 63 
  slib_euler1=!append item $slib_pos to $slib_euler1
66 
!next slib_i
 64 
!next slib_i
67 
slib_euler=$slib_euler1
 65 
slib_euler=$slib_euler1
68 
slib_G=!exec pari slib_p = [$slib_p]; slib_M=Mat([$slib_u]); slib_M=matrix($slib_n,$slib_n,slib_i,slib_j,if(slib_i !=slib_j && slib_M[slib_i,slib_j] != 0,1)) ;\
 66 
slib_G=!exec pari slib_p = [$slib_p]; slib_M=Mat([$slib_u]); slib_M=matrix($slib_n,$slib_n,slib_i,slib_j,if(slib_i !=slib_j && slib_M[slib_i,slib_j] != 0,1)) ;\
69 
matrix($slib_n,$slib_n,slib_i,slib_j,slib_M[slib_p[slib_i],slib_p[slib_j]])
 67 
matrix($slib_n,$slib_n,slib_i,slib_j,slib_M[slib_p[slib_i],slib_p[slib_j]])
70 
 
 68