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

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

# 8 класс <<Электрические цепи>>

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

## Вариант

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

Выберите формулу определения силы тока $1) U/R, 2) q/t, 3) A/q, 4) \rho l/S$.

disp("Дано:")$
set: [I=U/R, I=q/t, U=A/q, R=ρ*l/S]$
for i: 1 thru length(set) do disp(i, set[i])$
disp("Найти:")$
disp("Уравнения:")$
disp("Решение:")$
disp("Ответ: 2")$
kill(set)$

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

Определить падение напряжения в линии электропередачи длиной $10.3~\text{км}$ при токе в ней $3~\text{А}$. Проводка выполнена алюминиевым проводом сечением $10~\text{мм}^2$. [$\rho_{Al}=2.8\cdot10^{-8}~\text{Ом}\cdot\text{м}$]

disp("Дано:")$
set: [l=10.3`km``m, I=3`A, S=10`mm^2``m^2, ρ=_rho_Al]$
for i: 1 thru length(set) do disp(set[i])$
disp("Найти:")$
fnd: [U, R]$
for i: 1 thru length(fnd) do disp(fnd[i])$
disp("Уравнения:")$
eq: [R=ρ*l/S, I=U/R]$
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)$

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

Чему равна сила тока в лампе сопротивлением $17~\text{кОм}$, если напряжение в сети составляет $127~\text{В}$?

disp("Дано:")$
set: [R=17`kOhm``Ohm, U=127`V]$
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=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)$

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

Два проводника сопротивлением $23~\text{Ом}$ и $74~\text{Ом}$, соединены параллельно. Определить ток в каждом проводнике, если общий ток $0.3~\text{А}$.

disp("Дано:")$
set: [R_1=23`Ohm, R_2=74`Ohm, I=.3`A]$
for i: 1 thru length(set) do disp(set[i])$
disp("Найти:")$
fnd: [I_1, I_2, R, U]$
for i: 1 thru length(fnd) do disp(fnd[i])$
disp("Уравнения:")$
eq: [I_1=U/R_1, I_2=U/R_2, I=U/R, 1/R=1/R_1+1/R_2]$
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)$

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

Определить общее сопротивление цепи, если сопротивление каждого резистора $6~\text{Ом}$.

disp("Дано:")$
set: [R_i=6`Ohm]$
for i: 1 thru length(set) do disp(set[i])$
disp("Найти:")$
fnd: [R_0, R_1, R_2]$
for i: 1 thru length(fnd) do disp(fnd[i])$
disp("Уравнения:")$
eq: [R_0=2*R_i+R_2, 1/R_2=2/R_1, R_1=2*R_i]$
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)$

/home/alex/1.png