// *DYNAMIC DATA NOTE* // This sample uses random data to populate the chart. To populate // a chart with database data see the following resources: // - Help File > Getting Started > Data Tutorials // - DataEngine Class in the help file // - Sample: features/DataEngine.aspx
SeriesCollection mySC = getRandomData(); SeriesCollection besselKSC = new SeriesCollection(); // Calculate the BesselK function of the order 0, 1, 2, 3 for(int i = 0; i < 4; i++ ) { Series besselK = ForecastEngine.Advanced.BesselK(mySC[i],i); besselK.Type = SeriesType.Line; besselKSC.Add(besselK); }
// Add the random data. Chart.SeriesCollection.Add(mySC); besselChartArea.SeriesCollection.Add(besselKSC);
}
SeriesCollection getRandomData() { Random myR = new Random(1); SeriesCollection SC = new SeriesCollection(); for(int a = 1; a < 5; a++) { Series s = new Series("Series " + a.ToString());
for(int b = 1; b < 5; b++) { Element e = new Element(); e.YValue = myR.Next(5); s.Elements.Add(e); } SC.Add(s); } return SC; }
' *DYNAMIC DATA NOTE* ' This sample uses random data to populate the chart. To populate ' a chart with database data see the following resources: ' - Help File > Getting Started > Data Tutorials ' - DataEngine Class in the help file ' - Sample: features/DataEngine.aspx
Dim mySC As SeriesCollection = getRandomData() Dim besselKSC As SeriesCollection = New SeriesCollection() ' Calculate the BesselK function of the order 0, 1, 2, 3 For i As Integer = 0 To 3 Dim besselK As Series = ForecastEngine.Advanced.BesselK(mySC(i),i) besselK.Type = SeriesType.Line besselKSC.Add(besselK) Next i
' Bessel chart area Dim besselChartArea As ChartArea = New ChartArea () besselChartArea.HeightPercentage = 40 besselChartArea.YAxis.Label.Text = "BesselK" besselChartArea.YAxis.Line.Color = Color.Transparent Chart.ExtraChartAreas.Add (besselChartArea)
' Add the random data. Chart.SeriesCollection.Add(mySC) besselChartArea.SeriesCollection.Add(besselKSC)
End Sub
Function getRandomData() As SeriesCollection Dim myR As Random = New Random(1) Dim SC As SeriesCollection = New SeriesCollection() For a As Integer = 1 To 4 Dim s As Series = New Series("Series " & a.ToString())
For b As Integer = 1 To 4 Dim e As Element = New Element() e.YValue = myR.Next(5) s.Elements.Add(e) Next b SC.Add(s) Next a Return SC End Function
Previous