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

wanghao098

½ð³æ (ÕýʽдÊÖ)

[ÇóÖú] Çë½Ì£ºÌô´íÎó

CODE:
open (16,file="x.txt")
        nstep= int ( wk /nsec)
        print *, "ÿһ¶ÎÔªËØµÄ¸öÊý nstep=" , nstep
        do i=1,nsec
                b(i)=0.d0
                do j=(i-1)*nstep+1,i*nstep
                        b(i)=b(i)+clshuzu(j) / nstep
                enddo
        enddo
        write(16,"(F15.9)")(b(i),i=1,nsec)




ΪʲôÎÒÕâÒ»¶Î³ÌÐòÊä³öÀ´µÄ½á¹û¶¼ÊÇ0ÄØ£¿
clshuzu(wk) ÊÇwk¸öÔªËØµÄʵÊýÊý×é 0.2857143   
  0.1111111   
  0.1111111   
  0.3333333   
  0.2857143   
  0.2222222   
  0.2000000   
  9.0909094E-02
  0.1250000   
  0.1111111   
  0.2222222   
  0.1818182   
  0.1111111   
  0.0000000E+00
  0.0000000E+00
  0.2000000   
  0.1818182   
  0.2222222   
  9.0909094E-02
  0.0000000E+00
  0.1666667   
  9.0909094E-02
  0.1111111   
  0.2222222

[ Last edited by jjdg on 2013-7-22 at 00:48 ]
»Ø¸´´ËÂ¥

» ²ÂÄãϲ»¶

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

×öÒ»¸ö¼áÇ¿µÄÈõÅ®×Ó
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

wanghao098

½ð³æ (ÕýʽдÊÖ)

nsec ÊÇÒ»¸öÕûÐεij£Êý
integer£¬parameter:: nsec=10
wk Ò²ÊÇÒ»¸öÕûÐεÄÊý
×öÒ»¸ö¼áÇ¿µÄÈõÅ®×Ó
3Â¥2013-07-22 08:47:09
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû
²é¿´È«²¿ 7 ¸ö»Ø´ð

pippi6

Ìú¸Ëľ³æ (ÖøÃûдÊÖ)

¹¤³ÌºÍ¿ÆÑ§ÊýÖµ¼ÆËã×Éѯ

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

¸Ðл²ÎÓ룬ӦÖúÖ¸Êý +1
ÄãÊ×ÏÈÐèÒª¸ø³ö wk ºÍ nsec£¬¿´¿´ nstepµ½µ×¶à´ó¡£Èç¹û nsec=0£¬ÄÇÄãµÄ do j=(i-1)*nstep+1,i*nstep Ò²Ðí¸ù±¾¾ÍûÓÐÖ´ÐУ¬ÄÇ b(i) µ±È»¾ÍÊÇÁãÁË¡£ÈñðÈ˲é´í£¬ÐèÒª¸øÈ«ÐÅÏ¢¡£
2Â¥2013-07-22 08:16:07
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

pippi6

Ìú¸Ëľ³æ (ÖøÃûдÊÖ)

¹¤³ÌºÍ¿ÆÑ§ÊýÖµ¼ÆËã×Éѯ

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

ÒýÓûØÌû:
3Â¥: Originally posted by wanghao098 at 2013-07-22 08:47:09
nsec ÊÇÒ»¸öÕûÐεij£Êý
integer£¬parameter:: nsec=10
wk Ò²ÊÇÒ»¸öÕûÐεÄÊý

wk=£¿Ä㻹ÊÇû˵°¡
ÔÙÕßb Ôõô¶¨ÒåµÄ£¿
4Â¥2013-07-22 09:23:57
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

zhg19

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

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

¸Ðл²ÎÓ룬ӦÖúÖ¸Êý +1
Ê×ÏÈ£¬nsecÊÇÊý×é·ÖµÄ¶ÎÊý£¬Ó¦ÎªwkµÄÔ¼Êý¡£Æä´Îb(i)=b(i)+clshuzu(j) / float£¨nstep£©£¬×¢Òâ·ÖĸµÄÊý¾ÝÀàÐÍ¡£

[ ·¢×ÔÊÖ»ú°æ http://muchong.com/3g ]
5Â¥2013-07-22 11:37:14
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû
×î¾ßÈËÆøÈÈÌûÍÆ¼ö [²é¿´È«²¿] ×÷Õß »Ø/¿´ ×îºó·¢±í
[¿¼ÑÐ] 0703»¯Ñ§ +4 goldtt 2026-04-02 6/300 2026-04-02 16:05 by goldtt
[¿¼ÑÐ] 372Çóµ÷¼Á +3 jjÓ¿77 2026-04-02 3/150 2026-04-02 09:57 by olim
[¿¼ÑÐ] 367Çóµ÷¼Á +8 ÓóÄàà£à£¡­ 2026-03-28 8/400 2026-04-02 09:20 by olim
[¿¼ÑÐ] 266Çóµ÷¼Á +10 ÑôÑôÍÛÈû 2026-04-01 10/500 2026-04-02 09:07 by vgtyfty
[¿¼ÑÐ] 085602»¯Ñ§¹¤³Ì268·Ö¶×µ÷¼Á +8 ÔÂÕÕ»¨ÁÖ¡£ 2026-04-01 8/400 2026-04-01 22:08 by Î޼ʵIJÝÔ­
[¿¼ÑÐ] Çóµ÷¼Á0703 +5 ÖܼÎÒ¢ 2026-03-31 8/400 2026-04-01 20:32 by ltltkkk
[¿¼ÑÐ] ¡¾Çóµ÷¼Á¡¿085601²ÄÁϹ¤³Ìר˶ | ×Ü·Ö272 | +10 ½Å»¬µÄÊØ·¨¹«Ãñ 2026-03-27 10/500 2026-04-01 17:23 by pies112
[¿¼ÑÐ] Çóµ÷¼Á +4 ͼ¼ø212 2026-03-30 5/250 2026-04-01 15:32 by ͼ¼ø212
[¿¼ÑÐ] Çóµ÷¼Á +5 Áã°Ë# 2026-03-27 5/250 2026-04-01 14:40 by yulian1987
[¿¼ÑÐ] ²ÄÁÏר˶322·Ö +9 ¹þ¹þ¹þºðºðºð¹þ 2026-04-01 9/450 2026-04-01 14:30 by Î޼ʵIJÝÔ­
[˶²©¼ÒÔ°] ¿¼Ñе÷¼Á +5 ÂæÍÕÄÐÈË 2026-04-01 5/250 2026-04-01 14:28 by syjjj0321
[˶²©¼ÒÔ°] ²©Ò»±»ËͳöÁªÅà¸Ð¾õ²»ÊÊÓ¦Ôõô°ì +3 È«´åµÄ¹· 2026-03-31 3/150 2026-04-01 10:44 by 328838485
[¿¼ÑÐ] 0855»úе³õÊÔ280Çóµ÷¼Á +3 kazenotori 2026-03-31 3/150 2026-04-01 10:08 by JourneyLucky
[¿¼ÑÐ] 318Çóµ÷¼Á +10 ³Â³¿79 2026-03-30 10/500 2026-03-31 17:37 by 544594351
[¿¼ÑÐ] 282Çóµ÷¼Á ²»Ìôרҵ ÇóÊÕÁô +4 Yam. 2026-03-30 5/250 2026-03-31 14:41 by ÍõÁÁ_´óÁ¬Ò½¿Æ´ó
[¿¼ÑÐ] Ó¢Ò»ÊýÒ»×Ü·Ö334Çóµ÷¼Á +4 ³ÂÑôÀ¤ 2026-03-31 4/200 2026-03-31 14:22 by ¼Çʱ¾2026
[¿¼ÑÐ] ÉúÎÑÐ337·ÖÇóµ÷¼Á +4 cgxin 2026-03-30 6/300 2026-03-31 14:18 by ¼Çʱ¾2026
[¿¼ÑÐ] 085601Ò»Ö¾Ô¸Î÷±±¹¤Òµ´óѧ³õÊÔ346 +4 085601³õÊÔ346 2026-03-30 4/200 2026-03-31 07:47 by jp9609
[¿¼ÑÐ] 105500ҩѧÇóµ÷¼Á£¬Ò»Ö¾Ô¸É½¶«´óѧҩѧ£¬348·Ö +3 gr¹þ¹þ¹þ 2026-03-28 3/150 2026-03-30 18:56 by Ô´_2020
[¿¼ÑÐ] 292Çóµ÷¼Á +4 ÇóÇóÁËÊÕÏÂÎÒ°É£ 2026-03-26 4/200 2026-03-27 10:37 by zhshch
ÐÅÏ¢Ìáʾ
ÇëÌî´¦ÀíÒâ¼û