Построение графика временной функции
Информация - Компьютеры, программирование
Другие материалы по предмету Компьютеры, программирование
>
clrscr;
Writeln ('Решаем систему уравнений + a1z + b1v = d1 ');
Writeln (' + a2z + b2v = d2 '); ('Введите коэффициенты a1, b1, d1, a2,. ');j: = 1 to 2 doi: = 1 to 3 do(25 + i*6, 4 + j);(syst [i,j]);;;
g: = sist (syst);
Writeln ('Наибольшее по модулю решение системы g= ',g: 4: 2);
Write ('Для продолжения любую клавишу'); readkey;
{ readln; }
{****** Решаем нелинейное уравнение ***************}
clrscr;
Writeln ('Решаем нелинейное уравнение e^ (x) +ln (x) - 10x=0 методом Ньютона ');
Write ('Вводим начальное значение x0 = '); readln (x0);
Write ('Вводим точность расчёта E = '); readln (eps);
p: = nelin (x0,eps);
Writeln ('Корень уравнения e^ (x) +ln (x) - 10x=0 x= ',p: 6: 4);
Write ('Для продолжения нажмите любую клавишу'); readkey;
{**** подготовка к выводу таблицы **************}
clrscr;
Writeln ('Сейчас происходит подготовка к выводу значений ');
Writeln ('временной функции xt^2 + wt + p + g, где ');
Writeln (' p - корень уранения e^ (x) +ln (x) - 10x=0 ');
Writeln (' m - больлший по модулю корень системы. ');
Writeln ('Ввод недостающих коэффициентов: ');
Write ('Введите x; x = '); readln (x);('w = tg (fi); введите fi (в градусах); fi = '); readln (fi);: = (sin (fi)) / (cos (fi)); ('');
Writeln ('Ввод параметров функции: ');
Write ('Введите начальное время t0; t0 = '); readln (t0);
Write ('Введите конечное время tkon; tkon = '); readln (tkon);
Write ('Введите время квантования tkv; tkv = '); readln (tkv);
Writeln ('');
Writeln ('В каком времени рассчитывать функцию? ');
Writeln (' 1 - если в машинном ');
Writeln (' 2 - если в реальном ');
readln (vyb);
Write ('Для вывода результатов всё готово. Нажмите любую клавишу'); readkey;
{****** в ы в о д р е з у л ь т а т о в *************}
clrscr;: =0;(1+j, 1);('+-----------------------------+ ');(1+j,
);(' Значение t Значение f (t) ');(1+j,
);('+------------+---------------- ');: = t0; i: =1;t 19 then(j+1, i+4);('+-----------------------------+ ');: = - 2;: = j+40;;: = t + tkv; i: = i + 1;;(j+1, i+3);('+-----------------------------+ ');;
END.
3. Результат расчета
3.1 Распечатка исходных величин
Начальное приближение корня нелинейного уравнения и заданная точность:
x0=3
e=10-3
Коэффициенты квадратного уравнения:
A1=4A2 = 2
B1=1B2 = 1
D1=5D2 = 7
Время (начальное, конечное, квантования):
t0=0 c
tk=20 c
tkv=1 c
Коэффициенты временной функции:
X= 1
W= tg45o
3.2 Распечатка вычисленных величин
Значение tЗначение f (t) 0.000 1.000 2.000 3.000 4.000 5.000 6.000 7.000 8.000 9.000 10.000 11.000 12.000 13.000 14.000 15.000 16.000 17.000 18.000 19.000 20.00012.5265 15.1463 19.7660 26.3858 35.0056 45.6254 58.2451 72.8649 89.4847 108.1045 128.7242 151.3440 175.9638 202.5836 231.2034 261.8231 294.4429 329.0627 365.6825 404.3022 444.9220
Список используемых источников
1.Дембовский Л.М. Основы диалоговых режимов работы. Уч. Пособие, БПИ
2.Вальвачев А.Н. Программирование на языке Паскаль. Справочное пособие. Минск: В. ш. 1989г.
.Л.А. Тарасевич - Конспект