From 9c0feb2595d07faec08cc09c9f25a353384b2c9b Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Andreas=20M=C3=BCller?= <andreas.mueller@ost.ch>
Date: Fri, 10 Sep 2021 19:36:27 +0200
Subject: add combined images

---
 buch/papers/erdbeben/images/standard.tex | 64 ++++++++++++++++++++++++++++++++
 1 file changed, 64 insertions(+)
 create mode 100644 buch/papers/erdbeben/images/standard.tex

(limited to 'buch/papers/erdbeben/images/standard.tex')

diff --git a/buch/papers/erdbeben/images/standard.tex b/buch/papers/erdbeben/images/standard.tex
new file mode 100644
index 0000000..74ac7a1
--- /dev/null
+++ b/buch/papers/erdbeben/images/standard.tex
@@ -0,0 +1,64 @@
+%
+% standard.tex -- Kombination der Standard-Bilder
+%
+% (c) 2021 Prof Dr Andreas Müller, OST Ostschweizer Fachhochschule
+%
+\documentclass[tikz]{standalone}
+\usepackage{amsmath}
+\usepackage{times}
+\usepackage{txfonts}
+\usepackage{pgfplots}
+\usepackage{csvsimple}
+\usetikzlibrary{arrows,intersections,math}
+\begin{document}
+\newboolean{showgrid}
+\setboolean{showgrid}{false}
+\def\skala{1}
+\begin{tikzpicture}[>=latex,thick,scale=\skala]
+
+\node at (0,0) {\includegraphics[width=14cm]{../Standard_alles.PNG}};
+
+\def\yten{-2.12}
+\def\yfifteen{0.1}
+
+\def\links{12.5}
+\def\rechts{13.4}
+
+\pgfmathparse{(\yfifteen-(\yten))/5}
+\xdef\m{\pgfmathresult}
+\xdef\b{\yten}
+
+%\node at (0,7) {$m=\m$}; \node at (0,8) {$b=\b$};
+
+\pgfmathparse{\m*(\links-10)+(\b)}
+\xdef\Links{\pgfmathresult}
+
+\pgfmathparse{\m*(\rechts-10)+(\b)}
+\xdef\Rechts{\pgfmathresult}
+
+\begin{scope}[yshift=-9cm]
+\node at (0,0) {\includegraphics[width=14cm]{../Standard_Zoom.PNG}};
+\end{scope}
+
+\def\breite{7}
+\def\hoehe{2}
+
+% Gitter
+\ifthenelse{\boolean{showgrid}}{
+\draw[step=0.1,line width=0.1pt] (-\breite,-\hoehe) grid (\breite, \hoehe);
+\draw[step=0.5,line width=0.4pt] (-\breite,-\hoehe) grid (\breite, \hoehe);
+\draw                            (-\breite,-\hoehe) grid (\breite, \hoehe);
+\fill (0,0) circle[radius=0.05];
+}{}
+
+\def\unten{-4.15}
+
+\draw[line width=0.7pt] (\Links,\unten) rectangle (\Rechts,4.18);
+\draw[line width=0.7pt] (\Links,\unten) -- (\Links,{\unten-0.05})
+	-- (-6.36,-4.6) -- (-6.36,-4.9);
+\draw[line width=0.7pt] (\Rechts,\unten) -- (\Rechts,{\unten-0.05})
+	-- (6.87,-4.6) -- (6.87,-4.9);
+
+\end{tikzpicture}
+\end{document}
+
-- 
cgit v1.2.1