Tweet

ldn lav blog.structuretoobig.com naltrexon buy prednisolone acetate eye drops prednisolone side effects kristinasmith.us prednisolone pharmacy buy accutane europe accutane without side effects celticcodingsolutions.com accutane without gelatin medical abortion order abortion pill online buy low dose naltrexone online naltrexone buy online canada 요즘 새간에 이슈가 되는 심장형 방정식을 히포차트로 그리는 방법을 소개합니다. 재미있는 그림이 나오네요 ^^

      

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