File:Pedal line illustration.svg

原始文件 (SVG文件,尺寸为143 × 143像素,文件大小:21 KB)


摘要

描述
日期
来源 自己的作品
作者 Snubcube

Source code

\documentclass{article}

\usepackage{pstricks,pst-plot,color}
\usepackage[margin=0cm,papersize={114px,114px}]{geometry}
\newcommand{\PI}{3.14159\space}
\definecolor{dkgreen}{rgb}{0 .5 0}
\psset{unit=50px}

\renewcommand{\th}{.02\space}
\newcommand{\cth}{.015\space}
\newcommand{\pth}{.01\space}
\newcommand{\ballrad}{0.04}
\newcommand{\perplen}{0.1\space}

\newcommand{\cs}{180 mul \PI div cos\space}
\newcommand{\sn}{180 mul \PI div sin\space}
\newcommand{\cpt}{\space dup \cs exch \sn}

\newcommand{\ptA}{0.5 \PI mul\cpt}
\newcommand{\ptB}{1.3 \PI mul\cpt}
\newcommand{\ptC}{1.8 \PI mul\cpt}
\newcommand{\ptP}{1.0 \PI mul\cpt}
\newcommand{\dashlen}{.03}

\renewcommand{\ln}[4]{\psline[linewidth=\th,linecolor=#3,linestyle=#4,dash=\dashlen]{c-c}(! #1)(! #2)}

% ax ay bx by -> ax-bx ay-by
\newcommand{\subpt}{3 2 roll exch sub 3 1 roll sub exch \space}

% ax ay bx by -> ax+bx ay+by
\newcommand{\addpt}{3 2 roll add 3 1 roll add exch \space}

% ax ay bx by -> ax*bx+ay*by
\newcommand{\dotpt}{3 2 roll mul 3 1 roll mul add \space}

% ax ay c -> c*ax c*ay
\newcommand{\scpt}{dup 3 1 roll mul 3 1 roll mul exch \space}

% ax ay -> ax ay ax ay
\newcommand{\duppt}{dup 3 2 roll dup 4 1 roll exch \space}

\newcommand{\normpt}{\duppt \duppt \dotpt sqrt 1 exch div \scpt}

\newcommand{\perppt}[3]
{
  #2 #1 \subpt \duppt #3 #1 \subpt \dotpt
  #2 #1 \subpt \duppt \dotpt
  div
  \scpt
  #1
  \addpt
}

\newcommand{\ptN}{\perppt{\ptA}{\ptB}{\ptP}}
\newcommand{\ptM}{\perppt{\ptC}{\ptA}{\ptP}}
\newcommand{\ptL}{\perppt{\ptB}{\ptC}{\ptP}}

\newcommand{\pt}[4]
{
  \pscircle[linewidth=0,linestyle=none,fillstyle=solid,fillcolor=#2](! #1){\ballrad}
  \uput{.07}[#3](! #1){#4}
}
\newcommand{\ha}[2]{#1 #2 \subpt \normpt \perplen \scpt #2 \addpt}

\newcommand{\plang}[3]
{
  \psline[linewidth=\pth,linecolor=black]{c-c}(! \ha{#1}{#2})(! \ha{#1}{#2} \ha{#3}{#2} \addpt #2 \subpt)(! \ha{#3}{#2})
}

\begin{document}
\noindent
\begin{pspicture}(-1.23,-1.04)(1.04,1.22)
  \pscircle[linewidth=\cth,linecolor=black](0,0){! 1 \cth 2 div add}
  \ln{\ptA}{\ptB}{red}{solid}
  \ln{\ptC}{\ptB}{red}{solid}
  \ln{\ptA}{\ptC}{red}{solid}
  \ln{\ptB}{\ptL}{red}{dashed}
  \ln{\ptL}{\ptP}{dkgreen}{solid}
  \ln{\ptL}{\ptP}{dkgreen}{solid}
  \ln{\ptM}{\ptP}{dkgreen}{solid}
  \ln{\ptN}{\ptP}{dkgreen}{solid}
  \ln{\ptL}{\ptM}{blue}{solid}
  \pt{\ptA}{red}{u}{$A$}
  \pt{\ptB}{red}{d}{$B$}
  \pt{\ptC}{red}{r}{$C$}
  \pt{\ptL}{blue}{d}{$L$}
  \pt{\ptM}{blue}{r}{$M$}
  \pt{\ptN}{blue}{r}{$N$}
  \pt{\ptP}{dkgreen}{l}{$P$}
  \plang{\ptP}{\ptM}{\ptA}
  \plang{\ptP}{\ptN}{\ptB}
  \plang{\ptP}{\ptL}{\ptC}
\end{pspicture}

\end{document}

许可协议

Public domain 我,本作品著作权人,释出本作品至公有领域。这适用于全世界。
在一些国家这可能不合法;如果是这样的话,那么:
我无条件地授予任何人以任何目的使用本作品的权利,除非这些条件是法律规定所必需的。

说明

添加一行文字以描述该文件所表现的内容

此文件中描述的项目

描繪內容

文件历史

点击某个日期/时间查看对应时刻的文件。

日期/时间缩⁠略⁠图大小用户备注
当前2016年6月26日 (日) 19:072016年6月26日 (日) 19:07版本的缩略图143 × 143(21 KB)SnubcubeUser created page with UploadWizard

以下2个页面使用本文件:

全域文件用途

以下其他wiki使用此文件:

元数据