Gugst du hier: http://www.eijkhout.net/tbt/sLy hat geschrieben:da ich im inet nichts über einen \toks befehl finde.
Liebe Grüße,
Axel
#1-Parameter soll statt Zahl Anzahl der Befehle ausgeben
Mit e-TeX geht das auch expandierbar und ohne Tokenregister:
\documentclass{minimal}
\usepackage{etex}
\usepackage{pst-circ}
\protected\def\WiderstandReihe(#1)(#2)#3{%
\edef\x{\noexpand\multidipole(#1)(#2)\WiderstandReiheII{1}{#3}.}%
\x
}
\def\WiderstandReiheII#1#2{%
\unless\ifnum#2<#1
\noexpand\resistor[labeloffset=0]{$R_{\number#1}$}%
\expandafter\WiderstandReiheII\expandafter{\number\numexpr#1+1}{#2}%
\fi
}
\begin{document}
\begin{pspicture}[showgrid=true](0,0)(8,5)
\pnode(0.5,4.5){A}
\pnode(0.5,1.75){B}
\pnode(7.5,1.75){C}
\pnode(7.5,4.5){D}
\battery(D)(A){$U_0$}
\wire(A)(B)
\wire(C)(D)
\WiderstandReihe(B)(C){3}
\end{pspicture}
\end{document}Hier eine etwas einfachere Möglichkeit, die vor allem dokumentiere High-Level-Befehle benutzt. Ein bisschen Expansionskontrolle (mit \eappto und \noexpand) ist allerdings auch hier nötig.
\documentclass{minimal}
\usepackage{etoolbox}
\usepackage{pst-circ}
\usepackage{multido}
\newrobustcmd*{\WiderstandReihe}[3]{%
\def\x{\multidipole(#1)(#2)}%
\Multido{\i=1+1}{#3}{%
\eappto\x{\noexpand\resistor[labeloffset=0]{$R_{\i}$}}%
}%
\appto\x{.}%
\x
}
\begin{document}
\begin{pspicture}[showgrid=true](0,0)(8,5)
\pnode(0.5,4.5){A}
\pnode(0.5,1.75){B}
\pnode(7.5,1.75){C}
\pnode(7.5,4.5){D}
\battery(D)(A){$U_0$}
\wire(A)(B)
\wire(C)(D)
\WiderstandReihe{B}{C}{3}
\end{pspicture}
\end{document}
Hi wiedermal.
Einfache Frage:
Wieso funktioniert das für sich alleine...:
...aber NICHT, wenn ich phi's code und meinen zusammenlege?
Einfache Frage:
Wieso funktioniert das für sich alleine...:
\newrobustcmd*{\SStandard}[2]{%
\psset {unit=#1cm}%
\begin{pspicture}[showgrid=true](0,0)(8,5)%
\def\x{%
\pnode(0.5,4.5){A}%
\pnode(0.5,1.75){B}%
\pnode(7.5,1.75){C}%
\pnode(7.5,4.5){D}%
\battery (D)(A){$U_0$}%
\wire (A)(B)%
\wire (C)(D)%
}%
\eappto\x{\noexpand#2}%
\x%
\end{pspicture}%
}\documentclass{minimal}
\usepackage{etoolbox}
\usepackage{pst-circ}
\usepackage{multido}
\newrobustcmd*{\WiderstandReihe}[3]{%
\def\x{\multidipole(#1)(#2)}%
\Multido{\i=1+1}{#3}{%
\eappto\x{\noexpand\resistor[labeloffset=0]{$R_{\i}$}}%
}%
\appto\x{.}%
\x
}
\newrobustcmd*{\SStandard}[2]{%
\psset {unit=#1cm}%
\begin{pspicture}[showgrid=true](0,0)(8,5)%
\def\x{%
\pnode(0.5,4.5){A}%
\pnode(0.5,1.75){B}%
\pnode(7.5,1.75){C}%
\pnode(7.5,4.5){D}%
\battery (D)(A){$U_0$}%
\wire (A)(B)%
\wire (C)(D)%
}%
\eappto\x{\noexpand#2}%
\x%
\end{pspicture}%
}
\begin{document}
\SStandard{1}{\WiderstandReihe(B)(C){3}}
\end{document}-
Stefan Kottwitz
- Admin
- Beiträge: 2796
- Registriert: Di 8. Jul 2008, 00:39
- Kontaktdaten:
pstricks
Hallo,
Stefan
es funktioniert nicht für sich alleine, es fehlen Dokumentklasse, Pakete u.a. Daher lässt es sich nicht für einen Vergleich testen.sLy hat geschrieben: Wieso funktioniert das für sich alleine...:
"funktioniert nicht" ist zu vage - gibt es Fehler, Warnungen, fehlende oder falsche Ausgaben? Bei mir treten jedenfalls beim Übersetzen Fehlermeldungen auf. K.A. ob Du diese oder was anderes meinst.sLy hat geschrieben: ...aber NICHT, wenn ich phi's code und meinen zusammenlege?
Stefan
