Rev 13103 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 13103 | Rev 18392 | ||
---|---|---|---|
Line 68... | Line 68... | ||
68 | slib_euler=$slib_euler1 |
68 | slib_euler=$slib_euler1 |
69 | 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)) ;matrix($slib_n,$slib_n,slib_i,slib_j,slib_M[slib_p[slib_i],slib_p[slib_j]]) |
69 | 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)) ;matrix($slib_n,$slib_n,slib_i,slib_j,slib_M[slib_p[slib_i],slib_p[slib_j]]) |
70 | !else graph eulerien |
70 | !else graph eulerien |
71 | !readproc slib/graph/randomconnex $slib_n, $slib_m |
71 | !readproc slib/graph/randomconnex $slib_n, $slib_m |
72 | slib_G=$slib_out |
72 | slib_G=$slib_out |
73 | !readproc |
73 | !readproc gp/grapheuler.gp |
74 | slib_G=!exec pari G=graphe_eulerien([$slib_G]);C=cycle_eulerien(G);[G,C] |
74 | slib_G=!exec pari G=graphe_eulerien([$slib_G]);C=cycle_eulerien(G);[G,C] |
75 | slib_euler=!declosing $(slib_G[2]) |
75 | slib_euler=!declosing $(slib_G[2]) |
76 | slib_G=!declosing $(slib_G[1]) |
76 | slib_G=!declosing $(slib_G[1]) |
77 | 77 | ||
78 | !endif |
78 | !endif |