- Файл
- История файлов
- Использование файла
- Глобальное использование файлов
- Метаданные
Исходный файл (SVG - файл, номинально 303 × 147 пикселей, размер файла: 21 КБ)
Резюме
ОписаниеShell-diag-1.svg | Английский: диаграмма, иллюстрирующая вывод теоремы Ньютона об оболочке. Показана тонкая оболочка с пробной массой вне оболочки ( ). |
Дата | |
Источник | Наша работа |
Автор | Xaonon |
Лицензирование
| Этот файл находится под лицензией Creative Commons Attribution-Share Alike 4.0 International . | |
https://creativecommons.org/licenses/by-sa/4.0 CC BY-SA 4.0 Лицензия Creative Commons Attribution-Share Alike 4.0 правдаправда |
Источник
Это и другие изображения из той же серии ( 2 , 3 , 4 ) были созданы из кода MetaPost, представленного ниже. Код выпущен под той же лицензией, что и сами изображения.
% shell-diag.mp% Диаграмма, иллюстрирующая вывод теоремы Ньютона об оболочке. Быть% обработано с помощью MetaPost:% mpost --mem = metafun.mem -s 'outputformat = "svg"' -s prologues = 3 shell-diag.mpцветная полоса, заливка;полоса = 0,7 [синий, белый];заливка = 0,9 белого цвета;числовой размер точки, град;dotsize = 5 п.н .;град = длина (полный круг) / 360;freelabeloffset: = 3/4 freelabeloffset;labeloffset: = 2 labeloffset;def точка (выражение P) = заполнить полный круг масштабированной точки со сдвигом P цветом черным;enddef;def draw_circle (выражение R, ход) = сохранить p; ручка p; p = currentpen; пикап p масштабированный ход; нарисовать полный круг в масштабе 2R; пикап р;enddef;vardef anglebetween (expr a, b, rad, str) = сохранить endofa, endofb, common, curve, где; пара эндофа, эндофб, общий; кривая пути; числовой где; endofa = длина точки (a) a; endofb = длина точки (b) точки b; если округление 0 точки a = округление 0 точки b: общий = точка 0 из а; еще: общий = точка пересечения b; fi; где = номер поворота (обычный - endofa - endofb - цикл); curve = (unitvector (endofa - общий) {(endofa - общий) повернутый (90 * где)} .. unitvector (endofb - common)) масштабированный рад смещенный общий; нарисуйте свободную метку (str, точка 1/2 кривой, общий) черным цветом; изгибenddef;def draw_angle (выражение a, b, rad, str) = группа сохранить p; ручка p; p = currentpen; пикап p в масштабе 1/2; провести угол между (a, b, rad, str); пикап р; конечная группаenddef;def label_line (expr a, b, disp, str) = группа сохранить середину, опп; пара мид, опп; mid = 1/2 [a, b]; opp = -disp повернутый (угол (b - a) - 90) смещен на середину; нарисуйте метку освобождения (str, mid, opp); нарисуйте а - б; конечная группаenddef;def draw_thinshell (expr R, r, theta, dtheta, thetarad, phirad) = группа сохранить М, м; пара М, м; М = (0, 0); т = (г, 0); сохранить CIRC; путь круговой; circ = масштабированный по полному кругу 2R; сохраните thetapt, dthetapt; пара thetapt, dthetapt; thetapt = точка (тета * градус) круговой диаграммы; dthetapt = точка ((theta + dtheta) * градус) по кругу; сохранить верхнюю, нижнюю, полосу; дорожка верхняя, нижняя, тесьма; верхний = подпуть (0, 4) циркуля; нижний = подпуть (4, 8) циркуля; band = buildcycle (верхний, (xpart thetapt, R) - (xpart thetapt, -R), нижний, (xpart dthetapt, R) - (xpart dthetapt, -R)); % розыгрыша цифр сохранить p; ручка p; p = currentpen; пикап p в масштабе 1/2; заполнить полосу цветной полосой; лента для рисования; пикап р; сохранить рядом, далеко; пара рядом, далеко; если тета <90: near = 3/4 [группа ulcorner, группа llcorner]; дальний = сдвинуто вправо рядом; еще: near = 3/4 [полоса urcorner, полоса lrcorner]; дальний = сдвинут влево рядом; fi; нарисуйте ярлык освобождения (btex $ dM $ etex, near, far); точка (М); % label.llft (btex $ M $ etex, M); точка (м); label.lrt (btex $ m $ etex, m); нарисовать М - тэтапт; label_line (M, m, right, btex $ r $ etex); label_line (m, thetapt, right, btex $ s $ etex); если R <> r: label_line (M, dthetapt, left, btex $ R $ etex); еще: нарисовать M - dthetapt; fi; draw_angle (m - M, m - thetapt, phirad, btex $ \ phi $ etex); draw_angle (M - m, M - thetapt, thetarad, btex $ \ theta $ etex); draw_angle (M - thetapt, M - dthetapt, R, btex $ d \ theta $ etex); конечная группаenddef;def draw_thickshell (expr Ra, Rb, r) = группа сохранить м; пара м; т = (г, 0); заполнить полный круг в масштабе 2Rb цветной заливкой; заполнить масштабированный 2r полный круг цветной полосой; заполнить полный круг в масштабе 2Ra; точка (происхождение); точка (м); label.lrt (btex $ m $ etex, m); label_line (origin, m, right, btex $ r $ etex); draw_circle (Rb, 2); нарисовать круг (Rb, 2); если Ra> 0: draw_circle (Ra, 2); label_line (origin, dir (100) scaled Rb, left, btex $ R_b $ etex); label_line (origin, dir (80) scaled Ra, right, btex $ R_a $ etex); еще: label_line (origin, dir (90) scaled Rb, left, btex $ R_b $ etex); fi; конечная группаenddef;% Тонкая оболочка, r> Rbeginfig (1) числовой R; R = 1 дюйм; draw_thinshell (R, 3R, 50, 15, 1/4 дюйма, 3/4 дюйма); draw_circle (R, 2); нарисовать круг (R, 2); устанавливает привязку текущего изображения к ограничивающей рамке, увеличенное изображение текущего изображения на 1 пункт;endfig;% Тонкая оболочка, rbeginfig (2) числовой R; R = 1 дюйм; draw_thinshell (R, 0,7R, 125, 15, 1/8 дюйма, 1/3 дюйма); draw_circle (R, 2); нарисовать круг (R, 2); устанавливает привязку текущего изображения к ограничивающей рамке, увеличенное изображение текущего изображения на 1 пункт;endfig;% Толстая оболочкаbeginfig (3) числовые Ra, Rb, r; Ra = 0,8 дюйма; Rb = 1,3 дюйма; r = 1 дюйм; draw_thickshell (Ra, Rb, r); устанавливает привязку текущего изображения к ограничивающей рамке, увеличенное изображение текущего изображения на 1 пункт;endfig;% Сплошная сфераbeginfig (4) числовые Ra, Rb, r; Ra = 0; Rb = 1,3 дюйма; r = 1 дюйм; draw_thickshell (Ra, Rb, r); устанавливает привязку текущего изображения к ограничивающей рамке, увеличенное изображение текущего изображения на 1 пункт;endfig;конец
Элементы, изображенные в этом файле
изображает
создатель
некоторая ценность
статус авторского права
защищенный авторским правом
лицензия на авторское право
Creative Commons Attribution-ShareAlike 4.0 International
источник файла
оригинальное творение пользователя, загрузившего
зарождение
25 февраля 2017 г.
История файлов
Щелкните дату / время, чтобы просмотреть файл в том виде, в котором он был в то время.
Дата / время | Эскиз | Габаритные размеры | Пользователь | Комментарий | |
---|---|---|---|---|---|
Текущий | 00:55, 26 февраль 2017 | 303 × 147 (21 КБ) | Xaonon | настроить ограничивающую рамку | |
00:10, 26 февраль 2017 | 301 × 145 (21 КБ) | Xaonon | Страница, созданная пользователем с помощью UploadWizard |
Использование файла
Глобальное использование файлов
Следующие другие вики используют этот файл:
- Использование на ar.wikipedia.org
- نظرية القشرة الكروية
- Использование на no.wikipedia.org
- Ньютон gravitasjonslov
- Электростатикк
Метаданные
Этот файл содержит дополнительную информацию, вероятно, добавленную с цифровой камеры или сканера, которые использовались для ее создания или оцифровки.
Если файл был изменен по сравнению с исходным состоянием, некоторые детали могут не полностью отражать измененный файл.
Ширина | 303,439804 |
---|---|
Высота | 146,992523 |