Определение границ экспериментальных значений функции для

rnlny! = у(1): гоаху! = у(1) FOR 1 = 2 ТО m

IF y(l) < mlny? THEN ffllny? = y(l) IF y(l) > maxy! THEN maxy! = y(i)

NEXT

IF mlny! = maxy! THEN

minyf = mlny! - ABS{mlny!) / 2 maxy! = maxy! + ABS(maxy!) / 2

END IF

SCREEN 9

VIEW (10, 20)-(630, 300), 1 WINDOW (x(1). mlny!)-(x(m), maxy!) h - (x(ra) - x(1 )) / 100 X = x(1)

PSET (X. f(k, X, a(k), b(k))) POR 1 = 1 TO 100 X = X f h

LINE -(X, f(k, X. a(k), b(k)))

NEXT

г = (х(ш) - x(1)) /200 FOR 1 = 1 TO m

CIRCLE (x(l), yd)), r, 4

PAINT (x(l), yd)), 4 NEXT

LOCATE 1,3: PRINT "Эмпирическая формула N"; к; ": ";

SELECT CASE к CASE 0: PRINT "y - ("; a(k); ") x + ("; b(k); ")" CASE 1: PRINT "y = ("; a(k); ") + ("; b(k); ")/x " CASE 2: PRINT "y = 1/((": a(k): ") x -t ("; b(k); ")) " CASE 3: PRINT "y = x/(("; a(k); ") x + ("; b(k); ")) " CASE 4: PRINT "y - ("; EXP(b(k)); ")*("; FJCP(a(k)); ")"x" CASE 5: PRINT "y = ("; a(k); ")*Ln x + ("; b(k); ")" CASE 6: PRINT "y = ("; EXP(b(k)); ")*"; "x4"; a(k); ")"

END SELECT

DEFSNG I-K, М

SUB calcuiorparameters

DEFINT I-J, M: SHARED .1, m, x1(), y1(), a(), b(), d()

al = 0: bf = 0: a2 = 0: b2 = 0 FOR 1 = 1 TO m

al = al + xl (1): b1 = b1 + yl (1) a2 = a2 + xl (!) 2: b2 = b2 + xl (1) * yl (1) NEXT

d = m*a2-al "2

к = (m * b2 - al * b1) / d: b = (b1 * a2 ~ al * b2) / d

d = 0: f2 = 0 FOR 1 = 1 TO m

Г2 = f2 + yl (!) 2: d = d + (yl (1) - к . xl (1) - b) " 2 NEXT

aJ) = k: bU) = b: d(J) = SQR(d / 12) END SUB

DEFSNG I-J, M SUB choice

DEFINT I-J. M: SHARED m, x(), y(), x1(), y1() SELECT CASE J CASE 0

FOR 1=1 TO m

XI (1) = x(l): yl(l) = yd)

NEXT

CASE 1

FOR 1 = 1 TO m

y1(l) = xd) . yd)

NEXT CASE 2

FOR 1 = 1 TO m

LOCATE 23, 40

PRINT "Для продолжения нажмите любую клавишу" а = INPUTId)

y1(l) = lOG(y(l)}

NEXT CASE 5

FOR 1 = 1 TO m

xtd) = lOG(xd)): yid) = y(l)

NEXT CASE 6

POR 1 = 1 TO m

y1(l) = LOG(y(l))

NEXT END SELECT END SUB

DEFSNG I-J, M

FUNCTION f (variant%. x. k. b) DEPINT V SELECT CASE variant

CASE 0: f = к * I + b

CASE 1: I = к + b / X

CASE 2: f = 1 / (k * X + b)

CASE 3: f = X / {k * X + b)

CASE 4: a = EXP(b): с = EXP(k): f = a » с

CASE 5: f = к * bOG(x) + b

CASE 6: a = EXP(b): f = a ♦ x к END SELECT END FUNCTION

у1(1) = 1 / у{1)

NEXT CASE 3

POR 1 = 1 ТО m

y1(l) = 1(1) / yd)

NEXT CASE 4

FOR 1 = 1 TO m