[pstricks] Power Balance Schemes

[Herbert Voss]

Herbert Voss wrote:

>     \pst at dimb=#2pt\pst at dima=\Lrgh\pst at dimb
>     \def\DeltaX{\pst at number\pst at dima}
>     \pst at dimc=#3pt\pst at dimd=\PW\pst at dimc
>     \edef\DeltaY{\pst at number\pst at dimd}

this is easier:

[..]
\makeatletter
\def\Mul#1#2#3{%
	\pst at dima=#1 pt\pst at dimb=#2\pst at dima%
	\edef\value{\pst at number\pst at 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

[ ... ]

     \def\Hcoeff{.65}
	\Mul\Hcoeff\Altz\PW% pow-in relative value (`fp.sty' needed)
     \def\rHarr{.8}\def\rLarr{.35}% loss arrows relative dimensions

[...]

\makeatother


Herbert



-- 
http://www.pstricks.de/