From 2a886fbce3b9f2ed32e02e952d4b300e6e3dd7b4 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Thu, 24 Feb 2011 23:36:18 +0000 Subject: new german doc pstricks examples (23feb11) git-svn-id: svn://tug.org/texlive/trunk@21511 c570f23f-e606-0410-a88d-b1316a301751 --- .../doc/latex/pstricks-examples/25-03-69.ltx | 54 ++++++++++++++++++++++ 1 file changed, 54 insertions(+) create mode 100644 Master/texmf-dist/doc/latex/pstricks-examples/25-03-69.ltx (limited to 'Master/texmf-dist/doc/latex/pstricks-examples/25-03-69.ltx') diff --git a/Master/texmf-dist/doc/latex/pstricks-examples/25-03-69.ltx b/Master/texmf-dist/doc/latex/pstricks-examples/25-03-69.ltx new file mode 100644 index 00000000000..7c11951084f --- /dev/null +++ b/Master/texmf-dist/doc/latex/pstricks-examples/25-03-69.ltx @@ -0,0 +1,54 @@ +%% +%% Ein Beispiel der DANTE-Edition +%% +%% +%% Copyright (C) 2010 Herbert Voss +%% +%% It 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. +%% +%% See http://www.latex-project.org/lppl.txt for details. +%% +%% +%% ==== +% Show page(s) 1 +%% +\documentclass[]{exaarticle} +\pagestyle{empty} +\setlength\textwidth{352.81416pt} +\setlength\parindent{0pt} +\StartShownPreambleCommands +\usepackage{pst-stru} +\StopShownPreambleCommands +\begin{document} +\begin{pspicture}(-1,-4)(9,2) \psset{arrowsize=0.8mm,arrowinset=0} + \pnode(0,0){A}\pnode(2,0){B}\pnode(8,0){C}\rput{0}(C){\hinge}\rput{0}(B){\roller} + \psline[linecolor=red,fillcolor=yellow,fillstyle=solid](0,0)(8,0)(8,1)(0,0) + \multido{\nStart=1.00+0.025}{-37}{% + \psArrowCivil[RotArrows=0,length=\nStart,start=\nStart,linecolor=magenta](A)(C){}} + \rput(8.3,0.4){\large p}\rput(0,-0.4){\Large A} + \rput(2,-1){\Large B}\rput(8.3,-0.6){\Large C} + \pcline[offset=0,linecolor=blue]{|-|}(0,-3)(2,-3)\lput*{:U}{\bf $\frac{l}{3}$} + \pcline[offset=0,linecolor=blue]{|-|}(2,-3)(8,-3)\lput*{:U}{\bf $l$} + \def\MflettAB#1#2#3{#1 #2 div -.125 mul x mul x mul x mul #3 mul neg} + \pscustom[linecolor=blue,linewidth=1pt,fillstyle=hlines]{ + \psplot[]{0}{2}{\MflettAB{6}{6}{0.15}}\psline[](2,0)(0,0) } + \def\TaglioAB#1#2#3{#1 #2 div -.375 mul x mul x mul #3 mul} %AB + \pscustom[linecolor=green,linewidth=1pt,fillstyle=crosshatch]{ + \psplot[]{0}{2}{\TaglioAB{6}{6}{0.15}}\psline[](2,0)(0,0) } + \def\MflettBC#1#2#3{#1 #2 div -.125 mul x mul x mul x mul + #1 3.375 div #2 mul x mul add #1 10.125 div #2 mul #2 mul sub #3 mul neg}% BC + \pscustom[linecolor=blue,linewidth=1pt,fillstyle=hlines]{ + \psplot[]{2}{8}{\MflettBC{6}{6}{0.15}}\psline[](8,0)(2,0) } + \def\TaglioBC#1#2#3{#1 #2 div -.375 mul x mul x mul #1 3.375 div #2 mul add #3 mul} + \pscustom[linecolor=green,linewidth=1pt,fillstyle=crosshatch]{ + \psplot[]{2}{8}{\TaglioBC{6}{6}{0.15}}\psline[](8,0)(2,0)(2,1.4) } + \psline[linewidth=1.5pt](0,0)(8,0) % Printing beam AC after diagrams BM/S + \rput(3,1.6){\em {\scriptsize Shear diagram (green boundary)}} + \rput(3,-1.6){\em {\scriptsize Bending Moment diagram (blue boundary)}} + \rput(2,-1.9){\scriptsize [assumed positive downwards]} + \rput(5,-1){\bf {\large +}}\rput(2.5,0.6){\bf {\large +}} + \rput(7.7,-1.3){\bf {\Large -}} +\end{pspicture} +\end{document} -- cgit v1.2.3