Скрипты рисунков на MetaPost
[Download]
mp_11.html

       
 1    % !TeX encoding = UTF-8 Unicode
 2    % !TeX program = lualatex

 4    % MSP, 20.07.20, 15:25

 6    % FILE: pict_z16_v10_2020.tex

 8    % TASK
 9    %   На гипотенузе AB и катетах BC и AC прямоугольного треугольника
 10   %   ABC отмечены точки M, N и K соответственно, причём прямая NK
 11   %   параллельна прямой AB и BM = BN = 1/2 KN. Точка P -- середина
 12   %   отрезка KN.

 14   %   а) Докажите, что четырёхугольник BCPM -- равнобедренная трапеция.
 15   %   б) Найдите площадь треугольника ABC, если BM = 1 и /_ BCM = 15o.

 17   % Compilator: LuaLaTex
 18   % Font Encoding: utf-8
 19   % Cod picture: luamplib & mplibcode

 21   % MSP, 23.10.17, 19:08
 22   % NOTE. LuaLaTeX обрабатывает файлы только в кодировке UTF-8
 23   %       В настройках редактора выберите UTF-8

 25   % titlepage - отмена нумерации 1-ой страницы
 26   \documentclass [border = 5mm] {standalone}

 28   \usepackage {luamplib}
 29   \begin {document}
 30     \begin {mplibcode}

 32       % чтобы шрифт записывался прямо в Post-script-cod картинки
 33       prologues := 3;

 35       % загрузим библиотеку макросов
 36       input macros_msp;

 38       % 256 цветов
 39       input mpcolornames;

 41       % рисунок N 1
 42       beginfig (1);

 44         % расстояние отступа для меток (label)
 45         labeloffset := 5bp;

 47         % Шрифт
 48         defaultfont := "phvr8r";

 50         % увеличение шрифта
 51         defaultscale := 1.2;
 52         %defaultscale := 12pt / fontsize defaultfont;

 54         % толщина пера
 55         pickup pencircle scaled 1bp;

 57         % масштаб
 58         u := .5cm;

 60         color lblue;
 61         lblue := DeepSkyBlue3;

 63         %color lgreen;
 64         %lgreen := OliveDrab3;

 66         % Вершины треугольника ABC
 67         pair A, B, C, M, N, K, P;
 68         C := origin;

 70         K := (0, 5u);
 71         draw_point (K)(black)(5bp);
 72         label.lft ("K", K);

 74         N := (9u, 0);

 76         % построим треугольник ABC
 77         draw C--K--N--cycle;

 79         % KN = 2 * BN
 80         numeric L;
 81         % длина [KN]
 82         L := abs (K-N);
 83         B = (xpart N + 1/2L, 0);

 85         % скрытая точка на прямой (B--z1)
 86         alfa := angle (K-N);
 87         z1-B = 9cm * dir (alfa);
 88         %draw_point (z1)(black)(5bp);
 89         %label.top ("z1", z1);

 91         % скрытая точка z2 на прямой (C--K)
 92         alfa := angle (C-K);
 93         K-z2 = 3cm * dir (alfa);
 94         %draw_point (z2)(black)(5bp);
 95         %label.top ("z2", z2);

 97         % A
 98         path p, q;
 99         p := K--z2;
 100        q := B--z1;
 101        A = p intersectionpoint q;
 102        draw_point (A)(black)(5bp);
 103        label.lft ("A", A);

 105        draw C--A--B--cycle;

 107        % M
 108        p := quartercircle scaled (L) rotated 90 shifted B;
 109        %draw p;
 110        q := B--A;
 111        M = p intersectionpoint q;

 113        % P
 114        P = 1/2 [K, N];

 116        % KP = PN = NB = BM
 117        draw_marked (K--P)(1)(black);
 118        draw_marked (P--N)(1)(black);
 119        draw_marked (N--B)(1)(red);
 120        draw_marked (B--M)(1)(red);

 122        % BCPM
 123        draw B--C--P--M--cycle withcolor red;

 125        % CM
 126        draw C--M withcolor lblue;

 128        % отметим одной дужкой угол BCM
 129        mark_angle (B, C, M)(0)(lblue)(6bp);

 131        draw_point (C) (red) (5bp);
 132        label.llft ("C", C);

 134        draw_point (P)(red)(5bp);
 135        label.top ("P", P);

 137        draw_point (M)(red)(5bp);
 138        label.top ("M", M);

 140        draw_point (B)(red)(5bp);
 141        label.bot ("B", B);

 143        draw_point (N)(red)(5bp);
 144        label.bot ("N", N);

 146      endfig;

 148      bye.

 150    \end {mplibcode}
 151  \end {document}



     
Web-листинг с сайта http://www.Best-Listing.ru
Автор решения: Сергей Митрофанов Кто подготовил код к публикации: Sergey Mitrofanov
Дата записи в базу данных: 01-08-2020 Время записи в базу данных: 15:23:31
Просмотров: 20 Download: 22
mp_11.html
[Download]

Скрипты рисунков на MetaPost
Valid XHTML 1.0 Transitional Valid CSS

Copyright © www.Best-Listing.ru, 2006–2024