ChartDirector 7.0 (ASP/COM/VB Edition)
General Curve Fitting
Source Code Listing
<%@ language="vbscript" %>
<%
Set cd = CreateObject("ChartDirector.API")
' Use random table to generate a random series. The random table is set to 1 col x 51 rows, with 9
' as the seed
Set rantable = cd.RanTable(9, 1, 51)
' Set the 1st column to start from 100, with changes between rows from -5 to +5
Call rantable.setCol(0, 100, -5, 5)
' Get the 1st column of the random table as the data set
data = rantable.getCol(0)
' Create a XYChart object of size 600 x 300 pixels
Set c = cd.XYChart(600, 300)
' Set the plotarea at (50, 35) and of size 500 x 240 pixels. Enable both the horizontal and vertical
' grids by setting their colors to grey (0xc0c0c0)
Call c.setPlotArea(50, 35, 500, 240).setGridColor(&Hc0c0c0, &Hc0c0c0)
' Add a title to the chart using 18 point Times Bold Itatic font.
Call c.addTitle("LOWESS Generic Curve Fitting Algorithm", "Times New Roman Bold Italic", 18)
' Set the y axis line width to 3 pixels
Call c.yAxis().setWidth(3)
' Add a title to the x axis using 12pt Arial Bold Italic font
Call c.xAxis().setTitle("Server Load (TPS)", "Arial Bold Italic", 12)
' Set the x axis line width to 3 pixels
Call c.xAxis().setWidth(3)
' Set the x axis scale from 0 - 50, with major tick every 5 units and minor tick every 1 unit
Call c.xAxis().setLinearScale(0, 50, 5, 1)
' Add a blue layer to the chart
Set layer = c.addLineLayer2()
' Add a red (0x80ff0000) data set to the chart with square symbols
Call layer.addDataSet(data, &H80ff0000).setDataSymbol(cd.SquareSymbol)
' Set the line width to 2 pixels
Call layer.setLineWidth(2)
' Use lowess for curve fitting, and plot the fitted data using a spline layer with line width set to
' 3 pixels
Call c.addSplineLayer(cd.ArrayMath(data).lowess().result(), &H0000ff).setLineWidth(3)
' Set zero affinity to 0 to make sure the line is displayed in the most detail scale
Call c.yAxis().setAutoScale(0, 0, 0)
' Output the chart
Set viewer = cd.WebChartViewer(Request, "chart1")
Call viewer.setChart(c, cd.SVG)
' Include tool tip for the chart
viewer.ImageMap = c.getHTMLImageMap("", "", "title='({x}, {value|2})'")
%>
<!DOCTYPE html>
<html>
<head>
<title>General Curve Fitting</title>
<!-- Include ChartDirector Javascript Library to support chart interactions -->
<script type="text/javascript" src="cdjcv.js"></script>
</head>
<body style="margin:5px 0px 0px 5px">
<div style="font:bold 18pt verdana;">
General Curve Fitting
</div>
<hr style="border:solid 1px #000080; background:#000080" />
<div style="font:10pt verdana; margin-bottom:1.5em">
<a href="viewsource.asp?file=<%= Request("SCRIPT_NAME") %>">View Chart Source Code</a>
</div>
<!-- ****** Here is the chart image ****** -->
<%= viewer.renderHTML() %>
</body>
</html>
Public Sub createChart(viewer As Object, chartIndex As Integer)
Dim cd As New ChartDirector.API
' Use random table to generate a random series. The random table is set to 1 col x 51 rows, with
' 9 as the seed
Dim rantable As RanTable
Set rantable = cd.RanTable(9, 1, 51)
' Set the 1st column to start from 100, with changes between rows from -5 to +5
Call rantable.setCol(0, 100, -5, 5)
' Get the 1st column of the random table as the data set
Dim data()
data = rantable.getCol(0)
' Create a XYChart object of size 600 x 300 pixels
Dim c As XYChart
Set c = cd.XYChart(600, 300)
' Set the plotarea at (50, 35) and of size 500 x 240 pixels. Enable both the horizontal and
' vertical grids by setting their colors to grey (0xc0c0c0)
Call c.setPlotArea(50, 35, 500, 240).setGridColor(&Hc0c0c0, &Hc0c0c0)
' Add a title to the chart using 18 point Times Bold Itatic font.
Call c.addTitle("LOWESS Generic Curve Fitting Algorithm", "timesbi.ttf", 18)
' Set the y axis line width to 3 pixels
Call c.yAxis().setWidth(3)
' Add a title to the x axis using 12pt Arial Bold Italic font
Call c.xAxis().setTitle("Server Load (TPS)", "arialbi.ttf", 12)
' Set the x axis line width to 3 pixels
Call c.xAxis().setWidth(3)
' Set the x axis scale from 0 - 50, with major tick every 5 units and minor tick every 1 unit
Call c.xAxis().setLinearScale(0, 50, 5, 1)
' Add a blue layer to the chart
Dim layer As LineLayer
Set layer = c.addLineLayer2()
' Add a red (0x80ff0000) data set to the chart with square symbols
Call layer.addDataSet(data, &H80ff0000).setDataSymbol(cd.SquareSymbol)
' Set the line width to 2 pixels
Call layer.setLineWidth(2)
' Use lowess for curve fitting, and plot the fitted data using a spline layer with line width
' set to 3 pixels
Call c.addSplineLayer(cd.ArrayMath(data).lowess().result(), &H0000ff).setLineWidth(3)
' Set zero affinity to 0 to make sure the line is displayed in the most detail scale
Call c.yAxis().setAutoScale(0, 0, 0)
' Output the chart
Set viewer.Picture = c.makePicture()
'include tool tip for the chart
viewer.ImageMap = c.getHTMLImageMap("clickable", "", "title='({x}, {value|2})'")
End Sub