PDL :: ±×·¡ÇÈ :: Prima.

PDL ¹× PRIMA ¿ë ´ëÈ­ Çü ±×·¡ÇÁ À§Á¬
Áö±Ý ´Ù¿î·Îµå

PDL :: ±×·¡ÇÈ :: Prima. ¼øÀ§ ¹× ¿ä¾à

±¤°í

  • Rating:
  • ƯÇã:
  • Perl Artistic License
  • °¡°Ý:
  • FREE
  • °Ô½ÃÀÚ À̸§:
  • David Mertens
  • °Ô½ÃÀÚ À¥»çÀÌÆ®:
  • http://search.cpan.org/~dcmertens/

PDL :: ±×·¡ÇÈ :: Prima. ű×


PDL :: ±×·¡ÇÈ :: Prima. ¼³¸í

PDL :: ±×·¡ÇÈ :: Prima´Â 2D µ¥ÀÌÅÍ ½Ã°¢È­¸¦ »ý¼ºÇÏ°í Ž»öÇϱâÀ§ÇÑ ÇÃ·Ô ÀÎÅÍÆäÀ̽ºÀÔ´Ï´Ù. ÀÌ ÀÎÅÍ ½ÃÅ©ÀÇ ÇÙ½ÉÀº Prima Applications¿¡ ÅëÇÕ µÉ ¼öÀÖ´Â ÇÃ·Ô À§Á¬ÀÔ´Ï´Ù. Synopsis PDL :: Graphics :: Prima :: Simple; PDL »ç¿ë; # ÀϺΠµ¥ÀÌÅ͸¦ »ý¼ºÇϽʽÿÀ - »çÀÎ °î¼± My $ x = sequence (100) / 20; ³» $ y = sin ($ x); # °¢ X / Y ½ÖÀÇ Á¡À» ±×¸³´Ï´Ù. blob_plot ($ x, $ y); # °¢ X / Y ½ÖÀ» ¿¬°áÇÏ´Â ÁÙÀ» ±×¸³´Ï´Ù. line_plot ($ x, $ y); # È÷½ºÅä±×·¥ ±×¸®±â : My ($ bin_centers, $ heights) = $ y-> hist; hist_plot ($ bin_centers, $ heights); hist_plot ($ y-> hist); # »ó´ç # ÀϺΠµ¥ÀÌÅÍ »ý¼º - ¹°°á ¸ð¾çÀÇ ÆÐÅÏ ³» $ image = sin (sequence (sequence) / 10) + siN (Sequence (sequence (sequence (sequence (sequence (sequence (sequence); transposing; # greyscale À̹ÌÁö »ý¼º : matrix_plot ($ À̹ÌÁö); # ¿ÞÂÊ, ¿À¸¥ÂÊ, ÇÏ´Ü, »ó´Ü matrix_plot (, , $ À̹ÌÁö)À» ¼³Á¤ÇÕ´Ï´Ù. # ¿©·¯ µ¥ÀÌÅÍ ¼¼Æ® # ¹× ´õ ¸¹Àº Ç÷ÎÆà ±â´É¿¡ ´ëÇÑ ÀϹÝÀûÀÎ Ç÷ÔÀ» »ç¿ëÇϽʽÿÀ. MY $ COLORS = PAL :: Rainbow () -> Àû¿ë ($ x); ÇÃ·Ô (-lines => ds :: pair ($ x, $ y), color_blobs => ds :: pair ($ x, $ y + 1, »ö»ó => $ colors, plottype => pt :: blobs), x => {label => 'time'}, y => {label => 'sine'},); À§Á¬ ½Ã³ñ½Ã½º PDLÀ» »ç¿ëÇÕ´Ï´Ù. Prima QW (ÀÀ¿ë ÇÁ·Î±×·¥); PDL :: ±×·¡ÇÈ :: PRIMA; MY $ T_DATA = ½ÃÄö½º (6) / 0.5 + 1; MY $ Y_DATA = EXP ($ T_DATA); MY $ WDISPLAY = PRIMA :: MainWindow-> Create (text => '±×·¡ÇÁ Å×½ºÆ®', Å©±â => ,); $ wdisplay-> insert ( 'plot', -function => ds :: func (\ pdl :: exp, color => cl :: blue), -Data => DS :: Pair ($ t_data, $ y_data, »ö»ó => CL :: RED), ÆÑ => {FILL => 'µÑ ´Ù'È®Àå => 1},); ÇÁ¸®¸¶¸¦ ½ÇÇàÇϽʽÿÀ. Á¦Ç°ÀÇ È¨ÆäÀÌÁö


PDL :: ±×·¡ÇÈ :: Prima. °ü·Ã ¼ÒÇÁÆ®¿þ¾î