½ºÇÁ¸µ ±×·¡ÇÁ ¼øÀ§ ¹× ¿ä¾à
- °Ô½ÃÀÚ À̸§:
- Aaron James Trevena
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~teejay/
½ºÇÁ¸µ ±×·¡ÇÁ ű×
½ºÇÁ¸µ ±×·¡ÇÁ ¼³¸í
Graphviz¿¡ ´ëÇÑ ÇâÈÄ ±×·¡ÇÁ ´ë¾È SpringGraph´Â SpringGraph.pl ½ºÅ©¸³Æ®ÀÇ Àç ÀÛ¼ºÀ̸ç ÀϺΠ/ ´ëºÎºÐÀÇ µµÆ® ÆÄÀÏÀ» ÀÐÀ» ¼öÀÖ´Â SpringGraph.pl ½ºÅ©¸³Æ®ÀÔ´Ï´Ù.ÀÌ ¸ðµâÀÇ ¸ñÇ¥´Â CPAN¿¡¼ VCG ¹× / ¶Ç´Â GraphViz Perl ¸ðµâ¿¡ ȣȯµÇ´Â ÀÎÅÍÆäÀ̽º¸¦ Á¦°øÇÏ´Â °ÍÀÔ´Ï´Ù. ÀÌ ¸ðµâÀº ´õ ¸¹Àº À¯¿¬¼º°ú Àü¿øÀ» Á¦°øÇϱâ À§ÇØ ¸î °¡Áö Ãß°¡ ±â´ÉÀ» Á¦°øÇÕ´Ï´Ù. SpringGraph QW (calculate_graph draw_graph); ## °´Ã¼ ÁöÇâ ÀÎÅÍÆäÀ̽º ## My $ Graph = New SpringGraph; # ±×·¡ÇÁ¿¡ ³ëµå¸¦ Ãß°¡ÇÕ´Ï´Ù (¼±ÅÃÀû ·¹À̺í Æ÷ÇÔ) $ ±×·¡ÇÁ -> add_node ( 'Æĸ®', label => 'love of love'); ±×·¡ÇÁ¿¡ °¡ÀåÀÚ¸®¸¦ Ãß°¡ÇϽʽÿÀ (¿É¼Ç ¶óº§, Áö½Ã) $ graph-> add_edge ( '·±´ø'=> '´º¿å', label => 'farr', dir => 1); # ±×·¡ÇÁ¸¦ $ graph-> as_png ($ filename)·Î Ãâ·ÂÇϽʽÿÀ. # gd À̹ÌÁö °´Ã¼·Î ±×·¡ÇÁ °¡Á® ¿À±â $ graph-> as_gd; ## ÀýÂ÷ Àû ÀÎÅÍÆäÀ̽º ## % Node = (London => {label => '·±´ø (Waterloo)'}, paris => {label => 'paris'}, brussels => {label => 'brussels'}); my % link = = (·±´ø => {Æĸ® => {style => 'Á¡¼±'}, '´º¿å'=> {}}, # ºñ Áö½Ã, Á¡¼± ¹× ÀÏ¹Ý ÁÙ Æĸ® => {brussels => {dir => 1}} , # Æĸ®¿¡¼ ºê·ò¼¿·ÎºÎÅÍ Áö½Ã); MY $ GRAPH = CALCELE_GRAPH (\ % ³ëµå, \ % ¸µÅ©); draw_graph ($ filename, \ % ³ëµå, \ % ¸µÅ©); ¿ä±¸ »çÇ× : ¡¤ Perl.
½ºÇÁ¸µ ±×·¡ÇÁ °ü·Ã ¼ÒÇÁÆ®¿þ¾î