Гіперболічна залежність

Текст програми

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 "hiperbolichna"

LET S1 = N: LET S2 = 0: LET S3 = 0

LET S4 = 0: LET S5 = 0

FOR I = 1 TO N

LET S2 = S2 + (1 / X(I)): LET S3 = S3 + Y(I)

LET S4 = S4 + (1 / X(I)) * (1 / X(I))

LET S5 = S5 + (1 / X(I)) * Y(I)

NEXT I

LET B = (S2 * S3 - S1 * S5) / (S2 * S2 - S1 * S4)

LET A = (1 / S1) * (S3 - B * S2)

PRINT "Y="; A; "+"; B; "/X"

LET S = 0

FOR I = 1 TO N

LET S = S + (Y(I) - (A + B / X(I))) ^ 2

NEXT I

LET S = SQR(S / (N - 2))

PRINT "Seredne kvadratychne vidhylennia", USING "###.######"; S

OPEN "hiperb.dat" FOR OUTPUT AS #1

PRINT #1, "hiperbolichna zalejnist"

PRINT #1, "Y="; A; "+"; 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 + B / X(I)

NEXT I

CLOSE #1

END

Результати

exponentna zalejnist

Y=83.17641 +-2.938014 /X

Seredne kvadratychne vidhylennia 14.744231

X Y Yr

0,1 54,1 53,79628

10 60,1 82,88261

20 66,1 83,02951

30 71,2 83,07848

40 76,1 83,10297

50 80,8 83,11765

60 85,7 83,12745

70 90,6 83,13445

80 95,6 83,13969

90 99,8 83,14377

100 104,6 83,14703

Графік