[[20051222183248]]　『簡単なサイン波形の作り方』（まこ）　ページの最後に飛ぶ

『簡単なサイン波形の作り方』（まこ）

エクセル上で簡単なサイン波形、例えば振幅が２で周期が２Hzのような感じで作成したいのですが、いい方法ありませんか？？

 >振幅が２で周期が２Hzのような...
 正確には難しいかと思いますが、
 図形で作成する方法も有りますが、グラフで「一見波形」の方法です。

  1
  2
  1
  2
  1
  2
  1
  2
  1
  2
 ↑このようなデータで折れ線グラフを作り
  [データ系列の書式設定]で[スムージング(M)]にチェックを入れ
 [グラフエリア]　[プロットエリア]　の書式設定を なし　にして
 [X軸]　[Y軸]　[目盛線]　[凡例]　をクリア
 グラフエリアのサイズを調整して波形のベストサイズを探します。

 グラフをクリックして、Shiftキーを押しながらメニューの編集～図のコピー
 シートの適当なところをクリックして貼り付けます。

 データの数値を色々変えたり
 図形サイズを調整すれば、何とか波形に見えるかもしれませんね。　　（jun53）

ありがとうございます！早速試してみたいと思います。（まこ）

 どの程度の精度のものが欲しいのか分かりませんが、SIN 関数で値を求めてグラフ化
 すれば、かなり正確なものが得られます。
 周期2Hzというのは表現がおかしいですね。横軸は秒単位でしょうか？
	A	B
 　　1	秒	サイン
 　　2	0	=2*SIN(4*PI()*A2)
 　　3	0.01	：
 　　4	 ：	：
 で、散布図を作りましょう。
 秒は0.01刻みでなくてもかまいません。適当に変更してみましょう。
 (ちゅうねん)

 あは、なんともまぁ古い質問ページが上がってきましたね。なんででしょ？
 ついでだから、区切り線を入れて見やすくしました。

（jun53） 2014/07/10(木) 16:22

 このページは何回かサルベージされているような気がします。
 その度に差分を見ても何も証拠は残っておらず・・・。
（カリーニン） 2014/07/10(木) 18:55

 既に参照する人もいないと思うので、単なる興味本位ですけれど、
 マクロの例です。

 '---------------------------------------------------
 '// 円周率
 Const PI = 3.14159265359

 '// 原点座標
 Const OrgX = 350#
 Const OrgY = 350#

 '// 1 のスケール
 Const ScaleRatio = 100#
 '---------------------------------------------------
 Sub Sample()
 '---------------------------------------------------
    Worksheets.Add
    ActiveSheet.Cells.Interior.ColorIndex = 2

 '// 座標軸
    DrawLine -3.1, 0, 3.1, 0, RGB(0, 0, 200)
    DrawLine 0, -3.1, 0, 3.1, RGB(0, 0, 200)

 '// 軸上の整数点
    Dim i As Double
    For i = -3 To 3
        DrawLine 0.03, i, -0.03, i, RGB(0, 0, 200)
        DrawLine i, 0.03, i, -0.03, RGB(0, 0, 200)
    Next

 '// 関数の描画
    Const dx = 0.03
    Dim x As Double
    For x = -2 To 2 - dx Step dx
        DrawLine x, f(x), x + dx, f(x + dx), RGB(255, 0, 0)
    Next
 End Sub

 '// 関数
 '---------------------------------------------------
 Function f(x As Double) As Double
 '---------------------------------------------------
    f = 2 * Sin(2 * x * PI)
 End Function

 '// 直線描画処理
 '---------------------------------------------------
 Sub DrawLine(sx, sy, ex, ey, cl)
 '---------------------------------------------------
    With ActiveSheet.Shapes.AddLine(OrgX + sx * ScaleRatio, OrgY + sy * ScaleRatio, _
        OrgX + ex * ScaleRatio, OrgY + ey * ScaleRatio).Line
            .ForeColor.RGB = cl
            .Weight = 0.5
    End With
 End Sub

（Mook） 2014/07/10(木) 20:29

過去何度かあったんですね

差分を残さない方法はいくつかありますが

誰が、なんの目的で上げてるかが気になったのです

区切り線の事もありましたけど

（jun53） 2014/07/10(木) 22:30

コメント返信：

[ 一覧(最新更新順) ]

[[20051222183248]] 『簡単なサイン波形の作り方』（まこ） ページの最後に飛ぶ

[[20051222183248]]　『簡単なサイン波形の作り方』（まこ）　ページの最後に飛ぶ