Jun 07, 2008
ãƒãƒ¼ãƒ¬ãƒ³ãƒ„方程å¼
æµä½“ã®ã‚«ã‚ªã‚¹çš„ãµã‚‹ã¾ã„ã‚’è¡¨ã™æ–¹ç¨‹å¼ã¨ã—ã¦ãƒãƒ¼ãƒ¬ãƒ³ãƒ„方程å¼ãŒã‚る。1963å¹´Lorenz,E.N.ãŒâ€Deterministic Nonperiodic Flow",Journal of Atmospheric Sciencesã«ç™ºè¡¨ã—ãŸæ±ºå®šè«–çš„éžå‘¨æœŸæµã‚Œã®æ–¹ç¨‹å¼ã§ã‚る。
dx/dt=-px+py
dy/dt=-xz+rx-y
dz/dt=xy-bz
ãƒãƒ¼ãƒ¬ãƒ³ãƒ„ãŒã“ã®è«–æ–‡ã§ä¸ŽãˆãŸã®ã¯ã€
p=10
r=28
b=8/3
ã§ã‚りã€ã“ã®å…ƒã«è§£ã‹ã‚Œã‚‹X,Y,Zã®è»Œè·¡ï¼ˆã‚¢ãƒˆãƒ©ã‚¯ã‚¿ï¼‰ãŒç¤ºã•れãŸã€‚
ã“ã®æ–¹ç¨‹å¼ã‚’ç§ã‚‚è§£ã„ã¦ã¿ãŸã€‚Octaveã¨ã„ã†GNUã®ã‚½ãƒ•トを使ã„è§£ã。
>function xdot=f(x,t)
xdot=zeros(1,3)
xdot(1)=-10*x(1)+10*x(2)
xdot(2)=-x(1)*x(3)+28*x(1)-x(2)
xdot(3)=x(1)*x(2)-8/3*x(3)
endfunction
>x0=[1;1;1];
>t=linspace(0,500,1000);
>x=lsode("f",x0.t);
>plot(t,x);
以上ã®è¨å®šã§è§£ã‘ã‚‹ã¯ãšã§ã‚る。

アトラクタã¯ç¤ºã›ãªã„ãŒã€ç¢ºã‹ã«ã‚«ã‚ªã‚¹çš„è§£ãŒå¾—られる。ã“ã®ã“ã¨ãŒæµä½“ã®ãµã‚‹ã¾ã„を示ã—ã¦ã„ã‚‹ã¨è¨€ã†ã®ã„ã§ã‚る。アトラクタを示ã›ã°ã‚ˆã‚Šã‚ã‹ã‚Šæ˜“ã„ã§ã‚ã‚ã†ãŒã€ãŸã¨ãˆã°å°å·ã®ä¸ã®çŸ³ã®å‘¨ã‚Šã®æµã‚ŒãŒã“ã®ã“ã¨ã‚’表ã—ã¦ã„る。åŒã˜ã‚ˆã†ãªãƒ‘ã‚¿ãƒ¼ãƒ³ã®æµã‚Œã‚’示ã—ãŸã‹ã¨æ€ãˆã°ç•°ãªã‚‹ãƒ‘ターンã«ã±ã£ã¨å¤‰ã‚りã€ã¾ãŸå…ƒã«æˆ»ã‚Šã“れãŒéžå‘¨æœŸçš„ã«èµ·ã“る。å·ã®ä¸ã®çŸ³ã®å‘¨ã‚Šã®æµã‚Œã‚’ã˜ã£ã¨è¦‹ã¦ä½™ç”Ÿã‚’éŽã”ã—ãŸãƒ¬ã‚ªãƒŠãƒ«ãƒ‰ãƒ»ãƒ€ãƒ»ãƒ“ンãƒã‚‚ã“ã†ã„ã£ãŸã“ã¨ãŒé€£ç«‹å¸¸å¾®åˆ†æ–¹ç¨‹å¼ã®åˆæœŸå€¤å•題ã§ã“ã‚“ãªã“ã¨ãŒè¡¨ã›ã‚‹ã¨æ°—ã¥ã„ãŸã‚‰ã•ãžã‹ã—喜んã ã§ã‚ã‚ã†ã€‚
writeback message: Ready to post a comment.