ʪÍý¤ËÌá¤ë¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡Ã±¿¶Æ°¤È¸º¿ê¿¶Æ°¡¡by Mathematica
ñ¿¶Æ°¤Î°ìÈ̼°¤Ï
¤Ç¤¢¤Ã¤¿¡£¤³¤Î²ò¤òµá¤á¥°¥é¥Õ¤òºî¤Ã¤Æ¤ß¤è¤¦¡£
x¤ò£ô¤Î´Ø¿ô¤È¤·x[t] ¤Çɽ¤¹¡£
[ÈùʬÊýÄø¼°¤ò²ò¤¯]
DSolve[f==g, y[t],t] ¤ÏÈùʬÊýÄø¼°£æ=g¤òy[t]¤Ë¤Ä¤¤¤Æ²ò¤¯¤³¤È¤òɽ¤·¡¢y[t]¤Ï£ù¤¬£ô¤Î´Ø ¿ô¤Ç¤¢¤ë¤³¤È¤òɽ¤¹¡£y'[t],y''[t]¤Ï¤½¤ì¤¾¤ì£ù¤Î£ô¤Ë¤Ä¤¤¤Æ¤Î£±³¬¡¢£²³¬¤ÎÈùʬ¤òɽ¤· ¤Æ¤¤¤ë¡£¤½¤³¤Çñ¿¶Æ°¤Î°ìÈ̼°¤Ï²¼µ¤Î¤è¤¦¤ËÆþÎϤ¹¤ë¡£
![[Graphics:Images/Harmony_gr_2.gif]](Images/Harmony_gr_2.gif)
¤³¤ì¤Ï°ìÈÌŪ¤Ë¤Ï²ò¤¬¥³¥µ¥¤¥ó¤È¥µ¥¤¥ó¤ÎϤÇÍ¿¤¨¤é¤ì¡¢Å¬Åö¤Ê·¸¿ô£Ã¤¬¤«¤«¤Ã¤Æ½Ð¤Æ¤¤Æ¤·¤Þ¤¦¡£¤½¤³¤Ç¡¢¤µ¤é¤Ë½é´ü¾ò·ï¤È¤·¤Æ
t=0¤Î»þ¤Ë°ÌÃÖ¤¬£°, t ¤Î»þ°ÌÃÖ¤¬¿¶ÉýA¤ËÅù¤·¤¯¤Ê¤ë¤è¤¦¤Ë¤·¤è¤¦¡£
[ÂåÆþ¤ÈÃÖ´¹]
% ¤Ï£±¤ÄÁ°¤ÎÃͤòɽ¤¹¡£
A /. B ¤ÏA¤òB¤ËÃÖ¤´¹¤¨¤ë¤³¤È¤òɽ¤¹¡£
A -> B¤ÏA¤ËB¤òÂåÆþ¤¹¤ë¤³¤È¤òɽ¤¹¡£
Part[x ,n] ¤Ï£ø¤Î½¸¹ç¤Î¤¦¤Á£ôŽÔÌܤòÈ´¤½Ð¤¹»þ¤Ë»È¤¦¡£
Î㤨¤Ðñ¿¶Æ°¤Î°ìÈ̲ò¤ò£æ£±¤ËÂåÆþ¤¹¤ë¤Ë¤Ï¼¡¤Î¤è¤¦¤ËÆþÎϤ¹¤ë¡£
![[Graphics:Images/Harmony_gr_5.gif]](Images/Harmony_gr_5.gif)
¤³¤ì¤Ç£ø¤Î°ìÈ̲ò¤¬A Sin[ ω t] ¤Ç¤¢¤ë¤³¤È¡¢¤µ¤é¤Ë¤³¤Î²ò¤ò£æ£±¤ËÂåÆþ¤Ç¤¤¿¤³¤È¤¬¤ï¤«¤Ã¤¿¡£
ÝâŽÉ¤³¤Î°ìÈ̲ò£æ£±¤ËÃͤòÂåÆþ¤·¡¢£²¤Ä¤Î¾ì¹ç¤Ë¤Ä¤¤¤Æ¥°¥é¥Õ¤ò½Å¤Í¤Æ¿Þަ¤µ¤»¤è¤¦¡£
·ë²Ì¤òͽÁÛ¤·¤ÆMathematica¤Ë·×Z¤µ¤»¤ë¤³¤È¤¬ÂçÀÚ¤À¡£
![[Graphics:Images/Harmony_gr_8.gif]](Images/Harmony_gr_8.gif)
![[Graphics:Images/Harmony_gr_11.gif]](Images/Harmony_gr_11.gif)
ñ¿¶Æ°¤ÎÍÍq¤¬Íý²ò¤Ç¤¤¿¤é¡£ËàC¡Ê®ÅÙ¤ËÈæÎ㤷¤¿Äñ¹³ÎÏ) ¤¬Æ¯¤¯¾ì¹ç¤Ë¤Ä¤¤¤Æ¤â¤ä¤Ã¤Æ¤ß¤è¤¦¡£¡¡Àè¤ÎÊýÄø¼°¤Ë¡¡-2£ë£ö¡¡¤¹¤Ê¤ï¤Á¡¡-2£ë£ø'¡Î£ô¡Ï¤òÉÕ¤±²Ã¤¨¤ë¡£
(£²¤Ï¼¡¤Î·×Z¤ÎÅÔ¹ç¾å¤Ä¤±¤¿¤â¤Î)
![[Graphics:Images/Harmony_gr_14.gif]](Images/Harmony_gr_14.gif)
![[Graphics:Images/Harmony_gr_17.gif]](Images/Harmony_gr_17.gif)
ñ¿¶Æ°¤ÈÈæ¤Ù¤ë¤È¿¶Æ°¤¬ËàC¤Ë¤è¤ê¤À¤ó¤À¤ó¤È¾®¤µ¤¯¤Ê¤ë¤³¤È¤¬¤ï¤«¤ë¤Í¡£
¤¿¤À¤³¤Î¼°¤Ï£ë¤Èω ¤ÎÂç¾®´Ø·¸¤«¤é¤¤¤í¤¤¤í¤Ê¤³¤È¤¬µ¯¤¤ë¡£
¤½¤³¤Ç¤³¤ó¤É¤Ï k > ω ¤Î¾ì¹ç¤òºî¿Þ¤·¤Æ¤ß¤è¤¦¡£
¤µ¤é¤Ë¤³¤ÎËàCÎϤÎÉ乿¤òÊѤ¨¤Æ³°ÎϤȤ·¤Æ²Ã¤ï¤ë¾ì¹ç¤Ë¤Ä¤¤¤Æ¼«Ê¬¤Ç¹Í¤¨¤Æ¤ß¤è¤¦¡£
![[Graphics:Images/Harmony_gr_21.gif]](Images/Harmony_gr_21.gif)
![[Graphics:Images/Harmony_gr_25.gif]](Images/Harmony_gr_25.gif)