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

심장형 방정식 cardioid 그리기 (극좌표)







요즘 새간에 이슈가 되는 심장형 방정식을 히포차트로 그리는 방법을 소개합니다. 재미있는 그림이 나오네요 ^^




Scatter plot chart - pointType  Scatter plot chart - 3D  심장형 방정식 cardioid 그리기 (극좌표)  


C#
 
SeriesList sList = new SeriesList();
sList.ChartType = ChartType.Scatter;
sList.AxisFactor.XAxis.DataType = AxisDataType.Number;

sList.AxisFactor.XAxis.SetAxisStep(-3, 0, 1);
sList.AxisFactor.YAxis.SetAxisStep(-2, 2, 1);

Series sr = new Series();
sr.Points.Width = 4;
sr.SeriesColor = Color.Red;

for(int Q = 0; Q < 360; Q++)
{
SeriesItem item = new SeriesItem();

double r = 1 - Math.Cos(Q / Math.PI);

item.YValue = r * Math.Sin(Q / Math.PI);
item.XValue = r * Math.Cos(Q / Math.PI);

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

this.hHippoChart1.LegendBox.Visible = false;
this.hHippoChart1.Titles.Label.Text = "심장형 방정식 (cardioid)";
this.hHippoChart1.Logo.Label.Text = "히포차트";
this.hHippoChart1.SeriesListDictionary.Add(sList);
this.hHippoChart1.DrawChart();


VB
 
Dim sList As New. SeriesList()
sList.ChartType = ChartType.Scatter
sList.AxisFactor.XAxis.DataType = AxisDataType.Number

sList.AxisFactor.XAxis.SetAxisStep(-3, 0, 1)
sList.AxisFactor.YAxis.SetAxisStep(-2, 2, 1)

Dim sr As New. Series()
sr.Points.Width = 4
sr.SeriesColor = Color.Red

For Q As Integer = 0 To 359
Dim item As New. SeriesItem()

Dim r As Double = 1 - Math.Cos(Q / Math.PI)

item.YValue = r * Math.Sin(Q / Math.PI)
item.XValue = r * Math.Cos(Q / Math.PI)

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

Me.hHippoChart1.LegendBox.Visible = False
Me.hHippoChart1.Titles.Label.Text = "심장형 방정식 (cardioid)"
Me.hHippoChart1.Logo.Label.Text = "히포차트"
Me.hHippoChart1.SeriesListDictionary.Add(sList)
Me.hHippoChart1.DrawChart()


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

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

helpdesk@hippochart.com





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