Rev 8560 | Rev 13587 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 8560 | Rev 12676 | ||
---|---|---|---|
Line 18... | Line 18... | ||
18 | $ to ; in $slib_G |
18 | $ to ; in $slib_G |
19 | 19 | ||
20 | slib_n=!exec pari slib_N=Mat([$slib_G]);matsize(slib_N)[1] |
20 | slib_n=!exec pari slib_N=Mat([$slib_G]);matsize(slib_N)[1] |
21 | 21 | ||
22 | slib_dstx=!exec pari {slib_N=Mat([$slib_G]);\ |
22 | slib_dstx=!exec pari {slib_N=Mat([$slib_G]);\ |
23 |
|
23 | slib_P=vector($slib_n,slib_i,-1);\ |
24 |
|
24 | slib_P[$slib_point]=0;\ |
25 |
|
25 | slib_modif=1;\ |
26 |
|
26 | while(slib_modif,\ |
27 |
|
27 | slib_modif=0;\ |
28 |
|
28 | for(slib_i=1,$slib_n,\ |
29 |
|
29 | for(slib_j=1,$slib_n,\ |
30 |
|
30 | if(slib_N[slib_i,slib_j]*(slib_P[slib_i]+1),\ |
31 |
|
31 | if((slib_P[slib_j]+1),\ |
32 |
|
32 | if(slib_P[slib_j]>slib_P[slib_i]+1, slib_P[slib_j]=slib_P[slib_i]+1;slib_modif=1),\ |
33 |
|
33 | slib_P[slib_j]=slib_P[slib_i]+1; slib_modif=1);\ |
34 | );\ |
- | |
35 |
|
34 | );\ |
36 | );\ |
35 | );\ |
- | 36 | );\ |
|
37 |
|
37 | );\ |
38 | print(slib_P)} |
38 | print(slib_P)} |
39 | 39 | ||
40 | slib_cc=!exec pari {slib_P=Vec([$slib_dstx]);\ |
40 | slib_cc=!exec pari {slib_P=Vec([$slib_dstx]);\ |
41 | slib_Q=vector($slib_n);\ |
41 | slib_Q=vector($slib_n);\ |
42 | for(slib_i=1,$slib_n,\ |
42 | for(slib_i=1,$slib_n,\ |
43 | if(slib_P[slib_i]+1,slib_Q[slib_i]=1));\ |
43 | if(slib_P[slib_i]+1,slib_Q[slib_i]=1));\ |
44 | print(slib_Q)} |
44 | print(slib_Q)} |
45 | 45 | ||
46 | slib_out= !positionof item 1 in $slib_cc |
46 | slib_out= !positionof item 1 in $slib_cc |
47 | - |