Znn3bq.jpeg
²é¿´: 1625  |  »Ø¸´: 11
¡¾Óн±½»Á÷¡¿»ý¼«»Ø¸´±¾Ìû×Ó£¬²ÎÓë½»Á÷£¬¾ÍÓлú»á·ÖµÃ×÷Õß Ï¦ÑôÎ÷Ï µÄ 4 ¸ö½ð±Ò £¬»ØÌû¾ÍÁ¢¼´»ñµÃ 1 ¸ö½ð±Ò£¬Ã¿ÈËÓÐ 1 ´Î»ú»á
µ±Ç°Ö»ÏÔʾÂú×ãÖ¸¶¨Ìõ¼þµÄ»ØÌû£¬µã»÷ÕâÀï²é¿´±¾»°ÌâµÄËùÓлØÌû

ϦÑôÎ÷ÏÂ

½ð³æ (ÖøÃûдÊÖ)


[½»Á÷] ³ÌÐòÔËÐв»ÁËÎÊÌâÔÚÄÄ

ÏÂÃæÕâ¸ö³ÌÐòÓдíÎó£¬Ôõô¸ÄÄØ£¿
program Ne
integer :: I,J, N, Ny
real::  ne(J)
real::  Hx(I)
N=1000
Ny=1000
Dx=0.1
Dt=0.1
n0=5E+2
m=2.1
p=2
Te=5
q=0.6E-19
E=2
k=0.514E-9
v=n0*k
Hx(0)=sqrt(8*Te/pm)*ne*(1-0.25)
Hx(I)=-(q/m*v)*E(ne/(1-exp(q*E*Dx/Te)+ne/(1-exp(-q*E*Dx/Te))

open (unit=10,FILE='1.txt')
DO I=2,N-1

  DO J=2,Ny-1
    HX(I)=(H1(I+1)-H1(I-1))/(2*DX)
    ne(J)=(ne(J+1)-ne(J-1))/(2*Dt)
    ne(J)=Hx(I)+R
   end do
end do


write (10,"('N=?,Ny=?')" ne(I)
stop
end
»Ø¸´´ËÂ¥

» ²ÂÄãϲ»¶

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

» ÇÀ½ð±ÒÀ²£¡»ØÌû¾Í¿ÉÒԵõ½:

²é¿´È«²¿É¢½ðÌù

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

gaojack1991

ÖÁ×ðľ³æ (ÖøÃûдÊÖ)


¡ï
ϦÑôÎ÷ÏÂ(½ð±Ò+1):лл²ÎÓë
Õâ¸öÓеãİÉú°¡¡­¡­Ã»Ñ§¹ý¡­¡­
8Â¥2012-02-12 12:25:47
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû
²é¿´È«²¿ 12 ¸ö»Ø´ð
¡ï ¡ï ¡ï
ϦÑôÎ÷ÏÂ(½ð±Ò+1):лл²ÎÓë
jjdg(½ð±Ò+1): ¸Ðл²ÎÓë 2012-02-06 10:16:30
jjdg(½ð±Ò+1): ÔªÏü½Ú¿ìÀÖ 2012-02-06 10:16:45
ben_ladeng(ר¼Ò¿¼ºË): 2012-02-14 12:10:21
ÄãÕâ¸öÊÇ fortran µÄ³ÌÐòÂð£¿
ÀïÃæÓкܶà±äÁ¿¸ù±¾¾ÍûÓж¨Ò壬±ÈÈç H1
ne ÊÇÊý×黹ÊÇÆÕͨµÄ±äÁ¿£¿
I¡¢J×÷Ϊ HX ºÍ NE µÄά¶ÈµÄʱºòûÓи³Öµ¡­¡­

ÄãÕâ¸ö³ÌÐòÓÃÈκÎÒ»¸ö±àÒëÆ÷¶¼±àÒë²»¹ýÈ¥£¬¸ù¾Ý±àÒëÆ÷µÄÌáʾÐ޸İɡ­¡­
2Â¥2012-02-05 23:25:40
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

ϦÑôÎ÷ÏÂ

½ð³æ (ÖøÃûдÊÖ)


ÒýÓûØÌû:
2Â¥: Originally posted by snoopyzhao at 2012-02-05 23:25:40:
ÄãÕâ¸öÊÇ fortran µÄ³ÌÐòÂð£¿
ÀïÃæÓкܶà±äÁ¿¸ù±¾¾ÍûÓж¨Ò壬±ÈÈç H1
ne ÊÇÊý×黹ÊÇÆÕͨµÄ±äÁ¿£¿
I¡¢J×÷Ϊ HX ºÍ NE µÄά¶ÈµÄʱºòûÓи³Öµ¡­¡­

ÄãÕâ¸ö³ÌÐòÓÃÈκÎÒ»¸ö±àÒëÆ÷¶¼±àÒë²»¹ýÈ¥£¬¸ù¾Ý±àÒëÆ÷µÄÌáʾ ...

Ö÷ÒªÊÇneµÄÎÊÌ⣬neÊǸöº¯Êý£¬¾ÍÊǸù¾Ý±àÒëÆ÷²»ÖªµÀne¸ÃÈçºÎÐ޸쬏ÄÁ˺ܶà´Î¡£
3Â¥2012-02-06 10:01:51
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

baobiao007

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


¡ï
ϦÑôÎ÷ÏÂ(½ð±Ò+1):лл²ÎÓë
ÓàÔó³É(½ð±Ò+2): лл²ÎÓëÓ¦Öú£¡ 2012-02-21 00:27:51
ÎҸоõ¾Í³ÌÐò±àдÀ´Ëµ£¬ËƺõÓÐÁ½¸öÎÊÌ⣺
1.  ²»ÄÜÓñäÁ¿I Ö±½Ó¶¨ÒåÊý×éneµÄ´óС¡£
    Ӧд³É(°´fortran90·ç¸ñ)
    integer,parameter:: J
      real:: ne(J)
2.  Hx(0),Hx(I)ÄÇÁ½ÐУ¬ÄãËÆºõ°ÑneÊý×éµÄϱ궪ÁË¡£
4Â¥2012-02-06 16:53:00
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû
Ìáʾ: Èç¹ûÄúÔÚ30·ÖÖÓÄڻظ´¹ýÆäËûÉ¢½ðÌù£¬Ôò¿ÉÄÜÎÞ·¨ÁìÈ¡´ËÌù½ð±Ò
×î¾ßÈËÆøÈÈÌûÍÆ¼ö [²é¿´È«²¿] ×÷Õß »Ø/¿´ ×îºó·¢±í
[¿¼ÑÐ] 272·Ö²ÄÁÏ×ÓÇóµ÷¼Á +28 Loy0361 2026-04-10 36/1800 2026-04-11 00:45 by success5733
[¿¼ÑÐ] 296Çóµ÷¼Á +11 Íô£¡£¿£¡ 2026-04-10 13/650 2026-04-10 23:16 by Ftglcn90
[¿¼ÑÐ] 332Çóµ÷¼Á +12 ½¶½¶123 2026-04-10 12/600 2026-04-10 19:01 by hmn_wj
[¿¼ÑÐ] 22408µ÷¼ÁÇóÖú +5 ì±12 2026-04-09 7/350 2026-04-10 16:32 by ¸ßά´º
[¿¼ÑÐ] 071000ÉúÎïѧµ÷¼ÁÇóÖú +17 zzzzwww 2026-04-09 20/1000 2026-04-10 15:55 by Çóµ÷¼Ázz
[¿¼ÑÐ] Çóµ÷¼Á +11 Ñ©·ê¶¬ 2026-04-10 11/550 2026-04-10 14:38 by Abskk
[¿¼ÑÐ] 268·Ö085602»¯Ñ§¹¤³Ìµ÷¼Á +24 ÔÂÕÕ»¨ÁÖ¡£ 2026-04-09 24/1200 2026-04-10 08:09 by Sammy2
[¿¼ÑÐ] ¿¼Ñе÷¼Á-²ÄÁÏÀà-284 +28 Ïë»»ÊÖ»ú²»Ïë½âÊ 2026-04-08 28/1400 2026-04-09 20:08 by µ¹Êý321?
[¿¼ÑÐ] 322Çóµ÷¼Á£¬08¹¤¿Æ +3 ½ñÌìÊǸöСºÅ 2026-04-08 3/150 2026-04-09 15:53 by wp06
[¿¼ÑÐ] ÉúÎïѧ308·ÖÇóµ÷¼Á£¨Ò»Ö¾Ô¸»ª¶«Ê¦´ó£© +13 ÏàÐűػá¹ââÍòÕ 2026-04-06 16/800 2026-04-09 13:54 by ÐìÁ¼°×ü´óÏÀ
[¿¼ÑÐ] 327Çóµ÷¼Á +10 Xxjc1107. 2026-04-06 11/550 2026-04-09 01:21 by lature00
[¿¼ÑÐ] ¶þ´Îµ÷¼ÁÇóÀÏʦÊÕÁô +3 ЦЦԬ 2026-04-08 3/150 2026-04-08 23:50 by ×íÔÚ·çÀï
[¿¼ÑÐ] 285Çóµ÷¼Á +20 ŶßϺôo 2026-04-04 20/1000 2026-04-08 22:23 by yutian743
[¿¼ÑÐ] 277Çóµ÷¼Á +4 ¿¼Ñе÷¼Álxh 2026-04-06 6/300 2026-04-08 10:40 by ÄæË®³Ë·ç
[¿¼ÑÐ] 388Çóµ÷¼Á +6 ËÄ´¨ÍõÌÎ 2026-04-07 8/400 2026-04-08 00:17 by JourneyLucky
[¿¼ÑÐ] 316Çóµ÷¼Á +4 15318418673 2026-04-07 4/200 2026-04-07 22:12 by hemengdong
[¿¼ÑÐ] 297·Ö083200ÇóÖú +9 aekx 2026-04-05 9/450 2026-04-06 20:57 by flysky1234
[¿¼ÑÐ] Ò»Ö¾Ô¸C9µÄ»¯Ñ§¹¤³Ì£¨085602£© 340·Ö£¬¸Ð¾õУÄÚµ÷¼ÁÎÞÍû£¬Çóµ÷¼Á +12 ÍòÊÂÒËÕé 2026-04-04 12/600 2026-04-06 07:46 by Î޼ʵIJÝÔ­
[¿¼ÑÐ] µ÷¼Á +3 Àî¹ã»ð 2026-04-05 3/150 2026-04-05 18:57 by À¶ÔÆË¼Óê
[¿¼ÑÐ] 358Çóµ÷¼Á +7 Çïgk 2026-04-04 7/350 2026-04-05 13:29 by huangmoli
ÐÅÏ¢Ìáʾ
ÇëÌî´¦ÀíÒâ¼û