Class TPriceShapeObj

Unit

PriceShape

Declaration

type TPriceShapeObj = class(TDSSObject)

Description

this is a GUID compliant to RFC 4122, v4

Hierarchy

• TObject
• TNamedObject
• TDSSObject
• TPriceShapeObj

Overview

Fields

	Interval: Double;
	Hours: pDoubleArray;
	PriceValues: pDoubleArray;
	csvfile: String;
	dblfile: String;
	sngfile: String;

Methods

	constructor Create(ParClass: TDSSClass; const PriceShapeName: String);
	destructor Destroy; OVERRIDE;
	procedure PropertySideEffects(Idx: Integer; previousIntVal: Integer = 0); override;
	procedure MakeLike(OtherPtr: Pointer); override;
	function GetPrice(hr: Double): Double;
	function Price(i: Integer): Double;
	function Hour(i: Integer): Double;

Properties

	property NumPoints: Integer READ FNumPoints;
	property PresentInterval: Double READ Get_Interval;
	property Mean: Double READ Get_Mean;
	property StdDev: Double READ Get_StdDev;

Description

Fields

	Interval: Double;

	Hours: pDoubleArray;
=0.0 then random interval (hr)

	PriceValues: pDoubleArray;
Time values (hr) if Interval > 0.0 Else nil

	csvfile: String;
Prices

	dblfile: String;
Prices

	sngfile: String;
Prices

Methods

	constructor Create(ParClass: TDSSClass; const PriceShapeName: String);

	destructor Destroy; OVERRIDE;

	procedure PropertySideEffects(Idx: Integer; previousIntVal: Integer = 0); override;

	procedure MakeLike(OtherPtr: Pointer); override;

	function GetPrice(hr: Double): Double;

	function Price(i: Integer): Double;
Get Prices at specified time, hr

	function Hour(i: Integer): Double;
get Prices by index

Properties

	property NumPoints: Integer READ FNumPoints;
get hour corresponding to point index

	property PresentInterval: Double READ Get_Interval;

	property Mean: Double READ Get_Mean;

	property StdDev: Double READ Get_StdDev;