| ²é¿´: 669 | »Ø¸´: 6 | ||
| µ±Ç°Ö»ÏÔʾÂú×ãÖ¸¶¨Ìõ¼þµÄ»ØÌû£¬µã»÷ÕâÀï²é¿´±¾»°ÌâµÄËùÓлØÌû | ||
444874095гæ (³õÈëÎÄ̳)
|
[ÇóÖú]
ÇóÖú¹ØÓÚprogramµÄÓ÷¨ ÒÑÓÐ1È˲ÎÓë
|
|
| ÎÒÔÚµçÄÔÉÏÔËÐÐÒ»¸ö¸ß˹ÈüµÂ¶ûµü´úµÄ¼ÆËã´úÂ룬µü´úÊÇÓÃ×Ó³ÌÐò¸ø³öµÄ¡£ÔÚÖ÷³ÌÐòÖУ¬ÎÒÔÚÊ×λ¼ÓÈëÁËprogram mainÔËÐкó¾Í»á³öÏÖThis name does not match the unit name.²»¼Óprogram¾ÍÄÜÔËÐС£ÄÄλ´óÉñÖªµÀÖ»ÊÇΪʲô°¡£¿ |
» ²ÂÄãϲ»¶
²ÄÁÏ¿¼Ñе÷¼Á
ÒѾÓÐ7È˻ظ´
270µ÷¼Á
ÒѾÓÐ7È˻ظ´
275ѧ˶081000·þ´Óµ÷¼Áµ½ÆäËûרҵ£¬±£²»×¡±¾×¨ÒµÁË
ÒѾÓÐ6È˻ظ´
0710ÉúÎïѧ£¬325Çóµ÷¼Á
ÒѾÓÐ3È˻ظ´
296²ÄÁÏר˶Çóµ÷¼Á
ÒѾÓÐ5È˻ظ´
385·Ö ÉúÎïѧ£¨071000£©Çóµ÷¼Á
ÒѾÓÐ5È˻ظ´
377Çóµ÷¼Á
ÒѾÓÐ3È˻ظ´
¡¾Çóµ÷¼Á¡¿ÐÂÄÜÔ´²ÄÁϱ¾¿Æ£¬Ò»Ö¾Ô¸211£¬³õÊÔ321
ÒѾÓÐ6È˻ظ´
316Çóµ÷¼Á
ÒѾÓÐ11È˻ظ´
321Çóµ÷¼Á
ÒѾÓÐ9È˻ظ´
78506174
ÖÁ×ðľ³æ (ÖªÃû×÷¼Ò)
- Ó¦Öú: 70 (³õÖÐÉú)
- ½ð±Ò: 26160.7
- É¢½ð: 50
- ºì»¨: 10
- Ìû×Ó: 5672
- ÔÚÏß: 830.9Сʱ
- ³æºÅ: 1331748
- ×¢²á: 2011-06-26
- רҵ: ½ðÊô½á¹¹²ÄÁÏ
7Â¥2015-11-11 11:55:47
444874095
гæ (³õÈëÎÄ̳)
- Ó¦Öú: 0 (Ó×¶ùÔ°)
- ½ð±Ò: 123.6
- ºì»¨: 1
- Ìû×Ó: 30
- ÔÚÏß: 3.8Сʱ
- ³æºÅ: 4197263
- ×¢²á: 2015-11-04
- רҵ: Ë®¹¤½á¹¹ºÍ²ÄÁϼ°Ê©¹¤
|
´úÂëÈçÏ IMPLICIT NONE DIMENSION A(4,4),B(4),X(4) DOUBLE PRECISION A,B,X REAL:: EPS INTEGER::I,L DATA A/7.0,9.0,-2.0,1.0,2.0,15.0,-2.0,3.0,1.0,3.0,11.0,2.0,-2.0,-2.0,5.0,13.0/ DATA B/4.0,7.0,-1.0,0.0/ EPS=1.0E-06 CALL AGSDL(A,B,4,X,EPS,L) IF (L.NE.0) THEN WRITE(*,10) (X(I),I=1,4) END IF 10 FORMAT(1X,D15.6) END SUBROUTINE AGSDL(A,B,N,X,EPS,L) DIMENSION A(N,N),B(N),X(N) DOUBLE PRECISION A,B,X,T,S,P,Q INTEGER::N DO 5 I=1,N IF (ABS(A(I,I))+1.0.EQ.1.0) THEN L=0 WRITE(*,100) RETURN END IF 5 CONTINUE 100 FORMAT(1X,'FAIL') L=100 DO 10 I=1,N 10 X(I)=0.0 20 P=0.0 L=L-1 DO 50 I=1,N T=X(I) S=0.0 DO 30 J=1,N IF(J.NE.I) S=S+A(I,J)*X(J) 30 CONTINUE X(I)=(B(I)-S)/A(I,I) Q=ABS(X(I)-T)/(1+ABS(X(I))) IF (Q.GT.P) P=Q 50 CONTINUE IF((P.GE.EPS).AND.(L.NE.0)) GOTO 20 IF(L.EQ.0) WRITE(*,100) RETURN END SUBROUTINE AGSDL |
2Â¥2015-11-10 21:19:59
78506174
ÖÁ×ðľ³æ (ÖªÃû×÷¼Ò)
- Ó¦Öú: 70 (³õÖÐÉú)
- ½ð±Ò: 26160.7
- É¢½ð: 50
- ºì»¨: 10
- Ìû×Ó: 5672
- ÔÚÏß: 830.9Сʱ
- ³æºÅ: 1331748
- ×¢²á: 2011-06-26
- רҵ: ½ðÊô½á¹¹²ÄÁÏ
3Â¥2015-11-11 11:49:32
444874095
гæ (³õÈëÎÄ̳)
- Ó¦Öú: 0 (Ó×¶ùÔ°)
- ½ð±Ò: 123.6
- ºì»¨: 1
- Ìû×Ó: 30
- ÔÚÏß: 3.8Сʱ
- ³æºÅ: 4197263
- ×¢²á: 2015-11-04
- רҵ: Ë®¹¤½á¹¹ºÍ²ÄÁϼ°Ê©¹¤
4Â¥2015-11-11 11:50:29














»Ø¸´´ËÂ¥