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 42... | Line 42... | ||
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 |
|
47 | !if $slib_i notin $slib_liste |
48 |
|
48 | !read slib/graph/connexcomponent [$slib_HH], $slib_i |
49 |
|
49 | slib_liste = !append item $slib_out to $slib_liste |
50 |
|
50 | slib_matrix = !append line $slib_out to $slib_matrix |
51 |
|
51 | !advance slib_cnt |
52 |
|
52 | slib_out= |
53 |
|
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 |
|
58 | !if $slib_i notin $slib_liste |
59 |
|
59 | !read slib/graph/connexcomponent [$slib_HH], $slib_i |
60 |
|
60 | slib_liste = !append item $slib_out to $slib_liste |
61 |
|
61 | slib_matrix = !append line $slib_out to $slib_matrix |
62 |
|
62 | !advance slib_cnt |
63 |
|
63 | !endif |
64 | !next slib_i |
64 | !next slib_i |
65 | 65 | ||
66 | 66 | ||
67 | slib_dessin = xrange -1.5,1.5\ |
67 | slib_dessin = xrange -1.5,1.5\ |
68 | yrange -1.5,1.5 |
68 | yrange -1.5,1.5 |
69 | !for slib_i=1 to $slib_cnt |
69 | !for slib_i=1 to $slib_cnt |
70 |
|
70 | slib_color$slib_i= !declosing $(slib_color$slib_i) |
71 |
|
71 | slib_h=!line $slib_i of $slib_matrix |
72 |
|
72 | !for slib_k in $slib_h |
73 |
|
73 | slib_name =!item $slib_k of $slib_names |
74 |
|
74 | slib_dessin=$slib_dessin\ |
75 |
|
75 | disk cos(2*pi*$slib_k/$slib_n ),sin(2*pi*$slib_k/$slib_n ), 6,$(slib_color$slib_i)\ |
76 | text black, 1.3*cos(2*pi*$slib_k/$slib_n ),1.3*sin(2*pi*$slib_k/$slib_n ), medium ,$slib_name |
76 | text black, 1.3*cos(2*pi*$slib_k/$slib_n ),1.3*sin(2*pi*$slib_k/$slib_n ), medium ,$slib_name |
77 | slib_r=!line $slib_k of $slib_H |
77 | slib_r=!line $slib_k of $slib_H |
78 |
|
78 | !if $slib_or=1 |
79 |
|
79 | !for slib_j in $slib_h |
80 |
|
80 | slib_u=!item $slib_j of $slib_r |
81 |
|
81 | !if $slib_u=1 |
82 |
|
82 | !if $slib_k<>$slib_j |
83 |
|
83 | slib_dessin=$slib_dessin\ |
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) |
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 |
|
85 | !else |
86 |
|
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 |
|
88 | !endif |
89 |
|
89 | !endif |
90 |
|
90 | !next slib_j |
91 |
|
91 | !else |
92 |
|
92 | !for slib_j=1 to $slib_n |
93 |
|
93 | slib_r=!line $slib_k of $slib_H |
94 |
|
94 | slib_u=!item $slib_j of $slib_r |
95 |
|
95 | !if $slib_u=1 |
96 |
|
96 | !if $slib_k<>$slib_j |
97 |
|
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 | 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) |
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 |
|
100 | !else |
101 |
|
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 |
- | |
104 |
|
103 | !endif |
105 | !next slib_j |
- | |
106 | !endif |
104 | !endif |
- | 105 | !next slib_j |
|
- | 106 | !endif |
|
107 |
|
107 | !next slib_k |
108 | !next slib_i |
108 | !next slib_i |
109 | 109 | ||
110 | 110 | ||
111 | slib_out= $slib_dessin |
111 | slib_out= $slib_dessin |
112 | 112 | ||
113 | !if url iswordof $slib_option or html iswordof $slib_option |
113 | !if url iswordof $slib_option or html iswordof $slib_option |
114 | insdraw_size=250,250 |
114 | insdraw_size=250,250 |
115 | !insdraw $slib_out |
115 | !insdraw $slib_out |
116 | slib_out=$ins_url |
116 | slib_out=$ins_url |
117 | !if html iswordof $slib_option |
117 | !if html iswordof $slib_option |
118 | slib_out=<img src="$ins_url" alt=""/> |
118 | slib_out=<img src="$ins_url" alt=""/> |
119 | !else |
119 | !else |
120 | slib_out=$slib_out,$insdraw_size |
120 | slib_out=$slib_out,$insdraw_size |
121 | !endif |
121 | !endif |
122 | !endif |
122 | !endif |