[Tip] 히포차트로 데이터의 추세선을 그려보자.

HippoChart/Tips 2009. 8. 26. 18:59

추세선 구하는 메소드

        private Series GetTrendSeries(SeriesList sList)
        {
            Series TrSr = new Series();
            TrSr.SeriesColor = Color.Blue;
            TrSr.ChartType = ChartType.Line;

double a = 0;
double b = 0;

            double[,] MatrixL = new double[2, 2];
            double[,] InverseMatrixL = new double[2, 2];
            double[] MatrixR = new double[2];

            int totalcount = 0;

            foreach (Series sr in sList.SeriesCollection)
            {
                foreach (SeriesItem item in sr.items)
                {
                    MatrixL[0, 0] = MatrixL[0, 0] + 1;
                    MatrixL[1, 0] += item.XValue * 1;
                    MatrixL[0, 1] += item.XValue * 1;
                    MatrixL[1, 1] += item.XValue * item.XValue;

MatrixR[0] += item.YValue * 1;
MatrixR[1] += item.YValue * item.XValue;

                    totalcount++;
                }
            }

            // 역행렬을 만드는 공식에서 ad - bc 체크
            double adMinusbc = MatrixL[0, 0] * MatrixL[1, 1] - MatrixL[1, 0] * MatrixL[0, 1];

            if (adMinusbc != 0)
            {
                InverseMatrixL[0, 0] = MatrixL[1, 1] / adMinusbc;
                InverseMatrixL[1, 0] = (MatrixL[1, 0] * (-1)) / adMinusbc;
                InverseMatrixL[0, 1] = (MatrixL[0, 1] * (-1)) / adMinusbc;
                InverseMatrixL[1, 1] = MatrixL[0, 0] / adMinusbc;

                a = (InverseMatrixL[0, 0] * MatrixR[0] + InverseMatrixL[1, 0] * MatrixR[1]);
                b = (InverseMatrixL[0, 1] * MatrixR[0] + InverseMatrixL[1, 1] * MatrixR[1]);

                // 해당 시리즈 만들기
                for (int i = 0; i < totalcount; i++)
                {
                    SeriesItem tritem = new SeriesItem();
                    tritem.XValue = i;
                    tritem.YValue = (float)(b * i + a);

                    TrSr.items.Add(tritem);
                }
            }
            else // 나누는 분모가 0이 되므로 불능
            {
                // 해당 시리즈 만들기
                for (int i = 0; i < totalcount; i++)
                {
                    SeriesItem tritem = new SeriesItem();
                    tritem.XValue = i;
                    tritem.YValue = 0;

                    TrSr.items.Add(tritem);
                }
            }

return TrSr;
}

위 제공된 메소드를 프로젝트에 삽입하고

sList.SeriesCollection.Add(this.GetTrendSeries(sList));

와 같이 본래의 시리즈리스트에 추세션 시리즈를 추가해주면 된다.

아래 전체 코드 참고하세요.

C#

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

namespace LeastSquareSolution
{
    public partial class Form1 : Form
    {
        public Form1()
        {
            InitializeComponent();
        }

private string[] figures;

        private void Form1_Load(object sender, EventArgs e)
        {
            draw();
        }

        private void draw()
        {
            SeriesList sList = new SeriesList();
            sList.ChartType = ChartType.Scatter;

            Random r = new Random();
            for (int i = 0; i < 1; i++)
            {
                Series sr = new Series();
                sr.Points.Width = 4;
                sr.Points.PointType = PointType.FillCircle;

                for (int x = 0; x < 150; x++)
                {
                    SeriesItem item = new SeriesItem();
                    item.XValue = x;

                    item.YValue = r.Next(500) * x + 13;

                    sr.items.Add(item);
                }
                sList.SeriesCollection.Add(sr);
            }

sList.SeriesCollection.Add(this.GetTrendSeries(sList));

            this.hHippoChart1.LegendBox.Visible = false;
            this.hHippoChart1.Titles.Label.ForeColor = Color.SteelBlue;
            this.hHippoChart1.DesignType = ChartDesignType.Simple;
            this.hHippoChart1.SeriesListDictionary.Add(sList);
            this.hHippoChart1.DrawChart();
        }

        private void button1_Click(object sender, EventArgs e)
        {
            this.hHippoChart1.SeriesListDictionary.Clear();

draw();
}

        private Series GetTrendSeries(SeriesList sList)
        {
            Series TrSr = new Series();
            TrSr.SeriesColor = Color.Blue;
            TrSr.ChartType = ChartType.Line;

double a = 0;
double b = 0;

            double[,] MatrixL = new double[2, 2];
            double[,] InverseMatrixL = new double[2, 2];
            double[] MatrixR = new double[2];

MatrixR[0] += item.YValue * 1;
MatrixR[1] += item.YValue * item.XValue;

                    totalcount++;
                }
            }

                    TrSr.items.Add(tritem);
                }
            }

            return TrSr;
        }
    }
}

Imports System
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Text
Imports System.Windows.Forms
Imports Hippo

Namespace LeastSquareSolution
    Public Partial Class Form1
        Inherits Form
        Public Sub New()
            InitializeComponent()
        End Sub

        Private figures As String()

        Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs)
            draw()
        End Sub

        Private Sub draw()
            Dim sList As New SeriesList()
            sList.ChartType = ChartType.Scatter

            Dim r As New Random()
            For i As Integer = 0 To 0
                Dim sr As New Series()
                sr.Points.Width = 4
                sr.Points.PointType = PointType.FillCircle

                For x As Integer = 0 To 149
                    Dim item As New SeriesItem()
                    item.XValue = x

                    item.YValue = r.[Next](500) * x + 13

                    sr.items.Add(item)
                Next
                sList.SeriesCollection.Add(sr)
            Next

            sList.SeriesCollection.Add(Me.GetTrendSeries(sList))


            Me.hHippoChart1.LegendBox.Visible = False
            Me.hHippoChart1.Titles.Label.ForeColor = Color.SteelBlue
            Me.hHippoChart1.DesignType = ChartDesignType.Simple
            Me.hHippoChart1.SeriesListDictionary.Add(sList)
            Me.hHippoChart1.DrawChart()
        End Sub

        Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs)
            Me.hHippoChart1.SeriesListDictionary.Clear()

            draw()
        End Sub

        Private Function GetTrendSeries(ByVal sList As SeriesList) As Series
            Dim TrSr As New Series()
            TrSr.SeriesColor = Color.Blue
            TrSr.ChartType = ChartType.Line

            Dim a As Double = 0
            Dim b As Double = 0

            Dim MatrixL As Double(,) = New Double(1, 1) {}
            Dim InverseMatrixL As Double(,) = New Double(1, 1) {}
            Dim MatrixR As Double() = New Double(1) {}

            Dim totalcount As Integer = 0

            For Each sr As Series In sList.SeriesCollection
                For Each item As SeriesItem In sr.items
                    MatrixL(0, 0) = MatrixL(0, 0) + 1
                    MatrixL(1, 0) += item.XValue * 1
                    MatrixL(0, 1) += item.XValue * 1
                    MatrixL(1, 1) += item.XValue * item.XValue

                    MatrixR(0) += item.YValue * 1
                    MatrixR(1) += item.YValue * item.XValue

                    totalcount += 1
                Next
            Next

            ' 역행렬을 만드는 공식에서 ad - bc 체크
            Dim adMinusbc As Double = MatrixL(0, 0) * MatrixL(1, 1) - MatrixL(1, 0) * MatrixL(0, 1)

            If adMinusbc <> 0 Then
                InverseMatrixL(0, 0) = MatrixL(1, 1) / adMinusbc
                InverseMatrixL(1, 0) = (MatrixL(1, 0) * (-1)) / adMinusbc
                InverseMatrixL(0, 1) = (MatrixL(0, 1) * (-1)) / adMinusbc
                InverseMatrixL(1, 1) = MatrixL(0, 0) / adMinusbc

                a = (InverseMatrixL(0, 0) * MatrixR(0) + InverseMatrixL(1, 0) * MatrixR(1))
                b = (InverseMatrixL(0, 1) * MatrixR(0) + InverseMatrixL(1, 1) * MatrixR(1))

                ' 해당 시리즈 만들기
                For i As Integer = 0 To totalcount - 1
                    Dim tritem As New SeriesItem()
                    tritem.XValue = i
                    tritem.YValue = CSng((b * i + a))

                    TrSr.items.Add(tritem)
                Next
            Else
                ' 나누는 분모가 0이 되므로 불능
                ' 해당 시리즈 만들기
                For i As Integer = 0 To totalcount - 1
                    Dim tritem As New SeriesItem()
                    tritem.XValue = i
                    tritem.YValue = 0

                    TrSr.items.Add(tritem)
                Next
            End If

            Return TrSr
        End Function
    End Class
End Namespace

저작자표시 비영리 변경금지

사업자 정보 표시

'HippoChart > Tips' 카테고리의 다른 글

히포차트와 스크롤 기능을 응용하여 대량의 데이터를 그려보자. (0)	2010.03.05
[Tip] 차트 구간 확대 기능 만들기(x축) (0)	2009.09.24
[Tip] 차트 구간 확대 기능 만들기 (4)	2009.09.23
[Tip] 웹(ASP.NET)에서 실시간 차트를 그려보자. (Web RealTime Chart) (4)	2009.09.07
[Tip] 히포차트로 Pareto Chart(파레토 차트)를 그려보자. (0)	2009.04.20

Posted by 리바이 병장

[Tip] 히포차트로 데이터의 추세선을 그려보자.

'HippoChart > Tips' 카테고리의 다른 글

카테고리

최근에 올라온 글

최근에 달린 댓글

링크

티스토리툴바


	닷넷 차트 컨트롤 히포차트의 개발 방법과 다양한 사용 예를 알아봅니다. 문의 사항은 hippochart@gmail.com by 리바이 병장