²é¿´: 652  |  »Ø¸´: 3

totoymy

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

[ÇóÖú] ÄÚÑ­»·ÎÊÌ⣬Çó´óϺ°ïæ

MODULE PARA
IMPLICIT NONE

INTEGER*4, PARAMETER:: Ndim=12   

REAL,DIMENSION(Ndim,5):: pp

INTEGER*4::NOUT

END MODULE PARA

PROGRAM CM
USE MSIMSL
USE PARA
IMPLICIT NONE

INTEGER:: i,j,k,m
INTEGER::t
real::x,y,z
REAL*8::r
REAL::s

OPEN (11, file='input.txt')

READ(11,*) ((pp(i,j),j=1,4),i=1,Ndim)
close(11)

t=1
DO while (t<=100)
call random_seed()
call random_number(r)

k=1
do while(k<=Ndim)
s=s+pp(k,4)
m=s-pp(k,4)

if (m    x=x+pp(k,1)
   y=y+pp(k,2)
   z=z+pp(k,3)
    open(12,file="result.txt",access='append')
    write(12,*) x,y,z,t,k,r
    close(12)  
end if
k=k+1
enddo

t=t+1
if (t>100) exit
enddo

ENDPROGRAM
´óÒâ¾ÍÊÇÉú³É100´ÎËæ»úÊý£¬²¢¹éÊôÿһ¸öËæ»úÊýµÄ·¶Î§£¬ÈôÊôÓÚÄ³ÌØ¶¨·¶Î§£¬Ôò¶ÔÆä×ø±ê½øÐÐÀۼƼӺ͡£¡£Çó¸ßÊÖ°¡¸ßÊÖ~~ÊýÖµ¼û¸½¼þ£¬
»Ø¸´´ËÂ¥

» ²ÂÄãϲ»¶

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

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

snoopyzhao

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

ben_ladeng: ר¼Ò¿¼ºË´æµµ 2011-10-30 07:11:40
ûÓÐÏàÓ¦µÄ¿â£¬²»Ó¦ÖúÁË¡­¡­
2Â¥2011-10-28 16:41:50
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

totoymy

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

ÒýÓûØÌû:
1Â¥: Originally posted by totoymy at 2011-10-28 10:57:29:
MODULE PARA
IMPLICIT NONE

INTEGER*4, PARAMETER:: Ndim=12   

REAL,DIMENSION(Ndim,5):: pp

INTEGER*4::NOUT

END MODULE PARA

PROGRAM CM
USE MSIMSL
USE PARA
IMPLICIT NONE

INTEGER: ...

°ïÎÒ˵˵ÎÊÌâÒ²ºÃ¡£¡£¡£Ó¦¸ÃÒ»¹²³ö100×éÊý¡£¡£¡£½á¹û×ÜÊDz»¶Ô°¡~
3Â¥2011-10-30 12:53:52
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

snoopyzhao

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

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

¡ï ¡ï
jjdg(½ð±Ò+2): ÐÁ¿àÁË 2011-10-30 13:30:00
totoymy(½ð±Ò+20): Ã²ËÆ½â¾öÁË~лл´óϺ£¬ÎÒÊÇÔÚ±ðµÄÎļþ»ù´¡ÉϱàµÄ£¬ËùÒÔÄǸö¿âÊÇÔ­À´Óõġ£¡£Ã»ÓÐÓà 2011-10-31 15:11:50
ÒýÓûØÌû:
3Â¥: Originally posted by totoymy at 2011-10-30 12:53:52:
°ïÎÒ˵˵ÎÊÌâÒ²ºÃ¡£¡£¡£Ó¦¸ÃÒ»¹²³ö100×éÊý¡£¡£¡£½á¹û×ÜÊDz»¶Ô°¡~

¿´ÁËһϣ¬Äã¸ù±¾Ã»ÓбØÒªÒýÓà MSIMSL Õâ¸ö¿â¡£²»ÖªµÀÄã˵µÄ·Ö×éÊÇɶ¸öÒâ˼¡­¡­

ÎÒ¸ÄÁËһϣ¬¿ÉÒÔ³öÀ´½á¹û£¬µ«²»¼ûµÃÊÇÄãÏëÒªµÄ£º
CODE:
MODULE PARA
IMPLICIT NONE

INTEGER*4, PARAMETER:: Ndim=12   

REAL,DIMENSION(Ndim,5):: pp

INTEGER*4::NOUT

END MODULE PARA

PROGRAM CM
!USE MSIMSL
USE PARA
IMPLICIT NONE

INTEGER:: i,j,k
INTEGER::t
real::x,y,z
REAL*8::r
REAL::s,m

OPEN (11, file='input.txt')

READ(11,*) ((pp(i,j),j=1,4),i=1,Ndim)
close(11)
   call random_seed()

t=1
DO
   call random_number(r)
!  write (*,*) r
   
   k=1
   s = 0.0
   do while(k<=Ndim)
      s=s+pp(k,4)
      m=s-pp(k,4)

!     write(*,*) s, m
      
      if (m           x=x+pp(k,1)
          y=y+pp(k,2)
          z=z+pp(k,3)
          open(12,file="result.txt",access='append')
          write(12,*) x,y,z,t,k,r
          close(12)  
          t = t + 1
      end if
      k=k+1
   enddo
   
   if (t>100) exit
enddo

end program cm

4Â¥2011-10-30 13:18:46
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû
Ïà¹Ø°æ¿éÌø×ª ÎÒÒª¶©ÔÄÂ¥Ö÷ totoymy µÄÖ÷Ìâ¸üÐÂ
×î¾ßÈËÆøÈÈÌûÍÆ¼ö [²é¿´È«²¿] ×÷Õß »Ø/¿´ ×îºó·¢±í
[ÂÛÎÄͶ¸å] ÉêÇë»Ø¸åÑÓÆÚÒ»¸öÔ£¬±à¼­Í¬ÒâÁË¡£µ«ÏµÍ³ÉϵÄʱ¼äû±ä£¬¸ø±à¼­ÓÖдÓʼþÁË£¬Ã»»Ø¸´ 10+3 wangf9518 2026-03-17 4/200 2026-03-19 23:55 by babero
[¿¼²©] É격26Äê +3 °Ë6°Ë68 2026-03-19 3/150 2026-03-19 19:43 by nxgogo
[¿¼ÑÐ] 0703»¯Ñ§µ÷¼Á £¬Áù¼¶Òѹý£¬ÓпÆÑо­Àú +12 êØÎõÙâ 2026-03-15 12/600 2026-03-19 19:42 by maocaozhuxi
[¿¼ÑÐ] ¡¾¿¼Ñе÷¼Á¡¿»¯Ñ§×¨Òµ 281·Ö£¬Ò»Ö¾Ô¸ËÄ´¨´óѧ£¬³ÏÐÄÇóµ÷¼Á +5 ³Ô³Ô³Ô²ÅÓÐÒâÒå 2026-03-19 5/250 2026-03-19 16:18 by 30660438
[¿¼ÑÐ] Çóµ÷¼Á£¬Ò»Ö¾Ô¸:ÄϾ©º½¿Õº½Ìì´óѧ´óѧ £¬080500²ÄÁÏ¿ÆÑ§Ó빤³Ìѧ˶£¬×Ü·Ö289·Ö +3 @taotao 2026-03-19 3/150 2026-03-19 14:07 by peike
[¿¼ÑÐ] 0703»¯Ñ§µ÷¼Á +5 pupcoco 2026-03-17 8/400 2026-03-19 13:58 by houyaoxu
[¿¼ÑÐ] 085600²ÄÁÏÓ뻯¹¤Çóµ÷¼Á +6 Ð÷ÐÒÓë×Ó 2026-03-17 6/300 2026-03-19 13:27 by houyaoxu
[¿¼ÑÐ] 346Çóµ÷¼Á[0856] +3 WayneLim327 2026-03-16 6/300 2026-03-19 11:21 by WayneLim327
[¿¼ÑÐ] Ò»Ö¾Ô¸Ìì´ó²ÄÁÏÓ뻯¹¤£¨085600£©×Ü·Ö338 +5 ²Ì´óÃÀÅ® 2026-03-13 5/250 2026-03-19 10:44 by ÊÇСÁõѽ¡«
[¿¼ÑÐ] ±¾¿ÆÖ£ÖÝ´óѧÎïÀíѧԺ£¬Ò»Ö¾Ô¸»ª¿Æ070200ѧ˶£¬346Çóµ÷¼Á +4 ÎÒ²»ÊÇÒ»¸ù´Ð 2026-03-18 4/200 2026-03-19 09:11 by ¸¡ÔÆ166
[¿¼ÑÐ] ²ÄÁÏר˶ӢһÊý¶þ306 +5 z1z2z3879 2026-03-18 5/250 2026-03-19 07:43 by BruceLiu320
[¿¼ÑÐ] 328Çóµ÷¼Á£¬Ó¢ÓïÁù¼¶551£¬ÓпÆÑо­Àú +3 ÉúÎ﹤³Ìµ÷¼Á 2026-03-17 7/350 2026-03-18 20:41 by Wangjingyue
[¿¼ÑÐ] Ò»Ö¾Ô¸ÎäÀí²ÄÁÏ305·ÖÇóµ÷¼Á +5 ÏëÉϰ¶µÄÀðÓã 2026-03-18 6/300 2026-03-18 17:53 by Î޼ʵIJÝÔ­
[¿¼ÑÐ] 311Çóµ÷¼Á +11 ¶¬Ê®Èý 2026-03-15 12/600 2026-03-18 14:36 by ÐÇ¿ÕÐÇÔÂ
[¿¼ÑÐ] 0854£¬¼ÆËã»úÀàÕÐÊÕµ÷¼Á +3 ºúÀ±ÌÀ·ÅÌÇ 2026-03-15 6/300 2026-03-18 12:09 by Éϰ¶Éϰ¶¡­¡­..
[¿¼ÑÐ] 0703»¯Ñ§Çóµ÷¼Á ×Ü·Ö331 +3 ZY-05 2026-03-13 3/150 2026-03-18 10:58 by macy2011
[¿¼ÑÐ] ÉúÎïѧ071000 329·ÖÇóµ÷¼Á +3 ÎÒ°®ÉúÎïÉúÎﰮΠ2026-03-17 3/150 2026-03-18 10:12 by macy2011
[¿¼ÑÐ] ²ÄÁÏÓ뻯¹¤×¨Ë¶µ÷¼Á +5 heming3743 2026-03-16 5/250 2026-03-17 14:03 by Ó¸ÒÌ«¼àÍõ¹«¹«
[»ù½ðÉêÇë] ½ñÄêµÄ¹ú»ù½ðÊÇ´ò·ÖÖÆÂ𣿠50+3 zhanghaozhu 2026-03-14 3/150 2026-03-16 17:07 by ±±¾©À³ÒðÈóÉ«
[¿¼ÑÐ] 304Çóµ÷¼Á +4 ahbd 2026-03-14 4/200 2026-03-16 16:48 by ÎҵĴ¬Îҵĺ£
ÐÅÏ¢Ìáʾ
ÇëÌî´¦ÀíÒâ¼û