| ²é¿´: 1169 | »Ø¸´: 5 | ||
| ¡¾ÐüÉͽð±Ò¡¿»Ø´ð±¾ÌûÎÊÌ⣬×÷ÕßϦÑôÎ÷Ͻ«ÔùËÍÄú 20 ¸ö½ð±Ò | ||
ϦÑôÎ÷ÏÂ½ð³æ (ÖøÃûдÊÖ)
|
[ÇóÖú]
°ïæдһ¸ö²î·Ö³ÌÐò
|
|
» ±¾Ö÷ÌâÏà¹Ø¼ÛÖµÌùÍÆ¼ö£¬¶ÔÄúͬÑùÓаïÖú:
¼±¼±¼±£¬ÇëÐÖµÜÃǰïæ¿´Ò»¸öÈܽâÐԺܲîµÄÅäºÏÎï¸ÃÈçºÎÈ¥ÅàÑøµ¥¾§£¡£¡
ÒѾÓÐ8È˻ظ´
ÇóÖú£ºÄܲ»Äܰïæдһ¸öÓÃmatlabÇóÒ»¸öº¯ÊýµÄ¸µÀïÒ¶±ä»»µÄ³ÌÐò
ÒѾÓÐ16È˻ظ´
ÎÒ×î½üÔÚ×öÒ»¸öʵÑ飬´íÁ˵ã²î´í£¬ÇëÇóʦÐÖ£¬Ê¦½ãÃǰïæ£¡Ê¦Ã÷dz£¸Ð¼¤£¡
ÒѾÓÐ13È˻ظ´
Á½¸öÎïÖÊ£¬Ò»¸ö·Ðµã170£¬Ò»¸ö·Ðµã210£¬Å¨¶È²î²»¶à£¬Ó¦¸ÃÔõôÉèÖóÌÐòÉýÎÂ
ÒѾÓÐ10È˻ظ´
дÁËÒ»¸öfortran90µÄС³ÌÐò£¬±àÒëͨ²»¹ý£¬Çë´óÏÀ°ïæ
ÒѾÓÐ59È˻ظ´
¡¾ÇóÖú¡¿ÇóÖúÄÄλ´óÏÀ°ïÎÒ·ÖÎöϵç×ÓÃܶȲî·Öͼ
ÒѾÓÐ16È˻ظ´
¡¾ÇóÖú¡¿Çë½Ì³æÓѹØÓÚmatlab²î·Ö·½³ÌµÄÇó½âºÍ»Í¼³ÌÐò
ÒѾÓÐ4È˻ظ´
¡¾ÇóÖú¡¿°ïæ¸Äдչ¿í³ÌÐò
ÒѾÓÐ11È˻ظ´
¡¾ÇóÖú¡¿Íû×ö¹ý²îÈÈµÄ´ó³æ°ïæ¿´ÏÂ
ÒѾÓÐ9È˻ظ´
¡¾ÇóÖú¡¿Çó¸ßÊÖ°ïæ¸ÄдÊý¾Ýʵʱ¶¯Ì¬ÏÔʾ³ÌÐò~
ÒѾÓÐ8È˻ظ´
¼±Çó°ïÎÒ·ÖÎöÒ»¸ö¹ØÓÚ¿¨·½µÄÒýÆðµÄÎó²îµÄÎÊÌ⣿£¿£¿
ÒѾÓÐ2È˻ظ´
harryzs
ͳæ (ÕýʽдÊÖ)
- Ó¦Öú: 11 (СѧÉú)
- ½ð±Ò: 893.9
- ºì»¨: 2
- Ìû×Ó: 412
- ÔÚÏß: 60.3Сʱ
- ³æºÅ: 1182197
- ×¢²á: 2011-01-02
- רҵ: ÉúÎïÐÅϢѧ
¡ï
jjdg(½ð±Ò+1): ¸Ðл²ÎÓë 2012-02-01 00:04:34
jjdg(½ð±Ò+1): ¸Ðл²ÎÓë 2012-02-01 00:04:34
| ¹«Ê½¶¼ÓÐÁË£¬»¹Ð´²»³öÀ´£¬Ö»ÄÜ˵Äã²»»áÓÃfortran£¬ÆäʵÎÒÒ²²»»á¹þ¹þ |
2Â¥2012-01-31 20:40:45
ϦÑôÎ÷ÏÂ
½ð³æ (ÖøÃûдÊÖ)
- Ó¦Öú: 138 (¸ßÖÐÉú)
- ¹ó±ö: 0.041
- ½ð±Ò: 9247.1
- É¢½ð: 73
- ºì»¨: 28
- ɳ·¢: 1
- Ìû×Ó: 1268
- ÔÚÏß: 1164.4Сʱ
- ³æºÅ: 220750
- ×¢²á: 2006-03-20
- רҵ: Äý¾Û̬ÎïÐÔ II £ºµç×ӽṹ
- ¹ÜϽ: ÎïÀí
3Â¥2012-01-31 21:48:46
ϦÑôÎ÷ÏÂ
½ð³æ (ÖøÃûдÊÖ)
- Ó¦Öú: 138 (¸ßÖÐÉú)
- ¹ó±ö: 0.041
- ½ð±Ò: 9247.1
- É¢½ð: 73
- ºì»¨: 28
- ɳ·¢: 1
- Ìû×Ó: 1268
- ÔÚÏß: 1164.4Сʱ
- ³æºÅ: 220750
- ×¢²á: 2006-03-20
- רҵ: Äý¾Û̬ÎïÐÔ II £ºµç×ӽṹ
- ¹ÜϽ: ÎïÀí
¡ï
ben_ladeng(½ð±Ò+1): 2012-02-01 20:59:35
ben_ladeng(½ð±Ò+1): 2012-02-01 20:59:35
|
ÏÂÃæµÄÓï¾äÓõÄÖÐÐIJî·Ö£¬°ÑÒ»½×µ¼Êý¡¢¶þ½×µ¼Êý¶¼Ð´³ÉÁ˲î·Ö¸ñʽ¡£ DO I=2,N-1 HX(I)=(H1(I+1)-H1(I-1))/(2*DX) ENDDO HX(1)=0 HX(N)=0 DO I=2,N-1 H2X(I)=(H1(I+1)-2*H1(I)+H1(I-1))/(DX*DX) ENDDO H2X(1)=0 H2X(N)=0 |
4Â¥2012-02-01 11:50:19
ϦÑôÎ÷ÏÂ
½ð³æ (ÖøÃûдÊÖ)
- Ó¦Öú: 138 (¸ßÖÐÉú)
- ¹ó±ö: 0.041
- ½ð±Ò: 9247.1
- É¢½ð: 73
- ºì»¨: 28
- ɳ·¢: 1
- Ìû×Ó: 1268
- ÔÚÏß: 1164.4Сʱ
- ³æºÅ: 220750
- ×¢²á: 2006-03-20
- רҵ: Äý¾Û̬ÎïÐÔ II £ºµç×ӽṹ
- ¹ÜϽ: ÎïÀí
|
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 Õâ¸ö³ÌÐò |
5Â¥2012-02-05 16:13:26
ϦÑôÎ÷ÏÂ
½ð³æ (ÖøÃûдÊÖ)
- Ó¦Öú: 138 (¸ßÖÐÉú)
- ¹ó±ö: 0.041
- ½ð±Ò: 9247.1
- É¢½ð: 73
- ºì»¨: 28
- ɳ·¢: 1
- Ìû×Ó: 1268
- ÔÚÏß: 1164.4Сʱ
- ³æºÅ: 220750
- ×¢²á: 2006-03-20
- רҵ: Äý¾Û̬ÎïÐÔ II £ºµç×ӽṹ
- ¹ÜϽ: ÎïÀí
6Â¥2012-02-05 16:15:10














»Ø¸´´ËÂ¥
ne(I)