ÅëÇÕ°Ë»ö

[¿¢¼¿VBA] ¼±Çü¹ÌºÐ¹æÁ¤½Ä Ç®ÀÌ (4Â÷ Runge-Kutta ¹æ¹ý)

dcss > ¹®¼­¹Ú½º > ÇÁ·Î±×·¥/¼öÄ¡ÇØ¼® | 2007/09/15 ±¸¸Å(3) ¤Ó Á¶È¸(296)
¹®¼­ ¿ä¾àÁ¤º¸
±¸¸ÅÀÚ Æò°¡
  • ÆÇ¸Å°¡°Ý : 1,000¿ø (4Pages)
  • ÀúÀ۽ñâ : 2007/09
  • Ãßõµ¶ÀÚ : Àüü
¹®¼­ »ó¼¼Á¤º¸
¸®Æ÷Æ® ½ºÅ©¸°  (1/1 screen)
¡Ø ÃÖ´ë 10ÆäÀÌÁö±îÁö ¸®Æ÷Æ® ½ºÅ©¸° À̹ÌÁö¸¦ »ý¼ºÇÕ´Ï´Ù.
¡Ø 5ÆäÀÌÁö ÀÌ»óÀÇ ÀÚ·áÀÎ °æ¿ì À̹ÌÁö¸¦ Ŭ¸¯ÇϽøé 2,4 ÆäÀÌÁö¿¡ ÇØ´çÇÏ´Â Å« À̹ÌÁö¸¦ È®ÀÎÇÏ½Ç ¼ö ÀÖ½À´Ï´Ù
¼Ò°³±Û ¿¢¼¿ÀÇ VBA¸¦ ÀÌ¿ëÇØ ¼±Çü ¹ÌºÐ¹æÁ¤½ÄÀ» Ǭ ¿¹Á¦ÀÔ´Ï´Ù.
°è»êÇÑ ¹ÌºÐ¹æÁ¤½ÄÀº f=dy/dx=2xyÀ̰í, 4Â÷ Runge-Kutta °ø½ÄÀ» ÀÌ¿ëÇß½À´Ï´Ù.
¹®¼­¿¡´Â ½ºÅ©¸³Æ® ¼Ò½º¿Í ¿¢¼¿¿¡ ½ºÅ©¸³Æ®¸¦ ÀÔ·ÂÇØ »ç¿ëÇÏ´Â ¼³¸íÀÌ µé¾î ÀÖ½À´Ï´Ù.

ºñÁÖ¾óº£ÀÌÁ÷ ½ºÅ©¸³Æ®¸¦ ¿¢¼¿ ÀÌ¿ëÇÏ·Á¸é ¿¢¼¿¿¡¼­ ¸ÅÅ©·Î º¸¾ÈÀ» º¸Åë ÀÌÇÏ·Î ³·Ãç¾ß ÇÕ´Ï´Ù.
¸ñÂ÷ (1) °³¿ä
(2) ºñÁÖ¾ó º£ÀÌÁ÷ ½ºÅ©¸³Æ®
(3) ¿¢¼¿¿¡¼­ ½ÇÇà ¹æ¹ý (Microsoft Excel 2003)
º»¹®³»¿ë VBA¸¦ ÀÌ¿ëÇÑ ¼±Çü¹ÌºÐ¹æÁ¤½Ä Ç®ÀÌ

(1) °³¿ä
1Â÷ ¹ÌºÐ¹æÁ¤½Ä y`=2xyÀÇ ÃʱⰪ ¹®Á¦¸¦ Runge-Kutta 4Â÷½ÄÀ» ÀÌ¿ëÇØ Ç®¾î ³ª°£´Ù. ¿©±â¿¡ »ç¿ëµÇ´Â Runge-Kutta 4Â÷½ÄÀº ´ÙÀ½°ú °°´Ù.

¿©±â¼­ ÀÌ´Ù.

(2) ºñÁÖ¾ó º£ÀÌÁ÷ ½ºÅ©¸³Æ®

Option Explicit

Sub RK_4th()

Dim h As Double ` º¯¼ö ¼±¾ð
Dim n As Integer
Dim x_n As Double
Dim f_n As Double
Dim k1 As Double
Dim k2 As Double
Dim k3 As Double
Dim k4 As Double
Dim y_n As Double
Âü°íÀÚ·á Âü°íÀÚ·á ¾øÀ½
Çб³Á¤º¸ 2ÁÖ°£ ´Ù¿î¹ÞÀº ÇлýÀÇ Çб³Á¤º¸¸¦ º¸¿©ÁÝ´Ï´Ù.(5P ¼Ò¿ä)
ÀúÀÛ±Ç Á¤º¸ À§ Á¤º¸ ¹× °Ô½Ã¹° ³»¿ëÀÇ Áø½Ç¼º¿¡ ´ëÇÏ¿© ÇØÇÇÄ·ÆÛ½º´Â º¸ÁõÇÏÁö ¾Æ´ÏÇϸç, ÇØ´ç Á¤º¸ ¹× °Ô½Ã¹° ÀúÀ۱ǰú ±âŸ ¹ýÀû Ã¥ÀÓÀº ÀÚ·á µî·ÏÀÚ¿¡°Ô ÀÖ½À´Ï´Ù.
À§ Á¤º¸ ¹× °Ô½Ã¹° ³»¿ëÀÇ ºÒ¹ýÀû ÀÌ¿ë, ¹«´Ü ÀüÀ硤¹èÆ÷´Â ±ÝÁöµÇ¾î ÀÖ½À´Ï´Ù.ÀúÀÛ±ÇÄ§ÇØ, ¸í¿¹ÈÑ¼Õ µî ºÐÀï¿ä¼Ò ¹ß°ß½Ã °í°´¼¾ÅÍÀÇ ÀúÀÛ±ÇÄ§ÇØ ½Å°í¼¾Å͸¦ ÀÌ¿ëÇØ Áֽñ⠹ٶø´Ï´Ù.

±¸¸ÅÆò°¡(
0
)
±¸¸Å¹®ÀÇ(
0
)
Æ®·¢¹é(
0
)