Численное решение контрольных задач по физике
Приложение к файлам контрольных работ

(c) Черноус Алексей, 2022
<alexch82@ya.ru>, https://www.chernous.site

# 9 класс <<Колебания и волны. Звук>>

/* Загрузка единиц СИ, физических констант, производных констант и табличных величин */
load("const.mac")$

## Вариант

### Задача (2б)

По графику на рисунке определите длину волны и амплитуду колебаний

disp("Дано:")$
disp("Найти:")$
disp("Уравнения:")$
disp("Решение:")$
disp("Ответ:")$
ans:  [λ=18`cm, A_=12`cm]$
for i: 1 thru length(ans) do disp(ans[i])$
kill(ans)$

/home/alex/Загрузки/v0.png

### Задача (5б)

Тело совершает 1234 полных колебаний за 5.67 часа. Определите период и частоту колебаний.

disp("Дано:")$
set: [N_=1234, t_=5.68`hour``s]$
for i: 1 thru length(set) do disp(set[i])$

disp("Найти:")$
fnd: [T_, ν]$
for i: 1 thru length(fnd) do disp(fnd[i])$

disp("Уравнения:")$
eq: [T_=t_/N_, ν=N_/t_]$
for i: 1 thru length(eq) do disp(eq[i])$

disp("Решение:")$
ans: solve(eq, fnd)$
for i: 1 thru length(ans[1]) do disp(ans[1][i])$

disp("Ответ:")$
for i: 1 thru length(ans[1]) do
    disp(ev(constvalue(ans[1][i]), set, numer))$

kill(set, fnd, eq, ans)$

### Задача (5б)

Определите период и длину волны ноты Ре (♪ D4) в воздухе. Частота этой ноты 293.66 Гц, а скорость распространения звука в воздухе 0.334 км/с.

disp("Дано:")$
set: [ν=293.66`Hz, v=.334`km/s``m/s]$
for i: 1 thru length(set) do disp(set[i])$

disp("Найти:")$
fnd: [T_, λ]$
for i: 1 thru length(fnd) do disp(fnd[i])$

disp("Уравнения:")$
eq: [T_=1/ν, v=λ/T_]$
for i: 1 thru length(eq) do disp(eq[i])$

disp("Решение:")$
ans: solve(eq, fnd)$
for i: 1 thru length(ans[1]) do disp(ans[1][i])$

disp("Ответ:")$
for i: 1 thru length(ans[1]) do
    disp(ev(constvalue(ans[1][i]), set, numer))$

kill(set, fnd, eq, ans)$

### Задача (6б)

Юрий Шевчук на берегу Невы наблюдал как за 54 мин о берег ударилось 32 волны. Скорость распространения волны 1.0 м/с. Каковы длина волны и период колебаний?

disp("Дано:")$
set: [t_=54`minute``s,N_=32, v=1.0`m/s]$
for i: 1 thru length(set) do disp(set[i])$

disp("Найти:")$
fnd: [T_, λ]$
for i: 1 thru length(fnd) do disp(fnd[i])$

disp("Уравнения:")$
eq: [T_=t_/(N_-1), v=λ/T_]$
for i: 1 thru length(eq) do disp(eq[i])$

disp("Решение:")$
ans: solve(eq, fnd)$
for i: 1 thru length(ans[1]) do disp(ans[1][i])$

disp("Ответ:")$
for i: 1 thru length(ans[1]) do
    disp(ev(constvalue(ans[1][i]), set, numer))$

kill(set, fnd, eq, ans)$