跳至內容

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 我,此作品的版權所有人,釋出此作品至公共領域。此授權條款在全世界均適用。
這可能在某些國家不合法,如果是的話:
我授予任何人有權利使用此作品於任何用途,除受法律約束外,不受任何限制。

說明

添加單行說明來描述出檔案所代表的內容

在此檔案描寫的項目

描繪內容

檔案來源 Chinese (Taiwan) (已轉換拼寫)

檔案歷史

點選日期/時間以檢視該時間的檔案版本。

日期/時間縮⁠圖尺寸使用者備⁠註
目前2016年6月26日 (日) 19:07於 2016年6月26日 (日) 19:07 版本的縮圖143 × 143(21 KB)SnubcubeUser created page with UploadWizard

下列2個頁面有用到此檔案:

全域檔案使用狀況

以下其他 wiki 使用了這個檔案:

詮釋資料