Министерство Российской Федерации по связи и информатизации Сибирский Государственный университет телекоммуникаций и информатики




Скачать 49.79 Kb.
НазваниеМинистерство Российской Федерации по связи и информатизации Сибирский Государственный университет телекоммуникаций и информатики
Дата публикации03.10.2013
Размер49.79 Kb.
ТипКурсовая
vbibl.ru > Математика > Курсовая
Министерство Российской Федерации

по связи и информатизации

Сибирский Государственный университет телекоммуникаций и информатики

Курсовая работа


по

информатике
Вариант №22


Выполнил: sidrom

Проверил: преподаватель

Н о в о с и б и р с к 2 0 0 2




Содержание




Постановка задачи...........................................3

Программа...................................................4


Описание переменных.........................................6

Результаты..................................................7

^ Постановка задачи



Сила тока в любой момент времени определяется из уравнения:



Найти среднюю величину заряда, который переносится сквозь по­перечное сечение проводника за время T=1-, где c – наименьший положительный корень уравнения: .

Указание: . Дифференциальное уравнение решить мето­дом Рунге-Кутта с точностью . Уравнение решить с точностью . Интеграл вычислить по формуле трапеции.

Программа



Program kursovik;

uses crt;

const a=3;

b=4;

k=1+a/10;

l=1+b/100;

var x,y,y1,z:array [0..50] of real;

k1,k2,k3,k4,l1,l2,l3,l4,start,finish,root,step,max,pogr,t,s:real;

m,i:integer;
function y2(x,y,y1:real):real;

begin

y2:=k*y1+1/sqrt(l*sqr(y)+sqr(y1)+1);

end;
begin
clrscr;

start:=3;

y[0]:=1;

y1[0]:=0.2;

m:=1;
while abs(finish-start)>0.01 do

begin

root:=(start+finish)/2;

if (start*start*start-12*start*start+45*start-51)*(root*root*root-12*root*root+45*root-51)<0

then finish:=root else start:=root;

end;
root:=(finish+start)/2;

t:=1-root/100;
repeat

max:=0;

m:=m*2;

step:=t/m;

for i:=0 to m-1 do

begin

k1:=step*y2(x[i],y[i],y1[i]);

l1:=step*y1[i];

k2:=step*y2(x[i]+step/2,y[i]+k1/2,y1[i]+l1/2);

l2:=step*(y1[i]+l1/2);

k3:=step*y2(x[i]+step/2,y[i]+k2/2,y1[i]+l2/2);

l3:=step*(y1[i]+l2/2);

k4:=step*y2(x[i]+step,y[i]+k3,y1[i]+l3);

l4:=step*(y1[i]+l3);

y[i+1]:=y[i]+1/6*(k1+2*k2+2*k3+k4);

y1[i+1]:=y1[i]+1/6*(l1+2*l2+2*l3+l4);

x[i+1]:=x[i]+step;

end;

for i:=1 to round(m/2) do

begin

pogr:=abs(y[2*i]-z[i]);

if pogr>max then max:=pogr;

end;

for i:=1 to m do z[i]:=y[i];

until max<0.0001;
for i:=0 to m-1 do s:=s+step*(y[i]+y[i+1])/2;
writeln(' x y');
for i:=0 to m do writeln(x[i]:1:4,' ',y[i]:1:4);
writeln;

writeln('c=',root:1:4);

writeln('T=',t:1:4);

writeln('q=',s:1:4);

readln;
end.


^ Описание переменных



start, finish – переменные, являющиеся границами отрезка, на котором находится корень уравнения;

root – корень уравнения;

x – массив узлов;

y – массив решений;

y1 – первая производная;

k1, k2, k3, k4, l1, l2, l3, l4 – коэффициенты углов наклона;

step – шаг;

pogr – погрешность при решении дифференциального уравнения;

max – максимальное значение pogr;

s – значение интеграла;

m – количество элементов в массивах x и y.


Результаты




x y

0.0000 1.0000

0.1224 1.1162

0.2447 1.2319

0.3671 1.3482

0.4894 1.4660

0.6118 1.5862

0.7341 1.7100

0.8565 1.8384

0.9788 1.9727
c=2.1182

T=0.9788

q=1.4417

Добавить документ в свой блог или на сайт

Похожие:

Министерство Российской Федерации по связи и информатизации Сибирский Государственный университет телекоммуникаций и информатики iconКурсовая работа по дисциплине: «Основы системы программирования»
Государственного образовательного учреждения высшего профессионального образования «Сибирский государственный университет телекоммуникаций...

Министерство Российской Федерации по связи и информатизации Сибирский Государственный университет телекоммуникаций и информатики iconСибирский Государственный Университет Телекоммуникаций и Информатики....
Эти люди не только предлагали переустроить общество, но и пытались придумать и обосновать более справедливый и гуманный строй. Их...

Министерство Российской Федерации по связи и информатизации Сибирский Государственный университет телекоммуникаций и информатики iconРоссийской Федерации Сибирский федеральный университет Сибирский...
Мысливец С. Г. профессор; Ноженкова Л. Ф профессор; Рудакова Г. М. профессор; Садовская Г. М. к б н; Турне член Международной Ассоциации...

Министерство Российской Федерации по связи и информатизации Сибирский Государственный университет телекоммуникаций и информатики iconНовосибирский государственный университет
Министерство образования и науки Российской Федерации новосибирский государственный университет экономики и управления «нинх» Кафедра...

Министерство Российской Федерации по связи и информатизации Сибирский Государственный университет телекоммуникаций и информатики iconВсероссийская научно-практическая конференция
Думы Федерального собрания РФ по образованию, Министерство образования и науки рф, Экспертный совет по электронному обучению при...

Министерство Российской Федерации по связи и информатизации Сибирский Государственный университет телекоммуникаций и информатики iconКонтрольная работа по курсу «криминалистика»
Министерство образования и науки российской федерации российский государственный социальный университет

Министерство Российской Федерации по связи и информатизации Сибирский Государственный университет телекоммуникаций и информатики iconАвтореферат диссертации Сыктывкар, Коми асср 2005
...

Министерство Российской Федерации по связи и информатизации Сибирский Государственный университет телекоммуникаций и информатики iconФилософский факультет Бизнес планирование Социально инвестиционная программа «Пуховый мир»
Министерство образования Российской Федерации Уральский Государственный Университет им. А. М. Горького

Министерство Российской Федерации по связи и информатизации Сибирский Государственный университет телекоммуникаций и информатики iconФилософский факультет Бизнес планирование Социально инвестиционная программа «Пуховый мир»
Министерство образования Российской Федерации Уральский Государственный Университет им. А. М. Горького

Министерство Российской Федерации по связи и информатизации Сибирский Государственный университет телекоммуникаций и информатики iconМинистерство Образования Российской Федерации Таганрогский Государственный...
«Музей Булгакова «Нехорошая квартира» и Патриаршие пруды – литературно-исторические памятники Москвы»

Вы можете разместить ссылку на наш сайт:
Школьные материалы


При копировании материала укажите ссылку © 2013
контакты
vbibl.ru
Главная страница