R,VBアプリなど ➡ ビデオ

  • Rosslerのアトラクタ[Elgar]
            dx =- y - z          (a =0.2, b = 0.2, c = 4.5)
      	dy = x + a*y	
    	dz = b - c * z + x * z
    
  • Lorentzのアトラクタ[歌の翼に]
         dX = p*X-q*Z*Y-r*Y                 (p =-50,   q =10,   r=20)
         dY = Z 
         dZ = X
    
  • 平面を立体に[Beethoven 春]
         dX = sin(Y)*X-1.8*Y+sqrt(X^2+1)+exp(-Y)      
         dY = X  
    
  • 小球回転[瞑想曲]
         xx=floor(rnorm(1300, mean=50, sd=50))
         yy=floor(rnorm(1300, mean=50, sd=50))
         zz=floor(rnorm(1300, mean=50, sd=50))
    
  • 火山口[Mozart]
         テキストデータ
    
  • Chaos[Schubert]

  • VB惑星運動[Chopin]