コンピュータは働きたくて、いつもウズウズしています!   Data + Automation = Datamation
TEXT_SIZE

517 非階層クラスター分析プログラム

非階層クラスター分析は、サンプルを指定するグループ数に分類する時に使用します。
グループの方法はK-means法を適用します。
この方法は、グループの中心からサンプルまでの間の距離が最小となるように出し入れ
を行い収束させて分類します。


サンプルデータ


設定画面

アドイン接続後、メニューから「非階層クラスター」をクリックすると、次のようにメニューが表示されます。

データの行列範囲:

分析をしたい範囲をマウスでドラッグし範囲制定します。

行列のラベル:

データラベルを含めて範囲選択をした場合は、「共にあり」をマウスでクリックして選択します(データラベルは、行列ともに含める必要があります)。

分類数:

分類数を数字で入力します。

出力先:

出力を開始したいセルを1か所マウスでクリックして選択します。

設定が済んだら、「開始」ボタンをクリックします。
「中止」ボタンをクリックすると、操作を中止します。


出力結果


参考:

サンプルデータをもとに解法手順を以下に示します。

Cl=3の時 = 6

  1. 距離を計算し、大きい順にソートする。

  2. 上のようにグループの中心を設定する。
  3. 基のデータに戻す。(dd列で、昇順ソートする。)
  4. 次のように k1、k2、k3との距離を計算する。
  5. 最小距離のKを結果の欄に記入する。 右のように、分類区分kでソートし、分類する。

  6. 分類した新規のK1,K2、K3の重心(平均値)を計算する。

  7. 判定する。

    2乗誤差が0になっていないので、4に戻って繰り返す。
  8. 次のように k1、k2、k3との距離を計算する。
  9. 最小距離のKを結果の欄に記入する。 右のように、分類区分kでソートし分類する。

  10. 分類した新規のK1,K2、K3の重心(平均値)を計算する。

  11. 判定する

    2乗誤差が0になっていないので、再び4に戻って繰り返す。

  12. 次のように k1、k2、k3との距離を計算する。

  13. 最小距離のKを結果の欄に記入する。 右のように、分類区分kでソートし、分類する。

  14. 分類した新規のK1,K2、K3の重心(平均値)を計算する。

  15. 判定する

    2乗誤差が0になっていないので、再び4に戻って繰り返す。

  16. 次のように k1、k2、k3との距離を計算する。

  17. 最小距離のKを結果の欄に記入する。 右のように、分類区分kでソートし分類する。


     
  18. 分類した新規のK1,K2、K3の重心(平均値)を計算する。
  19. 判定する

    2乗誤差が、0でないので繰り返す。
     
  20. 次のように k1、k2、k3との距離を計算する。
  21. 最小距離のKを結果の欄に記入する。 右のように、分類区分kでソートし、分類する。
  22. 分類した新規のK1,K2、K3の重心(平均値)を計算する。
  23. 判定する

    2乗誤差が、0でないので繰り返す。
     
  24. 次のように k1、k2、k3との距離を計算する。
     
  25. 最小距離のKを結果の欄に記入する。 右のように、分類区分kでソートし分類する。
  26. 分類した新規のK1,K2、K3の重心(平均値)を計算する。
  27. 判定する

    2乗誤差が、0であるので終了する。

アドインプログラム販売価格: ¥4,000.-(税込) 
※販売のみを行っております。ご質問対応等のサポート及び改変は承っておりません

ご注文はこちらから。別途、注文フォームが開きます。

VBAソースコード販売価格: ¥90,000.-(税込)
※コードの内容は、上記標準版の内容の通りです
※サポート・ご質問の対応・改変のご依頼を承ることはできかねます


▲動作環境・アドイン接続方法など▲

動作環境

日本語版Windows用 日本語版Microsoft Excel2003以降(推奨)が快適に動作するパソコン。
Excelのアドイン「分析ツール-VBA」のアドイン接続を必ず行い、マクロを使用可能にして下さい。
その他は、Microsoft Excelの仕様に基づきます。

なおMicrosoft社によるサポートが終了したバージョンのExcelを使用したときのいかなる障害・損害・不便などにおきましては、当方では責任を負いかねます。
予めご了承ください。

アドイン接続方法・
ソフトウェア使用許諾

addman03     addman07

※Excel2016・2019も右側の「Excel2007・2010・2013用」をお選びください

    get adobe_reader

※カスタマイズは対応不可となりました(2019年1月)

お支払方法・納品方法などについては……

特定商取引に関する法律に基づく表記をご覧ください。

Excel用アドインプログラム