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

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







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




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.