i-1) * h; [i]: = v [i-1] + h * f (t [i-1]);;; ClrScr; (f3, ' results.res '); rewrite (f3); (f4,' danie.dat '); reset (f4); (f4, a1, a2, b1, b2, Mc, J, n, dt, epsilon);: = (a2-a1)/(b1 + b2);: = 0; wn: = 0; wk: = wopr; (n, wn, wk, tn, fun1, w, t); (f3, '3 avisimost w (t ) pri 0 <= w <= wopr '); (f3,' tw Md '); i: = 1 to n +1 do writeln (f3, t [i]: 5:2,' ', w [i] : 5:2, '', a1 + b1 * w [i]: 5:2); (f3, 'topr =', t [n +1]: 5:2, 's wopr =', w [n +1]: 5:2, 'rad/s Mdopr =', a1 + b1 * w [n +1]: 5:2, 'H * s'); (f3, '3 avisimost w (t) pri w> wopr '); (f3,' tw Md ');: = n +2; t [i]: = t [i-1] + dt; [i]: = w [i-1] + dt * fun2 ( w [i-1]);: = i; i: = i +1; abs (w [i-1] - w [i-2]) <= epsilon; i: = n +2 to m do ( f3, t [i]: 5:2, '', w [i]: 5:2, '', a2-b2 * w [i]: 5:2); (f3, 'tyst =', w [ m]: 5:2, 's wyst =', t [m]: 5:2, 'rad/s Mdyst =', a2-b2 * w [m]: 5:2, 'H * s'); (f3); close (f4); until keypressed.
7. Результати роботи програми
вал двигун швидкість програма
3avisimost w (t) pri 0 <= w <= woprw Md
.00 0.00 96.00
.03 4.87 98.73
.06 9.75 101.46
.09 14.62 104.19
.11 19.49 106.92
.14 24.37 109.65
.17 29.24 112.38
.20 34.11 115.10
.23 38.99 117.83
.26 43.86 120.56
.28 48.74 123.29
.31 53.61 126.02
.34 58.48 128.75
.37 63.36 131.48
.40 68.23 134.21
.43 73.10 136.94
.45 77.98 139.67
.48 82.85 142.40
.51 87.72 145.13
.54 92.60 147.85
.57 97.47 150.58 = 0.57s wopr = 97.47rad ​​/ s Mdopr = 150.58H * s
avisimost w (t) pri w> woprw Md
.67 98.23 135.49
.77 98.85 122.91
.87 99.38 112.42
.97 99.82 103.68
.07 100.18 96.40
.17 100.48 90.34
.27 100.74 85.28
.37 100.95 81.07
.47 101.12 77.56
.57 101.27 74.63
.67 101.39 72.19
.77 101.49 70.16
.87 101.58 68.47 = 101.58s wyst = 1.87rad/s Mdyst = 68.47H * s
8. Графічна частина
В
В
9. Аналіз резуль...
