±±¾©Ê¯ÓÍ»¯¹¤Ñ§Ôº2026ÄêÑо¿ÉúÕÐÉú½ÓÊÕµ÷¼Á¹«¸æ
²é¿´: 1034  |  »Ø¸´: 8
µ±Ç°Ö»ÏÔʾÂú×ãÖ¸¶¨Ìõ¼þµÄ»ØÌû£¬µã»÷ÕâÀï²é¿´±¾»°ÌâµÄËùÓлØÌû

guoman2006

Òø³æ (³õÈëÎÄ̳)

[ÇóÖú] ÇóÒ»¸öfortran³ÌÐòµÄ½âÊÍ

subroutine rrgbcolor(iout,icol,imax,iprt)
c     Set the color on a continous 0-1 scale
      if (iprt .eq. 1) write (iout,*) 'stroke'
      if (imax .eq. 1) then
        write (iout,1000) 0.0,0.0,0.0
      else
        rcol=2.0*float(icol-1)/float(imax-1)
        if (rcol .le. 1.0) then
          write (iout,1000) (1.0-rcol),rcol,0.0
        else
          rcol=rcol-1.0
          write (iout,1000) 0.0,(1.0-rcol),rcol
        end if
      end if
      if (iprt .eq. 1) write (iout,*) 'newpath'
      return
1000  format(3f6.2,' setrgbcolor')
      end
»Ø¸´´ËÂ¥

» ²ÂÄãϲ»¶

» ±¾Ö÷ÌâÏà¹Ø¼ÛÖµÌùÍÆ¼ö£¬¶ÔÄúͬÑùÓаïÖú:

ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

nono2009

³¬¼¶°æÖ÷ (ÎÄѧ̩¶·)

No gains, no pains.

ÓÅÐãÇø³¤ÓÅÐãÇø³¤ÓÅÐãÇø³¤ÓÅÐãÇø³¤ÓÅÐã°æÖ÷

¡¾´ð°¸¡¿Ó¦Öú»ØÌû

¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï
¸Ðл²ÎÓ룬ӦÖúÖ¸Êý +1
guoman2006: ½ð±Ò+10, ¡ïÓаïÖú 2012-11-05 11:10:39
Ôڱ༭Æ÷ÄÚʹÓõ¥²½Ö´Ðз½Ê½£¬Â¥Ö÷¾ÍÄÜÀí½âÿ¾äµÄº¬ÒåÁË

» ±¾ÌûÒÑ»ñµÃµÄºì»¨£¨×îÐÂ10¶ä£©

3Â¥2012-11-04 13:53:54
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû
²é¿´È«²¿ 9 ¸ö»Ø´ð

baobiao007

ľ³æ (Ö°Òµ×÷¼Ò)

ÖйúÌØÉ«

¡¾´ð°¸¡¿Ó¦Öú»ØÌû

¸Ðл²ÎÓ룬ӦÖúÖ¸Êý +1
Â¥Ö÷Ï£Íû±ðÈËÿ¾ä¶¼¸øÄã½âÊÍһϣ¿ ÎÞÓï¡£¡£¡£¡£¡£¡£¡£
ÎÒͬÒâÊå±¾»ªµÄ¹Ûµã£¬ÈËÃÇͶÉíÒÕÊõºÍ¿ÆÑ§ÁìÓòµÄÇ¿ÁÒÔ¸ÍûÖ®Ò»¾ÍÊÇÌÓÀëÍ´¿à¡¢²Ð¿áºÍ¿ÝÔïÎÞζµÄÏÖʵÉú»î£¬ÌÓÀë×Ô¼ºÆ®ºö²»¶¨µÄÆßÇéÁùÓûµÄèäèô¡£--°®Òò˹̹
2Â¥2012-11-04 12:43:17
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

chentianyu1

ľ³æ (СÓÐÃûÆø)

¡¾´ð°¸¡¿Ó¦Öú»ØÌû

¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï
¸Ðл²ÎÓ룬ӦÖúÖ¸Êý +1
guoman2006: ½ð±Ò+30, ¡ï¡ï¡ïºÜÓаïÖú 2012-11-05 11:10:50
¸ø¶¨Ò»¸öcolor±äÁ¿¼°Ò»¸ömax±äÁ¿£¬Êä³ö¶ÔÓ¦µÄÑÕÉ«
ÆäÖÐcolorºÍmax¶¼ÊÇÕýÊý£¬²¢ÇÒcolor²»´óÓÚmax£¬color=icol-1£¬max=imax-1
Êä³öµÄÑÕÉ«ÊÇÒ»¸öRGBÔª×飬°üÀ¨R¡¢G¡¢BÈý¸ö0µ½1Ö®¼äµÄÊý£¬·Ö±ð´ú±íºì¡¢ÂÌ¡¢À¶Èý¸öÑÕÉ«·ÖÁ¿
ÑÕÉ«µÄ¾ßÌ弯Ëã·½·¨ÊÇ£º
1¡¢Èç¹ûmax=0£¬ÔòÊä³öºÚÉ«£¨R=0,G=0,B=0£©
2¡¢Èç¹ûcol/max²»³¬¹ý0.5£¬ÔòÊä³öÑÕÉ«£¨R=1-2*col/max, G=2*col/max, B=0£©
3¡¢Èç¹ûcol/maxÒѳ¬¹ý0.5£¬ÔòÊä³öÑÕÉ«£¨R=0, G=1-2*col/max, B=2*col/max£©

» ±¾ÌûÒÑ»ñµÃµÄºì»¨£¨×îÐÂ10¶ä£©

4Â¥2012-11-04 15:18:02
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

guoman2006

Òø³æ (³õÈëÎÄ̳)

ËÍÏÊ»¨Ò»¶ä
ÒýÓûØÌû:
3Â¥: Originally posted by nono2009 at 2012-11-04 13:53:54
Ôڱ༭Æ÷ÄÚʹÓõ¥²½Ö´Ðз½Ê½£¬Â¥Ö÷¾ÍÄÜÀí½âÿ¾äµÄº¬ÒåÁË

ллÄúµÄ»Ø¸´£¬ÎÒ¶Ô³ÌÐò±È½ÏİÉú¡£ÄÜÂé·³Äú½²¾ßÌåЩÂð£¿ÈçºÎÔڱ༭Æ÷ÄÚʹÓõ¥²½Ö´Ðз½Ê½£¿
5Â¥2012-11-04 22:46:40
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû
×î¾ßÈËÆøÈÈÌûÍÆ¼ö [²é¿´È«²¿] ×÷Õß »Ø/¿´ ×îºó·¢±í
[¿¼ÑÐ] ²ÄÁÏ¿ÆÑ§Ó빤³Ì¿¼ÑÐ +3 Õü¾ÈÆ¤ÌØÍÐÏÈÉú 2026-04-02 3/150 2026-04-02 21:34 by °ÙÁéͯ888
[¿¼ÑÐ] Çóµ÷¼Á£¬Ò»Ö¾Ô¸Ö£ÖÝ´óѧ²ÄÁÏÓ뻯¹¤×¨Ë¶£¬Ó¢¶þÊý¶þ342·Ö£¬ÇóÀÏʦÊÕÁô +8 v12abo 2026-04-02 8/400 2026-04-02 20:53 by 1104338198
[¿¼ÑÐ] ²ÄÁÏÇóµ÷¼Á Ò»Ö¾Ô¸¹þ¹¤´ó×Ü·Ö298·Ö£¬Ç°Èý¿Æ223·Ö +12 dongfang59 2026-03-27 12/600 2026-04-02 12:26 by ms629
[¿¼ÑÐ] ÕÒµ÷¼Á +6 ³þÇÇÇÇ 2026-04-01 6/300 2026-04-02 12:06 by xiaoranmu
[¿¼ÑÐ] ÖØÇì´óѧ²ÄÁÏÓ뻯¹¤085600£¬³õÊÔ370+£¬ÇóÇóµ÷¼Á½¨Òé +5 shzhou_ 2026-04-01 6/300 2026-04-02 10:05 by olim
[¿¼ÑÐ] 0710ÉúÎïѧ£¬325Çóµ÷¼Á +3 mkkkkkl 2026-04-01 3/150 2026-04-02 09:48 by Jaylen.
[¿¼ÑÐ] 08ÉúÎïÓëҽҩר˶³õÊÔ346ÕÒµ÷¼Á +6 dianeeee 2026-04-01 7/350 2026-04-02 08:23 by guoweigw
[¿¼ÑÐ] 320·Ö£¬²ÄÁÏÓ뻯¹¤×¨Òµ£¬Çóµ÷¼Á +14 Ò»¶¨Éϰ¶aaa 2026-03-27 18/900 2026-04-01 20:10 by »ý¼«µ÷¼ÁµÄСѧÉ
[¿¼ÑÐ] 286Çóµ÷¼Á +5 Sa67890. 2026-04-01 7/350 2026-04-01 19:50 by 6781022
[¿¼ÑÐ] 332Çóµ÷¼Á +8 Lyy930824@ 2026-03-29 8/400 2026-04-01 18:40 by ǧ¾û³ÎÓñÓî°¡
[¿¼ÑÐ] 353Çóµ÷¼Á +4 À­¹³²»Ðí±ä 2026-04-01 4/200 2026-04-01 18:10 by ¼Çʱ¾2026
[¿¼ÑÐ] Çóµ÷¼Á +5 Áã°Ë# 2026-03-27 5/250 2026-04-01 14:40 by yulian1987
[¿¼ÑÐ] Ò»Ö¾Ô¸Äϲý´óѧ324Çóµ÷¼Á +7 hanamiko 2026-03-30 7/350 2026-04-01 13:22 by JourneyLucky
[¿¼ÑÐ] 291Çóµ÷¼Á +3 ÃÔÃÉľľ 2026-04-01 4/200 2026-04-01 11:07 by ÄæË®³Ë·ç
[¿¼ÑÐ] 311£¨085601£©Çóµ÷¼Á +12 liziyeyeye 2026-03-28 13/650 2026-04-01 00:34 by fmesaito
[¿¼ÑÐ] 070300»¯Ñ§354Çóµ÷¼Á +15 101´ÎÏ£Íû 2026-03-28 15/750 2026-03-31 17:58 by jp9609
[¿¼ÑÐ] ÄϾ©´óѧ»¯Ñ§µ÷¼Á +11 ¾°Ëæ·ç 2026-03-29 16/800 2026-03-31 10:14 by herarysara
[¿¼ÑÐ] 282Çóµ÷¼Á +3 ºôÎü¶¼ÊǼõ·Ê 2026-03-31 3/150 2026-03-31 10:00 by wangjy2002
[¿¼ÑÐ] ÊýÒ»Ó¢Ò»271ר˶£¨085401£©Çóµ÷¼Á£¬¿É¿ç +7 ǰÐбØÓйâ 2026-03-28 8/400 2026-03-28 23:22 by Сľ³ætim
[¿¼ÑÐ] 315µ÷¼Á +4 0860Çóµ÷¼Á 2026-03-26 5/250 2026-03-27 11:23 by wangjy2002
ÐÅÏ¢Ìáʾ
ÇëÌî´¦ÀíÒâ¼û