Скрипты рисунков на 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