ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ¦³Ãö°¨¥i¤ÒÃ쪺¹B¥Î

[µo°Ý] ¦³Ãö°¨¥i¤ÒÃ쪺¹B¥Î

¥»©«³Ì«á¥Ñ klor ©ó 2016-11-6 09:35 ½s¿è

°¨¥i¤ÒÃì.rar (126.46 KB)

½Ð°Ý¦U¦ì°ª¤â­Ì¡A°Ñ¦Ò¤U¤è¤§°¨¥i¤ÒÃ쪺VB«á¡A¸ÕµÛ¼g¥X»P¸Õºâªí¡A¦ý¨D¸Ñ¤W¹w¨ì²~ÀV¡A·Ð½Ð±Ð¸Ó¦p¦ó¨D±o¹w´ú¾÷²v¡C

Excel¦b°¨¥i¤ÒÃì¹w´ú¤¤ªºÀ³¥Î

°¨¥i¤ÒÃì¹w´ú¬OÀ³¥Î°¨¥i¤ÒÃìÃ쪺°ò¥»­ì²z©M¤èªk¨Ó¬ã¨s¤ÀªR¸gÀٮɶ¡§Ç¦CªºÅܤƳW«ß¡A¨Ã¹w´ú¨ä¥¼¨ÓÅܤÆÁͶժº¤@ºØ§Þ³N¡C

1.°¨¤ó¹w´ú·§­z
°¨¥i¤ÒÃìÃì¬O¤@ºØÀH¾÷®É¶¡§Ç¦C¡A¥¦¦b±N¨Ó¨ú¤°»ò­È¥u»P¥¦²{¦bªº¨ú­È¦³Ãö¡A¦Ó»P¹L¥hªº¨ú­ÈµLÃö¡A³oºØ©Ê½èºÙ¬°µL«á®Ä©Ê¡C
¦pªGÅܼƪºª¬ºA¬O¥i¼Æªº¡A°²³]¦³N­Ó¡A¨º»ò±qª¬ºAi¸g¤@¨BÂಾ¨ìj¡A³£¦³µo¥Íªº¥i¯à¡A§Ú­ÌºÙpij¬°¤@¨BÂಾ·§²v¡C±N³o¨Ç¦¸§Ç±Æ¦C°_¨Ó´Nºc¦¨¤@­Ó¯x°}¡A¥s°µª¬ºAÂಾ·§²v¯x°}¡G

¼v¹³ 4.png

Âಾ·§²v¯x°}¨ã¦³¤U­z©Ê½è¡G
¡]1¡^¯x°}¨C­Ó¤¸¯À§¡«D­t¡F
¡]2¡^¯x°}¨C¦æ¤¸¯À¤§©Mµ¥©ó1¡C
Ãþ¦üªº¡A¥i¥H¶×¥X¦h¨BÂಾ·§²v¡G

¥Ñ±ø¥ó·§²vªºª¾ÃÑ¥i¥H±o¨ì¡G  
¼v¹³ 5.png

¡C¦¹¥~¡An¨BÂಾ·§²v¦P¤@¨BÂಾ·§²v¨ã¦³¬Û¦Pªº©Ê½è¡C
¥Ñ©ó­n¨DP(n)¡A¬°¤è«K°_¨£¡A½s¼g¨ç¼Æmmultn()¥H¨Ñ½Õ¥Î¡C¸Ó¨ç¼Æªº§@¥Î¬O­pºâcol colªº¯x°}Aªºn¦¸¾­¡C¸Ó¨ç¼Æªºµ{¦¡¦p¤U¡G
  1. Function mmultn(A As Variant, col As Integer, m As Integer) As Variant
  2. Dim i, j, k, l
  3. Dim t, temp As Variant
  4. t = Array(col, col)
  5. temp = Array(col, col)
  6. t = A
  7. For k = 1 To m Step 1
  8.     temp = t
  9.     For i = 1 To col
  10.         For j = 1 To col
  11.             t(i, j) = 0
  12.             For l = 1 To col
  13.                 t(i, j) = t(i, j) + temp(i, l) * A(l, j)
  14.             Next l
  15.         Next j
  16.     Next i
  17. Next k
  18. mmultn = t
  19. End Function
½Æ»s¥N½X
¨ä¤¤¡Am¥NªíÂಾ¨B¼Æn-1¡A¡A§Y¦pªG¬O¨D2¦¸¾­¡A°Ñ¼Æm¬°1¡A¨D3¦¸¾­¡A°Ñ¼Æm¬°2¡A¨Ì¦¹Ãþ±À¡C
»Ý­n°µªº¬O¡G
¡]1¡^¦b¥´¶}ªº¤u§@襤«ö¤@¤U¡i¤u¨ã¡j¡A¿ï¾Ü¡i¶}µo¤H­û¡j¡A¦A¿ï¾Ü¡iVisual Basic½s¿è¾¹¡j¡F©ÎªÌ¦P®É«ö¡§Alt+F11¡¨Áä§Y¥i¡C
¡]2¡^¦b¡iµø¹Ï¡j¤¤¿ï¾Ü¡i¤uµ{¸ê·½ºÞ²z¾¹¡j¡A¦b¡i¤uµ{¡jµøµ¡¤¤¹î¬Ý¬O§_¦³¡i¼Ò²Õ¡j¤@¶µ¡A¦pªG¨S¦³¡A«h¦b¡i´¡¤J¡j¥\¯àªí¤¤¿ï¾Ü¡i²K¥[¼Ò²Õ¡j¡C
¡]3¡^¦b¡i¤uµ{¡jµøµ¡¤¤«ö¤@¤U¤@­Ó¼Ò²Õ¦W¡A¦b¥kÃä¥X²{ªºµøµ¡¤¤§Y¥i§â¤W­±®Ø¤¤ªºµ{¦¡¿é¤J¨ìªí³æ¤¤¡C
¡]4¡^¦^¨ìExcel¤u§@Àô¹Ò¡A¥i¥H¹³¨Ï¥Î´¶³q¨ç¼Æ¤@¼Ë¨Ï¥Î¸Ó¦Û­q¨ç¼Æ¡C

2.ª¬ºA¹w´ú
¨Ï¥Î°¨¥i¤ÒÃì¹w´ú§Þ³N¡A­º¥ý­n½T©w¤@¨BÂಾ·§²v¯x°}¡G
¡]1¡^½T©w¦UºØª¬ºA¡A§Y¦CÁ|¥XÅܼƪº¦UºØª¬ºA¬O¤°»ò¡A¨Ã¥B±N¦UºØª¬ºA¼Ð°O¬°ª¬ºA1¡Aª¬ºA2¡A¡K¡K¡Aª¬ºAN¡C
¡]2¡^½T©w¤@¨BÂಾ·§²v¯x°}¤¤¦U¤¸¯Àªº­È¡C¦³¨âºØ¤èªk¶i¦æ·§²v¦ôºâ¡A¤@ºØ¬O¥DÆ[·§²vªk¡A¥t¤@ºØ¬O²Î­p¦ôºâªk¡C
¨ÒÃD1  ¦Ò¼{¤@­Ó¤½¥qªº¸gÀ籡ªp¡A¦pªG¥u¬O¶i¦æ²³æªº¤ÀªR¡A¨º»ò¥i¥H§â·í´Áªº¸gÀ籡ªp¤À¬°¬Õ§Q¡B«O¥»©MÁ«¥»¤TºØª¬ºA¡A¤À§O°O¬°ª¬ºA1¡B2¡B3¡C¨ú¹L¥h25­Ó¤ëªº¸gÀ窬ªp§@¬°¼Ð¥»¡A¥i»s§@ªí1¡C
ªí1 ¸gÀ窬ªp¶×Á`ªí
·í´Á
©Ò³Bª¬ºA¡]t¡^        ¤U¤@´Á©Ò³Bªºª¬ºA¡]t+1¡^
        pij        ¬Õ§Q        «O¥»        Á«¥»        Á`­p
        ¬Õ§Q        1        4        3        8
        «O¥»        4        5        2        11
        Á«¥»        2        3        0        5
µ²ªG¤Î¨Dªk¨£¹Ï1¡C
¹Ï1 ª¬ºA¹w´ú¨ÒÃD


3.¥«³õ¦û¦³²v¹w´ú
¨Ï¥Î¦P¼Ëªº¤èªkÁÙ¥i¥H¹ï¬YºØ«~µP²£«~ªº¥«³õ¦û¦³²v¶i¦æ¹w´ú¡C
¥«³õ¦û¦³²v¬O«ü¦b¤@©w¦a²z½d³ò¤º¡A¬Y¤@Ãþ°Ó«~¦]¬°¨ã¦³¬Û¦Pªº¥Î³~©Î©Ê½è¦Ó¬Û¤¬Ävª§¡A¨º»ò¦b³oÃþ°Ó«~ªº¾ã­Ó¾P°â¥«³õ¤W¡A¨C¤@ºØ«~µPªº²£«~ªº¾P°âÃB¡]¾P¶q¡^¥e³oÃþ°Ó«~Á`¾P°âÃB¡]¾P¶q¡^ªº¥÷ÃB§Y¬°¸Ó«~µP²£«~ªº¥«³õ¦û¦³²v¡C
²{¦b¥HªF«n¨È¦U°êªº¨ýºë¥«³õ¬°¨Ò¶i¦æ»¡©ú¡C¹ïªF«n¨È¦U°ê¦æ¾P¤W®ü¡B¤é¥»©M­»´äªº¤TºØ¨ýºë¡A§Ú­Ì­n¹w´ú¦b¥¼¨Ó­Y¤z¤ë«áªº¥«³õ¦û¦³±¡ªp¡C¨ãÅé¨BÆJ¬O¡G
¡]1¡^¶i¦æ¥«³õ½Õ¬d¡A±o¨ìÁʶR¤W®ü¡B¤é¥»¡B­»´ä¨ýºëªºÅU«È¦U¯¸ªº¦Ê¤À¤ñ¡C½Õ¬dªºµ²ªG¬OÁʶR¤W®ü¨ýºëªº¥e40%¡A¤é¥»©M­»´äªº¦U¥e30%¡C
¡]2¡^½Õ¬dÅU«È°¾¦nªºÅܤƱ¡ªp¡C¦p¥»¦¸ÁʶR¤W®ü¨ýºëªº¤H¦b¤U¦¸¤£¤@©w¦AÁʶR¤W®ü¨ýºë¡A§Ú­Ì·Q±o¨ì¤U¦¸ÁʶR¦UºØ¨ýºëªº¦Ê¤À¤ñ¡C½Õ¬dµ²ªG¦pªí2¡C
¥ý¨Ï¥Îmmultn¡]¡^­pºâ±o¨ì3­Ó¤ë«áÅU«È°¾¦nªºÅܤƪí¡C°O²{¦b¤W®ü¨ýºë¡B¤é¥»¨ýºë©M­»´ä¨ýºëªº¥«³õ¦û¦³²v¤À§O¬° P1 P2 P3¡A ¨º»ò3­Ó¤ë«á¤T¦a¨ýºëªº¥«³õ¦û¦³²v¬°¡G

¼v¹³ 6.png

­pºâµ²ªG¤Î¨BÆJ¨£¹Ï2¡C
¹Ï2 ¥«³õ¦û¦³²v¹w´ú


ªí2 ¨ýºëÁʶRÅU«È°¾¦nÅܤƪí
¥»¦¸
©Ò³Bª¬ºA¡]t¡^        ¤U¦¸©Ò³Bªºª¬ºA¡]t+1¡^
        pij        ¤W®ü        ¤é¥»        ­»´ä
        ¤W®ü        0.4        0.3        0.3
        ¤é¥»        0.6        0.3        0.1
        ­»´ä        0.6        0.1        0.3

4.´Á±æ§Q¼í¹w´ú
¦b¥ø·~ªº¸gÀçºÞ²z¤¤¡A°£¤F»Ý­nºN²M¾P¸ôªºÅܤƱ¡ªp¥~¡AÁÙ­n¹ï§Q¼íªºÅܤƱ¡ªp¶i¦æ¹w´ú¡C¤ñ¦p¬Y²£«~ªº¾P°â¦³¤TºØ±¡ªp¡A§YºZ¾P¡B¥¿±`©Mº¢¾P¡Cªí3¬O½Õ¬d±o¨ìªº¤@¨Bª¬ºAÂಾ·§²v¯x°}¡C
ªí3 ²£«~¾P°â¤@¨Bª¬ºAÂಾ·§²v
ª¬ºA¡]t¡^        ª¬ºA¡]t+1¡^
        pij        ºZ¾P        ¥¿±`        º¢¾P
        ºZ¾P        0.125        0.500        0.375
        ¥¿±`        0.364        0.455        0.182
        º¢¾P        0.400        0.600        ¡X
¦]¬°¬O¹w´ú§Q¼í¡A¦b²£«~¾P°â±¡ªpµo¥ÍÅܤƮɡA¨ä§Q¼í¤]·|µo¥ÍÅܤơAªí4¬Oª¬ºAµo¥ÍÅܤƮɧQ¼íªºÅܤƱ¡ªp¡C
ªí4 §Q¼í¼W´î¯x°}         ¸U¤¸
Rij        ºZ¾P        ¥¿±`        º¢¾P
ºZ¾P        10.000        6.000        -3.000
¥¿±`        12.000        4.000        -4.000
º¢¾P        8.000        4.000        -3.000
¬°¤F±o¨ì3­Ó¤ë«áªº´Á±æ§Q¼í¡A»Ý¥ý¨D±o3­Ó¤ë«á¾P°âª¬ºAªºÂಾ·§²v¡C¨Ï¥Îmmuultn()¦Û­q¨ç¼Æ¡C3­Ó¤ë«á¡A§Q¼íÅܤƪº­pºâ¤½¦¡¬°¡G
¦pªG¥»´Á¬°ºZ¾P¡A
¦pªG¥»´Á¬°¥¿±`¡A
¦pªG¥»´Á¬°º¢¾P¡A
­pºâµ²ªG¤Î¨BÆJ¨£¹Ï3¡C

¹Ï3 ´Á±æ§Q¼í¹w´ú¨ÒÃD



¥»¤å³¹­ì©l¨Ó·½:http://www.google.com.tw/url?sa=t&rct=j&q=&esrc=s&source=web&cd=2&cad=rja&uact=8&ved=0ahUKEwjv-MCm_pLQAhWBTrwKHcv3BK0QFgghMAE&url=http%3A%2F%2Fread.pudn.com%2Fdownloads161%2Fsourcecode%2Fwindows%2F728214%2FExcel%25E7%259A%2584%25E8%258B%25A5%25E5%25B9%25B2%25E5%25BA%2594%25E7%2594%25A8%2FExcel%25E5%259C%25A8%25E9%25A9%25AC%25E5%25B0%2594%25E5%258F%25AF%25E5%25A4%25AB%25E9%25A2%2584%25E6%25B5%258B%25E4%25B8%25AD%25E7%259A%2584%25E5%25BA%2594%25E7%2594%25A8.doc&usg=AFQjCNGks-bh2p9s0OM7Ugt9qdqwOLykNg

        ÀR«ä¦Û¦b : ¡i®É¶¡¦¨´N¤@¤Á¡j®É¶¡¥i¥H³y´N¤H®æ¡A¥i¥H¦¨´N¨Æ·~¡A¤]¥i¥HÀx¿n¥\¼w¡C
ªð¦^¦Cªí ¤W¤@¥DÃD