%% COPYRIGHT 2011 by Thomas Söll
%
% This work may be distributed and/or modified under the
% conditions of the LaTeX Project Public License, either version 1.3
% of this license or (at your option) any later version.
% The latest version of this license is in
%   http://www.latex-project.org/lppl.txt
% and version 1.3 or later is part of all distributions of LaTeX
% version 2003/12/01 or later.
%
% This work consists of the file pstricks.tex, PostScript macros 
% for Generic TeX.
% See the PSTricks User's Guide for description.
%
\csname PSTpulleyLoaded\endcsname
\let\PSTpulleyLoaded\endinput
\ifx\GradientLoaded\endinput   \else\input pst-grad     \fi
\ifx\PstSlopeLoaded\endinput   \else\input pst-slpe     \fi
\ifx\PSTEuclideLoaded\endinput \else\input pst-eucl     \fi
\ifx\PSTricksAddLoaded\endinput\else\input pstricks-add \fi
%
\def\fileversion{0.01}
\def\filedate{2012/01/17}
\message{ v\fileversion, \filedate (ts)}
\message{ v\fileversion, \filedate}
\edef\TheAtCode{\the\catcode`\@}
\catcode`\@=11

\pst@addfams{pst-pulleys}
\define@boolkey[psset]{pst-pulleys}[Pst@]{grid}[true]{} % show grid
\define@key[psset]{pst-pulleys}{N}{\def\psk@pulleys@N{#1}} % nombre de poulies
\define@key[psset]{pst-pulleys}{M}{\def\psk@pulleys@M{#1}} % charge en kg
\define@key[psset]{pst-pulleys}{h}{\def\psk@pulleys@S{#1}} % d�placement du point d'action en cm %
\define@key[psset]{pst-pulleys}{Dx}{\def\psk@pulleys@DX{#1}} % placement of the down-part  %
\psset[pst-pulleys]{N=1,M=20,h=15,Dx=0,grid=false}
%
\newpsstyle{pulley}{linewidth=0.7pt,fillstyle=radslope,slopeangle=70,slopeend=black!70,slopebegin=gray!30,dimen=outer}
\newpsstyle{pulley-frame}{linewidth=1.0pt,framearc=.15,fillstyle=gradient,gradangle=0,gradend=cyan!30,gradbegin=black!70}
\newpsstyle{force-diagg}{linearc=0.15,armB=0.1,angleA=0,arrowscale=1.4,arrowinset=0.04,lineAngle=120,arrows=->}
%%% les 3 types de poulies ----------------
\def\pulleyA{\pscircle[style=pulley]{0.85}}
\def\pulleyB{\pscircle[style=pulley]{0.55}}
\def\pulleyC{\pscircle[style=pulley]{0.3}}
%%% Inner Half Diameter for the rope
\def\radianAI{0.835}
\def\radianBI{0.535}
\def\radianCI{0.285}
%
\def\poulieA{% 1 poulie
\def\flzlx{-0.835}% ----------- unteren Flaschenzugteil nach links oder rechts ausrichten, damit die Seile symmetrisch sind
\rput(\flzlx\space,-10){%
\rput{180}(0,1.35){%
\psset{unit=.15, dotscale=0.75, arrowscale=2,doubleline=true,doublesep=1.4pt,doublecolor=gray!40,linewidth=1pt,linecolor=black!40}%
\psarc[linecap=1](0,0){1}{140}{45}%
\psbezier(0,2.5)(0,1)(! 0 1 45 sin div)(1;45)}%
\pspolygon[linewidth=1.0pt,linearc=.2,fillstyle=gradient,gradangle=90,gradmidpoint=0.3,gradend=cyan!10,gradbegin=black!25,linecolor=black!40]%
(-1.0,-1.0)(-0.75,1)(0.75,1)(1.0,-1.0)%
\rput[c](0,0){\psframebox[linestyle=none,fillstyle=solid,fillcolor=white,opacity=0.7,framearc=0.3]{\textcolor{black!50}{\psk@pulleys@M{}kg}}}
\rput(0,-1){\pnode(0,0){vmu}}}% --------- Node an der verschobenen Massenunterseite
%
%------------------- Nodes f�r die Seile ---------------------------------------
%
\rput(0,3.7){\pnode(0.835;180){F}}
\rput(0,3.7){\pnode(0.835;10){I}}
\rput(I){\pnode(3;-80){End}}%------------------------ Ende
\rput(I){\pnode(3.37;-80){EndH}}%--------------------- Ende f�r Beginn Haken
\rput(I){\pnode(!\ps@SeilEnd\space 10 sin mul \ps@SeilEnd\space 10 cos neg mul){EndZ}}%----------------------- verschobenes Ende
\rput(I){\pnode(!\ps@SeilEndH\space 10 sin mul \ps@SeilEndH\space 10 cos neg mul){EndZH}}%-------------------- Ende f�r Beginn Haken verschobenes Ende
%
% -----------------Nodes f�r die Seile der Unterseite --------------------------
%
\rput(-0.835,\ps@HightH){% -----------   y-Wert �ndert die Flaschenzugl�nge nach unten oder oben
\rput{180}(0,0){%
\rput(0,4.3){\pnode(0,0){N}}
}}%
%
%--------------------- Haken am oberen Seilende zum Ziehen ------------------------------------------------------------
%
\rput{10}(EndH){\psset{unit=.15, dotscale=0.75, arrowscale=2,doubleline=true,doublesep=2.5pt,doublecolor=gray!60,linewidth=0.7pt,linecolor=gray!60}%
\psarc[linecap=1](0,0){1}{-150}{45}%
\psbezier[linecap=1](0,2.5)(0,1)(! 0 1 45 sin div)(1;45)
}%
%
%--------------------- Haken am unteren Seilende zum Ziehen ------------------------------------------------------------
%
\rput{10}(EndZH){\psset{unit=.15, dotscale=0.75, arrowscale=2,doubleline=true,doublesep=4.5pt,doublecolor=black!80,linewidth=0.4pt,linecolor=black!80}%
\psarc[linecap=1](0,0){1}{-150}{45}%
\psbezier[linecap=1](0,2.5)(0,1)(! 0 1 45 sin div)(1;45)
}%
\pscircle[linecolor=black!80,linewidth=0.4pt,fillstyle=solid, fillcolor=white](EndZ){2.0pt}%
\psline[nodesepA=1cm,linewidth=2.5pt,linecap=1,linecolor=Brown!80](I)(EndZ)% --- Seil bis zur �ffnung
%
%---------------- Kraftpfeil am Seilende und delta s --------------------------------------------------------------
%
\pcline[linewidth=1.0pt,arrowsize=0.12,arrowinset=0.05, offset=.3cm,linecolor=red,nodesepA=1,nodesepB=1]{->}(I)(End)
\naput{$F_{{\sf Z}} = \ps@ForceS$ N}%
\rput(EndH){\pcline[linewidth=0.7pt,nodesepA=0.15](0,0)(0.8;10)}%
\rput(EndZH){\pcline[linewidth=0.7pt,nodesepA=0.15](0,0)(0.8;10)}%
\pcline[linewidth=0.7pt,arrowsize=0.12,arrowinset=0.05, offset=.6cm]{<->}(EndH)(EndZH)
\naput{$\Delta s = \pst@CommaVal{\ps@Seil}$ cm}%
%
%---------------------- Seile des Flaschenzuges ----------------------------
%
{\psset{linecolor=Brown!80,linewidth=2.5pt}
\psline(F)(N)%
\psarc(0,3.7){0.835}{10}{190}%
\psline[linecolor=Brown!80](I)(EndZ)%
\psline(I)(End)%
}%
%
%------------------ Pfeile zu den Seilmitten f�r Kr�fte ------------------------------------------------
%
\pstMiddleAB[PointSymbol=none,PointName=none]{F}{N}{MI}%
\pnode([offset=0.4,nodesep=-1.0]MI){SKE}%
\pcdiagg[style=force-diagg,linecolor=green]{->}(SKE)(MI)%
\uput{0.1}[180]{0}([Xnodesep=-0.1]{SKE}SKE){$F_{\sf S} =\ps@ForceS$  N}%
%
%----------------------- Haken an der Decke ------------------------------------------------------
%
\rput(0,5.65){\psset{unit=.15, dotscale=0.75, arrowscale=2,doubleline=true,doublesep=1.4pt,doublecolor=gray!80,linewidth=1pt,linecolor=black!80}%
\psarc[linecap=1](0,0){1}{140}{45}%
\psbezier(0,2.5)(0,1)(! 0 1 45 sin div)(1;45)
}%
%
%----------------------- gedrehter Haken unterhalb des Deckenhakens  ------------------------------------------------------
%
\rput{180}(0,5){\psset{unit=.15, dotscale=0.75, arrowscale=2,doubleline=true,doublesep=1.4pt,doublecolor=gray!80,linewidth=1pt,linecolor=black!80}%
\psarc[linecap=1](0,0){1}{140}{45}%
\psbezier(0,2.5)(0,1)(! 0 1 45 sin div)(1;45)
}%
%
%---------------------Verbindung mit dem Deckenhaken ---------------------------------------------
%
\psline[linewidth=2.5pt,linecap=1](0,5.05)(0,5.58)
%
%--------------------- Oberer Flaschenzugteil -------------------------------------------------------
%
\rput(0,3.7){\pulleyA}%
\rput(0,1.65){\psframe[style=pulley-frame](-0.15,1.1)(0.15,3)}%
\rput(0,3.7){\pscircle[linewidth=0.7pt,fillstyle=solid, fillcolor=black](0,0){.05}}%
%
%-------------------------- Variation der Flaschenzugl�nge --------------------------------------------
%
\rput(-0.835,\ps@HightH){% -----------   y-Wert �ndert die Flaschenzugl�nge nach unten oder oben
%
%-----------------------------Kompletter unterer Teil des Flaschenzuges um 100� gedreht -----------------
%
\rput{180}(0,0){%
%------------------------------ Haken am unteren Flaschenzugteil -----------------------------------------
%
\rput(0,5.65){%
\psset{unit=.15, dotscale=0.75, arrowscale=2,doubleline=true,doublesep=1.4pt,doublecolor=gray!80,linewidth=1pt,linecolor=black!80}%
\psarc[linecap=1](0,0){1}{140}{45}%
\psbezier(0,2.5)(0,1)(! 0 1 45 sin div)(1;45)
}%
%
%------------------------------------- Haken an der angeh�ngten Masse  ----------------------------------------
%
\rput{180}(0,5){%
\psset{unit=.15, dotscale=0.75, arrowscale=2,doubleline=true,doublesep=1.4pt,doublecolor=gray!80,linewidth=1pt,linecolor=black!80}%
\psarc[linecap=1](0,0){1}{140}{45}%
\psbezier(0,2.5)(0,1)(! 0 1 45 sin div)(1;45)
}%
\psline[linewidth=2.5pt,linecap=1](0,5.05)(0,5.58)% Verbindung der Haken angeh. Masse - Flaschz.
%
%-------------------------- Unterer Flaschenzugteil -------------------------------------------------------
%
\rput(0,1.65){\psframe[linewidth=1.0pt,framearc=.15,fillstyle=gradient,gradangle=0,gradend=cyan!30,gradbegin=black!70](-0.15,2.4)(0.15,3)}%
\rput(N){\pscircle[linewidth=1pt,fillstyle=solid, fillcolor=black](0,0){.07}}%
\pcline[linewidth=2.5pt,nodesepA=1cm,linecolor=Brown!80,linecap=1](H)(N)%-------------Neu-Zeichnen des letzten Verbindungsst�ckes
}%
%
%------------------------- angeh�ngte Masse ------------------------------------------------------------------
%
\rput(0,-7){\pspolygon[linewidth=1.0pt,linearc=.2,fillstyle=gradient,gradangle=90,gradmidpoint=0.3,gradend=black!70,gradbegin=black!100]%
(-1.0,-1.0)(-0.75,1)(0.75,1)(1.0,-1.0)%
\rput[c](0,0){\psframebox[linestyle=none,fillstyle=solid,fillcolor=white,opacity=0.7,framearc=0.3]{\psk@pulleys@M{}kg}}
\rput(0,-1){\pnode(0,0){mu}}% --------- Node an der Massenunterseite
%
%------------------ Kraft und Abstandspfeile
%
\pcline[linewidth=1.0pt,arrowsize=0.12,arrowinset=0.05, offset=-1.4cm,linecolor=blue]{->}(0,1.5)(0,0.5)
\nbput{$F_{{\sf G}} = \pst@CommaVal{\ps@ForceG}$ N}
}%
}%
\psline[linewidth=0.7pt](mu)([Xnodesep=1.5]{mu}mu)%
\psline[linewidth=0.7pt](vmu)([Xnodesep=1.5]{vmu}vmu)%
\pcline[linewidth=0.7pt,arrowsize=0.09,arrowinset=0.05, offset=1.4cm]{<->}(mu)(vmu)%
\naput{\small $\Delta h =$ \psk@pulleys@S{} cm}%
%
%-----------------------------------Decke ------------------------------------------------------------------------
%
\psframe[linestyle=none,framearc=.0,fillstyle=gradient,gradangle=0,gradend=gray!30,gradbegin=black!70](-2,6)(2,6.5)%
\psframe[linestyle=none,framearc=.0,fillstyle=hlines,hatchwidth=0.9pt,hatchangle=55,hatchsep=4pt](-2,6)(2,6.5)%
%
%
%-----------------------------------Boden ------------------------------------------------------------------------
%
\psframe[linestyle=none,framearc=.0,fillstyle=gradient,gradmidpoint=0.1,gradangle=0,gradend=gray!30,gradbegin=black!70](-2,-11.5)(2,-11)%
\psframe[linestyle=none,framearc=.0,fillstyle=hlines,hatchwidth=0.9pt,hatchangle=55,hatchsep=4pt](-2,-11.5)(2,-11)%
}
%
%-------------------------------------------------------------------------------------------------------------------------
%-------------------------- Mit 2 Rollen -----------------------------------------------------------------------------------
%
\def\poulieB{% 2 poulie
\def\flzlx{-0.41}% ----------- unteren Flaschenzugteil nach links oder rechts ausrichten, damit die Seile symmetrisch sind
%
%
%------------------------- verschobene Masse mit Haken-------------------------------------------------------
%
\rput(-\psk@pulleys@DX\space,-10){%
\rput{180}(0,1.35){%
\psset{unit=.15, dotscale=0.75, arrowscale=2,doubleline=true,doublesep=1.4pt,doublecolor=gray!40,linewidth=1pt,linecolor=black!40}%
\psarc[linecap=1](0,0){1}{140}{45}%
\psbezier(0,2.5)(0,1)(! 0 1 45 sin div)(1;45)}%
\pspolygon[linewidth=1.0pt,linearc=.2,fillstyle=gradient,gradangle=90,gradmidpoint=0.3,gradend=cyan!10,gradbegin=black!25,linecolor=black!40]%
(-1.0,-1.0)(-0.75,1)(0.75,1)(1.0,-1.0)%
\rput[c](0,0){\psframebox[linestyle=none,fillstyle=solid,fillcolor=white,opacity=0.7,framearc=0.3]{\textcolor{black!50}{\psk@pulleys@M{}kg}}}
\rput(0,-1){\pnode(0,0){vmu}}}% --------- Node an der verschobenen Massenunterseite
%
%------------------- Nodes f�r die Mittelpunkte der oberen Rollen ---------------------------------------
%
\pnode(0,3.7){F}
\pnode(0,2.5){N}
% ----------------- Nodes f�r die Mittelpunkte der unteren Rollen --------------------------
%
\rput(-\psk@pulleys@DX,\ps@HightH){% -----------   y-Wert �ndert die Flaschenzugl�nge nach unten oder oben
\rput{180}(0,0){%
\pnode(0,3.7){G}}}%
%
\psCircleTangents(F){\radianAI\space}(G){\radianAI\space}%
\rput(0,3.7){\pnode(\radianAI\space;10){I}}
\rput(I){\pnode(3;-80){End}}%------------------------ Ende
\rput(I){\pnode(3.37;-80){EndH}}%--------------------- Ende f�r Beginn Haken
\rput(I){\pnode(!\ps@SeilEnd\space 10 sin mul \ps@SeilEnd\space 10 cos neg mul){EndZ}}%------- verschobenes Ende
\rput(I){\pnode(!\ps@SeilEndH\space 10 sin mul \ps@SeilEndH\space 10 cos neg mul){EndZH}}%---- Ende f�r Beginn Haken verschobenes  Ende
%
%
%--------------------- Haken am oberen Seilende zum Ziehen ------------------------------------------------------------
%
\rput{10}(EndH){\psset{unit=.15, dotscale=0.75, arrowscale=2,doubleline=true,doublesep=2.5pt,doublecolor=gray!60,linewidth=0.7pt,linecolor=gray!60}%
\psarc[linecap=1](0,0){1}{-150}{45}%
\psbezier[linecap=1](0,2.5)(0,1)(! 0 1 45 sin div)(1;45)
}%
%
%--------------------- Haken am unteren Seilende zum Ziehen ------------------------------------------------------------
%
\rput{10}(EndZH){\psset{unit=.15, dotscale=0.75, arrowscale=2,doubleline=true,doublesep=4.5pt,doublecolor=black!80,linewidth=0.4pt,linecolor=black!80}%
\psarc[linecap=1](0,0){1}{-150}{45}%
\psbezier[linecap=1](0,2.5)(0,1)(! 0 1 45 sin div)(1;45)
}%
\pscircle[linecolor=black!80,linewidth=0.4pt,fillstyle=solid, fillcolor=white](EndZ){2.0pt}%
\psline[nodesepA=1cm,linewidth=2.5pt,linecap=1,linecolor=Brown!80](I)(EndZ)% --- Seil bis zur �ffnung
%
%---------------- Kraftpfeil am Seilende und delta s --------------------------------------------------------------
%
\pcline[linewidth=1.0pt,arrowsize=0.12,arrowinset=0.05, offset=.3cm,linecolor=red,nodesepA=1,nodesepB=1]{->}(I)(End)
\naput{$F_{\sf Z} = \pst@CommaVal{\ps@ForceS}$ N}%
\rput(EndH){\pcline[linewidth=0.7pt,nodesepA=0.15](0,0)(0.8;10)}%
\rput(EndZH){\pcline[linewidth=0.7pt,nodesepA=0.15](0,0)(0.8;10)}%
\pcline[linewidth=0.7pt,arrowsize=0.12,arrowinset=0.05, offset=.6cm]{<->}(EndH)(EndZH)
\naput{$\Delta s = \pst@CommaVal{\ps@Seil}$ cm}%
%
%---------------------- Seile des Flaschenzuges ----------------------------
%
{\psset{linecolor=Brown!80,linewidth=2.5pt}
\psCircleTangents(F){\radianAI\space}(G){\radianAI\space}
\pnode(CircleTO4){J}%
\pnode(CircleTO3){K}%
\pcline(K)(J)%
\pstArcOAB{F}{I}{J}%
\pstMiddleAB[PointSymbol=none,PointName=none]{K}{J}{MI}%
%
\psCircleTangents(N)(G){\radianAI\space}
\pnode(CircleT2){H}%
\pcline(N)(H)
\pstArcOAB{G}{CircleT1}{H}%
\psIntersectionPoint(MI)([Xnodesep=-1.5]{MI}MI)(H)(N){IPi}%
\psline[linecolor=Brown!80](I)(EndZ)%
\psline(I)(End)%
}%
%
%----------------------- Haken an der Decke ------------------------------------------------------
%
\rput(0,5.65){\psset{unit=.15, dotscale=0.75, arrowscale=2,doubleline=true,doublesep=1.4pt,doublecolor=gray!80,linewidth=1pt,linecolor=black!80}%
\psarc[linecap=1](0,0){1}{140}{45}%
\psbezier(0,2.5)(0,1)(! 0 1 45 sin div)(1;45)
}%
%
%----------------------- gedrehter Haken unterhalb des Deckenhakens  ------------------------------------------------------
%
\rput{180}(0,5){\psset{unit=.15, dotscale=0.75, arrowscale=2,doubleline=true,doublesep=1.4pt,doublecolor=gray!80,linewidth=1pt,linecolor=black!80}%
\psarc[linecap=1](0,0){1}{140}{45}%
\psbezier(0,2.5)(0,1)(! 0 1 45 sin div)(1;45)
}%
%
%---------------------Verbindung mit dem Deckenhaken ---------------------------------------------
%
\psline[linewidth=2.5pt,linecap=1](0,5.05)(0,5.58)
%
%--------------------- Oberer Flaschenzugteil -------------------------------------------------------
%
\rput(0,3.7){\pulleyA}%
\rput(0,1.65){\psframe[style=pulley-frame](-0.15,0.7)(0.15,3)}%
\rput(0,3.7){\pscircle[linewidth=0.7pt,fillstyle=solid, fillcolor=black](0,0){.05}}%
\rput(N){\pscircle[linewidth=1pt,fillstyle=solid, fillcolor=black](0,0){.07}}%
\pcline[linewidth=2.5pt,nodesepA=2cm,linecolor=Brown!80,linecap=1](H)(N)%-------------Neu-Zeichnen des letzten Verbindungsst�ckes
%
%------------------ Pfeile zu den Seilmitten f�r Kr�fte ------------------------------------------------
%
\pnode([offset=0.4,nodesep=-1.0]MI){SKE}%
\pcdiagg[style=force-diagg,linecolor=green](SKE)(MI)%
\pcdiagg[style=force-diagg,linecolor=orange](SKE)(IPi)%
\uput{0.1}[180]{0}(SKE){$F_{\sf S} =\pst@CommaVal{\ps@ForceS}$  N}%
%
%-------------------------- Variation der Flaschenzugl�nge --------------------------------------------
%
\rput(-\psk@pulleys@DX,\ps@HightH){% -----------   y-Wert �ndert die Flaschenzugl�nge nach unten oder oben
%
%-----------------------------Kompletter unterer Teil des Flaschenzuges um 100� gedreht -----------------
%
\rput{180}(0,0){%
%------------------------------ Haken am unteren Flaschenzugteil -----------------------------------------
%
\rput(0,5.65){%
\psset{unit=.15, dotscale=0.75, arrowscale=2,doubleline=true,doublesep=1.4pt,doublecolor=gray!80,linewidth=1pt,linecolor=black!80}%
\psarc[linecap=1](0,0){1}{140}{45}%
\psbezier(0,2.5)(0,1)(! 0 1 45 sin div)(1;45)
}%
%
%------------------------------------- Haken an der angeh�ngten Masse  ----------------------------------------
%
\rput{180}(0,5){%
\psset{unit=.15, dotscale=0.75, arrowscale=2,doubleline=true,doublesep=1.4pt,doublecolor=gray!80,linewidth=1pt,linecolor=black!80}%
\psarc[linecap=1](0,0){1}{140}{45}%
\psbezier(0,2.5)(0,1)(! 0 1 45 sin div)(1;45)
}%
\psline[linewidth=2.5pt,linecap=1](0,5.05)(0,5.58)% Verbindung der Haken angeh. Masse - Flaschz.
%
%-------------------------- Unterer Flaschenzugteil -------------------------------------------------------
%
\rput(G){\pulleyA}%
\rput(0,1.65){\psframe[style=pulley-frame](-0.15,1.1)(0.15,3)}%
\rput(0,3.7){\pscircle[linewidth=0.7pt,fillstyle=solid, fillcolor=black](0,0){.05}}%
}%
%
%
%------------------------- angeh�ngte Masse ------------------------------------------------------------------
%
\rput(0,-7){\pspolygon[linewidth=1.0pt,linearc=.2,fillstyle=gradient,gradangle=90,gradmidpoint=0.3,gradend=black!70,gradbegin=black!100]%
(-1.0,-1.0)(-0.75,1)(0.75,1)(1.0,-1.0)%
\rput[c](0,0){\psframebox[linestyle=none,fillstyle=solid,fillcolor=white,opacity=0.7,framearc=0.3]{\psk@pulleys@M{}kg}}
\rput(0,-1){\pnode(0,0){mu}}% --------- Node an der Massenunterseite
%
%------------------ Kraft und Abstandspfeile
%
\pcline[linewidth=1.0pt,arrowsize=0.12,arrowinset=0.05, offset=-1.4cm,linecolor=blue]{->}(0,1.5)(0,0.5)
\nbput{$F_{{\sf G}} = \pst@CommaVal{\ps@ForceG}$ N}
}%
}%
\psline[linewidth=0.7pt](mu)([Xnodesep=1.5]{mu}mu)%
\psline[linewidth=0.7pt](vmu)([Xnodesep=1.5]{vmu}vmu)%
\pcline[linewidth=0.7pt,arrowsize=0.09,arrowinset=0.05, offset=1.4cm]{<->}(mu)(vmu)%
\naput{\small $\Delta h =$ \psk@pulleys@S{} cm}%
%
%-----------------------------------Decke ------------------------------------------------------------------------
%
\psframe[linestyle=none,framearc=.0,fillstyle=gradient,gradangle=0,gradend=gray!30,gradbegin=black!70](-2,6)(2,6.5)%
\psframe[linestyle=none,framearc=.0,fillstyle=hlines,hatchwidth=0.9pt,hatchangle=55,hatchsep=4pt](-2,6)(2,6.5)%
%
%
%-----------------------------------Boden ------------------------------------------------------------------------
%
\psframe[linestyle=none,framearc=.0,fillstyle=gradient,gradmidpoint=0.1,gradangle=0,gradend=gray!30,gradbegin=black!70](-2,-11.5)(2,-11)%
\psframe[linestyle=none,framearc=.0,fillstyle=hlines,hatchwidth=0.9pt,hatchangle=55,hatchsep=4pt](-2,-11.5)(2,-11)%
}
%
%-------------------------- Mit 3 Rollen -----------------------------------------------------------------------------------
%
\def\poulieC{% 3 poulie
\def\flzlx{-0.13}% ----------- unteren Flaschenzugteil nach links oder rechts ausrichten, damit die Seile symmetrisch sind
%
%
%------------------------- verschobene Masse mit Haken-------------------------------------------------------
%
\rput(-\psk@pulleys@DX,-10){%
\rput{180}(0,1.35){%
\psset{unit=.15, dotscale=0.75, arrowscale=2,doubleline=true,doublesep=1.4pt,doublecolor=gray!40,linewidth=1pt,linecolor=black!40}%
\psarc[linecap=1](0,0){1}{140}{45}%
\psbezier(0,2.5)(0,1)(! 0 1 45 sin div)(1;45)}%
\pspolygon[linewidth=1.0pt,linearc=.2,fillstyle=gradient,gradangle=90,gradmidpoint=0.3,gradend=cyan!10,gradbegin=black!25,linecolor=black!40]%
(-1.0,-1.0)(-0.75,1)(0.75,1)(1.0,-1.0)%
\rput[c](0,0){\psframebox[linestyle=none,fillstyle=solid,fillcolor=white,opacity=0.7,framearc=0.3]{\textcolor{black!50}{\psk@pulleys@M{}kg}}}
\rput(0,-1){\pnode(0,0){vmu}}}% --------- Node an der verschobenen Massenunterseite
%
%------------------- Nodes f�r die Mittelpunkte der oberen Rollen ---------------------------------------
%
\pnode(0,3.7){F}
\pnode(0,2.2){Z}
% ----------------- Nodes f�r die Mittelpunkte der unteren Rollen --------------------------
%
\rput(-\psk@pulleys@DX,\ps@HightH){% -----------   y-Wert �ndert die Flaschenzugl�nge nach unten oder oben
\rput{180}(0,0){%
\pnode(0,3.7){G}
\pnode(0,2.5){N}
}}%
%
\psCircleTangents(F){\radianAI}(G){\radianAI}%
\rput(F){\pnode(\radianAI;10){I}}
\rput(I){\pnode(3;-80){End}}%------------------------ Ende
\rput(I){\pnode(3.37;-80){EndH}}%--------------------- Ende f�r Beginn Haken
\rput(I){\pnode(!\ps@SeilEnd\space 10 sin mul \ps@SeilEnd\space 10 cos neg mul){EndZ}}%------- verschobenes Ende
\rput(I){\pnode(!\ps@SeilEndH\space 10 sin mul \ps@SeilEndH\space 10 cos neg mul){EndZH}}%---- Ende f�r Beginn Haken verschobenes  Ende
%
%
%--------------------- Haken am oberen Seilende zum Ziehen ------------------------------------------------------------
%
\rput{10}(EndH){\psset{unit=.15, dotscale=0.75, arrowscale=2,doubleline=true,doublesep=2.5pt,doublecolor=gray!60,linewidth=0.7pt,linecolor=gray!60}%
\psarc[linecap=1](0,0){1}{-150}{45}%
\psbezier[linecap=1](0,2.5)(0,1)(! 0 1 45 sin div)(1;45)
}%
%
%--------------------- Haken am unteren Seilende zum Ziehen ------------------------------------------------------------
%
\rput{10}(EndZH){\psset{unit=.15, dotscale=0.75, arrowscale=2,doubleline=true,doublesep=4.5pt,doublecolor=black!80,linewidth=0.4pt,linecolor=black!80}%
\psarc[linecap=1](0,0){1}{-150}{45}%
\psbezier[linecap=1](0,2.5)(0,1)(! 0 1 45 sin div)(1;45)
}%
\pscircle[linecolor=black!80,linewidth=0.4pt,fillstyle=solid, fillcolor=white](EndZ){2.0pt}%
\psline[nodesepA=1cm,linewidth=2.5pt,linecap=1,linecolor=Brown!80](I)(EndZ)% --- Seil bis zur �ffnung
%
%---------------- Kraftpfeil am Seilende und delta s --------------------------------------------------------------
%
\pcline[linewidth=1.0pt,arrowsize=0.12,arrowinset=0.05, offset=.3cm,linecolor=red,nodesepA=1,nodesepB=1]{->}(I)(End)
\naput{$F_{\sf Z} = \pst@CommaVal{\ps@ForceS}$ N}%
\rput(EndH){\pcline[linewidth=0.7pt,nodesepA=0.15](0,0)(0.8;10)}%
\rput(EndZH){\pcline[linewidth=0.7pt,nodesepA=0.15](0,0)(0.8;10)}%
\pcline[linewidth=0.7pt,arrowsize=0.12,arrowinset=0.05, offset=.6cm]{<->}(EndH)(EndZH)
\naput{$\Delta s = \pst@CommaVal{\ps@Seil}$ cm}%
%
%---------------------- Seile des Flaschenzuges ----------------------------
%
{\psset{linecolor=Brown!80,linewidth=2.5pt}
\psCircleTangents(F){\radianAI\space}(G){\radianAI\space}
\pnode(CircleTO4){J}%
\pnode(CircleTO3){K}%
\psCircleTangents(Z){\radianBI\space}(G){\radianAI\space}
\pnode(CircleTO3){Q}%
\pnode(CircleTO4){R}%
\psCircleTangents(N)(0,2.2){\radianBI\space}
\pnode(CircleT1){S}%
\pnode(CircleT2){T}%
\pstArcOAB{Z}{R}{T}%
\pcline(K)(J)%
\pcline(Q)(R)%
\pcline(N)(T)%
\pstArcOAB{F}{I}{J}%
\pstArcOAB{G}{K}{Q}%
\pstMiddleAB[PointSymbol=none,PointName=none]{K}{J}{MI}%
%
\psCircleTangents(N){\radianAI\space}(G){\radianAI\space}
\pnode(CircleTO3){H}%
\psIntersectionPoint(MI)([Xnodesep=-1.5]{MI}MI)(Q)(R){IPi}%
\psIntersectionPoint(MI)([Xnodesep=-1.5]{MI}MI)(T)(N){IPii}%
\psline[linecolor=Brown!80](I)(EndZ)%
\psline(I)(End)%
}%
%
%----------------------- Haken an der Decke ------------------------------------------------------
%
\rput(0,5.65){\psset{unit=.15, dotscale=0.75, arrowscale=2,doubleline=true,doublesep=1.4pt,doublecolor=gray!80,linewidth=1pt,linecolor=black!80}%
\psarc[linecap=1](0,0){1}{140}{45}%
\psbezier(0,2.5)(0,1)(! 0 1 45 sin div)(1;45)
}%
%
%----------------------- gedrehter Haken unterhalb des Deckenhakens  ------------------------------------------------------
%
\rput{180}(0,5){\psset{unit=.15, dotscale=0.75, arrowscale=2,doubleline=true,doublesep=1.4pt,doublecolor=gray!80,linewidth=1pt,linecolor=black!80}%
\psarc[linecap=1](0,0){1}{140}{45}%
\psbezier(0,2.5)(0,1)(! 0 1 45 sin div)(1;45)
}%
%
%---------------------Verbindung mit dem Deckenhaken ---------------------------------------------
%
\psline[linewidth=2.5pt,linecap=1](0,5.05)(0,5.58)
%
%--------------------- Oberer Flaschenzugteil -------------------------------------------------------
%
\rput(F){\pulleyA}%
\rput(0,2.2){\pulleyB}%
\rput(0,1.65){\psframe[style=pulley-frame](-0.15,-0.1)(0.15,3)}%
\rput(0,3.7){\pscircle[linewidth=0.7pt,fillstyle=solid, fillcolor=black](0,0){.05}}%
\rput(0,2.2){\pscircle[linewidth=0.7pt,fillstyle=solid, fillcolor=black](0,0){.05}}%
%
%-------------------------- Variation der Flaschenzugl�nge --------------------------------------------
%
\rput(-\psk@pulleys@DX,\ps@HightH){% -----------   y-Wert �ndert die Flaschenzugl�nge nach unten oder oben
%
%-----------------------------Kompletter unterer Teil des Flaschenzuges um 100� gedreht -----------------
%
\rput{180}(0,0){%
%------------------------------ Haken am unteren Flaschenzugteil -----------------------------------------
%
\rput(0,5.65){%
\psset{unit=.15, dotscale=0.75, arrowscale=2,doubleline=true,doublesep=1.4pt,doublecolor=gray!80,linewidth=1pt,linecolor=black!80}%
\psarc[linecap=1](0,0){1}{140}{45}%
\psbezier(0,2.5)(0,1)(! 0 1 45 sin div)(1;45)
}%
%
%------------------------------------- Haken an der angeh�ngten Masse  ----------------------------------------
%
\rput{180}(0,5){%
\psset{unit=.15, dotscale=0.75, arrowscale=2,doubleline=true,doublesep=1.4pt,doublecolor=gray!80,linewidth=1pt,linecolor=black!80}%
\psarc[linecap=1](0,0){1}{140}{45}%
\psbezier(0,2.5)(0,1)(! 0 1 45 sin div)(1;45)
}%
\psline[linewidth=2.5pt,linecap=1](0,5.05)(0,5.58)% Verbindung der Haken angeh. Masse - Flaschz.
%
%-------------------------- Unterer Flaschenzugteil -------------------------------------------------------
%
\rput(G){\pulleyA}%
\rput(0,1.65){\psframe[style=pulley-frame](-0.15,.7)(0.15,3)}%
\rput(0,3.7){\pscircle[linewidth=0.7pt,fillstyle=solid, fillcolor=black](0,0){.05}}%
\rput(N){\pscircle[linewidth=1pt,fillstyle=solid, fillcolor=black](0,0){.07}}%
}%
\pcline[linewidth=2.5pt,nodesepA=2cm,linecolor=Brown!80,linecap=1](T)(N)%-------------Neu-Zeichnen des letzten Verbindungsst�ckes
%
%
%------------------------- angeh�ngte Masse ------------------------------------------------------------------
%
\rput(0,-7){\pspolygon[linewidth=1.0pt,linearc=.2,fillstyle=gradient,gradangle=90,gradmidpoint=0.3,gradend=black!70,gradbegin=black!100]%
(-1.0,-1.0)(-0.75,1)(0.75,1)(1.0,-1.0)%
\rput[c](0,0){\psframebox[linestyle=none,fillstyle=solid,fillcolor=white,opacity=0.7,framearc=0.3]{\psk@pulleys@M{}kg}}
\rput(0,-1){\pnode(0,0){mu}}% --------- Node an der Massenunterseite
%
%------------------ Pfeile zu den Seilmitten f�r Kr�fte ------------------------------------------------
%
\pnode([offset=0.4,nodesep=-1.0]MI){SKE}%
\pcdiagg[style=force-diagg,linecolor=green](SKE)(MI)%
\pcdiagg[style=force-diagg,linecolor=orange](SKE)(IPi)%
\pcdiagg[style=force-diagg,linecolor=magenta](SKE)(IPii)%
\uput{0.1}[180]{0}(SKE){$F_{\sf S} =\pst@CommaVal{\ps@ForceS}$  N}%
%
%------------------ Kraft und Abstandspfeile
%
\pcline[linewidth=1.0pt,arrowsize=0.12,arrowinset=0.05, offset=-1.4cm,linecolor=blue]{->}(0,1.5)(0,0.5)
\nbput{$F_{{\sf G}} = \pst@CommaVal{\ps@ForceG}$ N}
}%
}%
\psline[linewidth=0.7pt](mu)([Xnodesep=1.5]{mu}mu)%
\psline[linewidth=0.7pt](vmu)([Xnodesep=1.5]{vmu}vmu)%
\pcline[linewidth=0.7pt,arrowsize=0.09,arrowinset=0.05, offset=1.4cm]{<->}(mu)(vmu)%
\naput{\small $\Delta h =$ \psk@pulleys@S{} cm}%
%
%-----------------------------------Decke ------------------------------------------------------------------------
%
\psframe[linestyle=none,framearc=.0,fillstyle=gradient,gradangle=0,gradend=gray!30,gradbegin=black!70](-2,6)(2,6.5)%
\psframe[linestyle=none,framearc=.0,fillstyle=hlines,hatchwidth=0.9pt,hatchangle=55,hatchsep=4pt](-2,6)(2,6.5)%
%
%
%-----------------------------------Boden ------------------------------------------------------------------------
%
\psframe[linestyle=none,framearc=.0,fillstyle=gradient,gradmidpoint=0.1,gradangle=0,gradend=gray!30,gradbegin=black!70](-2,-11.5)(2,-11)%
\psframe[linestyle=none,framearc=.0,fillstyle=hlines,hatchwidth=0.9pt,hatchangle=55,hatchsep=4pt](-2,-11.5)(2,-11)%
}
%
%
%-------------------------- Mit 4 Rollen -----------------------------------------------------------------------------------
%
\def\poulieD{% 4 poulie
\def\flzlx{-0.12}% ----------- unteren Flaschenzugteil nach links oder rechts ausrichten, damit die Seile symmetrisch sind
%
%
%------------------------- verschobene Masse mit Haken-------------------------------------------------------
%
\rput(-\psk@pulleys@DX,-10){%
\rput{180}(0,1.35){%
\psset{unit=.15, dotscale=0.75, arrowscale=2,doubleline=true,doublesep=1.4pt,doublecolor=gray!40,linewidth=1pt,linecolor=black!40}%
\psarc[linecap=1](0,0){1}{140}{45}%
\psbezier(0,2.5)(0,1)(! 0 1 45 sin div)(1;45)}%
\pspolygon[linewidth=1.0pt,linearc=.2,fillstyle=gradient,gradangle=90,gradmidpoint=0.3,gradend=cyan!10,gradbegin=black!25,linecolor=black!40]%
(-1.0,-1.0)(-0.75,1)(0.75,1)(1.0,-1.0)%
\rput[c](0,0){\psframebox[linestyle=none,fillstyle=solid,fillcolor=white,opacity=0.7,framearc=0.3]{\textcolor{black!50}{\psk@pulleys@M{}kg}}}
\rput(0,-1){\pnode(0,0){vmu}}}% --------- Node an der verschobenen Massenunterseite
%
%------------------- Nodes f�r die Mittelpunkte der oberen Rollen ---------------------------------------
%
\pnode(0,3.7){F}
\pnode(0,2.2){Z}
\pnode(0,1.5){N}
% ----------------- Nodes f�r die Mittelpunkte der unteren Rollen --------------------------
%
\rput(-\psk@pulleys@DX,\ps@HightH){% -----------   y-Wert �ndert die Flaschenzugl�nge nach unten oder oben
\rput{180}(0,0){%
\pnode(0,3.7){G}
\pnode(0,2.2){Y}
}}%
%
\psCircleTangents(F){\radianAI}(G){\radianAI}%
\rput(F){\pnode(\radianAI\space;10){I}}
\rput(I){\pnode(3;-80){End}}%------------------------ Ende
\rput(I){\pnode(3.37;-80){EndH}}%--------------------- Ende f�r Beginn Haken
\rput(I){\pnode(!\ps@SeilEnd\space 10 sin mul \ps@SeilEnd\space 10 cos neg mul){EndZ}}%------- verschobenes Ende
\rput(I){\pnode(!\ps@SeilEndH\space 10 sin mul \ps@SeilEndH\space 10 cos neg mul){EndZH}}%---- Ende f�r Beginn Haken verschobenes  Ende
%
%
%--------------------- Haken am oberen Seilende zum Ziehen ------------------------------------------------------------
%
\rput{10}(EndH){\psset{unit=.15, dotscale=0.75, arrowscale=2,doubleline=true,doublesep=2.5pt,doublecolor=gray!60,linewidth=0.7pt,linecolor=gray!60}%
\psarc[linecap=1](0,0){1}{-150}{45}%
\psbezier[linecap=1](0,2.5)(0,1)(! 0 1 45 sin div)(1;45)
}%
%
%--------------------- Haken am unteren Seilende zum Ziehen ------------------------------------------------------------
%
\rput{10}(EndZH){\psset{unit=.15, dotscale=0.75, arrowscale=2,doubleline=true,doublesep=4.5pt,doublecolor=black!80,linewidth=0.4pt,linecolor=black!80}%
\psarc[linecap=1](0,0){1}{-150}{45}%
\psbezier[linecap=1](0,2.5)(0,1)(! 0 1 45 sin div)(1;45)
}%
\pscircle[linecolor=black!80,linewidth=0.4pt,fillstyle=solid, fillcolor=white](EndZ){2.0pt}%
\psline[nodesepA=1cm,linewidth=2.5pt,linecap=1,linecolor=Brown!80](I)(EndZ)% --- Seil bis zur �ffnung
%
%---------------- Kraftpfeil am Seilende und delta s --------------------------------------------------------------
%
\pcline[linewidth=1.0pt,arrowsize=0.12,arrowinset=0.05, offset=.3cm,linecolor=red,nodesepA=1,nodesepB=1]{->}(I)(End)
\naput{$F_{\sf Z} = \pst@CommaVal{\ps@ForceS}$ N}%
\rput(EndH){\pcline[linewidth=0.7pt,nodesepA=0.15](0,0)(0.8;10)}%
\rput(EndZH){\pcline[linewidth=0.7pt,nodesepA=0.15](0,0)(0.8;10)}%
\pcline[linewidth=0.7pt,arrowsize=0.12,arrowinset=0.05, offset=.6cm]{<->}(EndH)(EndZH)
\naput{$\Delta s = \pst@CommaVal{\ps@Seil}$ cm}%
%
%---------------------- Seile des Flaschenzuges ----------------------------
%
{\psset{linecolor=Brown!80,linewidth=2.5pt}
\psCircleTangents(F){\radianAI\space}(G){\radianAI\space}
\pnode(CircleTO4){J}%
\pnode(CircleTO3){K}%
\psCircleTangents(Z){\radianBI\space}(G){\radianAI\space}
\pnode(CircleTO3){Q}%
\pnode(CircleTO4){R}%
\psCircleTangents(Z){\radianBI\space}(Y){\radianBI\space}
\pnode(CircleTO3){S}%
\pnode(CircleTO4){T}%
\psCircleTangents(N)(Y){\radianBI\space}
\pnode(CircleT2){U}%
\pcline(K)(J)%
\pcline(Q)(R)%
\pcline(S)(T)%
\pcline(N)(U)%
\pstArcOAB{Y}{S}{U}%
\pstArcOAB{Z}{R}{T}%
\pstArcOAB{F}{I}{J}%
\pstArcOAB{G}{K}{Q}%
\pstMiddleAB[PointSymbol=none,PointName=none]{K}{J}{MI}%
%
\psCircleTangents(N){\radianAI\space}(G){\radianAI\space}
\pnode(CircleTO3){H}%
\psIntersectionPoint(MI)([Xnodesep=-1.5]{MI}MI)(Q)(R){IPi}%
\psIntersectionPoint(MI)([Xnodesep=-1.5]{MI}MI)(S)(T){IPii}%
\psIntersectionPoint(MI)([Xnodesep=-1.5]{MI}MI)(U)(N){IPiii}%
\psline[linecolor=Brown!80](I)(EndZ)%
\psline(I)(End)%
}%
%
%----------------------- Haken an der Decke ------------------------------------------------------
%
\rput(0,5.65){\psset{unit=.15, dotscale=0.75, arrowscale=2,doubleline=true,doublesep=1.4pt,doublecolor=gray!80,linewidth=1pt,linecolor=black!80}%
\psarc[linecap=1](0,0){1}{140}{45}%
\psbezier(0,2.5)(0,1)(! 0 1 45 sin div)(1;45)
}%
%
%----------------------- gedrehter Haken unterhalb des Deckenhakens  ------------------------------------------------------
%
\rput{180}(0,5){\psset{unit=.15, dotscale=0.75, arrowscale=2,doubleline=true,doublesep=1.4pt,doublecolor=gray!80,linewidth=1pt,linecolor=black!80}%
\psarc[linecap=1](0,0){1}{140}{45}%
\psbezier(0,2.5)(0,1)(! 0 1 45 sin div)(1;45)
}%
%
%---------------------Verbindung mit dem Deckenhaken ---------------------------------------------
%
\psline[linewidth=2.5pt,linecap=1](0,5.05)(0,5.58)
%
%--------------------- Oberer Flaschenzugteil -------------------------------------------------------
%
\rput(F){\pulleyA}%
\rput(0,2.2){\pulleyB}%
\rput(0,1.65){\psframe[style=pulley-frame](-0.15,-0.35)(0.15,3)}%
\rput(0,3.7){\pscircle[linewidth=0.7pt,fillstyle=solid, fillcolor=black](0,0){.05}}%
\rput(0,2.2){\pscircle[linewidth=0.7pt,fillstyle=solid, fillcolor=black](0,0){.05}}%
%
%-------------------------- Variation der Flaschenzugl�nge --------------------------------------------
%
\rput(-\psk@pulleys@DX,\ps@HightH){% -----------   y-Wert �ndert die Flaschenzugl�nge nach unten oder oben
%
%-----------------------------Kompletter unterer Teil des Flaschenzuges um 100� gedreht -----------------
%
\rput{180}(0,0){%
%------------------------------ Haken am unteren Flaschenzugteil -----------------------------------------
%
\rput(0,5.65){%
\psset{unit=.15, dotscale=0.75, arrowscale=2,doubleline=true,doublesep=1.4pt,doublecolor=gray!80,linewidth=1pt,linecolor=black!80}%
\psarc[linecap=1](0,0){1}{140}{45}%
\psbezier(0,2.5)(0,1)(! 0 1 45 sin div)(1;45)
}%
%
%------------------------------------- Haken an der angeh�ngten Masse  ----------------------------------------
%
\rput{180}(0,5){%
\psset{unit=.15, dotscale=0.75, arrowscale=2,doubleline=true,doublesep=1.4pt,doublecolor=gray!80,linewidth=1pt,linecolor=black!80}%
\psarc[linecap=1](0,0){1}{140}{45}%
\psbezier(0,2.5)(0,1)(! 0 1 45 sin div)(1;45)
}%
\psline[linewidth=2.5pt,linecap=1](0,5.05)(0,5.58)% Verbindung der Haken angeh. Masse - Flaschz.
%
%-------------------------- Unterer Flaschenzugteil -------------------------------------------------------
%
\rput(G){\pulleyA}%
\rput(Y){\pulleyB}%
\rput(0,1.65){\psframe[style=pulley-frame](-0.15,-0.1)(0.15,3)}%
\rput(G){\pscircle[linewidth=0.7pt,fillstyle=solid, fillcolor=black](0,0){.05}}%
\rput(Y){\pscircle[linewidth=0.7pt,fillstyle=solid, fillcolor=black](0,0){.05}}%
}%
\rput(N){\pscircle[linewidth=1pt,fillstyle=solid, fillcolor=black](0,0){.07}}%
\pcline[linewidth=2.5pt,nodesepA=2cm,linecolor=Brown!80,linecap=1](U)(N)%-------------Neu-Zeichnen des letzten Verbindungsst�ckes
%
%
%------------------------- angeh�ngte Masse ------------------------------------------------------------------
%
\rput(0,-7){\pspolygon[linewidth=1.0pt,linearc=.2,fillstyle=gradient,gradangle=90,gradmidpoint=0.3,gradend=black!70,gradbegin=black!100]%
(-1.0,-1.0)(-0.75,1)(0.75,1)(1.0,-1.0)%
\rput[c](0,0){\psframebox[linestyle=none,fillstyle=solid,fillcolor=white,opacity=0.7,framearc=0.3]{\psk@pulleys@M{}kg}}
\rput(0,-1){\pnode(0,0){mu}}% --------- Node an der Massenunterseite
%
%------------------ Pfeile zu den Seilmitten f�r Kr�fte ------------------------------------------------
%
\pnode([offset=0.4,nodesep=-1.0]MI){SKE}%
\pcdiagg[style=force-diagg,linecolor=green](SKE)(MI)%
\pcdiagg[style=force-diagg,linecolor=orange](SKE)(IPi)%
\pcdiagg[style=force-diagg,linecolor=magenta](SKE)(IPii)%
\pcdiagg[style=force-diagg,linecolor=cyan](SKE)(IPiii)%
\uput{0.1}[180]{0}(SKE){$F_{\sf S} =\pst@CommaVal{\ps@ForceS}$  N}%
%
%------------------ Kraft und Abstandspfeile
%
\pcline[linewidth=1.0pt,arrowsize=0.12,arrowinset=0.05, offset=-1.4cm,linecolor=blue]{->}(0,1.5)(0,0.5)
\nbput{$F_{{\sf G}} = \pst@CommaVal{\ps@ForceG}$ N}
}%
}%
\psline[linewidth=0.7pt](mu)([Xnodesep=1.5]{mu}mu)%
\psline[linewidth=0.7pt](vmu)([Xnodesep=1.5]{vmu}vmu)%
\pcline[linewidth=0.7pt,arrowsize=0.09,arrowinset=0.05, offset=1.4cm]{<->}(mu)(vmu)%
\naput{\small $\Delta h =$ \psk@pulleys@S{} cm}%
%
%-----------------------------------Decke ------------------------------------------------------------------------
%
\psframe[linestyle=none,framearc=.0,fillstyle=gradient,gradangle=0,gradend=gray!30,gradbegin=black!70](-2,6)(2,6.5)%
\psframe[linestyle=none,framearc=.0,fillstyle=hlines,hatchwidth=0.9pt,hatchangle=55,hatchsep=4pt](-2,6)(2,6.5)%
%
%
%-----------------------------------Boden ------------------------------------------------------------------------
%
\psframe[linestyle=none,framearc=.0,fillstyle=gradient,gradmidpoint=0.1,gradangle=0,gradend=gray!30,gradbegin=black!70](-2,-11.5)(2,-11)%
\psframe[linestyle=none,framearc=.0,fillstyle=hlines,hatchwidth=0.9pt,hatchangle=55,hatchsep=4pt](-2,-11.5)(2,-11)%
}
%-------------------------------------------------------------------------------------------------------------------------

%-------------------------- Mit 5 Rollen -----------------------------------------------------------------------------------
%
\def\poulieE{% 5 poulie
\def\flzlx{-0.08}% ----------- unteren Flaschenzugteil nach links oder rechts ausrichten, damit die Seile symmetrisch sind
%
%
%------------------------- verschobene Masse mit Haken-------------------------------------------------------
%
\rput(-\psk@pulleys@DX,-10){%
\rput{180}(0,1.35){%
\psset{unit=.15, dotscale=0.75, arrowscale=2,doubleline=true,doublesep=1.4pt,doublecolor=gray!40,linewidth=1pt,linecolor=black!40}%
\psarc[linecap=1](0,0){1}{140}{45}%
\psbezier(0,2.5)(0,1)(! 0 1 45 sin div)(1;45)}%
\pspolygon[linewidth=1.0pt,linearc=.2,fillstyle=gradient,gradangle=90,gradmidpoint=0.3,gradend=cyan!10,gradbegin=black!25,linecolor=black!40]%
(-1.0,-1.0)(-0.75,1)(0.75,1)(1.0,-1.0)%
\rput[c](0,0){\psframebox[linestyle=none,fillstyle=solid,fillcolor=white,opacity=0.7,framearc=0.3]{\textcolor{black!50}{\psk@pulleys@M{}kg}}}
\rput(0,-1){\pnode(0,0){vmu}}}% --------- Node an der verschobenen Massenunterseite
%
%------------------- Nodes f�r die Mittelpunkte der oberen Rollen ---------------------------------------
%
\pnode(0,3.7){F}
\pnode(0,2.2){Z}
\pnode(0,1.25){X}
% ----------------- Nodes f�r die Mittelpunkte der unteren Rollen --------------------------
%
\rput(-\psk@pulleys@DX,\ps@HightH){% -----------   y-Wert �ndert die Flaschenzugl�nge nach unten oder oben
\rput{180}(0,0){%
\pnode(0,3.7){G}
\pnode(0,2.2){Y}
\pnode(0,1.4){N}
}}%
%
\psCircleTangents(F){\radianAI\space}(G){\radianAI\space}%
\rput(F){\pnode(\radianAI\space;10){I}}
\rput(I){\pnode(3;-80){End}}%------------------------ Ende
\rput(I){\pnode(3.37;-80){EndH}}%--------------------- Ende f�r Beginn Haken
\rput(I){\pnode(!\ps@SeilEnd\space 10 sin mul \ps@SeilEnd\space 10 cos neg mul){EndZ}}%------- verschobenes Ende
\rput(I){\pnode(!\ps@SeilEndH\space 10 sin mul \ps@SeilEndH\space 10 cos neg mul){EndZH}}%---- Ende f�r Beginn Haken verschobenes  Ende
%
%
%--------------------- Haken am oberen Seilende zum Ziehen ------------------------------------------------------------
%
\rput{10}(EndH){\psset{unit=.15, dotscale=0.75, arrowscale=2,doubleline=true,doublesep=2.5pt,doublecolor=gray!60,linewidth=0.7pt,linecolor=gray!60}%
\psarc[linecap=1](0,0){1}{-150}{45}%
\psbezier[linecap=1](0,2.5)(0,1)(! 0 1 45 sin div)(1;45)
}%
%
%--------------------- Haken am unteren Seilende zum Ziehen ------------------------------------------------------------
%
\rput{10}(EndZH){\psset{unit=.15, dotscale=0.75, arrowscale=2,doubleline=true,doublesep=4.5pt,doublecolor=black!80,linewidth=0.4pt,linecolor=black!80}%
\psarc[linecap=1](0,0){1}{-150}{45}%
\psbezier[linecap=1](0,2.5)(0,1)(! 0 1 45 sin div)(1;45)
}%
\pscircle[linecolor=black!80,linewidth=0.4pt,fillstyle=solid, fillcolor=white](EndZ){2.0pt}%
\psline[nodesepA=1cm,linewidth=2.5pt,linecap=1,linecolor=Brown!80](I)(EndZ)% --- Seil bis zur �ffnung
%
%---------------- Kraftpfeil am Seilende und delta s --------------------------------------------------------------
%
\pcline[linewidth=1.0pt,arrowsize=0.12,arrowinset=0.05, offset=.3cm,linecolor=red,nodesepA=1,nodesepB=1]{->}(I)(End)
\naput{$F_{\sf Z} = \pst@CommaVal{\ps@ForceS}$ N}%
\rput(EndH){\pcline[linewidth=0.7pt,nodesepA=0.15](0,0)(0.8;10)}%
\rput(EndZH){\pcline[linewidth=0.7pt,nodesepA=0.15](0,0)(0.8;10)}%
\pcline[linewidth=0.7pt,arrowsize=0.12,arrowinset=0.05, offset=.6cm]{<->}(EndH)(EndZH)
\naput{$\Delta s = \pst@CommaVal{\ps@Seil}$ cm}%
%
%---------------------- Seile des Flaschenzuges ----------------------------
%
{\psset{linecolor=Brown!80,linewidth=2.5pt}
\psCircleTangents(F){\radianAI\space}(G){\radianAI\space}
\pnode(CircleTO4){J}%
\pnode(CircleTO3){K}%
\psCircleTangents(Z){\radianBI\space}(G){\radianAI\space}
\pnode(CircleTO3){Q}%
\pnode(CircleTO4){R}%
\psCircleTangents(Z){\radianBI\space}(Y){\radianBI\space}
\pnode(CircleTO3){S}%
\pnode(CircleTO4){T}%
\psCircleTangents(X){\radianCI\space}(Y){\radianBI\space}
\pnode(CircleTO3){U}%
\pnode(CircleTO4){V}%
\psCircleTangents(N)(X){\radianCI\space}
\pnode(CircleT2){W}%
\pcline(K)(J)%
\pcline(Q)(R)%
\pcline(S)(T)%
\pcline(U)(V)%
\pcline(W)(N)%
\pstArcOAB{X}{V}{W}%
\pstArcOAB{Y}{S}{U}%
\pstArcOAB{Z}{R}{T}%
\pstArcOAB{F}{I}{J}%
\pstArcOAB{G}{K}{Q}%
\pstMiddleAB[PointSymbol=none,PointName=none]{K}{J}{MI}%
%
\psCircleTangents(N){\radianAI\space}(G){\radianAI\space}
\pnode(CircleTO3){H}%
\psIntersectionPoint(MI)([Xnodesep=-1.5]{MI}MI)(Q)(R){IPi}%
\psIntersectionPoint(MI)([Xnodesep=-1.5]{MI}MI)(S)(T){IPii}%
\psIntersectionPoint(MI)([Xnodesep=-1.5]{MI}MI)(U)(V){IPiii}%
\psIntersectionPoint(MI)([Xnodesep=-1.5]{MI}MI)(W)(N){IPiiii}%
\psline[linecolor=Brown!80](I)(EndZ)%
\psline(I)(End)%
}%
%
%----------------------- Haken an der Decke ------------------------------------------------------
%
\rput(0,5.65){\psset{unit=.15, dotscale=0.75, arrowscale=2,doubleline=true,doublesep=1.4pt,doublecolor=gray!80,linewidth=1pt,linecolor=black!80}%
\psarc[linecap=1](0,0){1}{140}{45}%
\psbezier(0,2.5)(0,1)(! 0 1 45 sin div)(1;45)
}%
%
%----------------------- gedrehter Haken unterhalb des Deckenhakens  ------------------------------------------------------
%
\rput{180}(0,5){\psset{unit=.15, dotscale=0.75, arrowscale=2,doubleline=true,doublesep=1.4pt,doublecolor=gray!80,linewidth=1pt,linecolor=black!80}%
\psarc[linecap=1](0,0){1}{140}{45}%
\psbezier(0,2.5)(0,1)(! 0 1 45 sin div)(1;45)
}%
%
%---------------------Verbindung mit dem Deckenhaken ---------------------------------------------
%
\psline[linewidth=2.5pt,linecap=1](0,5.05)(0,5.58)
%
%--------------------- Oberer Flaschenzugteil -------------------------------------------------------
%
\rput(F){\pulleyA}%
\rput(Z){\pulleyB}%
\rput(X){\pulleyC}%
\rput(0,1.65){\psframe[style=pulley-frame](-0.15,-0.8)(0.15,3)}%
\rput(F){\pscircle[linewidth=0.7pt,fillstyle=solid, fillcolor=black](0,0){.05}}%
\rput(Z){\pscircle[linewidth=0.7pt,fillstyle=solid, fillcolor=black](0,0){.05}}%
\rput(X){\pscircle[linewidth=0.7pt,fillstyle=solid, fillcolor=black](0,0){.05}}%
%
%-------------------------- Variation der Flaschenzugl�nge --------------------------------------------
%
\rput(-\psk@pulleys@DX,\ps@HightH){% -----------   y-Wert �ndert die Flaschenzugl�nge nach unten oder oben
%
%-----------------------------Kompletter unterer Teil des Flaschenzuges um 100� gedreht -----------------
%
\rput{180}(0,0){%
%------------------------------ Haken am unteren Flaschenzugteil -----------------------------------------
%
\rput(0,5.65){%
\psset{unit=.15, dotscale=0.75, arrowscale=2,doubleline=true,doublesep=1.4pt,doublecolor=gray!80,linewidth=1pt,linecolor=black!80}%
\psarc[linecap=1](0,0){1}{140}{45}%
\psbezier(0,2.5)(0,1)(! 0 1 45 sin div)(1;45)
}%
%
%------------------------------------- Haken an der angeh�ngten Masse  ----------------------------------------
%
\rput{180}(0,5){%
\psset{unit=.15, dotscale=0.75, arrowscale=2,doubleline=true,doublesep=1.4pt,doublecolor=gray!80,linewidth=1pt,linecolor=black!80}%
\psarc[linecap=1](0,0){1}{140}{45}%
\psbezier(0,2.5)(0,1)(! 0 1 45 sin div)(1;45)
}%
\psline[linewidth=2.5pt,linecap=1](0,5.05)(0,5.58)% Verbindung der Haken angeh. Masse - Flaschz.
%
%-------------------------- Unterer Flaschenzugteil -------------------------------------------------------
%
\rput(G){\pulleyA}%
\rput(Y){\pulleyB}%
\rput(0,1.65){\psframe[style=pulley-frame](-0.15,-0.4)(0.15,3)}%
\rput(G){\pscircle[linewidth=0.7pt,fillstyle=solid, fillcolor=black](0,0){.05}}%
\rput(Y){\pscircle[linewidth=0.7pt,fillstyle=solid, fillcolor=black](0,0){.05}}%
}%
\rput(N){\pscircle[linewidth=1pt,fillstyle=solid, fillcolor=black](0,0){.07}}%
\pcline[linewidth=2.5pt,nodesepA=2cm,linecolor=Brown!80,linecap=1](W)(N)%-------------Neu-Zeichnen des letzten Verbindungsst�ckes
%
%
%------------------------- angeh�ngte Masse ------------------------------------------------------------------
%
\rput(0,-7){\pspolygon[linewidth=1.0pt,linearc=.2,fillstyle=gradient,gradangle=90,gradmidpoint=0.3,gradend=black!70,gradbegin=black!100]%
(-1.0,-1.0)(-0.75,1)(0.75,1)(1.0,-1.0)%
\rput[c](0,0){\psframebox[linestyle=none,fillstyle=solid,fillcolor=white,opacity=0.7,framearc=0.3]{\psk@pulleys@M{}kg}}
\rput(0,-1){\pnode(0,0){mu}}% --------- Node an der Massenunterseite
%
%------------------ Pfeile zu den Seilmitten f�r Kr�fte ------------------------------------------------
%
\pnode([offset=0.4,nodesep=-1.0]MI){SKE}%
\pcdiagg[style=force-diagg,linecolor=green](SKE)(MI)%
\pcdiagg[style=force-diagg,linecolor=orange](SKE)(IPi)%
\pcdiagg[style=force-diagg,linecolor=magenta](SKE)(IPii)%
\pcdiagg[style=force-diagg,linecolor=cyan](SKE)(IPiii)%
\pcdiagg[style=force-diagg,linecolor=blue](SKE)(IPiiii)%
\uput{0.1}[180]{0}(SKE){$F_{\sf S} =\pst@CommaVal{\ps@ForceS}$  N}%
%
%------------------ Kraft und Abstandspfeile
%
\pcline[linewidth=1.0pt,arrowsize=0.12,arrowinset=0.05, offset=-1.4cm,linecolor=blue]{->}(0,1.5)(0,0.5)
\nbput{$F_{{\sf G}} = \pst@CommaVal{\ps@ForceG}$ N}
}%
}%
\psline[linewidth=0.7pt](mu)([Xnodesep=1.5]{mu}mu)%
\psline[linewidth=0.7pt](vmu)([Xnodesep=1.5]{vmu}vmu)%
\pcline[linewidth=0.7pt,arrowsize=0.09,arrowinset=0.05, offset=1.4cm]{<->}(mu)(vmu)%
\naput{\small $\Delta h =$ \psk@pulleys@S{} cm}%
%
%-----------------------------------Decke ------------------------------------------------------------------------
%
\psframe[linestyle=none,framearc=.0,fillstyle=gradient,gradangle=0,gradend=gray!30,gradbegin=black!70](-2,6)(2,6.5)%
\psframe[linestyle=none,framearc=.0,fillstyle=hlines,hatchwidth=0.9pt,hatchangle=55,hatchsep=4pt](-2,6)(2,6.5)%
%
%
%-----------------------------------Boden ------------------------------------------------------------------------
%
\psframe[linestyle=none,framearc=.0,fillstyle=gradient,gradmidpoint=0.1,gradangle=0,gradend=gray!30,gradbegin=black!70](-2,-11.5)(2,-11)%
\psframe[linestyle=none,framearc=.0,fillstyle=hlines,hatchwidth=0.9pt,hatchangle=55,hatchsep=4pt](-2,-11.5)(2,-11)%
}
%-------------------------------------------------------------------------------------------------------------------------

%-------------------------- Mit 6 Rollen -----------------------------------------------------------------------------------
%
\def\poulieF{% 6 poulie
\def\flzlx{-0.07}% ----------- unteren Flaschenzugteil nach links oder rechts ausrichten, damit die Seile symmetrisch sind
%
%
%------------------------- verschobene Masse mit Haken-------------------------------------------------------
%
\rput(-\psk@pulleys@DX,-10){%
\rput{180}(0,1.35){%
\psset{unit=.15, dotscale=0.75, arrowscale=2,doubleline=true,doublesep=1.4pt,doublecolor=gray!40,linewidth=1pt,linecolor=black!40}%
\psarc[linecap=1](0,0){1}{140}{45}%
\psbezier(0,2.5)(0,1)(! 0 1 45 sin div)(1;45)}%
\pspolygon[linewidth=1.0pt,linearc=.2,fillstyle=gradient,gradangle=90,gradmidpoint=0.3,gradend=cyan!10,gradbegin=black!25,linecolor=black!40]%
(-1.0,-1.0)(-0.75,1)(0.75,1)(1.0,-1.0)%
\rput[c](0,0){\psframebox[linestyle=none,fillstyle=solid,fillcolor=white,opacity=0.7,framearc=0.3]{\textcolor{black!50}{\psk@pulleys@M{}kg}}}
\rput(0,-1){\pnode(0,0){vmu}}}% --------- Node an der verschobenen Massenunterseite
%
%------------------- Nodes f�r die Mittelpunkte der oberen Rollen ---------------------------------------
%
\pnode(0,3.7){F}
\pnode(0,2.2){Z}
\pnode(0,1.25){X}
\pnode(0,0.77){N}
% ----------------- Nodes f�r die Mittelpunkte der unteren Rollen --------------------------
%
\rput(-\psk@pulleys@DX,\ps@HightH){% -----------   y-Wert �ndert die Flaschenzugl�nge nach unten oder oben
\rput{180}(0,0){%
\pnode(0,3.7){G}
\pnode(0,2.2){Y}
\pnode(0,1.25){AA}
}}%
%
\psCircleTangents(F){\radianAI\space}(G){\radianAI\space}%
\rput(F){\pnode(\radianAI\space;10){I}}
\rput(I){\pnode(3;-80){End}}%------------------------ Ende
\rput(I){\pnode(3.37;-80){EndH}}%--------------------- Ende f�r Beginn Haken
\rput(I){\pnode(!\ps@SeilEnd\space 10 sin mul \ps@SeilEnd\space 10 cos neg mul){EndZ}}%------- verschobenes Ende
\rput(I){\pnode(!\ps@SeilEndH\space 10 sin mul \ps@SeilEndH\space 10 cos neg mul){EndZH}}%---- Ende f�r Beginn Haken verschobenes  Ende
%
%
%--------------------- Haken am oberen Seilende zum Ziehen ------------------------------------------------------------
%
\rput{10}(EndH){\psset{unit=.15, dotscale=0.75, arrowscale=2,doubleline=true,doublesep=2.5pt,doublecolor=gray!60,linewidth=0.7pt,linecolor=gray!60}%
\psarc[linecap=1](0,0){1}{-150}{45}%
\psbezier[linecap=1](0,2.5)(0,1)(! 0 1 45 sin div)(1;45)
}%
%
%--------------------- Haken am unteren Seilende zum Ziehen ------------------------------------------------------------
%
\rput{10}(EndZH){\psset{unit=.15, dotscale=0.75, arrowscale=2,doubleline=true,doublesep=4.5pt,doublecolor=black!80,linewidth=0.4pt,linecolor=black!80}%
\psarc[linecap=1](0,0){1}{-150}{45}%
\psbezier[linecap=1](0,2.5)(0,1)(! 0 1 45 sin div)(1;45)
}%
\pscircle[linecolor=black!80,linewidth=0.4pt,fillstyle=solid, fillcolor=white](EndZ){2.0pt}%
\psline[nodesepA=1cm,linewidth=2.5pt,linecap=1,linecolor=Brown!80](I)(EndZ)% --- Seil bis zur �ffnung
%
%---------------- Kraftpfeil am Seilende und delta s --------------------------------------------------------------
%
\pcline[linewidth=1.0pt,arrowsize=0.12,arrowinset=0.05, offset=.3cm,linecolor=red,nodesepA=1,nodesepB=1]{->}(I)(End)
\naput{$F_{\sf Z} = \pst@CommaVal{\ps@ForceS}$ N}%
\rput(EndH){\pcline[linewidth=0.7pt,nodesepA=0.15](0,0)(0.8;10)}%
\rput(EndZH){\pcline[linewidth=0.7pt,nodesepA=0.15](0,0)(0.8;10)}%
\pcline[linewidth=0.7pt,arrowsize=0.12,arrowinset=0.05, offset=.6cm]{<->}(EndH)(EndZH)
\naput{$\Delta s = \pst@CommaVal{\ps@Seil}$ cm}%
%
%---------------------- Seile des Flaschenzuges ----------------------------
%
{\psset{linecolor=Brown!80,linewidth=2.5pt}
\psCircleTangents(F){\radianAI\space}(G){\radianAI\space}
\pnode(CircleTO4){J}%
\pnode(CircleTO3){K}%
\psCircleTangents(Z){\radianBI\space}(G){\radianAI\space}
\pnode(CircleTO3){Q}%
\pnode(CircleTO4){R}%
\psCircleTangents(Z){\radianBI\space}(Y){\radianBI\space}
\pnode(CircleTO3){S}%
\pnode(CircleTO4){T}%
\psCircleTangents(X){\radianCI\space}(Y){\radianBI\space}
\pnode(CircleTO3){U}%
\pnode(CircleTO4){V}%
\psCircleTangents(AA){\radianCI\space}(X){\radianCI\space}
\pnode(CircleTO2){AB}%
\pnode(CircleTO1){W}%
\psCircleTangents(N)(AA){\radianCI\space}
\pnode(CircleT2){AC}%
\pcline(K)(J)%
\pcline(Q)(R)%
\pcline(S)(T)%
\pcline(U)(V)%
\pcline(W)(AB)%
\pcline(AC)(N)%
\pstArcOAB{AA}{AB}{AC}%
\pstArcOAB{X}{V}{W}%
\pstArcOAB{Y}{S}{U}%
\pstArcOAB{Z}{R}{T}%
\pstArcOAB{F}{I}{J}%
\pstArcOAB{G}{K}{Q}%
\pstMiddleAB[PointSymbol=none,PointName=none]{K}{J}{MI}%
%
\psCircleTangents(N){\radianAI\space}(G){\radianAI\space}
\pnode(CircleTO3){H}%
\psIntersectionPoint(MI)([Xnodesep=-1.5]{MI}MI)(Q)(R){IPi}%
\psIntersectionPoint(MI)([Xnodesep=-1.5]{MI}MI)(S)(T){IPii}%
\psIntersectionPoint(MI)([Xnodesep=-1.5]{MI}MI)(U)(V){IPiii}%
\psIntersectionPoint(MI)([Xnodesep=-1.5]{MI}MI)(W)(AB){IPiiii}%
\psIntersectionPoint(MI)([Xnodesep=-1.5]{MI}MI)(AC)(N){IPiiiii}%
\psline[linecolor=Brown!80](I)(EndZ)%
\psline(I)(End)%
}%
%
%----------------------- Haken an der Decke ------------------------------------------------------
%
\rput(0,5.65){\psset{unit=.15, dotscale=0.75, arrowscale=2,doubleline=true,doublesep=1.4pt,doublecolor=gray!80,linewidth=1pt,linecolor=black!80}%
\psarc[linecap=1](0,0){1}{140}{45}%
\psbezier(0,2.5)(0,1)(! 0 1 45 sin div)(1;45)
}%
%
%----------------------- gedrehter Haken unterhalb des Deckenhakens  ------------------------------------------------------
%
\rput{180}(0,5){\psset{unit=.15, dotscale=0.75, arrowscale=2,doubleline=true,doublesep=1.4pt,doublecolor=gray!80,linewidth=1pt,linecolor=black!80}%
\psarc[linecap=1](0,0){1}{140}{45}%
\psbezier(0,2.5)(0,1)(! 0 1 45 sin div)(1;45)
}%
%
%---------------------Verbindung mit dem Deckenhaken ---------------------------------------------
%
\psline[linewidth=2.5pt,linecap=1](0,5.05)(0,5.58)
%
%--------------------- Oberer Flaschenzugteil -------------------------------------------------------
%
\rput(F){\pulleyA}%
\rput(Z){\pulleyB}%
\rput(X){\pulleyC}%
\rput(0,1.65){\psframe[style=pulley-frame](-0.15,-1)(0.15,3)}%
\rput(F){\pscircle[linewidth=0.7pt,fillstyle=solid, fillcolor=black](0,0){.05}}%
\rput(Z){\pscircle[linewidth=0.7pt,fillstyle=solid, fillcolor=black](0,0){.05}}%
\rput(X){\pscircle[linewidth=0.7pt,fillstyle=solid, fillcolor=black](0,0){.05}}%
%
%-------------------------- Variation der Flaschenzugl�nge --------------------------------------------
%
\rput(-\psk@pulleys@DX,\ps@HightH){% -----------   y-Wert �ndert die Flaschenzugl�nge nach unten oder oben
%
%-----------------------------Kompletter unterer Teil des Flaschenzuges um 100� gedreht -----------------
%
\rput{180}(0,0){%
%------------------------------ Haken am unteren Flaschenzugteil -----------------------------------------
%
\rput(0,5.65){%
\psset{unit=.15, dotscale=0.75, arrowscale=2,doubleline=true,doublesep=1.4pt,doublecolor=gray!80,linewidth=1pt,linecolor=black!80}%
\psarc[linecap=1](0,0){1}{140}{45}%
\psbezier(0,2.5)(0,1)(! 0 1 45 sin div)(1;45)
}%
%
%------------------------------------- Haken an der angeh�ngten Masse  ----------------------------------------
%
\rput{180}(0,5){%
\psset{unit=.15, dotscale=0.75, arrowscale=2,doubleline=true,doublesep=1.4pt,doublecolor=gray!80,linewidth=1pt,linecolor=black!80}%
\psarc[linecap=1](0,0){1}{140}{45}%
\psbezier(0,2.5)(0,1)(! 0 1 45 sin div)(1;45)
}%
\psline[linewidth=2.5pt,linecap=1](0,5.05)(0,5.58)% Verbindung der Haken angeh. Masse - Flaschz.
%
%-------------------------- Unterer Flaschenzugteil -------------------------------------------------------
%
\rput(G){\pulleyA}%
\rput(Y){\pulleyB}%
\rput(AA){\pulleyC}%
\rput(0,1.65){\psframe[style=pulley-frame](-0.15,-0.8)(0.15,3)}%
\rput(G){\pscircle[linewidth=0.7pt,fillstyle=solid, fillcolor=black](0,0){.05}}%
\rput(Y){\pscircle[linewidth=0.7pt,fillstyle=solid, fillcolor=black](0,0){.05}}%
\rput(AA){\pscircle[linewidth=0.7pt,fillstyle=solid, fillcolor=black](0,0){.05}}%
\rput(N){\pscircle[linewidth=1pt,fillstyle=solid, fillcolor=black](0,0){.07}}%
}%
\pcline[linewidth=2.5pt,nodesepA=2cm,linecolor=Brown!80,linecap=1](AC)(N)%-------------Neu-Zeichnen des letzten Verbindungsst�ckes
%
%
%------------------------- angeh�ngte Masse ------------------------------------------------------------------
%
\rput(0,-7){\pspolygon[linewidth=1.0pt,linearc=.2,fillstyle=gradient,gradangle=90,gradmidpoint=0.3,gradend=black!70,gradbegin=black!100]%
(-1.0,-1.0)(-0.75,1)(0.75,1)(1.0,-1.0)%
\rput[c](0,0){\psframebox[linestyle=none,fillstyle=solid,fillcolor=white,opacity=0.7,framearc=0.3]{\psk@pulleys@M{}kg}}
\rput(0,-1){\pnode(0,0){mu}}% --------- Node an der Massenunterseite
%
%------------------ Pfeile zu den Seilmitten f�r Kr�fte ------------------------------------------------
%
\pnode([offset=0.4,nodesep=-1.0]MI){SKE}%
\pcdiagg[style=force-diagg,linecolor=green](SKE)(MI)%
\pcdiagg[style=force-diagg,linecolor=orange](SKE)(IPi)%
\pcdiagg[style=force-diagg,linecolor=magenta](SKE)(IPii)%
\pcdiagg[style=force-diagg,linecolor=cyan](SKE)(IPiii)%
\pcdiagg[style=force-diagg,linecolor=blue](SKE)(IPiiii)%
\pcdiagg[style=force-diagg,linecolor=red](SKE)(IPiiiii)%
\uput{0.1}[180]{0}(SKE){$F_{\sf S} =\pst@CommaVal{\ps@ForceS}$  N}%
%
%------------------ Kraft und Abstandspfeile
%
\pcline[linewidth=1.0pt,arrowsize=0.12,arrowinset=0.05, offset=-1.4cm,linecolor=blue]{->}(0,1.5)(0,0.5)
\nbput{$F_{{\sf G}} = \pst@CommaVal{\ps@ForceG}$ N}
}%
}%
\psline[linewidth=0.7pt](mu)([Xnodesep=1.5]{mu}mu)%
\psline[linewidth=0.7pt](vmu)([Xnodesep=1.5]{vmu}vmu)%
\pcline[linewidth=0.7pt,arrowsize=0.09,arrowinset=0.05, offset=1.4cm]{<->}(mu)(vmu)%
\naput{\small $\Delta h =$ \psk@pulleys@S{} cm}%
%
%-----------------------------------Decke ------------------------------------------------------------------------
%
\psframe[linestyle=none,framearc=.0,fillstyle=gradient,gradangle=0,gradend=gray!30,gradbegin=black!70](-2,6)(2,6.5)%
\psframe[linestyle=none,framearc=.0,fillstyle=hlines,hatchwidth=0.9pt,hatchangle=55,hatchsep=4pt](-2,6)(2,6.5)%
%
%
%-----------------------------------Boden ------------------------------------------------------------------------
%
\psframe[linestyle=none,framearc=.0,fillstyle=gradient,gradmidpoint=0.1,gradangle=0,gradend=gray!30,gradbegin=black!70](-2,-11.5)(2,-11)%
\psframe[linestyle=none,framearc=.0,fillstyle=hlines,hatchwidth=0.9pt,hatchangle=55,hatchsep=4pt](-2,-11.5)(2,-11)%
}
%-------------------------------------------------------------------------------------------------------------------------
% etc.
%
%%% la macro ------------------------------

\def\pst@CommaVal#1{\expandafter\pst@@CommaVal#1..\@nil}
\def\pst@@CommaVal#1.#2.#3\@nil{\ifx\relax#2\relax#1\else\pst@@@CommaVal#1.#2\@nil\fi}
\def\pst@@@CommaVal#1.#2#3\@nil{#1{,}#2}
%
%
%
\def\pspulleys{\pst@object{pspulleys}}
\def\pspulleys@i{%
\begingroup%
\pst@killglue
\use@par
\pstFPmul\ps@Seil{\psk@pulleys@S}{\psk@pulleys@N}
\pstFPdiv\ps@ForceS{\psk@pulleys@M}{\psk@pulleys@N}
\pstFPMul\ps@ForceS{10}{\ps@ForceS}
\pstFPMul\ps@ForceG{\psk@pulleys@M}{10}
\pstFPdiv\ps@HightH{\psk@pulleys@S}{10}
\pstFPsub\ps@HightH{\ps@HightH}{3}
\pstFPmul\ps@SeilEnd{\psk@pulleys@S}{\psk@pulleys@N}
\pstFPdiv\ps@SeilEnd{\ps@SeilEnd}{10}
\pstFPadd\ps@SeilEndH{\ps@SeilEnd}{3.37}
\pstFPadd\ps@SeilEnd{\ps@SeilEnd}{3}

%
\newcount\Npulleys
\Npulleys=\psk@pulleys@N
\advance\Npulleys by -1
\ifPst@grid\pspicture[showgrid](-4,-11.5)(4,7)\else\pspicture(-4,-11.5)(4,7)\fi%
\ifcase\Npulleys
      % 1 poulie
      \poulieA
       \or
      % 2 poulies
      \poulieB
       \or
      % 3 poulies
      \poulieC
      \or
     % 4 poulies
     \poulieD
      \or
     % 5 poulies
     \poulieE
      \or
     % 6 poulies
     \poulieF
    \else
     %  if N>6
     \poulieD
    \fi
\endpspicture
\endgroup%
\ignorespaces}

\catcode`\@=\TheAtCode\relax

\endinput
%%
%% END pst-pulley.tex

