Tweet

Amoxicillin 500 mg Capsules buy amoxicillin australia bollebygdsbil.se buy amoxicillin liquid buy prednisolone for dogs buy prednisolone 25mg tablets tamoxifen dosage tamoxifen buy accutane pills buy accutane uk click here cheap accutane buy albuterol sulfate inhaler albuterol inhaler side effects open buy albuterol inhaler from mexico accutane without birth control buy accutane europe sertraline mastercard antidepressant online delivery blog.tgworkshop.com sertraline online 히포차트의 이중축 혼합형 기능을 이용하여 파레토 차트를 그릴 수 있습니다.

        

C#

 
Random r = new Random();

SeriesList sList2 = new SeriesList();
sList2.ChartType = ChartType.Column;

Series sr = new Series();

for(int x = 0; x < 5; x++)
{
SeriesItem item = new SeriesItem();
item.Name = "item" + x.ToString();
item.YValue = 90 - x * 10 - 33;

sr.items.Add(item);
}

sList2.SeriesCollection.Add(sr);

this.hHippoChart1.PaletteType = PaletteType.Classic;
this.hHippoChart1.SeriesListDictionary.Add(sList2);
this.hHippoChart1.DrawChart();

//파레토 라인 추가
Series NewSeries = new Series();
NewSeries.Line.LineWidth = 7;
NewSeries.Points.Width = 7;
NewSeries.Points.PointType = PointType.Circle;

Axis paax = new Axis(AxisType.Ytype);
paax.FigureFormat = FigureFormat.Percent;
paax.Decimalpoint = 0;
paax.SetAxisStep(0, 1.2, 0.2);

sList2.AxisFactor.AxisItems.Clear();
sList2.AxisFactor.AxisItems.Add(paax);

NewSeries.Name = "Pareto";
NewSeries.AxisIndex = 1;
NewSeries.ChartType = ChartType.Line;

double UnitSpan = sList2.AxisFactor.YAxis.MaxUnitValue;

// 총 항목들의 합
float Sum = (float)sList2.AxisFactor.YAxis.AnalysisItems[AnalysisCategory.Sum].Value;

// 누적되면서 계속 더해지는 값
double SumPart = 0;

foreach(SeriesItem item in sList2.SeriesCollection[0].items)
{
SumPart += item.YValue;

SeriesItem item2 = new SeriesItem();
item2.YValue = (float)(SumPart / (Sum));
item2.Name = item.Name;

NewSeries.items.Add(item2);
}

sList2.SeriesCollection.Add(NewSeries);
this.hHippoChart1.DrawChart();

VB

 
Dim r As New. Random()

Dim sList2 As New. SeriesList()
sList2.ChartType = ChartType.Column

Dim sr As New. Series()

For x As Integer = 0 To 4
Dim item As New. SeriesItem()
item.Name = "item" + x.ToString()
item.YValue = 90 - x * 10 - 33

sr.items.Add(item)
Next

sList2.SeriesCollection.Add(sr)

Me.hHippoChart1.PaletteType = PaletteType.Classic
Me.hHippoChart1.SeriesListDictionary.Add(sList2)
Me.hHippoChart1.DrawChart()

`파레토 라인 추가
Dim NewSeries As New. Series()
NewSeries.Line.LineWidth = 7
NewSeries.Points.Width = 7
NewSeries.Points.PointType = PointType.Circle

Dim paax As New. Axis(AxisType.Ytype)
paax.FigureFormat = FigureFormat.Percent
paax.Decimalpoint = 0
paax.SetAxisStep(0, 1.2, 0.2)

sList2.AxisFactor.AxisItems.Clear()
sList2.AxisFactor.AxisItems.Add(paax)

NewSeries.Name = "Pareto"
NewSeries.AxisIndex = 1
NewSeries.ChartType = ChartType.Line

Dim UnitSpan As Double = sList2.AxisFactor.YAxis.MaxUnitValue

` 총 항목들의 합
Dim Sum As Single = CSng(sList2.AxisFactor.YAxis.AnalysisItems(AnalysisCategory.Sum).Value)

` 누적되면서 계속 더해지는 값
Dim SumPart As Double = 0

For Each item As SeriesItem In sList2.SeriesCollection(0).items
SumPart += item.YValue

Dim item2 As New. SeriesItem()
item2.YValue = CSng(SumPart / (Sum))
item2.Name = item.Name

NewSeries.items.Add(item2)
Next

sList2.SeriesCollection.Add(NewSeries)
Me.hHippoChart1.DrawChart()