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();
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()