Експоненціальна залежність
Текст програми CLS REM MNK DIM X(50), Y(50) INPUT "Vvedit kilkist doslidiv N "; N FOR I = 1 TO N PRINT "Vvedit "; I; "znachennia X,Y" INPUT X(I), Y(I) NEXT I PRINT "exponenta" LET S1 = N: LET S2 = 0: LET S3 = 0 LET S4 = 0: LET S5 = 0 FOR I = 1 TO N LET S2 = S2 + X(I): LET S3 = S3 + LOG(Y(I)) LET S4 = S4 + X(I) * X(I) LET S5 = S5 + X(I) * LOG(Y(I)) NEXT I LET B = (S2 * S3 - S1 * S5) / (S2 ^ 2 - S1 * S4) LET A = EXP((1 / S1) * (S3 - B * S2)) PRINT "Y="; A; "* exp^"; B; "*X" LET S = 0 FOR I = 1 TO N LET S = S + (Y(I) - (A * EXP(B * X(I)))) ^ 2 NEXT I LET S = SQR(S / (N - 2)) PRINT "Seredne kvadratychne vidhylennia", USING "###.######"; S OPEN "expon.dat" FOR OUTPUT AS #1 PRINT #1, "exponentna zalejnist" PRINT #1, "Y="; A; "* exp^"; B; "*X" PRINT #1, "Seredne kvadratychne vidhylennia", USING "###.######"; S PRINT #1, "X", "Y", "Yr" FOR I = 1 TO N PRINT #1, X(I), Y(I), A * EXP(B * X(I)) NEXT I CLOSE #1 END Результати exponentna zalejnist Y= 57.2406 * exp^ 6.395973E-03 *X Seredne kvadratychne vidhylennia 2.292774 X Y Yr 0,1 54,1 57,27722 10 60,1 61,02131 20 66,1 65,05173 30 71,2 69,34837 40 76,1 73,92879 50 80,8 78,81175 60 85,7 84,01723 70 90,6 89,56652 80 95,6 95,48234 90 99,8 101,7889 100 104,6 108,512 Графік
|
