- ベストアンサー
リサージュ図形を動かせるマクロ フリーソフトは?
- みんなの回答 (1)
- 専門家の回答
質問者が選んだベストアンサー
質問者さんのご所望のものかどうかわかりませんが、 リサージュ図形を描く単純なVBAマクロをつくってみました。 A列に x=A*cos(c*t) B列に y=B*sin(d*t+e) を出力していくものです。 データ点数はNpoint 時間ステップはTdelta でVBAプログラムの中で指定します。 tは0からNpoint*Tdelta までの値を動きます。 sleep関数で動きを遅くしていますので A列とB列をプロットするようにグラフを作っておくと リサージュ曲線が描かれる様子がわかります。 添付の動画をご覧ください。 以下プログラムです。これをVBAのsheet1などにコピーして 実行すれば動きます。 Private Declare Sub Sleep Lib "KERNEL32.dll" (ByVal dwMilliseconds As Long) Sub Lissajous() ''定数設定 Const A = 1# Const B = 1# Const c = 1# Const d = 1.234567 Const e = 0 Const Npoint = 500 Const Tdelta = 0.05 ''変数定義 Dim i As Long Dim t As Double Dim x As Double Dim y As Double ''初期化 Columns("A:B").Select Selection.ClearContents Range("A1").Select ''計算開始 t = 0 For i = 1 To Npoint Step 1 x = A * Cos(c * t) y = B * Sin(d * t + e) t = t + Tdelta Cells(i, 1) = x Cells(i, 2) = y ''図形を見やすくするため動きを止める DoEvents Sleep 10 Next i End Sub
関連するQ&A
- リサージュ図形について
物理でリサージュ図形について実験しました。 リサージュ図形は、ゆっくり動くように調節はできますが、静止させることはできませんでした。 どうしてリサージュ図形は、静止させることができなかったのですか?
- ベストアンサー
- 物理学
- リサージュ図形に関して
リサージュ図形に関して オシロスコープでリサージュ図形を観察した後の課題なのですが、 Y軸とX軸の周波数が1:1のとき図形が止まらないで動いているのはどうしてでしょうか? 別の質問の回答で同じ周波数で位相差だけが連続的に変化しているからというのがあったのですが…よくわかりませんでした。 あと、リサージュ図形「8(みたいな形)」「S(みたいな形)」になることをX-Yの振動を合成して作図によって確かめろとあるのですが、これはx軸、Y軸の点をプロットして結ぶだけでいいのですかね? どなたかわかりやすく教えてください。
- ベストアンサー
- 物理学
- リサージュ図形について
オシロスコープによって描かれたリサージュ図形の面積を求めるということは何を求めるということなのですか? また二重絶縁層構造薄膜EL素子のリサージュ図形が平行四辺形のような形になるのはなぜなのでしょうか? よろしくお願いします!
- 締切済み
- 物理学
お礼
大変有難うございました。 さっそく試してみます!