U Mathematici v6 možeš npr. ovako:
Definira se graf
[code:1]g = {{1 -> 2, 1}, {1 -> 3, 2}, {2 -> 4, 3}, {2 -> 5, 4}, {3 -> 6, 5}, {3 -> 7, 6}};[/code:1]
koji izgleda ovako:
[img]http://degiorgi.math.hr/forum/files/clipboard01_180.png[/img]
i lista od 6 boja,
[code:1]boje = {Green, Blue, Black, Cyan, Gray, Yellow};[/code:1]
Sada se funkcijom [tt]EdgeRenderingFunction[/tt] oznakama brida (edge label) pridruži jedna boja. Bridu sa oznakom 1 se pridruži boja [tt]boja[[1]][/tt], sa oznakom 2 [tt]boja[[2]][/tt], itd.
To se može napraviti ovako:[code:1]GraphPlot[g, EdgeRenderingFunction -> ({boje[[#3]], Line[#1]} &)][/code:1]
i onda to izgleda ovako:
[img]http://degiorgi.math.hr/forum/files/clipboard02_956.png[/img]
Isto se može i sa grafom od 500tinjak bridova. Svakom bridu se pridruži broj od 1 do 500 i generira se lista od 500 boja pomoću [tt]CMYKColor[/tt] funkcije.
U Mathematici v6 možeš npr. ovako:
Definira se graf
Kod: | g = {{1 -> 2, 1}, {1 -> 3, 2}, {2 -> 4, 3}, {2 -> 5, 4}, {3 -> 6, 5}, {3 -> 7, 6}}; |
koji izgleda ovako:
i lista od 6 boja,
Kod: | boje = {Green, Blue, Black, Cyan, Gray, Yellow}; |
Sada se funkcijom EdgeRenderingFunction oznakama brida (edge label) pridruži jedna boja. Bridu sa oznakom 1 se pridruži boja boja[[1]], sa oznakom 2 boja[[2]], itd.
To se može napraviti ovako: Kod: | GraphPlot[g, EdgeRenderingFunction -> ({boje[[#3]], Line[#1]} &)] |
i onda to izgleda ovako:
Isto se može i sa grafom od 500tinjak bridova. Svakom bridu se pridruži broj od 1 do 500 i generira se lista od 500 boja pomoću CMYKColor funkcije.
_________________ The Dude Abides
Description: |
|
Filesize: |
7.6 KB |
Viewed: |
77 Time(s) |
![Clipboard02.png](files/thumbs/t_clipboard02_956.png)
|
Description: |
|
Filesize: |
7.55 KB |
Viewed: |
79 Time(s) |
![Clipboard01.png](files/thumbs/t_clipboard01_180.png)
|
|