K-means聚类C#实现

一个K-means聚类C#实现的Form程序，希望对大家课程实践有帮助！

using System;
using System.Collections;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;

namespace hahaaha
{
    
    public partial class Form1 : Form
    {
        public Form1（）
        {
            InitializeComponent（）;

        }

        Random r = new Random（）;
        public List medls = new List（）;
        ran ra1 = new ran（）;
        List> llst = new List>（）;
        private void button1_Click_1（object sender EventArgs e）
        {
            //List medls = new List（）;
            List al = new List（）;
            ran ra1 = new ran（）;
            List listarray = new List（）;
            Pen p1 = new Pen（Brushes.Red 2）;
            listarray.Add（p1）;
            Pen p2 = new Pen（Brushes.Green 2）;
            listarray.Add（p2）;
            Pen p3 = new Pen（Brushes.Blue 2）;
            listarray.Add（p3）;
            Pen p4 = new Pen（Brushes.Gold 2）;
            listarray.Add（p4）;
            Pen p5 = new Pen（Brushes.Black 2）;
            listarray.Add（p5）;
            Pen p6 = new Pen（Brushes.Chocolate 2）;
            listarray.Add（p6）;

            Graphics g = pictureBox1.CreateGraphics（）;
            int pn = Convert.ToInt32（textBox1.Text）;
            int cn = Convert.ToInt32（comboBox1.Text）;
            int x1 = 0;
            int y1 = 0;
            int avx = 0;
            int avy = 0;
            int width = pictureBox1.Width-20;
            int height = pictureBox1.Height-20;
            for （int j = 1; j <= pn; j++）
            {
                ran ra = new ran（）;
                ra.X = r.Next（0width）;
                ra.Y = r.Next（0 height）;
                al.Add（ra）;
            }

            llst = ra1.display（cn al）;
            //count（llst）;
            for （int m = 0; m < llst.Count; m++）
            {
                foreach （ran r in llst[m]）
                {
                    x1 += r.X;
                    y1 += r.Y;
                    g.DrawRectangle（listarray[m] r.X r.Y 2f 2f）;
                }
                ran medra = new ran（）;
                avx = x1 / llst[m].Count;
                avy = y1 / llst[m].Count;
                medra.X = avx;
                medra.Y = avy;
                medls.Add（medra）;
                g.DrawEllipse（listarray[m] avx - 10 avy - 10 20 20）;
                x1 = 0;
                y1 = 0;
            }
        }

        private void button2_Click（object sender EventArgs e）
        {
            //textBox2.Invalidate（）;
            List listarray = new List（）;
            Pen p1 = new Pen（Brushes.Red 2）;
            listarray.Add（p1）;
            Pen p2 = new Pen（Brushes.Green 2）;
            listarray.Add（p2）;
            Pen p3 = new Pen（Brushes.Blue 2）;
            lis

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件      13824  2009-06-02 09:38  王龙飞--聚类\hahaaha\bin\Debug\hahaaha.exe

     文件      44544  2009-06-02 09:38  王龙飞--聚类\hahaaha\bin\Debug\hahaaha.pdb

     文件      14328  2009-06-02 09:40  王龙飞--聚类\hahaaha\bin\Debug\hahaaha.vshost.exe

     文件        490  2007-07-21 01:33  王龙飞--聚类\hahaaha\bin\Debug\hahaaha.vshost.exe.manifest

     文件     614400  2009-05-19 19:30  王龙飞--聚类\hahaaha\bin\Release\hahaaha.exe

     文件      22016  2009-05-19 19:30  王龙飞--聚类\hahaaha\bin\Release\hahaaha.pdb

     文件       5261  2009-05-31 21:25  王龙飞--聚类\hahaaha\Form1.cs

     文件       7424  2009-05-31 21:25  王龙飞--聚类\hahaaha\Form1.Designer.cs

     文件       5814  2009-05-31 21:25  王龙飞--聚类\hahaaha\Form1.resx

     文件       3808  2009-06-02 09:38  王龙飞--聚类\hahaaha\hahaaha.csproj

     文件         74  2009-05-19 19:30  王龙飞--聚类\hahaaha\hahaaha.csproj.user

     文件       2620  2009-06-02 09:40  王龙飞--聚类\hahaaha\obj\Debug\hahaaha.csproj.FileListAbsolute.txt

     文件        847  2009-06-02 09:38  王龙飞--聚类\hahaaha\obj\Debug\hahaaha.csproj.GenerateResource.Cache

     文件      13824  2009-06-02 09:38  王龙飞--聚类\hahaaha\obj\Debug\hahaaha.exe

     文件        180  2009-06-02 09:38  王龙飞--聚类\hahaaha\obj\Debug\hahaaha.Form1.resources

     文件      44544  2009-06-02 09:38  王龙飞--聚类\hahaaha\obj\Debug\hahaaha.pdb

     文件        180  2009-06-02 09:38  王龙飞--聚类\hahaaha\obj\Debug\hahaaha.Properties.Resources.resources

     文件       1246  2009-05-19 19:39  王龙飞--聚类\hahaaha\obj\Release\hahaaha.csproj.FileListAbsolute.txt

     文件        847  2009-05-19 19:30  王龙飞--聚类\hahaaha\obj\Release\hahaaha.csproj.GenerateResource.Cache

     文件     614400  2009-05-19 19:30  王龙飞--聚类\hahaaha\obj\Release\hahaaha.exe

     文件     605748  2009-05-19 19:30  王龙飞--聚类\hahaaha\obj\Release\hahaaha.Form1.resources

     文件      22016  2009-05-19 19:30  王龙飞--聚类\hahaaha\obj\Release\hahaaha.pdb

     文件        180  2009-05-19 19:30  王龙飞--聚类\hahaaha\obj\Release\hahaaha.Properties.Resources.resources

     文件        488  2009-05-19 19:10  王龙飞--聚类\hahaaha\Program.cs

     文件       1370  2009-05-19 19:10  王龙飞--聚类\hahaaha\Properties\AssemblyInfo.cs

     文件       2865  2009-05-19 19:10  王龙飞--聚类\hahaaha\Properties\Resources.Designer.cs

     文件       5612  2009-05-19 19:10  王龙飞--聚类\hahaaha\Properties\Resources.resx

     文件       1092  2009-05-19 19:10  王龙飞--聚类\hahaaha\Properties\Settings.Designer.cs

     文件        249  2009-05-19 19:10  王龙飞--聚类\hahaaha\Properties\Settings.settings

     文件       3529  2009-05-28 17:34  王龙飞--聚类\hahaaha\ran.cs

............此处省略19个文件信息