Subversion Repositories wimsdev

Rev

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 slib/graph/grapheuler.gp
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