乗りログ > 波の合成

 的な点を打つものをなでしこで作ってみました。
かなり手抜きなので、何にも使えませんがw
学校で波の説明をするときに、Excel VBAでやっているみたいだったので、なでしこでできないことはあるまい! と…
まぁVBAのは動かせてましたが、これは今のままで動かすと重いので却下。
それ以前にすぐ消えちゃうw
いやその前にまだ点でグラフじゃないし…

何か間違いありそうなので、あったら連絡ください。
#一度修正<変換されてた


以下ソース。

波1とは配列。
波2とは配列。
 
Z=70。//時間? 0~630で指定
630回
 X=「{回数}」。
 X,200へウィンドウ背景色を点描画。
 X2=COS(DEG2RAD(X*2+90))*100
 X+Z,1へ赤色を点描画。
 X+Z,X2+200へ赤色を点描画。
 波1にCOS(DEG2RAD(X*2+90))*100を配列追加。
 
 630-X-Z,2へ青色を点描画。
 630-X-Z,X2+200へ青色を点描画。
 波2の0にX2を配列挿入。
 
波1を反復
 X=「{回数}」。
 もしX<Z+1ならば
  X2=波2[X+Z]。
 違えば
  X2=波1[X-Z-1]+波2[X+Z]。
 X,0へ黒色を点描画。
 X,X2+200へ黒色を点描画。

コメントを残す

メールアドレスが公開されることはありません。