Class TFitProblem

Unit

fit_problem

Declaration

type TFitProblem = class(TInterfacedObject, IFitProblem)

Description

Converts error codes back into exceptions to provide centralized error handling in the client. Converts data to appropriate type. Should implement the same interface as the server.

Hierarchy

• TInterfacedObject
• TFitProblem

Overview

Fields

	FFitStub: IFitServer;
	FProblemId: longint;

Methods

	constructor Create(AOwner: TComponent); override;
	function AsyncOper: boolean;
	function ComputeBackgroundPoints: string;
	function ComputeCurveBounds: string;
	function ComputeCurvePositions: string;
	function DoAllAutomatically: string;
	function GetAbsRFactorStr: string;
	function GetBackgroundPoints: TTitlePointsSet;
	function GetCalcProfilePointsSet: TTitlePointsSet;
	function GetCalcTimeStr: string;
	function GetCurveCount: longint;
	function GetCurveList: TMSCRCurveList;
	function GetCurveParameterCount(SpecIndex: longint): longint;
	function GetCurvePositions: TTitlePointsSet;
	function GetCurvesList: TSelfCopiedCompList;
	function GetDeltaProfilePointsSet: TTitlePointsSet;
	function GetProblemId: longint;
	function GetProfilePointsSet: TTitlePointsSet;
	function GetRFactorBounds: TTitlePointsSet;
	function GetRFactorStr: string;
	function GetSelectedProfileInterval: TTitlePointsSet;
	function GetSpecialCurveParameters: Curve_parameters;
	function GetSqrRFactorStr: string;
	function MinimizeDifference: string;
	function MinimizeDifferenceAgain: string;
	function MinimizeNumberOfCurves: string;
	function SelectAllPointsAsCurvePositions: string;
	function SelectEntireProfile: string;
	function SelectProfileInterval(StartPointIndex, StopPointIndex: longint): string;
	function SetBackgroundPointsSet(ABackgroundPoints: TTitlePointsSet): string;
	function SetCurvePositions(ACurvePositions: TPointsSet): string;
	function SetProfilePointsSet(APointsSet: TTitlePointsSet): string;
	function SetRFactorBounds(ARFactorBounds: TPointsSet): string;
	function SmoothProfile: string;
	function GetBackFactor: double;
	function GetCurveThresh: double;
	function GetCurveType: TCurveTypeId;
	function GetMaxRFactor: double;
	function GetState: TFitServerState;
	function GetWaveLength: double;
	procedure AddPointToBackground(XValue, YValue: double);
	procedure AddPointToCurvePositions(XValue, YValue: double);
	procedure AddPointToProfile(XValue, YValue: double);
	procedure AddPointToRFactorBounds(XValue, YValue: double);
	procedure CreateCurveList;
	procedure CreateProblem;
	procedure DiscardProblem(AProblemId: longint);
	procedure GetCurveParameter(SpecIndex: longint; ParamIndex: longint; var Name: string; var Value: double; var Type_: longint);
	procedure ReplacePointInBackground( PrevXValue, PrevYValue, NewXValue, NewYValue: double);
	procedure ReplacePointInCurvePositions( PrevXValue, PrevYValue, NewXValue, NewYValue: double);
	procedure ReplacePointInProfile( PrevXValue, PrevYValue, NewXValue, NewYValue: double);
	procedure ReplacePointInRFactorBounds( PrevXValue, PrevYValue, NewXValue, NewYValue: double);
	procedure SetCurveParameter(SpecIndex: longint; ParamIndex: longint; Value: double);
	procedure SetProblemId(AProblemId: longint);
	procedure SetSpecialCurveParameters(ACurveExpr: string; CP: Curve_parameters);
	procedure StopAsyncOper;
	procedure SubtractBackground(Auto: boolean);
	procedure SetBackFactor(ABackFactor: double);
	procedure SetCurveThresh(ACurveThresh: double);
	procedure SetCurveType(ACurveType: TCurveTypeId);
	procedure SetMaxRFactor(AMaxRFactor: double);
	procedure SetWaveLength(AWaveLength: double);

Properties

	property BackFactor: double read GetBackFactor write SetBackFactor;
	property CurveThresh: double read GetCurveThresh write SetCurveThresh;
	property CurveTypeId: TCurveTypeId read GetCurveType write SetCurveType;
	property FitStub: IFitServer read FFitStub write FFitStub;
	property MaxRFactor: double read GetMaxRFactor write SetMaxRFactor;
	property State: TFitServerState read GetState;
	property WaveLength: double read GetWaveLength write SetWaveLength;

Description

Fields

	FFitStub: IFitServer;
For now only single problem id is supported per client.

	FProblemId: longint;

Methods

	constructor Create(AOwner: TComponent); override;

	function AsyncOper: boolean;

	function ComputeBackgroundPoints: string;

	function ComputeCurveBounds: string;

	function ComputeCurvePositions: string;

	function DoAllAutomatically: string;

	function GetAbsRFactorStr: string;

	function GetBackgroundPoints: TTitlePointsSet;

	function GetCalcProfilePointsSet: TTitlePointsSet;

	function GetCalcTimeStr: string;

	function GetCurveCount: longint;

	function GetCurveList: TMSCRCurveList;

	function GetCurveParameterCount(SpecIndex: longint): longint;

	function GetCurvePositions: TTitlePointsSet;

	function GetCurvesList: TSelfCopiedCompList;

	function GetDeltaProfilePointsSet: TTitlePointsSet;

	function GetProblemId: longint;

	function GetProfilePointsSet: TTitlePointsSet;

	function GetRFactorBounds: TTitlePointsSet;

	function GetRFactorStr: string;

	function GetSelectedProfileInterval: TTitlePointsSet;

	function GetSpecialCurveParameters: Curve_parameters;

	function GetSqrRFactorStr: string;

	function MinimizeDifference: string;

	function MinimizeDifferenceAgain: string;

	function MinimizeNumberOfCurves: string;

	function SelectAllPointsAsCurvePositions: string;

	function SelectEntireProfile: string;

	function SelectProfileInterval(StartPointIndex, StopPointIndex: longint): string;
Synchronous methods.

	function SetBackgroundPointsSet(ABackgroundPoints: TTitlePointsSet): string;

	function SetCurvePositions(ACurvePositions: TPointsSet): string;

	function SetProfilePointsSet(APointsSet: TTitlePointsSet): string;
GetXXXX methods create and return A NEW OBJECT, responsibility to free it is put on calling code.

	function SetRFactorBounds(ARFactorBounds: TPointsSet): string;

	function SmoothProfile: string;
Asynchronous (long) methods.

	function GetBackFactor: double;

	function GetCurveThresh: double;

	function GetCurveType: TCurveTypeId;

	function GetMaxRFactor: double;
Getting / setting server attributes.

	function GetState: TFitServerState;

	function GetWaveLength: double;

	procedure AddPointToBackground(XValue, YValue: double);

	procedure AddPointToCurvePositions(XValue, YValue: double);

	procedure AddPointToProfile(XValue, YValue: double);

	procedure AddPointToRFactorBounds(XValue, YValue: double);

	procedure CreateCurveList;

	procedure CreateProblem;
Should be called in appropriate server state.

	procedure DiscardProblem(AProblemId: longint);

	procedure GetCurveParameter(SpecIndex: longint; ParamIndex: longint; var Name: string; var Value: double; var Type_: longint);

	procedure ReplacePointInBackground( PrevXValue, PrevYValue, NewXValue, NewYValue: double);

	procedure ReplacePointInCurvePositions( PrevXValue, PrevYValue, NewXValue, NewYValue: double);

	procedure ReplacePointInProfile( PrevXValue, PrevYValue, NewXValue, NewYValue: double);

	procedure ReplacePointInRFactorBounds( PrevXValue, PrevYValue, NewXValue, NewYValue: double);

	procedure SetCurveParameter(SpecIndex: longint; ParamIndex: longint; Value: double);

	procedure SetProblemId(AProblemId: longint);

	procedure SetSpecialCurveParameters(ACurveExpr: string; CP: Curve_parameters);

	procedure StopAsyncOper;
Control methods.

	procedure SubtractBackground(Auto: boolean);

	procedure SetBackFactor(ABackFactor: double);

	procedure SetCurveThresh(ACurveThresh: double);

	procedure SetCurveType(ACurveType: TCurveTypeId);

	procedure SetMaxRFactor(AMaxRFactor: double);

	procedure SetWaveLength(AWaveLength: double);

Properties

	property BackFactor: double read GetBackFactor write SetBackFactor;

	property CurveThresh: double read GetCurveThresh write SetCurveThresh;

	property CurveTypeId: TCurveTypeId read GetCurveType write SetCurveType;

	property FitStub: IFitServer read FFitStub write FFitStub;

	property MaxRFactor: double read GetMaxRFactor write SetMaxRFactor;

	property State: TFitServerState read GetState;

	property WaveLength: double read GetWaveLength write SetWaveLength;