Home 소개       다운로드       온라인 설명서      주식/코인 차트    Q & A     Blog    

WaterFall chart







컬럼 차트 Range 기능을 이용해서 그려본 WaterFall chart




Column chart - Gradation  Column chart - 3D, GridDirection, WidthType  Column chart - AxisOrientation, PaletteType  Range Column Chart   WaterFall chart  [히포차트 4.2] Boxplot(박스 플롯) 차트  히포차트 4.3 - 렌코차트(Renko chart) 샘플  


C#
 
double[] datas = new double[7] { 23.1, 11.6, 23.5, -70.9, 22.9, 45.2, 30 };

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

Random r = new Random();
for(int i = 0; i < 1; i++)
{
Series sr = new Series();
sr.ColumnRangeType = ColumnRangeType.Range;

for(int x = 0; x < 7; x++)
{
SeriesItem item = new SeriesItem();
item.Name = x.ToString();

double sval = 0;

if (x == 0)
{
sval = 0;
}
else
{
//sval = datas[x - 1];

for(int zz = 0; zz < x; zz++)
{
sval += datas[zz];
}
}

double val1 = datas[x] + sval;
double val2 = sval;

if (val1 > val2)
{
item.YValue = val1;
item.YStartValue = val2;

item.ItemColor = Color.YellowGreen;
}
else
{
item.YValue = val2;
item.YStartValue = val1;

item.ItemColor = Color.Red;
}

sr.items.Add(item);
}
sList.SeriesCollection.Add(sr);
}
this.hHippoChart1.LegendBox.Visible = false;
this.hHippoChart1.SeriesListDictionary.Add(sList);
this.hHippoChart1.DrawChart();


VB
 
Dim datas As Double() = New Double(6) {23.1, 11.6, 23.5, -70.9, 22.9, 45.2, _
30}

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

Dim r As New. Random()
For i As Integer = 0 To 0
Dim sr As New. Series()
sr.ColumnRangeType = ColumnRangeType.Range

For x As Integer = 0 To 6
Dim item As New. SeriesItem()
item.Name = x.ToString()

Dim sval As Double = 0

If x = 0 Then
sval = 0
Else
`sval = datas[x - 1];

For zz As Integer = 0 To x - 1
sval += datas(zz)
Next
End If

Dim val1 As Double = datas(x) + sval
Dim val2 As Double = sval

If val1 > val2 Then
item.YValue = val1
item.YStartValue = val2

item.ItemColor = Color.YellowGreen
Else
item.YValue = val2
item.YStartValue = val1

item.ItemColor = Color.Red
End If

sr.items.Add(item)
Next
sList.SeriesCollection.Add(sr)
Next
Me.hHippoChart1.LegendBox.Visible = False
Me.hHippoChart1.SeriesListDictionary.Add(sList)
Me.hHippoChart1.DrawChart()



※ 히포차트 샘플 코드는 버전별로 상이한 결과를 나타낼 수 있습니다.

이 코드 관련 문의 사항은 페이스북 리플을 달아주시거나 아래 이메일로 이 페이지 주소와 함께 문의주세요.

helpdesk@hippochart.com





Copyright © 2009-2018 투데이트레이딩. Inc.  All Rights Reserved.