ування має місце розрив функції прискорення. Нове значення прискорення, відповідне початку ділянки гальмування, одно an + 1 =.
Параметри руху в проміжних положеннях ділянки гальмування при I=n + 2, ..., 2n +1 визначається наступним чином:
Si=Si - 1 +? Sт;
? i =;
? ср =;
ti=ti - 1 +;=aср =.
Швидкодія на ділянці розгону дорівнюватиме Tp=tn + 1, а на ділянці гальмування - Tт=t2n + 1 - tn + 1.
Алгоритм вирішення задачі
1. Вихідні дані (ввід): m, F0, Fc, Fp, n
2. ? Sp =.
3. Для першого положення S1=0,? 1=0, t1=0, a1=
4. Для інших положень при I=2, ..., n + 1:
4.1. Si=Si - 1 +? Sp;
4.2. int обчислюється за формулою трапецій
int =? Sp;
4.3. ? i =;
4.4. ? cp =;
. 5. ti=ti - 1+;
4.6. ai =.
5. Висновок параметрів руху для розгону при I=1, ..., n +1
5.1. Висновок I, Si,? i, ai, ti.
6. Висновок швидкодії для ділянки розгону Tp=tn + 1.
Для ділянки гальмування алгоритм має наступний вигляд:
7. Sт =;
. an + 1=-;
9. ? Sт =.
Далі алгоритм вирішення має вигляд, аналогічний ділянці розгону.
Схема алгоритму розв'язання задачі
Таблиця ідентифікаторів
Математичне обозначеніеm FcF0? Sр? SтSpSтSІдентіфікаторm fc f0 dsr dst sr st sМатематіческое обозначеніеTp Tт nav vср t cІдентіфікаторtr tt nav vs tc
Вихідні дані Пояснення mмасса тіла fcсіла опору f0начальное значення рушійної сили cкоеффіціент srучасток шляху розгону nразбіеніе ділянки розгону
Текст програми
kurs_v4;
{'Серьогін А.А., група 318031-11/24}
{Моделювання руху на площині}
{Поступальний рух}
{Варіант 4}
uses crt;
type Mas=array [1..201] of real; m, fc, tr, tt, f0, int, vs, dst, dsr, sr, st, c: real ;, n: integer; s, v, a, t: Mas; fu: text ;; (fu, kurs_v4.rez );
rewrite (fu); (fu, : 20, Моделювання руху на площині ); (fu, : 19, Поступальний рух ); ( fu); (fu, : 20, Серьогін А.А., група 318031-11/24 );
writeln (fu); (fu, : 25, Варіант 4 );
writeln ( Введіть вихідні дані ); ( Маса тіла m=); (m); ( Сила опору fc=); (fc); ( Початкове значення сили f0=);
readln (f0); ( Коефіцієнт c=);
readln (c); ( Участок розгону sr=); (sr); ( Кількість разбиений ділянки розгону n=); (n); (fu); ( fu, : 15, Вихідні дані ); (fu); (fu, : 10, Маса тіла m=, m: 5: 2, кг ); (fu, : 10, Сила опору fc=, fc: 5: 2, H ); (fu, : 10, Початкове значення сили f0 =, f0: 5: 2, H ); (fu, : 10, Коефіцієнт c=, c: 4: 2); (fu, raquo ;: 10, Участок розгону sr=, sr: 4: 2, M ); (fu, : 10, Кількість разбиений ділянки розгону n=, n: 2);
writeln (fu); writeln (fu);
{Algoritm}
{ділянку розгону}:=sr/n;
s [1]:=0; [1]:=0; [1]:=0; [1]:=(f0-fc)/m; i:=2 to n + 1 do [i]:=s [i - 1] + dsr;:=(1 * f0 + sqr (c)/(s [i] +1) + sqr (c)/(s [i - 1] + 1) * s [i - 1] - 1 * fc) * dsr/1; [i]:=sqrt (2/m * (m * sqr (v [i - 1])/2 + int)) ;: =(v [i] + v [i - 1])/2; [i]:=t [i - 1] + dsr/vs; [i]:=(v [i] -v [i - 1] )/(t [i] -t [i - 1]) ;;
{висновок на екран} ( i; , s [i]; , a [i]; , t [i] ) ; i:=1 to n + 1 do (i: 2, ; , s [i]: 6: 4, ; , v [i]: 6: 4, ; , a [i]: 6: 4, ; , t [i]: 6: 4);
end;:=t [n + 1]; ( Швидкодія для ділянки розгону , tr: 6: 4);
{висновок у файл} (fu, : 9); for i:=1 to 50 do write (fu, - ); (fu); (fu, : 8, I , : 8, I raquo ;, : 8, I , : 9, I , : 8, I , ); (fu, raquo ;: 7, i I s I v I a I t I ); (fu, : 8, I , : 8, I , : 8 , I , : 9, I , : 8, I , ); (fu, : 9); for i:=1 to 50 do write (fu, - ); (fu); i:=1 to n + 1 do (fu, : 6, i: 2, I raquo ;, s [i]: 6: 4, I , v [i]: 6: 4, I , a [i]: 6: 4, I , t [i ]: 6: 4, I ); (fu, : 9); i:=1 to 50 do write (fu, - );
