Реферат Алгоритм і програма побудови графіка тимчасової функції

, y0 - 5), 5i = x0 + Mx TO 640 - 3 * x0 STEP Mx (i, y0 + 8) - (i, 488 - y0 ), 8i

'горізонально розмітка = 0i = 6 TO 24 STEP 2i, 5 = (320 - 32 * k)/MyINT (j) = k + 1i (x0, 488 - y0) - (640 - 3 * x0 + 2 * Mx, 488 - y0), 5 (640 - 3 * x0 + Mx, 488 - y0 + 4) - (640 - 3 * x0 + 2 * Mx, 488 - y0), 5 (640 - 3 * x0 + Mx, 488 - y0 - 4) - (640 - 3 * x0 + 2 * Mx, 488 - y0), 5i = y0 + (Mx/2) TO 472 - y0 + Mx STEP Mx (x0, i) - (640 - 3 * x0, i), 8i113, 2 "Графік тимчасової функції: y =? a? t ^ 3 + b? t ^ 2 + c? t + d + g?" 4, 17 "Масштаб: по t = "; tk;", по Y = "; Mx/My; 1127, 9: PRINT" 0 "5, 9: PRINT" Y "27, 55: PRINT" t "

'побудова графіка9 (x0 + Mx * t0, 488 - y0 - My * ABS (Gorner (t0))), 5j = t0 + tk/Mx TO tkon STEP tk/Mx-(x0 + Mx * (j/tk), 488 - y0 - My * ABS (Gorner (j))), 5j (480, 0) - (480, 480), 5j = t0 TO tkon - tk STEP tk (x0 + Mx * (j/tk), 488 - y0 - My * ABS (Gorner (j))), 1, 2 (x0 + Mx * (j/tk), 488 - y0 - My * ABS (Gorner (j))), 2, 21 + (j/tk), 62 "t ="; j1 + (j/tk), 72 "y ="; FIX (ABS (Gorner (j)))

'для побудови графіка в реальному часі

IF v = 1 THEN Timj (x0 + Mx * (j/tk), 488 - y0 - My * ABS (Gorner (j))), 1, 2 (x0 + Mx * (j /tk), 488 - y0 - My * ABS (Gorner (j))), 2, 21 + (j/tk), 62; "t ="; j; "y ="; FIX (ABS (Gorner (j)))

SLEEPSUB

'----------------- Введення параметрів тимчасової функції -------------------- --- MassK "Введення коефіцієнтів тимчасової функції:"

PRINT "y =? a? t ^ 3 + b? t ^ 2 + c? t + d + g?" "???????????? ????????????????????????? "" a = ", A" b = ", B = A + B" c = " ;; C "t0 =", t0 "tkon =", tkon "tk =", tk (1) = A (2) = B (3) = C (4) = g + dSUB

'--------- Масив обчислених значень тимчасової функції ---------------

SUB MassY = (tkon - t0)/tkj = 0 TO n (j) = ABS (Gorner (j * tk))

NEXT jSUB

'---------------------- Висновок отриманих значень ---------------- ----------

SUB Rezultat151, 27

PRINT "Значення тимчасової функції" 2, 23

PRINT "y =? a? t ^ 3 + b? t ^ 2 + c? t + d + g?:" = 4j = t0 TO tkon STEP tk (3 + j/ tk) <27 THENk + j/tk, 4: PRINT "При t ="; jk + j/tk, 20: PRINT "y ="; Y (j/tk) k, 40: PRINT " ; При t = "; jk, 56: PRINT" y = "; Y (j/tk) = k + 1IFj

LOCATE k + 1, 50 "Значення розрахованих"

LOCATE k + 2, 55 "коефіцієнтів:" k + 3, 45: PRINT "a ="; k (1) k + 4, 45: PRINT "b =" ; k (2) k + 5, 45: PRINT "c ="; k (3) k + 6, 45: PRINT "g + d ="; k (4) k + 7, 45: PRINT "g ="; g12

PRINTSUB

'--- Підпрограма знаходження суми коренів квадратного рівняння ---

SUB RootSuma1, b1, c1 AS INTEGER

CLS...