±±¾©Ê¯ÓÍ»¯¹¤Ñ§Ôº2026ÄêÑо¿ÉúÕÐÉú½ÓÊÕµ÷¼Á¹«¸æ
²é¿´: 1040  |  »Ø¸´: 5

fagege2010

Ìú³æ (СÓÐÃûÆø)

[½»Á÷] ¡¾ÇóÖú¡¿¼±Ç󣡣¡£¡

ÎÒÔÚÇ°ÃæµÄ×Ó³ÌÐòÖмÆËã³öÁËÒ»¸ö¾ØÕóAR£¨N,N£©
ÏÖÔÚÏëÓÃISMLÇóËüµÄ±¾Õ÷ÖµºÍ±¾Õ÷ʸ
ÇëÎÊÈçºÎÇó£»ÈçºÎ°Ñ×Ó³ÌÐòÖеÄÕâ¸ö¾ØÕóÖеÄÊý¾Ý´«¹ýÈ¥°¡£¿¾ßÌåÔõô±à£¿


ÎÊÌâÒѾ­½â¾öлл¸÷λ

[ Last edited by fagege2010 on 2011-1-8 at 23:54 ]
»Ø¸´´ËÂ¥

» ²ÂÄãϲ»¶

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

ÉñÂí¶¼ÊǸ¡ÔÆ
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

heyansheng12345

Òø³æ (СÓÐÃûÆø)

fagege2010(½ð±Ò+5): 2010-12-15 20:12:26
fagege2010(½ð±Ò+1): 2011-01-08 23:46:09
fagege2010(½ð±Ò+1): 2011-01-08 23:46:15
ÎÒÏëÓ¦¸ÃÒª½èÓÃÊý×é°É
2Â¥2010-12-14 13:47:04
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

cyclone985

Òø³æ (СÓÐÃûÆø)

fagege2010(½ð±Ò+5): 2010-12-15 20:12:51
fagege2010(½ð±Ò+1): 2011-01-08 23:46:20
²éÕÒ°ïÖú¡£Èç¹ûÓÃFortran Powerstation4£¬ ÔÚ°ïÖú²Ëµ¥ÀïÕÒ¡£Èç¹ûÓÃCVF6.6.ÔÚPDFµÄº¯ÊýÊÖ²áÀïÕÒ¡£°ïÖúÀï˵µÄºÜÇå³þ£¬×¢ÒâÊý×éÊÇʵÊý»¹ÊǸºÊý¡£
3Â¥2010-12-15 12:44:13
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

wangxn06

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

fagege2010(½ð±Ò+1): 2011-01-08 23:46:24
ISMLÄ£¿éµÄ˵Ã÷ÖÐÓоßÌåµÄ½éÉܰÉ
4Â¥2010-12-17 18:41:20
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

luoxitc

гæ (³õÈëÎÄ̳)

fagege2010(½ð±Ò+1): 2011-01-08 23:46:31
ÓõÄcampaqµÄ»¹ÊÇintelµÄ£¿
ÏëÓмþTÐô£¬ÉÏÃæÓ¡×ſսãµÄÍ·Ïñ
5Â¥2010-12-27 19:44:26
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

haiqing1987

Í­³æ (³õÈëÎÄ̳)

ÎÒÓÐÀý×Ó ¸Õ¸ÕÑо¿¹ý

¡ï ¡ï
ÓàÔó³É(½ð±Ò+2):лл²ÎÓëÓ¦Öú£¡ 2010-12-31 16:34:25
fagege2010(½ð±Ò+1): 2011-01-08 23:46:01
fagege2010(½ð±Ò+1): 2011-01-08 23:46:42
fagege2010(½ð±Ò+1): 2011-03-07 09:00:45
²»·Ï»° Ö±½ÓÉÏ´úÂë £º
        program main
         use IMSL  £¡µ÷ÓÃIMSL,Ò»¶¨ÒªÓ㬶øÇҵñ£Ö¤ÄãµÄ±àÒëÆ÷ÓÐÕâ¸ö¿â
         implicit none
     real :: A(3,3)=(/-1,-4,1,&
                  1,3,0,&
                  0,0,2 /)
         real :: eigenvalue(3),top
         real :: eigenvector(3,3)
         integer :: i

         eigenvalue=eig(A,v=eigenvector)
£¡A(n,n) ÊäÈëµÄ¾ØÕó£¬eigenvalue(n) µÃµ½µÄ±¾Õ÷ʸ£¬eigenvector(n,n)¶ÔÓ¦µÄ±¾
£¡Ö¤Ê¸Á¿£¬ÆäÖб¾Õ÷ʸÊǽµÐòÅÅÁÐ
£¡Èç¹ûÏëµÃµ½¸´ÊýÊý×é ÓÃeigenvalue=eig(A,w=eigenvector)


         do i=1,3
           write(*,"('eigenvalue=',f5.2)"eigenvalue(i)
           write(*,"('eigenvector=['3(f5.2'')']')"eigenvector(:,i)
         end do
£¡top ÊÇÑéÖ¤ÊÇ·ñ¹éÒ»
         top=0.d0
                do i=1,3
                top=top+eigenvector(i,2)**2
                enddo
                print*,top
        stop
        end

[ Last edited by haiqing1987 on 2010-12-28 at 19:39 ]
6Â¥2010-12-28 19:34:10
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû
Ïà¹Ø°æ¿éÌø×ª ÎÒÒª¶©ÔÄÂ¥Ö÷ fagege2010 µÄÖ÷Ìâ¸üÐÂ
×î¾ßÈËÆøÈÈÌûÍÆ¼ö [²é¿´È«²¿] ×÷Õß »Ø/¿´ ×îºó·¢±í
[¿¼ÑÐ] ÉúÎïѧѧ˶Çóµ÷¼Á£º351·ÖÒ»Ö¾Ô¸ÄϾ©Ê¦·¶´óѧÉúÎïѧרҵ +4 ¡­¡«¡¢Íõ¡­¡« 2026-04-06 5/250 2026-04-06 10:45 by ´óÁ¦Ë®ÊÖÁ¦´óÎÞÇ
[¿¼ÑÐ] »¯Ñ§357·Ö£¬¿¼Ñе÷¼Á +11 .Starry. 2026-04-04 12/600 2026-04-06 06:28 by houyaoxu
[¿¼ÑÐ] 298Çóµ÷¼Á +3 manman511 2026-04-05 3/150 2026-04-05 18:09 by kk112233
[¿¼ÑÐ] 271·ÖÇóµ÷¼ÁѧУ +12 zph158488£¡ 2026-04-02 13/650 2026-04-05 10:13 by lqwchd
[¿¼ÑÐ] 11408,335·Ö£¬±¾¿Æ211£¬Çóµ÷¼Á£¬¿Éתרҵ +5 öùÀæ´óöùÓã 2026-04-03 5/250 2026-04-04 22:49 by chongya
[¿¼ÑÐ] 283Çóµ÷¼Á +4 mcbbc 2026-04-03 5/250 2026-04-04 20:51 by imissbao
[¿¼ÑÐ] 331Çóµ÷¼Á +3 niby 2026-04-02 3/150 2026-04-04 19:56 by À¶ÔÆË¼Óê
[¿¼ÑÐ] [µ÷¼ÁÐÅÏ¢]085408¹âµçÐÅÏ¢ Çóµ÷¼Á ×Ü·Ö291·ÖÊýÒ»Ó¢Ò» +3 iz11az 2026-04-02 3/150 2026-04-04 19:09 by À¶ÔÆË¼Óê
[¿¼ÑÐ] ÇóÉúÎïѧרҵµ÷¼Á-332·Ö +5 ÔÆ¶äåÞÍäÖ¸ÄÏ 2026-04-04 5/250 2026-04-04 10:05 by rzh123456
[¿¼ÑÐ] Çóµ÷¼Á£¬Ò»Ö¾Ô¸±±¾©ÖÐÒ½Ò©´óѧ +3 СС´ï²»Áï 2026-04-02 3/150 2026-04-03 22:55 by ³åʸêÄÐÇÍÅ
[¿¼ÑÐ] 295Çóµ÷¼Á +3 ÉÐټѽ 2026-04-03 4/200 2026-04-03 21:23 by zhq0425
[¿¼ÑÐ] µ÷¼Á +5 asdasdassda 2026-04-03 6/300 2026-04-03 20:27 by °¶ÉϵÄÒ»ÌõÓã
[¿¼ÑÐ] Çóµ÷¼Á +8 akdhjs 2026-04-03 8/400 2026-04-03 18:17 by ´÷άING
[¿¼²©] ²ÄÁϹ¤³Ìרҵ˶ʿÉ격 +3 ÷ëÕýÓî 2026-03-30 3/150 2026-04-02 15:04 by greychen00
[¿¼ÑÐ] Ò»Ö¾Ô¸±±¾©¿Æ¼¼´óѧ²ÄÁÏѧ˶328·ÖÇóµ÷¼Á +6 1¶Îʱ¼ä 2026-03-31 7/350 2026-04-02 13:57 by 3041
[¿¼ÑÐ] 311Çóµ÷¼Á +14 À¶ÔÂÁÁÁÁ 2026-03-30 14/700 2026-04-02 12:18 by 1753564080
[¿¼ÑÐ] 0710ÉúÎïѧ£¬325Çóµ÷¼Á +3 mkkkkkl 2026-04-01 3/150 2026-04-02 09:48 by Jaylen.
[¿¼ÑÐ] Çóµ÷¼Á +4 DADA¹Ö 2026-03-31 4/200 2026-04-01 14:30 by ZXlzxl0425
[¿¼ÑÐ] 322Çóµ÷¼Á +8 ÈýË®sss 2026-04-01 8/400 2026-04-01 10:19 by ÌÆãå¶ù
[¿¼ÑÐ] Çó0861½»Í¨ÔËÊäר˶or²ÄÁÏר˶µ÷¼Á +4 ÀÕ²¼ÀÊ@ 2026-03-31 4/200 2026-04-01 09:54 by Ò»Ö»ºÃ¹û×Ó?
ÐÅÏ¢Ìáʾ
ÇëÌî´¦ÀíÒâ¼û