MaDina1987
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
//---------------------------------------------------------------------------
#include <clx.h>
#pragma hdrstop
#include<conio.h>
#include<math.h>
#pragma argsused
//---------------------------------------------------------------------------
void MULTR(int N,int K,double XBAR[],double STD[],double D[],double RX[],
double RY[],int ISAVE[],double B[],double SB[],double T[],double ANS[])
{
double RM,BO,SSAR,SSDR,SY, /*IFN, */FK,SSARM,SSDRM, F;
int MM=K+1,L1,L,FN;
for(int J=1;J<=K;++J)//
B[J]=0.0; //
for(int J=1;J<=K;++J) //
{
L1=K*(J-1); //
for(int I=1;I<=K;++I) //
{ //
L=L1+1; //
B[J]=B[J]+RY[I]*RX[L]; //
}
}
RM=0.0;
BO=0.0;
L1=ISAVE[MM];
for(int I=1;I<=K;++I)
{
RM=RM+B[I]*RY[I];
L=ISAVE[I];
B[I]=B[I]*(STD[L1]/STD[L]);
BO=BO+B[I]*XBAR[L];
}
BO=XBAR[L1]-BO;
SSAR=RM*D[L1];
RM=std::sqrt(std::abs(RM)); //
SSDR=D[L1]-SSAR;
FN=N-K-1;
SY=SSDR/FN;
for(int J=1;J<=K;++J)
{
L1=K*(J-1)+J;
L=ISAVE[J];
SB[J]=std::sqrt(std::abs(RX[L1]/D[L]*SY));
T[J]=B[J]/SB[J];
}
SY=std::sqrt(std::abs(SY));
FK=K;
SSARM=SSAR/FK;
SSDRM=SSDR/FN;
F=SSARM/SSDRM/*SSDRN*/;
ANS[1]=80.0;
ANS[2]=RM;
ANS[3]=SY;
ANS[4]=SSAR;
ANS[5]=FK;
ANS[6]=SSARM/*SSARN*/;
ANS[7]=SSDR;
ANS[8]=FN;
ANS[9]=SSDRM/*SSDRN*/;
ANS[10]=F;
}
int main(int argc, char* argv[])
{
MULTR(int N,int K,double XBAR[],double STD[],double D[],double RX[],
double RY[],int ISAVE[],double B[],double SB[],double T[],double ANS[]);
getch();
return 0;
}
Ч
Добавлено:
Народ! Как производится ВЫВОД ВЕКТОРА наС++
Учимся использовать тег more |
Всего записей: 4 | Зарегистр. 05-12-2006 | Отправлено: 10:19 21-12-2006 | Исправлено: ShIvADeSt, 05:46 24-12-2006 |
|
