/* [wxMaxima batch file version 1] [ DO NOT EDIT BY HAND! ]*/ /* [ Created with wxMaxima version 20.12.1 ] */ /* [wxMaxima: comment start ] Численное решение контрольных задач по физике Приложение к файлам контрольных работ (c) Черноус Алексей, 2022 , https://www.chernous.site [wxMaxima: comment end ] */ /* [wxMaxima: title start ] 7 класс <<Работа. Мощность. Энергия>> [wxMaxima: title end ] */ /* [wxMaxima: input start ] */ /* Загрузка единиц СИ, физических констант, производных констант и табличных величин */ load("const.mac")$ /* [wxMaxima: input end ] */ /* [wxMaxima: section start ] Вариант [wxMaxima: section end ] */ /* [wxMaxima: subsect start ] Задача (4б) [wxMaxima: subsect end ] */ /* [wxMaxima: comment start ] При равномерном подъеме из шахты нагруженной углём вагонетки массой $7.250~\text{т}$ произведена работа $12~\text{МДж}$. Какова глубина шахты? [wxMaxima: comment end ] */ /* [wxMaxima: input start ] */ disp("Дано:")$ set: [m=7.250`metric_ton``kg, A=12`MJ``J]$ for i: 1 thru length(set) do disp(set[i])$ disp("Найти:")$ fnd: [h]$ for i: 1 thru length(fnd) do disp(fnd[i])$ disp("Уравнения:")$ eq: [A=m*%g_n*h]$ for i: 1 thru length(eq) do disp(eq[i])$ disp("Решение:")$ ans: solve(eq, fnd)$ if lengtn(ans)>=1 then ans: ans[1]$ 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)$ /* [wxMaxima: input end ] */ /* [wxMaxima: subsect start ] Задача (5б) [wxMaxima: subsect end ] */ /* [wxMaxima: comment start ] Ударный вертолёт AH-64D <> массой $6.552~\text{тонн}$, летит на высоте $0.7~\text{км}$ со скоростью $214~\text{км/ч}$. Найдите полную механическую энергию вертолёта. [wxMaxima: comment end ] */ /* [wxMaxima: input start ] */ disp("Дано:")$ set: [m=6.552`metric_ton``kg, h=.7`km``m, v=214`km/hour``m/s]$ for i: 1 thru length(set) do disp(set[i])$ disp("Найти:")$ fnd: [E, E_k, E_p]$ for i: 1 thru length(fnd) do disp(fnd[i])$ disp("Уравнения:")$ eq: [E=E_p+E_k, E_p=m*%g_n*h, E_k=m*v^2/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)$ /* [wxMaxima: input end ] */ /* [wxMaxima: subsect start ] Задача (6б) [wxMaxima: subsect end ] */ /* [wxMaxima: comment start ] Тягач равномерно тянет орудие, прилагая силу в $16~{кН}$. За $30~{мин}$ он проходит путь $12~{км}$. Определить мощность, развиваемую тягачём? [wxMaxima: comment end ] */ /* [wxMaxima: input start ] */ disp("Дано:")$ set: [F=16`kN``N, t=30`minute``s, s=12`km``m]$ for i: 1 thru length(set) do disp(set[i])$ disp("Найти:")$ fnd: [N_T, A]$ for i: 1 thru length(fnd) do disp(fnd[i])$ disp("Уравнения:")$ eq: [N_T=A/t, A=F*s]$ 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)$ /* [wxMaxima: input end ] */ /* Old versions of Maxima abort on loading files that end in a comment. */ "Created with wxMaxima 20.12.1"$