У нас можно недорого заказать курсовую, контрольную, реферат или диплом

«Программы к моделированию физических задач (Pascal)» - Практическая работа
- 48 страниц(ы)

Автор: navip
Содержание
1. Траектория движения при столкновении упругих шаров.
2.3. Моделирование артиллерийской задачи
2.4. Движение подводной лодки
2.5. Движение тела с учетом сопротивления среды
2.7. Столкновение упругих шаров
2.8. Движение небесного тела в гравитационном поле
2.9. Движение материального тела в поле тяготения планеты
2.10. Полет сверхзвукового самолета
2.11. Одноступенчатая ракета
2.12. Многоступенчатая ракета
2.13. Стыковка космического корабля
2.15. Физический маятник
2.14. Кривошипно-шатунный механизм
2.16. Параметрический маятник
2.17. Маятник Фуко
2.19. Связанные маятники
2.20. Колебания пружинного маятника
2.22. Успокоители механических колебаний
2.23. Связанные осцилляторы
2.24. Решение задачи Ферми-Паста-Улама
2.27. Распространение волн на воде. Солитон.
2.28. Форма капли жидкости
2.29. Замерзание капли
2.30. Решение уравнения теплопроводности
3.1. Силовые линии электрического поля
3.2. Движение заряженных частиц в кулоновском поле
3.3. Движение заряженной частицы в магнитном поле
3.4. Пространственный осциллятор
3.5. Разделение изотопов
3.6. Возмущение орбиты электрона в однородном магнитном поле движущимся протоном
3.8. Движение заряженной частицы в скрещенных полях
3.9. Фигуры Лиссажу
3.10. Выпрямление с фильтрацией
3.12. Генерирование колебаний
3.13. Параметрон
3.15. Телеграфное уравнение
3.16. Спектральный анализ
3.17. Радуга
4.1. Дифракция микрочастиц на отверстии
4.2. Квантово-механическая модель атомов. Часть 1. Расчет сферической части атома водорода
4.3. Квантово-механическая модель атомов. Часть 2. Расчет ра-диальной части атома водорода
4.7. Усиление оптического излучения
4.8. Генерация лазерного излучения
Введение
2.3. Моделирование артиллерийской задачи
Программа 1.
program Pushka;
{$R-}
{$Q-}
const
k: Integer = 0;
dt : Extended = 0.01;
da : Real = Pi / 25;
E: Extended = 0.1;
g: Real = 9.81;
I: Integer = 0;
Flag: Boolean = False;
Beg: Boolean = False;
Path: string = 'C:\temp';
var
X0 : Extended;
Y0 : Extended;
X1, X2: Extended;
Y1, Y2: Extended;
a, V0, L: Real;
PathTemp: string;
Num: string;
First: Boolean;
F: Text;
begin
Writeln('задайте скорость и угол');
Readln(V0, L);
a := Pi / 20;
I := 1;
while a < PI / 2 do
begin
X0 := 0;
Y0 := 0;
First := True;
Beg := False;
Str(I, Num);
PathTemp := Path + Num + '.dat';
Writeln(PathTemp);
Readln;
Assign(F, PathTemp);
Rewrite(F);
X1 := V0 * Cos(a) * dt - k * dt;
Y1 := X1 * Sin(a) / Cos(a);
while not Beg do
begin
{ Writeln(F, X0: 4: 4, ' ', Y0: 4: 4);}
Writeln(X0: 4: 4, ' ', Y0: 4: 4);
X2 := (X1 * (2 + k * dt) - X0) / (1 + k * dt);
Y2 := (Y1 * (2 - k * dt) - Y0 - g * Sqr(dt)) / (1 - k * dt);
X0 := X1; Y0 := Y1;
X1 := X2; Y1 := Y2;
if not First then
begin
Beg := Y0 <= 0;
Flag := ((X0 < (L + E)) or (X0 > (L - E))) and Beg;
end
else First := False;
end;
if Flag then
begin
Writeln('a =', (a * 180 / Pi):3:2);
Beg := False;
First := True;
X0 := 0;
Y0 := 0;
X1 := V0 * Cos(a) * dt - k * dt;
Y1 := X1 * Sin(a) / Cos(a);
while not Beg do
begin
Writeln(F, X0: 4: 4, ' ', Y0: 4: 4);
X2 := (X1 * (2 + k * dt) - X0) / (1 + k * dt);
Y2 := (Y1 * (2 - k * dt) - Y0 - g * Sqr(dt)) / (1 - k * dt);
X0 := X1;
Y0 := Y1;
X1 := X2;
Y1 := Y2;
if not First then
begin
Beg := Y0 <= 0;
Flag := ((X0 < (L + E)) or (X0 > (L - E))) and Beg;
end
else First := False;
end;
{ Readln;}
end;
a := a + da;
Inc(I);
Close(F);
end;
end.
Выдержка из текста работы
2.7. Столкновение упругих шаров
Программа 1.
PROGRAM Shary;
VAR
Vcx,Vx1,Vcy,V2x,m2,V1y,V2y,Vx10,Vi,Vc,L,Vxy,X1,Y1,
X2,Y2,Vxi,V10z,Vxz,Vx10z,Vy10,Vy10z,Vyi,Vx20,Vx20z,Vy20,
Vy20z,V20z,Vy1z,Vy2,Vx1z,V10x,Vx2,Vx2z,Vy2z,m1,w:real;
begin
m1:=1; m2:=2; Vx1:=3; V2x:=4; V1y:=5; V2y:=6; X1:=7;
X2:=8; Y1:=9; Y2:=10; w:= ;
Vx10z:=Vx10*cos(w);
Vy10z:=Vy10*sin(w);
Vx20z:=Vx20*cos(w);
Vy20z:=Vy20*sin(w);
Vcx:=(m1*Vx1+m2*V2x)/(m1+m2);
Vcy:=(m1*V1y+m2*V2y)/(m1+m2);
Vx10:=Vx1-Vcx;
IF L=1 THEN
Vi:={=(Vc*L)/L}(Vxy*(X2-X1)+Vcy*(Y2-Y1))/sqrt(sqr(X2-X1)+sqr(Y2-
Y1));{Vi-Ї а ««Ґ«м п};
Vxi:={=Vi*(X2-X1)/sqrt(X2-X1)}((Vxy*(X2-X1)+Vcy*(Y2-Y1))/(sqr(X2-
X1)+sqr(Y2-Y1)))*(X2-X1);
Vyi:={=Vi*(Y2-Y1)/sqrt(Y2-Y1)}((Vxy*(X2-X1)+Vcy*(Y2-Y1))/(sqr(X2-
X1)+sqr(Y2-Y1)))*(Y2-Y1);
V10z:=Vx10-2*Vxi;
Vx1z:=Vx10z+Vxy;
Vx10:=Vx1 - Vcx;
Vy10:=Vx1 - Vcy;
Vx20:=Vx2 - Vcx;
Vy20:=Vx2 - Vcy;
Vx10z:=Vx10 - 2*Vxi;
Vy10z:=Vy10 - 2*Vyi;
Vx20z:=Vx20 - 2*Vxi;
Vx20z:=Vx20 + 2*Vxi;
Vx1z:= Vx10z + Vcx;
Vy1z:= Vy10z + Vcy;
Vx2z:= Vx20z + Vcx;
Vy2z:= Vy20z + Vcy;
WRITELN (Vx1z:1:2,' ',Vx2z:1:2,' ',Vy1z:1:2, ' ',Vy2z:1:2);
readln
end.
Заключение
4.8. Генерация лазерного излучения
Program Laser;
CONST t=20;x=2;tp=0.5;t0=0.5;
VAR i,j,nt,nx,ntp,nt0:integer;
N0,h,g,L,gf:real;
N1,N,a,e1:array[0.200] of real;
e,e0:array[0.2000] of real;
ain,ain1:text;
BEGIN
assign(ain,'c:\laser.DAT'); REWRITE(ain);
assign(ain1,'c:\laser0.DAT'); REWRITE(ain1);
h:=0.1;
nt:=500; nx:=200; ntp:=30; nt0:=100;
g:=0.001; gf:=0.02; L:=0.1;
for j:=0 to nx do
begin
N[j]:=0;
a[j]:=0.02;
end;
for i:=0 to nt do
begin
{ if i<5*nt0 then L:=2*exp(-((i-nt0)*(i-nt0))/(ntp*ntp)/2) else L:=0;}
{ if i<6*nt0 then L:=1 else L:=0;}
for j:=0 to nx-1 do
begin
N1[j]:=N[j]-h*a[j]*N[j]-h*g*N[j];
e1[j+1]:=a[j]+h*a[j]*N[j]-h*gf*a[j]+h*L*a[j];
end;
for j:=0 to nx do
begin
N[j]:=N1[j];
a[j]:=e1[j];
end;
e[i]:=a[nx];
e0[i]:=N[nx-1];
end;
for i:=0 to nt do
begin writeln(ain,i*h,' ',e[i]);
writeln(ain1,i*h,' ',e0[i]);
end;
close (ain);
close (ain1);
end.
Примечания
К работе прилагается все исходники. Есть приложения.
Тема: | «Программы к моделированию физических задач (Pascal)» | |
Раздел: | Программирование, Базы данных | |
Тип: | Практическая работа | |
Страниц: | 48 | |
Цена: | 1000 руб. |
Закажите авторскую работу по вашему заданию.
- Цены ниже рыночных
- Удобный личный кабинет
- Необходимый уровень антиплагиата
- Прямое общение с исполнителем вашей работы
- Бесплатные доработки и консультации
- Минимальные сроки выполнения
Мы уже помогли 24535 студентам
Средний балл наших работ
- 4.89 из 5
написания вашей работы
Не подошла эта работа?
Воспользуйтесь поиском по базе из более чем 40000 работ
-
ВКР:
Технология разработки рекламной полиграфической продукции для хгф
43 страниц(ы) 2022 612
-
ВКР:
Молодежное арго как средство развития коммуникативной компетенции учащихся соо
53 страниц(ы) 2023 157
-
Дипломная работа:
Технологии изучения джазовой музыки в школе
72 страниц(ы) 2016 1229
-
Магистерская работа:
61 страниц(ы) 2022 240
-
:
Национально-культурные традиции башкирского танца в воспитании нравственности у подростков
107 страниц(ы) 2022 330
-
Дипломная работа:
66 страниц(ы) 2022 272
-
Реферат:
20 страниц(ы) 2016 731
-
Реферат:
14 страниц(ы) 2011 2692
-
ВКР:
Управление подготовкой к олимпиадам в условиях центра «академия математики»
70 страниц(ы) 2022 332
-
Дипломная работа:
130 страниц(ы) 2022 309





682 автора
помогают студентам
23 задания
за последние сутки
10 минут
среднее время отклика
-
Дипломная работа:
Управленческие подходы по привлечению к занятиям физической культурой лиц с ограниченными возможностями здоровья в Свердловской области
91 страниц(ы) -
Дипломная работа:
Обучение решению олимпиадных задач, как метод развивающий обобщенные задачные умения
37 страниц(ы) -
Контрольная работа:
Мотивация к занятиям физическими упражнениями
15 страниц(ы) -
ВКР:
Управление учебной деятельностью обучаящихся по овладению методами решения геометрических задач
69 страниц(ы) -
Дипломная работа:
Повышение физической подготовленности юных футболистов на этапе начальной подготовки
44 страниц(ы)