📄 generallinear.aspx

📁 掌握学习.net开发的非常好的资料
💻 ASPX
字号:
<%@ Page Language="VB" Debug="true" Description="dotnetCHARTING Component" %>
<%@ Register TagPrefix="dotnet"  Namespace="dotnetCHARTING" Assembly="dotnetCHARTING"%>
<%@ Import Namespace="System.Drawing" %>
<%@ Import Namespace="System.Drawing.Drawing2D" %>
<%@ Import Namespace="dotnetCHARTING"%>
<HTML>
	<HEAD>
		<TITLE>.netCHARTING General Linear Sample</TITLE>
		<script runat="server">


Sub Page_Load(sender As [Object], e As EventArgs)
   ' This sample demonstrates the use of GeneralLinear  indicator
   ' from the ForecastEngine 
   ' The Forecast Chart
   ForecastChart.Title = "Forecast"
   ForecastChart.TempDirectory = "temp"
   ForecastChart.Debug = True
   ForecastChart.Size = "1000x400"
   ForecastChart.LegendBox.Template = "%icon %name"
   ForecastChart.XAxis.Scale = Scale.Normal
   
   Dim sForecast As New SeriesCollection()
   Dim sampledata1 As New Series("Sample 1")
   Dim deviation As New Series("Standard Deviation")
   
   Dim el1 As New Element()
   el1.XValue = 1
   el1.YValue = 1
   sampledata1.Elements.Add(el1)
   
   Dim el2 As New Element()
   el2.XValue = 2
   el2.YValue = 2
   sampledata1.Elements.Add(el2)
   
   Dim el3 As New Element()
   el3.XValue = 3
   el3.YValue = 3
   sampledata1.Elements.Add(el3)
   
   Dim el4 As New Element()
   el4.XValue = 4
   el4.YValue = 2
   sampledata1.Elements.Add(el4)
   
   Dim el5 As New Element()
   el5.XValue = 5
   el5.YValue = 1
   sampledata1.Elements.Add(el5)
   
   Dim dev1 As New Element()
   dev1.XValue = 1
   dev1.YValue = 0.1
   deviation.Elements.Add(dev1)
   
   Dim dev2 As New Element()
   dev2.XValue = 2
   dev2.YValue = 0.2
   deviation.Elements.Add(dev2)
   
   Dim dev3 As New Element()
   dev3.XValue = 3
   dev3.YValue = 0.3
   deviation.Elements.Add(el3)
   
   Dim dev4 As New Element()
   dev4.XValue = 4
   dev4.YValue = 0.1
   deviation.Elements.Add(dev4)
   
   Dim dev5 As New Element()
   dev5.XValue = 5
   dev5.YValue = 0.2
   deviation.Elements.Add(dev5)
   
   sForecast.Add(sampledata1)
   sForecast(0).Type = SeriesType.Marker
   
   ForecastChart.SeriesCollection.Add(sForecast)

  'Note that this line is necessary in order to 
  'clear the function basis set by previous example.
   ForecastEngine.Options.Reset()
   
   ' Set the model function : sin(x) + cos(x)
   ForecastEngine.Options.AddCosineSum(New Double() {1}, New Double() {1}, New Double() {0}, New Double() {1})
   ForecastEngine.Options.AddSineSum(New Double() {1}, New Double() {1}, New Double() {0}, New Double() {1})
   
   ' Generate a new series which will draw the best fit line according with the model 
   ' function which we just set.
   Dim generalLinear As New Series()
   generalLinear = ForecastEngine.Advanced.GeneralLinear(sampledata1, deviation)
   
   'The next two lines display on to the chart the value of the ChiSquare
   generalLinear.Elements(0).SmartLabel.Text = "ChiSquared: %ChiSquare"
   generalLinear.Elements(0).ShowValue = True
   
   generalLinear.Type = SeriesType.Spline
   ForecastChart.SeriesCollection.Add(generalLinear)
   ForecastEngine.Options.Reset()
End Sub 'Page_Load 
		</script>
	</HEAD>
	<BODY>
		<DIV align="center">
			
			<dotnet:Chart id="ForecastChart" runat="server"/>
			</dotnet:Chart>
			
		</DIV>
	</BODY>
</HTML>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -