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