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

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

# Физика 10 <<Постоянный ток>>

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

## Вариант

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

Сила тока на участке цепи $345~\text{мкА}$. Каково напряжение на участке, если его сопротивление $0.073~\text{МОм}$?

disp("Дано:")$
set: [R=.073`MOhm``Ohm, I=345`microA``A]$
for i: 1 thru length(set) do disp(set[i])$
disp("Найти:")$
fnd: [U]$
for i: 1 thru length(fnd) do disp(fnd[i])$
disp("Уравнения:")$
eq: [I=U/R]$
for i: 1 thru length(eq) do disp(eq[i])$
disp("Решение:")$
ans: solve(eq, fnd)$
for i: 1 thru length(ans) do disp(ans[i])$
disp("Ответ:")$
for i: 1 thru length(ans) do
    disp(ev(constvalue(ans[i]), set, numer))$
kill(set, fnd, eq, ans)$

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

 В электрической лампе, рассчитанной на напряжение $220~\text{В}$, сила тока равна $678~\text{мА}$. Какова мощность лампы?

disp("Дано:")$
set: [U=220`V, I=678`mA``A]$
for i: 1 thru length(set) do disp(set[i])$
disp("Найти:")$
fnd: [P]$
for i: 1 thru length(fnd) do disp(fnd[i])$
disp("Уравнения:")$
eq: [P=I*U]$
for i: 1 thru length(eq) do disp(eq[i])$
disp("Решение:")$
ans: solve(eq, fnd)$
for i: 1 thru length(ans) do disp(ans[i])$
disp("Ответ:")$
for i: 1 thru length(ans) do
    disp(ev(constvalue(ans[i]), set, numer))$
kill(set, fnd, eq, ans)$

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

К источнику с ЭДС $12~\text{В}$ присоединили лампу, сопротивлением $543~\text{Ом}$. Найдите силу тока в лампе, если внутреннее сопротивление источника равно $0.9~\text{Ом}$.

disp("Дано:")$
set: [E=12`V, R=543`Ohm, r=.9`Ohm]$
for i: 1 thru length(set) do disp(set[i])$
disp("Найти:")$
fnd: [I]$
for i: 1 thru length(fnd) do disp(fnd[i])$
disp("Уравнения:")$
eq: [I=E/(R+r)]$
for i: 1 thru length(eq) do disp(eq[i])$
disp("Решение:")$
ans: solve(eq, fnd)$
for i: 1 thru length(ans) do disp(ans[i])$
disp("Ответ:")$
for i: 1 thru length(ans) do
    disp(ev(constvalue(ans[i]), set, numer))$
kill(set, fnd, eq, ans)$

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

Найдите распределение сил токов и напряжений в цепи, изображенной на рисунке, если вольтметр показывает $23~\text{В}$, а $R_1=1~\text{Ом}$, $R_2=2~\text{Ом}$, $R_З=3~\text{Ом}$, $R_4=4~\text{Ом}$, $R_5=5~\text{Ом}$, $R_6=6~\text{Ом}$, $R_7=7~\text{Ом}$.

disp("Дано:")$
set: [U_23=23`V, R_1=1`Ohm, R_2=2`Ohm, R_3=3`Ohm, R_4=4`Ohm, R_5=5`Ohm, R_6=6`Ohm, R_7=7`Ohm]$
for i: 1 thru length(set) do disp(set[i])$
disp("Найти:")$
fnd: [I_1, I_2, I_3, I_4, I_5, I_6, I_7, U_1, U_2, U_3, U_4, U_5, U_6, U_7, R_23, R_456, I_23, I_456, U_456, I, U, R]$
for i: 1 thru length(fnd) do disp(fnd[i])$
disp("Уравнения:")$
eq: [I=U/R, I=I_1+I_7, U=U_7, U=U_1+U_23+U_456, 1/R=1/R_7+1/(R_1+R_23+R_456),
    I_1=U_1/R_1, I_2=U_2/R_2, I_3=U_3/R_3, I_4=U_4/R_4, I_5=U_5/R_5, I_6=U_6/R_6, I_7=U_7/R_7,
    1/R_23=1/R_2+1/R_3, 1/R_456=1/R_4+1/R_5+1/R_6,
    I_23=U_23/R_23, I_456=U_456/R_456, I_1=I_23, I_1=I_456,
    U_23=U_2, U_23=U_3, U_456=U_4, U_456=U_5, U_456=U_6]$
for i: 1 thru length(eq) do disp(eq[i])$
disp("Решение:")$
ans: solve(eq, fnd)$
for i: 1 thru length(ans) do disp(ans[i])$
disp("Ответ:")$
for i: 1 thru length(ans) do
    disp(ev(constvalue(ans[i]), set, numer))$
kill(set, fnd, eq, ans)$

/home/alex/2.png