From 6baca9f9c7c738e409b31d9111d838e94b29dd89 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Wed, 18 Jan 2012 23:24:41 +0000 Subject: new pstricks package pst-pulley (18jan12) git-svn-id: svn://tug.org/texlive/trunk@25142 c570f23f-e606-0410-a88d-b1316a301751 --- .../tex/generic/pst-pulley/pst-pulley.tex | 1257 ++++++++++++++++++++ 1 file changed, 1257 insertions(+) create mode 100644 Master/texmf-dist/tex/generic/pst-pulley/pst-pulley.tex (limited to 'Master/texmf-dist/tex/generic/pst-pulley') diff --git a/Master/texmf-dist/tex/generic/pst-pulley/pst-pulley.tex b/Master/texmf-dist/tex/generic/pst-pulley/pst-pulley.tex new file mode 100644 index 00000000000..7b509772a63 --- /dev/null +++ b/Master/texmf-dist/tex/generic/pst-pulley/pst-pulley.tex @@ -0,0 +1,1257 @@ +%% 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 + -- cgit v1.2.3