diff options
Diffstat (limited to 'Master/texmf-dist/doc/generic/pstricks/voss/bsp347.tex')
-rw-r--r-- | Master/texmf-dist/doc/generic/pstricks/voss/bsp347.tex | 98 |
1 files changed, 0 insertions, 98 deletions
diff --git a/Master/texmf-dist/doc/generic/pstricks/voss/bsp347.tex b/Master/texmf-dist/doc/generic/pstricks/voss/bsp347.tex deleted file mode 100644 index 71b51bd20e7..00000000000 --- a/Master/texmf-dist/doc/generic/pstricks/voss/bsp347.tex +++ /dev/null @@ -1,98 +0,0 @@ -\documentclass{report} -\usepackage{amsmath} -\usepackage{pstricks,pst-node} -\SpecialCoor -\pagestyle{empty} -%___ POWER SCHEME ___ -% -% \begin{PSpic_PowSch}{`width'}{`height'}{`label pow-in'}{`label pow-out'} -% \PowLoss[`inter pow flux label']% -% {`relative horizontal position'}% -% {`loss relative amount'}{`label'} -% ... -% \end{PSpic_PowSch} -% -\makeatletter -\def\Mul#1#2#3{% - \pst@dima=#1 pt\pst@dimb=#2\pst@dima% - \edef\value{\pst@number\pst@dimb}% - \let#3=\value% -} -\newcommand{\PowLoss}[4][ ]{% - \Mul{#2}\Lrgh\DeltaX - \Mul{#3}\PW\DeltaY - \Mul\DeltaY{0.5}\HalfDeltaY - \Mul\DeltaY\rCur\SmallRadius - \Mul\DeltaY\rLarr\ArrowFly - \Mul\DeltaY\rHarr\ArrowPeak -% NODE DEFINITIONS - \pnode(CurPoint){PrevPoint} - \pnode(\DeltaX,0|PrevPoint){PointRelX} - \pnode([nodesep=\DeltaY,angle=-90]PrevPoint){PointRelY} - \pnode(PointRelX|PointRelY){CurPoint} - \pnode([nodesep=\SmallRadius,angle=90]PointRelX){PointRadius} - \pnode([nodesep=\SmallRadius,angle=0]PointRadius){PointOne} - \pnode([nodesep=\ArrowFly,angle=180]PointOne){PointTwo} - \pnode([nodesep=\DeltaY,angle=0]PointOne){PointThree} - \pnode([nodesep=\ArrowFly,angle=0]PointThree){PointFour} - \pnode([nodesep=\HalfDeltaY,angle=0]PointOne|[nodesep=\ArrowPeak,angle=90]PointOne){PointPeak} -% DRAWING ARROW - \psline(PrevPoint)(PointRelX) - \ncarc[arcangle=-45]{-}{PointRelX}{PointOne} - \ncarc[arcangle=-45]{-}{CurPoint}{PointThree} - \psline(PointOne)(PointTwo)(PointPeak)(PointFour)(PointThree) - \nput[labelsep=.2]{90}{PointPeak}{#4}% loss label -% OPTIONAL POWER FLUX LABEL - \ifx#1 \relax % if no label do nothing - \else\ncline[linestyle=none]{-}{PrevPoint}{PointRelX}\ncput{\pnode{MPointUp}} - \pnode(MPointUp|0,0){MPointDwn} - \ncline[linestyle=solid,linewidth=.5pt,nodesep=.05]{<->}{MPointUp}{MPointDwn}\naput{#1}\fi -} -\newlength{\ObjWidth} -\newenvironment{PSpic_PowSch}[4]{% >>> OPENING ENVIRONMENT - \psset{unit=1cm,linestyle=solid,linewidth=.035} -% DIMENSIONAL PARAMETERS DEFINITION - \def\Lrgh{#1}\def\Altz{#2}% PSpicture dimensions - \def\Hcoeff{.65} - \Mul\Hcoeff\Altz\PW% pow-in relative value (`fp.sty' needed) - \def\rHarr{.8}\def\rLarr{.35}% loss arrows relative dimensions - \def\rCur{1}% arrows curvature radius relative value - \def\Punta{.5}% in-out peak dimension -% PICTURE - \begin{pspicture}(\Lrgh,\Altz) - \pnode(!0 \Hcoeff\space \Altz\space mul){StartPoint} - \pnode(StartPoint){CurPoint} - \pnode(!\Punta\space \Hcoeff\space \Altz\space mul 2 div){MiddleSx} - \psline(0,0)(MiddleSx)(StartPoint) - \nput[labelsep=.3]{0}{MiddleSx}{#3}% pow-in label - \def\potUlabel{#4}}% pow-out label - {% >>> CLOSING ENVIRONMENT - \pnode(\Lrgh,0){ExtPointDxDown} - \pnode(ExtPointDxDown|CurPoint){ExtPointDxUp} - \ncline[linestyle=none]{-}{ExtPointDxUp}{ExtPointDxDown}\ncput{\pnode{MiddleDx}} - \psline(CurPoint)([nodesep=\Punta,angle=180]ExtPointDxUp)(MiddleDx)% - ([nodesep=\Punta,angle=180]ExtPointDxDown)(0,0) - \settowidth{\ObjWidth}{\potUlabel} - \pnode([nodesep=\ObjWidth,angle=180]MiddleDx){LabelDx} - \nput[labelsep=-.3]{0}{LabelDx}{\potUlabel} - \end{pspicture}} -\makeatother -%ŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻ -\begin{document} -\psset{linecolor=red} -\begin{PSpic_PowSch}{12}{6}{\(P_e\)}{\(P_u\)} - \PowLoss{.18}{.12}{\(R_s \, I_s2\)} % Joule - \PowLoss{.35}{.08}{\(G_{Fe} \, E_s^{\phantom{.}2}\)} % iron - \PowLoss[\(P_{tr}=\dfrac{\omega}{n} C_e\)]{.62}{.13}{\(R_R \, I_r2\)} % Joule - \PowLoss[\(\dfrac{\omega_m}{n} C_e\)]{.79}{.09}{\textit{attr}} % mec -\end{PSpic_PowSch} - -\psset{linecolor=blue} -\begin{PSpic_PowSch}{12}{6}{\(P_e\)}{\(P_u\)} - \PowLoss{.12}{.08}{\(R_s \, I_s2\)} % Joule - \PowLoss{.20}{.23}{\(G_{Fe} \, E_s^{\phantom{.}2}\)} % iron - \PowLoss[\(P_{tr}=\dfrac{\omega}{n} C_e\)]{.52}{.23}{\(R_R \, I_r2\)} % Joule - \PowLoss[\(\dfrac{\omega_m}{n} C_e\)]{.69}{.19}{\textit{attr}} % mec -\end{PSpic_PowSch} - -\end{document} |