Subversion Repositories wimsdev

Rev

Rev 4158 | Go to most recent revision | Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
20 reyssat 1
!if $wims_read_parm!=slib_header
2
 !goto proc
3
!endif
4
!!slib_title=Path of a graph
5
slib_parms=3\
6
, A matrix of size n by n\
7
, s first vertex\
8
, t second vertex
9
slib_author=Bernadette PERRIN-RIOU
10
slib_out=list of the paths from s to t  
11
slib_comment=
12
 slib_example=
13
 
14
!exit
15
 
16
:proc
17
 
18
!distribute item $wims_read_parm into slib_A,slib_s,slib_t
19
slib_A= !declosing $slib_A
20
slib_A=!replace internal ; by $\
21
$ in $slib_A
22
slib_n = !linecnt $slib_A
23
 
24
slib_chemin=$slib_t
25
!for slib_i=1 to $slib_n
26
 !for slib_k=1 to $slib_n
27
  !for slib_j=1 to $slib_n
28
   slib_r=!line $slib_k of $slib_A
29
   slib_r=!item $slib_j of $slib_r
30
   !if $slib_r != 0
31
    slib_cnt=!linecnt $slib_chemin
32
    !for slib_u = 1 to $slib_cnt
33
     slib_che=!line $slib_u of $slib_chemin
34
     slib_che1=!item 1 of $slib_che
35
     !if $slib_che1 = $slib_j
36
      slib_chemin=$slib_chemin\
37
$slib_k,$slib_che
38
     !endif
39
    !next slib_u
40
   !endif
41
  !next slib_j
42
 !next slib_k
43
!next slib_i
44
 
45
slib_out=$slib_chemin