unpls.hpp

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

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

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

#ifndef UnplsHPP
#define UnplsHPP

#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 <Math.hpp>	// Pascal unit
#include <Dialogs.hpp>	// Pascal unit
#include <Controls.hpp>	// Pascal unit

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

namespace Unpls
{
//-- type declarations -------------------------------------------------------
typedef DynamicArray<float >  unPLS__1;

typedef DynamicArray<DynamicArray<float > >  TSMatr;

typedef DynamicArray<float >  TSVect;

typedef DynamicArray<float >  unPLS__2;

typedef DynamicArray<DynamicArray<float > >  TDMatr;

typedef DynamicArray<float >  TDVect;

typedef DynamicArray<AnsiString >  unPLS__3;

//-- var, const, procedure ---------------------------------------------------
static const Word MaxRow = 0x12c;
static const Word MaxCol = 0x3e8;
static const Shortint MaxRank = 0x14;
extern PACKAGE DynamicArray<float >  Yraw;
extern PACKAGE DynamicArray<DynamicArray<float > >  Xraw;
extern PACKAGE DynamicArray<float >  Xmax;
extern PACKAGE DynamicArray<float >  Xmin;
extern PACKAGE DynamicArray<DynamicArray<float > >  YY_fit;
extern PACKAGE DynamicArray<DynamicArray<float > >  YY_prd;
extern PACKAGE DynamicArray<AnsiString >  SmplLbl;
extern PACKAGE double Ybar;
extern PACKAGE double Ystd;
extern PACKAGE DynamicArray<float >  Xbar;
extern PACKAGE DynamicArray<float >  Xstd;
extern PACKAGE DynamicArray<DynamicArray<float > >  XCor;
extern PACKAGE DynamicArray<float >  YXCor;
extern PACKAGE DynamicArray<DynamicArray<float > >  b;
extern PACKAGE double ResValVar[20];
extern PACKAGE double ResCalVar[20];
extern PACKAGE DynamicArray<DynamicArray<float > >  tt;
extern PACKAGE Word Progress;
extern PACKAGE bool Abort;
extern PACKAGE void __fastcall SetDim(Word PC_count, Word NRow, Word NCol);
extern PACKAGE short __fastcall GetMaxRank(const Word NRow, const Word NCol);
extern PACKAGE void __fastcall VerifyRank(const Word NRow, const Word NCol, Word &Rank);
extern PACKAGE void __fastcall ResetData(void);
extern PACKAGE void __fastcall PLSR(const Word NCol, const Word NRow, Word &PC_count, const Byte ValidModel, const Byte DataScale);
extern PACKAGE void __fastcall YScale(const Byte Scale, const Word Nrow, TSVect &Y, double &Ybar, double &Ystd);
extern PACKAGE void __fastcall XScale(const Byte Scale, const Word Nrow, const Word Ncol, TSMatr &X, TDVect &Xbar, TDVect &Xstd);
extern PACKAGE void __fastcall GetPropRespCorr(void);
extern PACKAGE void __fastcall Nipals(const Word Nrow, const Word Ncol, const TSVect Y, const TSMatr X, Word &Nrank, TDMatr &b, bool verbose);
extern PACKAGE void __fastcall CalcPLSFitVAlues(const Word Nrank, const Word Nrow, const Word Ncol);
extern PACKAGE void __fastcall LOOPlSModel(const Byte Scale, const Word Nrow, const Word Ncol, Word &Nrank);
extern PACKAGE void __fastcall FindXRange(const Word NRow, const Word NCol, const TSMatr X);
extern PACKAGE double __fastcall PredictY(const Word Nrow, const Word Ncol, const Word Nrnk, const double Ybar, const double Ystd, const TDVect Xbar, const TDVect Xstd, const TSMatr Xraw, const TDMatr b);
extern PACKAGE void __fastcall ExtPlsModel(const Word Rank, const Word NCol, const Word Nexv);
extern PACKAGE void __fastcall Invert(const Word n, TDMatr &a);
extern PACKAGE double __fastcall Mean(Word N, TSVect X);
extern PACKAGE double __fastcall Variance(Word N, TSVect X, bool FD);
extern PACKAGE double __fastcall StdDev(Word N, TSVect X, bool FD);
extern PACKAGE double __fastcall Covariance(Word N, TSVect X, TSVect Y, bool FD);
extern PACKAGE double __fastcall Correlation(Word N, TSVect X, TSVect Y, bool FD);
extern PACKAGE double __fastcall ResVar(Word N, TSVect X, TSVect Y);
extern PACKAGE double __fastcall RMSE(Word N, TSVect X, TSVect Y);

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

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