(L%2CK)%20%D0%BD%D0%B5%20%D1%80%D0%B0%D0%B1%D0%BE%D1%82%D0%B0%D0%B5%D1%82%2C%20%D0%BA%D0%BE%D0%B3%D0%B4%D0%B0%20%D1%82%D0%BE%D1%87%D0%BA%D0%B8%20%D0%BE%D0%BF%D1%80%D0%B5%D0%B4%D0%B5%D0%BB%D0%B5%D0%BD%D1%8B%20%5CtkzDefBarycentricPoint(A%3D1%2CD%3D2)%20%5CtkzGetPoint%7BK%7D.png)
Я выполнил это упражнение, чтобы найти точку пересечения прямой и плоскости.
С этим кодом:
\documentclass[9pt,handout]{beamer}
\usepackage{tkz-base}
\usepackage{pgf,tkz-euclide}
\usetkzobj{all}
\usepackage{pgfplots}
\pgfplotsset{compat=newest}
\begin{document}
\begin{frame}
\begin{center}
\begin{tikzpicture}
\tkzInit[ymax=7,xmax=9]
\tkzDefPoints{1/0/A, 6/0/B, 6/5/C, 1/5/D}
\tkzDefShiftPoint[A](30:2.5){E};
\tkzDefShiftPoint[B](30:2.5){F};
\tkzDefShiftPoint[C](30:2.5){G};
\tkzDefShiftPoint[D](30:2.5){H};
%%bepalen van lijstuk [ST]
\tkzDefBarycentricPoint(A=1,D=2) \tkzGetPoint{K};
\tkzDrawPoints(K)
\tkzLabelPoints[left](K)
\tkzDefBarycentricPoint(E=1,F=-2.5) \tkzGetPoint{L};
\tkzDrawPoints(L)
\tkzLabelPoints[above](L)
\tkzDrawSegments(A,B B,C C,D D,A F,G G,H B,F D,H C,G K,L);
\tkzDrawSegments[dashed](A,E E,F E,H F,L);
\tkzDrawPolygon[fill=orange!40, opacity=.4](B,C,G,F);
%\tkzDrawPoints(A,B,C,D,E,F,G,H);
\tkzLabelPoints[above](C,D,G,H);
\tkzLabelPoints[below](A,B,E,F); \pause
%%% tekenen van het hulpvlak
\tkzDrawPolygon[color=green,thick](A,D,L); \pause
\tkzDefShiftPoint[L](90:5){K};
\tkzDrawPolygon[fill=green,opacity=0.1,thick](A,D,K,L); \pause
%%% tekenen van de snijlijn
\tkzInterLL(C,G)(D,K) \tkzGetPoint{S1};
\tkzInterLL(A,L)(B,F) \tkzGetPoint{S2};
\tkzDrawPoint[color=red,size=8,fill=red](S1);
\tkzLabelPoint[color=red,above](S1) {S$_1$}; \pause
\tkzDrawPoint[color=red,size=8,fill=red](S2);
\tkzLabelPoint[color=red,below](S2) {S$_2$}; \pause
\tkzDrawSegment[color=red,thick](S1,S2) \pause
\tkzInterLL(S1,S2)(L,D) \tkzGetPoint{S} %%%% <<<< this works fine, but is not correct
%\tkzInterLL(S1,S2)(L,K) \tkzGetPoint{S} %%%% <<<< this doesn't work fine, but is correct
\tkzDrawPoint[color=red,size=10,fill=red](S)
\tkzLabelPoints[color=red,right](S)
\end{tikzpicture}
\end{center}
\end{frame}
\end{document}
Как вы можете прочитать в моем коде, пересечение между KL
и S1S2
не работает. Я проверил все остальные точки (H,G,D,C,...), но единственное, что не работает, это использование KL. Достаточно странно, но K и L определяются как
\tkzDefBarycentricPoint(A=1,D=2) \tkzGetPoint{K};
\tkzDefBarycentricPoint(E=1,F=-2.5) \tkzGetPoint{L};
Я мог бы определить точку K
простым способом, но я хочу знать, почему это не работает. (в файле ошибок говорится FP error: Division by zero!.
, что это не имеет для меня смысла?)
решение1
Проблема в том, что вы переопределяете K
с помощью \tkzDefShiftPoint[L](90:5){K};
и поэтому линии (K,L)
и (S1,S2)
параллельны, поэтому \tkzInterLL(S1,S2)(L,K)
не определено.