Subversion Repositories wimsdev

Rev

Rev 8321 | Rev 12676 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 8321 Rev 8560
Line 20... Line 20...
20 
!if $(slib_point[-1]) iswordof url html raw
 20 
!if $(slib_point[-1]) iswordof url html raw
21 
  slib_option=$(slib_point[-1])
 21 
  slib_option=$(slib_point[-1])
22 
  slib_point=$(slib_point[1..-2])
 22 
  slib_point=$(slib_point[1..-2])
23 
!endif
 23 
!endif
24 
slib_H=!declosing $slib_H
 24 
slib_H=!declosing $slib_H
25 
slib_H=!translate internal  ;  to  $\
 25 
slib_H=!translate internal  ;  to $\
26 
$  in $slib_H
 26 
$ in $slib_H
27 
slib_HH=!translate internal  $\
 27 
slib_HH=!translate internal $\
28 
$  to ; in $slib_H
 28 
$ to ; in $slib_H
29 
 
 29 
 
30 
slib_point=!declosing $slib_point
 30 
slib_point=!declosing $slib_point
31 
slib_color=!declosing $slib_color
 31 
slib_color=!declosing $slib_color
32 
!default slib_color=blue,red,green, magenta, brown, purple,gold
 32 
!default slib_color=blue,red,green, magenta, brown, purple,gold
33 
!distribute items $slib_color  into slib_color1, slib_color2, slib_color3, slib_color4, slib_color5, slib_color6,slib_color7
 33 
!distribute items $slib_color into slib_color1, slib_color2, slib_color3, slib_color4, slib_color5, slib_color6,slib_color7
34 
 
 34 
 
35 
slib_or=!exec pari Mat([$slib_HH])==Mat([$slib_HH])~
 35 
slib_or=!exec pari Mat([$slib_HH])==Mat([$slib_HH])~
36 
slib_names=!declosing $slib_names
 36 
slib_names=!declosing $slib_names
37 
slib_n=!line 1 of $slib_H
 37 
slib_n=!line 1 of $slib_H
38 
slib_n=!itemcnt $slib_n
 38 
slib_n=!itemcnt $slib_n
39 
!default slib_names=!values slib_i for slib_i=1  to $slib_n
 39 
!default slib_names=!values slib_i for slib_i=1 to $slib_n
40 
slib_vertex= !values x for x=1 to $slib_n
 40 
slib_vertex= !values x for x=1 to $slib_n
41 
!default slib_point= $slib_vertex
 41 
!default slib_point= $slib_vertex
42 
slib_liste =
 42 
slib_liste =
43 
slib_cnt = 0
 43 
slib_cnt = 0
44 
slib_matrix=
 44 
slib_matrix=
45 
slib_out=
 45 
slib_out=
46 
!for slib_i  in $slib_point
 46 
!for slib_i in $slib_point
47 
    !if $slib_i notin $slib_liste
 47 
    !if $slib_i notin $slib_liste
48 
        !read slib/graph/connexcomponent  [$slib_HH], $slib_i
 48 
        !read slib/graph/connexcomponent [$slib_HH], $slib_i
49 
        slib_liste = !append item $slib_out to $slib_liste
 49 
        slib_liste = !append item $slib_out to $slib_liste
50 
        slib_matrix = !append line $slib_out to $slib_matrix
 50 
        slib_matrix = !append line $slib_out to $slib_matrix
51 
        !advance slib_cnt
 51 
        !advance slib_cnt
52 
        slib_out=
 52 
        slib_out=
53 
    !endif
 53 
    !endif
54 
!next slib_i
 54 
!next slib_i
55 
slib_point2 = !listcomplement of $slib_liste in $slib_vertex
 55 
slib_point2 = !listcomplement of $slib_liste in $slib_vertex
56 
 
 56 
 
57 
!for slib_i  in $slib_point2
 57 
!for slib_i in $slib_point2
58 
    !if $slib_i notin $slib_liste
 58 
    !if $slib_i notin $slib_liste
59 
        !read slib/graph/connexcomponent  [$slib_HH], $slib_i
 59 
        !read slib/graph/connexcomponent [$slib_HH], $slib_i
60 
        slib_liste = !append item $slib_out to $slib_liste
 60 
        slib_liste = !append item $slib_out to $slib_liste
61 
        slib_matrix = !append line $slib_out to $slib_matrix
 61 
        slib_matrix = !append line $slib_out to $slib_matrix
62 
        !advance slib_cnt
 62 
        !advance slib_cnt
63 
    !endif
 63 
    !endif
64 
!next slib_i
 64 
!next slib_i
Line 79... Line 79...
79 
            !for slib_j   in $slib_h
 79 
            !for slib_j   in $slib_h
80 
                slib_u=!item $slib_j of $slib_r
 80 
                slib_u=!item $slib_j of $slib_r
81 
                !if $slib_u=1
 81 
                !if $slib_u=1
82 
                    !if $slib_k<>$slib_j
 82 
                    !if $slib_k<>$slib_j
83 
                        slib_dessin=$slib_dessin\
 83 
                        slib_dessin=$slib_dessin\
84 
line cos(2*pi*$slib_k/$slib_n),sin(2*pi*$slib_k/$slib_n), cos(2*pi*$slib_j/$slib_n ),sin(2*pi*$slib_j/$slib_n ),$(slib_color$slib_i)
 84 
segment cos(2*pi*$slib_k/$slib_n),sin(2*pi*$slib_k/$slib_n), cos(2*pi*$slib_j/$slib_n ),sin(2*pi*$slib_j/$slib_n ),$(slib_color$slib_i)
85 
                    !else
 85 
                    !else
86 
                        slib_dessin=$slib_dessin\
 86 
                        slib_dessin=$slib_dessin\
87 
ellipse cos(2*pi*$slib_i/$slib_n )*1.25,sin(2*pi*$slib_i/$slib_n )*1.25, 0.5,0.5,$(slib_color$slib_i)
 87 
ellipse cos(2*pi*$slib_i/$slib_n )*1.25,sin(2*pi*$slib_i/$slib_n )*1.25, 0.5,0.5,$(slib_color$slib_i)
88 
                    !endif
 88 
                    !endif
89 
                !endif
 89 
                !endif
Line 94... Line 94...
94 
                slib_u=!item $slib_j of $slib_r
 94 
                slib_u=!item $slib_j of $slib_r
95 
                !if $slib_u=1
 95 
                !if $slib_u=1
96 
                    !if $slib_k<>$slib_j
 96 
                    !if $slib_k<>$slib_j
97 
                        slib_dessin=$slib_dessin\
 97 
                        slib_dessin=$slib_dessin\
98 
arrow $[cos(2*pi*$slib_k/$slib_n )],$[sin(2*pi*$slib_k/$slib_n)], $[(cos(2*pi*$slib_k/$slib_n )-cos(2*pi*$slib_j/$slib_n ))/2+cos(2*pi*$slib_j/$slib_n )],$[(sin(2*pi*$slib_k/$slib_n )-sin(2*pi*$slib_j/$slib_n ))/2+sin(2*pi*$slib_j/$slib_n )],10,$(slib_color$slib_i)\
 98 
arrow $[cos(2*pi*$slib_k/$slib_n )],$[sin(2*pi*$slib_k/$slib_n)], $[(cos(2*pi*$slib_k/$slib_n )-cos(2*pi*$slib_j/$slib_n ))/2+cos(2*pi*$slib_j/$slib_n )],$[(sin(2*pi*$slib_k/$slib_n )-sin(2*pi*$slib_j/$slib_n ))/2+sin(2*pi*$slib_j/$slib_n )],10,$(slib_color$slib_i)\
99 
line cos(2*pi*$slib_k/$slib_n ),sin(2*pi*$slib_k/$slib_n ),cos(2*pi*$slib_j/$slib_n ),sin(2*pi*$slib_j/$slib_n ),$(slib_color$slib_i)
 99 
segment cos(2*pi*$slib_k/$slib_n ),sin(2*pi*$slib_k/$slib_n ),cos(2*pi*$slib_j/$slib_n ),sin(2*pi*$slib_j/$slib_n ),$(slib_color$slib_i)
100 
                    !else
 100 
                    !else
101 
                        slib_dessin=$slib_dessin\
 101 
                        slib_dessin=$slib_dessin\
102 
ellipse cos(2*pi*$slib_k/$slib_n )*1.25,sin(2*pi*$slib_k/$slib_n )*1.25, 0.5,0.5,$(slib_color$slib_i)
 102 
ellipse cos(2*pi*$slib_k/$slib_n )*1.25,sin(2*pi*$slib_k/$slib_n )*1.25, 0.5,0.5,$(slib_color$slib_i)
103 
                    !endif
 103 
                    !endif
104 
                !endif
 104 
                !endif