Курсовая работа: Численное моделирование и анализ переходных процессов в электрической цепи

end;

Close(y);

readln;

End .

Таблица результатов

t	I	U
0.000	0.000000	0.000000
0.001	0.021116	0.28271
0.002	0.045202	0.95006
0.003	0.074067	1.99946
0.004	0.104367	3.36451
0.005	0.132911	4.92721
0.006	0.156807	6.54132
0.007	0.173674	8.05172
0.008	0.181844	9.31183
0.009	0.180509	10.19881
0.010	0.169796	10.62609
0.011	-0.074194	5.16433
0.012	-0.032145	2.22256
0.013	-0.013829	0.95612
0.014	-0.005949	0.41131
0.015	-0.002559	0.17694
0.016	-0.001101	0.07612
0.017	-0.000474	0.03275
0.018	-0.000204	0.01409
0.019	-0.000088	0.00606
0.020	-0.000038	0.00261

3.3 Решение дифференциальных уравнений в пакете MathCAD

Графики зависимости I(t) и U(t) .

Результаты значений I и U в зависимости от времени t

4. Решение интерполяции в пакете Excel

t	I
0,001	0.021116
0,002	0.045202
0,003	0.074067
0,004	0.104367
0,005	0.132911
0,006	0.156807
0,007	0.173674

5. Численное интегрирование

5.1 Блок-схема для нахождения выделившийся теплоты на резисторе R 4

5.2 Реализация алгоритма на языке программирования высокого уровня Pascal

Program teplota;

uses wincrt;

var R4,Q,f,f1,f2,hx,t,t1,t2,S,Int,a2,a1,a0,b2,b1,b0,c2,c1,c0,fn,fk:Real;

n:Integer;

begin