²é¿´: 2399  |  »Ø¸´: 5
µ±Ç°Ö»ÏÔʾÂú×ãÖ¸¶¨Ìõ¼þµÄ»ØÌû£¬µã»÷ÕâÀï²é¿´±¾»°ÌâµÄËùÓлØÌû

xingxiao

Í­³æ (СÓÐÃûÆø)

[ÇóÖú] ÔËÐнá¹ûΪ0£¬Ôõô»ØÊ£¿

ÎÒ±àÁËÏÂÃæÒ»¶Î×Ó³ÌÐò£¬ÔËÐкó½á¹ûÊä³ö0£¬²»ÖªµÀÊÇÔõô»ØÊ£¬´æ´¢¿Õ¼ä¿Ï¶¨ÄÜ´æ´¢Õâô´óµÄÊý£¬¶øÇÒûÓÐÔ½½ç£º
     implicit none
     real,intent(in)::q
      integer,intent(in)::Ng
      integer,dimension(1:Ng),intent(in)::ink
      real,dimension(1:Ng,1:3000,1:7),intent(in)::AN
      integer,intent(inout)::Nele,Nion
      integer i,j
      nele=0.0;nion=0.0
      do i=1,Ng
             do j=1,ink(i)
            if(AN(i,j,1)<=0.0.and.q<0.0) then   £¡AN(i,j,1)ÊÇ·³Ì     !  
                Nele=nele+1
            else if(AN(i,j,1)<=0.0.and.q>0.0) then
              Nion=nion+1
          end if
        end do
      end do


ÎÒÏëʵÏÖµÄÄ¿µÄÊÇͳ¼ÆÁ£×ÓÔÚÒ»¸ö¿Õ¼ä±ß½ç´¦µÄÊýÄ¿£¬Á£×ÓÔڵ糡Á¦µÄ×÷ÓÃÏÂÏòǰ×ߣ¬Ã¿×ßÒ»²½£¨Èç¹û×ßµ½Á˱߽紦£©¾Í°ÑÁ£×ÓÊýÄ¿¼Ó1

[ Last edited by xingxiao on 2012-2-10 at 13:22 ]
»Ø¸´´ËÂ¥
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

joy4210

½ð³æ (СÓÐÃûÆø)

AN(i,j,1£©ºÍqµÄֵûÓиø°¡£¡ËùÒÔÓ¦¸ÃûÓнøÈëifÅжÏÀï±ß°É
6Â¥2012-02-14 16:20:32
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû
²é¿´È«²¿ 6 ¸ö»Ø´ð

snoopyzhao

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

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

¸Ðл²ÎÓ룬ӦÖúÖ¸Êý +1
jjdg(½ð±Ò+1): ¸Ðл²ÎÓë 2012-02-11 09:03:01
Äã°Ñ an(i,j,1) ºÍ q ´òÓ¡³öÀ´¿´¿´²»¾ÍÖªµÀÁË¡­¡­

Õâ¸ö³ÌÐòµÄÅжϾäÖоÍÓпÉÄÜÌø¹ýһЩÌõ¼þµÄ°¡

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

2Â¥2012-02-10 16:39:18
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

emanlee

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

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

¸Ðл²ÎÓ룬ӦÖúÖ¸Êý +1
jjdg(½ð±Ò+1): ¸Ðл²ÎÓë 2012-02-11 09:03:07
ÏȰÑNgµÄÖµ¸ÄµÃ±È½ÏС£¬±ÈÈç¸ÄΪ5¡£È»ºó£¬µ¥²½Ö´ÐгÌÐò£¬¹Û²ì¸÷¸ö±äÁ¿µÄÖµ¡£ÕÒµ½ÎÊÌâÖ®ºó£¬ÔٸĻØNgµÄÔ­Öµ¡£

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

3Â¥2012-02-10 23:31:23
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

xingxiao

Í­³æ (СÓÐÃûÆø)

ËÍÏÊ»¨Ò»¶ä
ÒýÓûØÌû:
Â¥: Originally posted by emanlee at 2012-02-10 23:31:23:
ÏȰÑNgµÄÖµ¸ÄµÃ±È½ÏС£¬±ÈÈç¸ÄΪ5¡£È»ºó£¬µ¥²½Ö´ÐгÌÐò£¬¹Û²ì¸÷¸ö±äÁ¿µÄÖµ¡£ÕÒµ½ÎÊÌâÖ®ºó£¬ÔٸĻØNgµÄÔ­Öµ¡£

¸ÐлÄãµÄÌáÐÑ£¬ÕâÊÇÒ»¸ö˼·
4Â¥2012-02-11 08:43:59
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû
×î¾ßÈËÆøÈÈÌûÍÆ¼ö [²é¿´È«²¿] ×÷Õß »Ø/¿´ ×îºó·¢±í
[¿¼ÑÐ] Ò»Ö¾Ô¸Î人Àí¹¤²ÄÁϹ¤³Ìר˶µ÷¼Á +5 Doleres 2026-03-19 5/250 2026-03-19 20:14 by ÖÆ¶ÈµÄ
[¿¼ÑÐ] ÕÐÊÕµ÷¼Á˶ʿ +4 lidianxing 2026-03-19 10/500 2026-03-19 16:05 by Óà÷ëÓà
[¿¼ÑÐ] Ò»Ö¾Ô¸Ìì½ò´óѧ»¯Ñ§¹¤ÒÕרҵ£¨081702£©315·ÖÇóµ÷¼Á +11 yangfz 2026-03-17 11/550 2026-03-19 15:06 by houyaoxu
[¿¼ÑÐ] Ò»Ö¾Ô¸985£¬±¾¿Æ211£¬0817»¯Ñ§¹¤³ÌÓë¼¼Êõ319Çóµ÷¼Á +10 Liwangman 2026-03-15 10/500 2026-03-19 10:25 by Î޼ʵIJÝÔ­
[¿¼ÑÐ] 330Çóµ÷¼Á +3 С²Ä»¯±¾¿Æ 2026-03-18 3/150 2026-03-18 21:55 by ÎÞи¿É»÷111
[¿¼ÑÐ] 354Çóµ÷¼Á +4 Tyoumou 2026-03-18 7/350 2026-03-18 21:45 by Tyoumou
[¿¼ÑÐ] Ò»Ö¾Ô¸ÎäÀí²ÄÁÏ305·ÖÇóµ÷¼Á +5 ÏëÉϰ¶µÄÀðÓã 2026-03-18 6/300 2026-03-18 17:53 by Î޼ʵIJÝÔ­
[¿¼ÑÐ] 295Çóµ÷¼Á +3 Ò»Ö¾Ô¸¾©Çø211 2026-03-18 5/250 2026-03-18 17:03 by zhaoqian0518
[¿¼ÑÐ] 0854¿É¿çµ÷¼Á£¬Ò»×÷Ò»ÏîºËÐÄÂÛÎÄÎåÏîרÀû£¬Ê¡¡¢¹ú¼¶Ö¤Êé40+ÊýÒ»Ó¢Ò»287 +8 СÀî0854 2026-03-16 8/400 2026-03-18 14:35 by ²«»÷518
[¿¼ÑÐ] ÊÕ¸´ÊÔµ÷¼ÁÉú +4 ÓêºóÇïºÉ 2026-03-18 4/200 2026-03-18 14:16 by elevennnne
[¿¼ÑÐ] 0854£¬¼ÆËã»úÀàÕÐÊÕµ÷¼Á +3 ºúÀ±ÌÀ·ÅÌÇ 2026-03-15 6/300 2026-03-18 12:09 by Éϰ¶Éϰ¶¡­¡­..
[¿¼ÑÐ] 299Çóµ÷¼Á +5 ¡÷С͸Ã÷* 2026-03-17 5/250 2026-03-18 11:49 by ¾¡Ë´Ò¢1
[¿¼ÑÐ] 303Çóµ÷¼Á +4 î£08 2026-03-17 6/300 2026-03-18 11:01 by Iveryant
[¿¼ÑÐ] 334Çóµ÷¼Á +3 Ö¾´æ¸ßÔ¶ÒâÔÚ»úÐ 2026-03-16 3/150 2026-03-18 08:34 by lm4875102
[¿¼ÑÐ] ²ÄÁϹ¤³Ìר˶274Ò»Ö¾Ô¸211Çóµ÷¼Á +6 Ñ¦ÔÆÅô 2026-03-15 6/300 2026-03-17 11:05 by ѧԱh26Tkc
[¿¼ÑÐ] ¿¼Ñе÷¼Á +3 ä¿ya_~ 2026-03-17 5/250 2026-03-17 09:25 by Winj1e
[¿¼ÑÐ] Ò»Ö¾Ô¸£¬¸£ÖÝ´óѧ²ÄÁÏר˶339·ÖÇóµ÷¼Á +3 ľ×ÓmomoÇàÕù 2026-03-15 3/150 2026-03-17 07:52 by laoshidan
[¿¼ÑÐ] 070303 ×Ü·Ö349Çóµ÷¼Á +3 LJY9966 2026-03-15 5/250 2026-03-16 14:24 by xwxstudy
[¿¼ÑÐ] Öпƴó²ÄÁÏÓ뻯¹¤319Çóµ÷¼Á +3 ÃÏöβÄÁÏ 2026-03-14 3/150 2026-03-14 20:10 by ms629
[¿¼ÑÐ] 290Çóµ÷¼Á +3 ADT 2026-03-13 3/150 2026-03-13 10:19 by peike
ÐÅÏ¢Ìáʾ
ÇëÌî´¦ÀíÒâ¼û