MaDina1987
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору ЛЮДИ ДОБРЫЕ!!! Спасайте!!! Скоро зачет (15 декабря, то бишь в пятницу), а мне надо перевести программку с DELPHI на C++, а в DELPHI не разбираюсь вообще…Пожа-а-а-а-луйста…Буду очень-очень-очень благодарна!!! Эта подпрограмма выполняет множественный регрессионный анализ для зависимой переменной и множества независимых переменных. SUBROUTINE MULTR (N,K,XBAR,STD,D,RX,RY,ISAVE,B,SB,T,ANS) DIMENSION XBAR (1), STD (1), D(1), RX (1), RY(1). ISAVE (1), B(1), SB(1), IT(1), ANS(1) 1 DOUBLE PRECISION XBAR, STD, D, RX,RY,B, SB,T, ANS, RM, BO, SSAR, SSDR, SY, IFN, FK, SSARM, SSDRM,F 2 MM=K+1 3 DO 100 J=1,K 100 B(J)=0.0 DO 110 J=1,K L1=K*(J-1) DO 110 I=1,K L=L1+1 110 B(J)=B(J)+RY(I)*RX(L) RM=0.0 BO=0.0 L1=ISAVE (MM) 4 DO 120 I=1,K RM=RM+B(I)*RY(I) 5 L=ISAVE(I) B(I)=B(I)*(STD(L1)/STD(L)) 6 120 BO=BO+B(I)*XBAR(L) BO=XBAR (L1)-BO 7 SSAR=RM*D(L1) 8 122 RM=SQRT(ABS(RM)) 9 SSDR=D(L1)-SSAR 10 FN=N-K-1 SY=SSDR/FN 11 DO 130 J=1,K L1=K*(J-1)+J L=ISAVE (J) 125 SB(J)=SQRT (ABS(RX(L1)/D(L)*SY)) 12 130 T(J)=B(J)/SB(J) 13 135 SY=SQRT (ABS(SY)) 14 FK=K SSARM=SSAR/FK SSDRM=SSDR/FN F=SSARM/SSDRN ANS(1)=80 ANS(2)=RM ANS(3)=SY ANS(4)=SSAR ANS(5)=FK ANS(6)=SSARN ANS(7)=SSDR ANS(8)=FN ANS(9)=SSDRN ANS(10)=F RETURN END |