- ©«¤l
- 19
- ¥DÃD
- 5
- ºëµØ
- 0
- ¿n¤À
- 23
- ÂI¦W
- 0
- §@·~¨t²Î
- windows
- ³nÅ骩¥»
- windows7
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2016-10-23
- ³Ì«áµn¿ý
- 2017-1-21
|
¥»©«³Ì«á¥Ñ 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¯x°}¨ã¦³¤Uz©Ê½è¡G
¡]1¡^¯x°}¨CÓ¤¸¯À§¡«Dt¡F
¡]2¡^¯x°}¨C¦æ¤¸¯À¤§©Mµ¥©ó1¡C
Ãþ¦üªº¡A¥i¥H¶×¥X¦h¨BÂಾ·§²v¡G
¥Ñ±ø¥ó·§²vªºª¾ÃÑ¥i¥H±o¨ì¡G
¡C¦¹¥~¡An¨BÂಾ·§²v¦P¤@¨BÂಾ·§²v¨ã¦³¬Û¦Pªº©Ê½è¡C
¥Ñ©ón¨DP(n)¡A¬°¤è«K°_¨£¡A½s¼g¨ç¼Æmmultn()¥H¨Ñ½Õ¥Î¡C¸Ó¨ç¼Æªº§@¥Î¬Opºâcol colªº¯x°}Aªºn¦¸¾¡C¸Ó¨ç¼Æªºµ{¦¡¦p¤U¡G- Function mmultn(A As Variant, col As Integer, m As Integer) As Variant
- Dim i, j, k, l
- Dim t, temp As Variant
- t = Array(col, col)
- temp = Array(col, col)
- t = A
- For k = 1 To m Step 1
- temp = t
- For i = 1 To col
- For j = 1 To col
- t(i, j) = 0
- For l = 1 To col
- t(i, j) = t(i, j) + temp(i, l) * A(l, j)
- Next l
- Next j
- Next i
- Next k
- mmultn = t
- 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
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 |
|