unsprclasses.hpp

神经网络用于X荧光分析的源码。输入元素峰的强度

// Borland C++ Builder
// Copyright (c) 1995, 2005 by Borland Software Corporation
// All rights reserved

// (DO NOT EDIT: machine generated header) 'Unsprclasses.pas' rev: 10.00

#ifndef UnsprclassesHPP
#define UnsprclassesHPP

#pragma delphiheader begin
#pragma option push
#pragma option -w-      // All warnings off
#pragma option -Vx      // Zero-length empty class member functions
#pragma pack(push,8)
#include <System.hpp>	// Pascal unit
#include <Sysinit.hpp>	// Pascal unit
#include <Sysutils.hpp>	// Pascal unit
#include <Dialogs.hpp>	// Pascal unit
#include <Controls.hpp>	// Pascal unit

//-- user supplied -----------------------------------------------------------

namespace Unsprclasses
{
//-- type declarations -------------------------------------------------------
typedef double TSprArray[2048];

typedef int TCountsArray[2048];

typedef double TDerivativeMatrix[55][2048];

typedef double TParamArray[110];

typedef double TAddBettaCenters[51];

class DELPHICLASS TXRFPeak;
class PASCALIMPLEMENTATION TXRFPeak : public System::TObject 
{
	typedef System::TObject inherited;
	
private:
	AnsiString FPeakName;
	AnsiString FPeakFieldName;
	AnsiString FPeakLabel;
	double FPeakEnergy;
	double FPeakOffset;
	bool FPeakUse;
	bool FPeakEnable;
	double FPeakCenter;
	double FPeakWidth;
	double FPeakArea;
	bool FPeakVarCenter;
	bool FPeakVarWidth;
	bool FPeakVarArea;
	bool FPeakAtoBfix;
	double FBtoARatio;
	double FStdDevArea;
	double FStdDevWidth;
	double FStdDevCenter;
	double FPeakROILeftKev;
	double FPeakROIRightKev;
	int FPeakROILeftCnl;
	int FPeakROIRightCnl;
	bool FPeakIsEscape;
	bool FPeakIsSum;
	bool FPeakIsUserDef;
	AnsiString FOriginPeak1;
	AnsiString FOriginPeak2;
	
public:
	void __fastcall ClearPeak(void);
	void __fastcall CopyPeak(TXRFPeak* Source);
	
__published:
	__property AnsiString PeakName = {read=FPeakName, write=FPeakName};
	__property AnsiString PeakFieldName = {read=FPeakFieldName, write=FPeakFieldName};
	__property AnsiString PeakLabel = {read=FPeakLabel, write=FPeakLabel};
	__property double PeakEnergy = {read=FPeakEnergy, write=FPeakEnergy};
	__property double PeakOffset = {read=FPeakOffset, write=FPeakOffset};
	__property bool PeakUse = {read=FPeakUse, write=FPeakUse, nodefault};
	__property bool PeakEnable = {read=FPeakEnable, write=FPeakEnable, nodefault};
	__property double PeakCenter = {read=FPeakCenter, write=FPeakCenter};
	__property double PeakWidth = {read=FPeakWidth, write=FPeakWidth};
	__property double PeakArea = {read=FPeakArea, write=FPeakArea};
	__property bool PeakVarCenter = {read=FPeakVarCenter, write=FPeakVarCenter, nodefault};
	__property bool PeakVarWidth = {read=FPeakVarWidth, write=FPeakVarWidth, nodefault};
	__property bool PeakVarArea = {read=FPeakVarArea, write=FPeakVarArea, nodefault};
	__property bool PeakAtoBfix = {read=FPeakAtoBfix, write=FPeakAtoBfix, nodefault};
	__property double BtoARatio = {read=FBtoARatio, write=FBtoARatio};
	__property double StdDevArea = {read=FStdDevArea, write=FStdDevArea};
	__property double StdDevWidth = {read=FStdDevWidth, write=FStdDevWidth};
	__property double StdDevCenter = {read=FStdDevCenter, write=FStdDevCenter};
	__property double PeakROILeftKeV = {read=FPeakROILeftKev, write=FPeakROILeftKev};
	__property double PeakROIRightKeV = {read=FPeakROIRightKev, write=FPeakROIRightKev};
	__property int PeakROILeftCnl = {read=FPeakROILeftCnl, write=FPeakROILeftCnl, nodefault};
	__property int PeakROIRightCnl = {read=FPeakROIRightCnl, write=FPeakROIRightCnl, nodefault};
	__property bool PeakIsEscape = {read=FPeakIsEscape, write=FPeakIsEscape, nodefault};
	__property bool PeakIsSum = {read=FPeakIsSum, write=FPeakIsSum, nodefault};
	__property bool PeakIsUserDef = {read=FPeakIsUserDef, write=FPeakIsUserDef, nodefault};
	__property AnsiString OriginPeak1 = {read=FOriginPeak1, write=FOriginPeak1};
	__property AnsiString OriginPeak2 = {read=FOriginPeak2, write=FOriginPeak2};
public:
	#pragma option push -w-inl
	/* TObject.Create */ inline __fastcall TXRFPeak(void) : System::TObject() { }
	#pragma option pop
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TXRFPeak(void) { }
	#pragma option pop
	
};


class DELPHICLASS TXRFPeakSet;
class PASCALIMPLEMENTATION TXRFPeakSet : public System::TObject 
{
	typedef System::TObject inherited;
	
private:
	Word FPeaksNumber;
	bool FSorted;
	bool FSiEscape;
	
public:
	TXRFPeak* XRFPeak[400];
	__fastcall TXRFPeakSet(void);
	__fastcall ~TXRFPeakSet(void);
	void __fastcall EnergySort(void);
	void __fastcall ClearPeakSet(void);
	void __fastcall UnselectAllPeaks(void);
	void __fastcall RecalcForNewECalibr(double SlopeE, double OffSetE, double DetectorResolution);
	void __fastcall ResetAddPeaks(Byte WhichPeaks);
	
__published:
	__property Word PeaksNumber = {read=FPeaksNumber, write=FPeaksNumber, nodefault};
	__property bool Sorted = {read=FSorted, write=FSorted, nodefault};
	__property bool SiEscape = {read=FSiEscape, write=FSiEscape, nodefault};
public:
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TXRFPeakSet(void) { }
	#pragma option pop
	
};


class DELPHICLASS TXRFSpectrum;
class PASCALIMPLEMENTATION TXRFSpectrum : public System::TObject 
{
	typedef System::TObject inherited;
	
private:
	Word FPeaksCount;
	
public:
	TXRFPeak* XRFPeak[50];
	double CpsLimitLow;
	double PeakGoodDefRelat;
	double FluorCounts;
	double BackScatCounts;
	Byte PeaksShape;
	bool VariedCenters;
	bool VariedWidths;
	bool VariedAreas;
	bool VerifyVarLimits;
	bool FixedBettaAreas;
	double PeakPosVariation;
	double PeakWidthVariation;
	double DTR;
	double SPRShift;
	double WeightExponent;
	double LoELimit;
	double HiELimit;
	Word MaxPeakFitIter;
	bool SprFitted;
	Byte FitPackageNo;
	Word LoChannel;
	Word HiChannel;
	Byte SprAnalysisType;
	double FitDuration;
	double FitStdDev;
	Word PeakFitIter;
	bool VariedPeakResol;
	double DTR_Noise;
	double DTR_Noise_Guess;
	double DTR_Noise_Delta;
	double DTR_Fano;
	double DTR_Fano_Guess;
	double DTR_Fano_Delta;
	bool VariedCalibr;
	double ECalibrLin;
	double ECalibrLin_Guess;
	double ECalibrLin_Delta;
	double ECalibrAbs;
	double ECalibrAbs_Guess;
	double ECalibrAbs_Delta;
	bool CalculateBkGr;
	bool BkgFitted;
	Word MaxBackScatIter;
	Byte ContinuumTypeNo;
	Byte PolyDegr;
	double RedChiSqr;
	bool SystPeakOffset;
	bool PeakSetChanged;
	__fastcall TXRFSpectrum(void);
	__fastcall ~TXRFSpectrum(void);
	void __fastcall ClearSpectrum(const double DetectorResolution);
	void __fastcall CopySpectrum(TXRFSpectrum* Source);
	void __fastcall AddSpectrum(TXRFSpectrum* Source);
	void __fastcall CopyFromPeakSet(TXRFPeakSet* PeakSet);
	void __fastcall CopyToPeakSet(TXRFPeakSet* PeakSet);
	void __fastcall EnergySort(void);
	void __fastcall RecalcForNewECalibr(double SlopeE, double OffSetE, double DetectorResolution);
	void __fastcall ResetPeakPositions(double SlopeE, double OffSetE, double DetectorResolution);
	void __fastcall ResetPeakWidths(double SlopeE, double OffSetE, double DetectorResolution);
	void __fastcall CalcPeakCount(void);
	double __fastcall AverPeakWidthChan(void);
	double __fastcall AverPeakWidthChanROI(void);
	
__published:
	__property Word PeaksCount = {read=FPeaksCount, write=FPeaksCount, nodefault};
public:
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TXRFSpectrum(void) { }
	#pragma option pop
	
};


typedef AnsiString unSPRClasses__5[50];

typedef AnsiString unSPRClasses__6[50];

typedef AnsiString unSPRClasses__7[50];

typedef AnsiString unSPRClasses__8[50];

class DELPHICLASS TPeakSearch;
class PASCALIMPLEMENTATION TPeakSearch : public System::TObject 
{
	typedef System::TObject inherited;
	
private:
	Byte __fastcall TestDubbleRec(void);
	void __fastcall CopyRecord(Byte SourcePos, Byte TargetPos);
	
public:
	Byte Count;
	Byte EscCount;
	Byte SumCount;
	Byte FocusedPeak;
	Word No[50];
	Word PosInPS[50];
	AnsiString Name[50];
	AnsiString Lbl[50];
	Word Channel[50];
	double Energy[50];
	double EDev[50];
	bool IsEsc[50];
	bool IsSum[50];
	AnsiString Origin1[50];
	AnsiString Origin2[50];
	__fastcall TPeakSearch(void);
	void __fastcall Clear(void);
	void __fastcall Delete(void);
	void __fastcall AddRecord(TPeakSearch* Source);
	void __fastcall Sort(void);
	void __fastcall DeleteDubbleRec(void);
public:
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TPeakSearch(void) { }
	#pragma option pop
	
};


class DELPHICLASS TROI;
class PASCALIMPLEMENTATION TROI : public System::TObject 
{
	typedef System::TObject inherited;
	
public:
	Byte Number;
	bool Active;
	Byte Current;
	TXRFSpectrum* XRFSpectrum[3];
	double Continm[3][2048];
	double Fitting[3][2048];
	__fastcall TROI(void);
	__fastcall ~TROI(void);
};


//-- var, const, procedure ---------------------------------------------------
static const Word MaxPeaksNumber = 0x190;
static const Shortint maxSpectrumPeakCount = 0x32;
#define Si_EscapeShift  (1.740000E+00)
#define Ge_EscapeShift  (5.540000E-01)
static const Shortint EscapePeaksCount = 0xa;
static const Shortint SumPeaksCount = 0xa;
static const Shortint UserPeaksCount = 0xa;
static const Shortint MaxDim = 0x37;
static const Word MaxSprLength = 0x800;
static const Shortint maxROICount = 0x3;
extern PACKAGE TPeakSearch* PeakSearch;
extern PACKAGE TPeakSearch* ProbPeaks;

}	/* namespace Unsprclasses */
using namespace Unsprclasses;
#pragma pack(pop)
#pragma option pop

#pragma delphiheader end.
//-- end unit ----------------------------------------------------------------
#endif	// Unsprclasses