kopie minulého náboje + nové úlohy

naboj/problems/graphics/problem_1999_18_reseni.mp

@@ -0,0 +1,52 @@
+input fks
+verbatimtex
+%&latex
+\documentclass[9pt]{extarticle}
+\usepackage[utf8]{inputenc}
+\usepackage{fkssugar}
+\begin{document}
+etex
+ 
+prologues:=3;
+u:=1cm;
+ 
+beginfig(1);
+u:=.3cm;
+
+def spojka(expr A,B)=
+   alphamo := 30;
+   delkasipky := .07;
+   path delka;
+   delka := A--B;
+   sipka := sqrt((ypart(A-B)**2)+(xpart(A-B)**2))*delkasipky; %vzdalenost bodu A a B
+   draw delka;
+   draw A--A+sipka*dir (angle(A-B)+180-alphamo);
+   draw A--A+sipka*dir (angle(A-B)+180+alphamo);
+   draw B--B+sipka*dir (angle(B-A)+180-alphamo);
+   draw B--B+sipka*dir (angle(B-A)+180+alphamo);
+enddef;
+
+spojka((0,8u),(0,-8u));
+
+fill (20u,8u)--(12u,4u)--(12u,-4u)--(20u,-8u)--cycle withcolor .95white;
+fill (-10u,7u)--(-4u,4u)--(-4u,-4u)--(-10u,-7u)--cycle withcolor .95white;
+
+draw (-2u,2u)--(-6u,2u)--(-6u,-2u)--(-2u,-2u)--cycle;
+draw (-10u, 0)--(20u,0) withpen pencircle scaled .1bp;
+
+carka:=.2u;
+draw (-4u,carka)--(-4u,-carka);
+draw (4u,carka)--(4u,-carka);
+draw (-4u,0)--(0,4u)--(12u,4u)--(20u,8u);
+draw (-6u,2u)--(0,-4u)--(12u,-4u)--(0u,2u)--(-2u,2u);
+draw (12u,4u)--(12u,-4u)--(20u,-4u);
+draw (12u,-4u)--(20u,-8u);
+draw (0,4u)--(-10u,4u) dashed dashpattern (on .3u off .3u);
+draw (0,2u)--(-4u,4u) dashed dashpattern (on .3u off .3u);
+draw (-10u,7u)--(-4u,4u)--(-4u,-4u)--(-10u,-7u);
+endfig;
+verbatimtex
+\end{document}
+etex
+ 
+end;