You've already forked lazarus-ccr
8b8a73d887
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@9095 8e941d3f-bd1b-0410-a28a-d453659cc2b4
91 lines
2.8 KiB
ObjectPascal
91 lines
2.8 KiB
ObjectPascal
program regressionchart_write_demo;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
uses
|
|
SysUtils,
|
|
fpspreadsheet, fpstypes, fpsUtils, fpschart, xlsxooxml, fpsopendocument;
|
|
|
|
const
|
|
FILE_NAME = 'regression';
|
|
var
|
|
book: TsWorkbook;
|
|
sheet: TsWorksheet;
|
|
ch: TsChart;
|
|
ser: TsScatterSeries;
|
|
fn: String;
|
|
rotated: Boolean;
|
|
begin
|
|
fn := FILE_NAME;
|
|
rotated := (ParamCount >= 1) and (lowercase(ParamStr(1)) = 'rotated');
|
|
if rotated then
|
|
fn := fn + '-rotated';
|
|
|
|
book := TsWorkbook.Create;
|
|
try
|
|
// Worksheet
|
|
sheet := book.AddWorksheet('regression_test');
|
|
|
|
// Enter data
|
|
sheet.WriteText(0, 0, 'Data');
|
|
sheet.WriteFont(0, 0, '', 12, [fssBold], scBlack);
|
|
sheet.WriteText (2, 0, 'x'); sheet.Writetext (2, 1, 'y');
|
|
sheet.WriteNumber(3, 0, 1.1); sheet.WriteNumber(3, 1, 9.0);
|
|
sheet.WriteNumber(4, 0, 1.9); sheet.WriteNumber(4, 1, 20.5);
|
|
sheet.WriteNumber(5, 0, 2.5); sheet.WriteNumber(5, 1, 24.5);
|
|
sheet.WriteNumber(6, 0, 3.1); sheet.WriteNumber(6, 1, 33.2);
|
|
sheet.WriteNumber(7, 0, 5.2); sheet.WriteNumber(7, 1, 49.4);
|
|
sheet.WriteNumber(8, 0, 6.8); sheet.WriteNumber(8, 1, 71.3);
|
|
|
|
// Create chart: left/top in cell D4, 150 mm x 100 mm
|
|
ch := book.AddChart(sheet, 2, 3, 150, 100);
|
|
|
|
// Chart properties
|
|
ch.Border.Style := clsNoLine;
|
|
ch.Legend.Border.Style := clsNoLine;
|
|
ch.RotatedAxes := rotated;
|
|
|
|
// Add scatter series
|
|
ser := TsScatterSeries.Create(ch);
|
|
|
|
// Series properties
|
|
ser.SetTitleAddr(0, 0);
|
|
ser.SetXRange(3, 0, 8, 0);
|
|
ser.SetYRange(3, 1, 8, 1);
|
|
ser.ShowLines := false;
|
|
ser.ShowSymbols := true;
|
|
ser.Symbol := cssCircle;
|
|
ser.Regression.Title := 'Fit curve';
|
|
ser.Regression.RegressionType := rtPolynomial; //rtLinear;
|
|
ser.Regression.ExtrapolateForwardBy := 10;
|
|
ser.Regression.ExtrapolateBackwardBy := 10;
|
|
ser.Regression.Line.Color := scRed;
|
|
ser.Regression.Line.Style := clsDash;
|
|
ser.Regression.ForceYIntercept := true; // not used by logarithmic, power
|
|
ser.Regression.YInterceptValue := 10.0; // dto.
|
|
ser.Regression.PolynomialDegree := 2;
|
|
ser.Regression.DisplayEquation := true;
|
|
ser.Regression.DisplayRSquare := true;
|
|
ser.Regression.Equation.XName := 'X';
|
|
ser.Regression.Equation.YName := 'Y';
|
|
ser.Regression.Equation.Border.Style := clsSolid;
|
|
ser.Regression.Equation.Border.Color := scRed;
|
|
ser.Regression.Equation.Fill.Style := cfsSolid;
|
|
ser.Regression.Equation.Fill.Color := scSilver;
|
|
ser.Regression.Equation.NumberFormat := '0.000';
|
|
//ser.Regression.Equation.Top := 5;
|
|
//ser.Regression.Equation.Left := 5;
|
|
|
|
{
|
|
book.WriteToFile(fn + '.xlsx', true); // Excel fails to open the file
|
|
WriteLn('Data saved with chart to ', fn, '.xlsx');
|
|
}
|
|
|
|
book.WriteToFile(fn + '.ods', true);
|
|
WriteLn('Data saved with chart to ', fn, '.ods');
|
|
finally
|
|
book.Free;
|
|
end;
|
|
end.
|
|
|