SuperminarenandClaude Sonnet 5.5
f7fa8cfbc1
- Sections and slides rewritten in Swedish; German law and institutions replaced by Swedish/CEPT/ITU equivalents (PTS, SSA, PTSFS 2025:1, SSMFS 2008:18), unverified statements marked "% TODO VERIFY" - New toc: INSTEG, HAREC, UPPGRADERING; section idents are Swedish (see ident-map.tsv) - Exam-question tags, BNetzA question pool, solutions and the German SWL course removed - Static pages, snippets, applets, READMEs and image alt-texts translated - TikZ labels translated; SVG drawings regenerated (drawing 689 still fails to build upstream: it references a missing photo) - Changed from the original: not endorsed by DARC e.V., SSA or PTS Co-Authored-By: Claude Sonnet 5.5 <[email protected]>
48 lines
2.2 KiB
TeX
48 lines
2.2 KiB
TeX
% Author: Prof. Dr. Matthias Jung, DL9MJ
|
|
% Year: 2023
|
|
\tdplotsetmaincoords{60}{103}
|
|
\tikzstyle{area}=[draw=DARCblue,fill=DARCblue!80,fill opacity=0.6]
|
|
\begin{tikzpicture}[scale=2.8,tdplot_main_coords]
|
|
|
|
\def\rvec{1.0}
|
|
\def\thetavec{35}
|
|
\def\phivec{45}
|
|
\def\dtheta{10}
|
|
\def\dphi{16}
|
|
\def\sphere#1#2#3{plot[domain=#1]({\rvec*sin(#2)*cos(#3)},{\rvec*sin(#2)*sin(#3)},{\rvec*cos(#2)})}
|
|
|
|
\coordinate (O) at (0,0,0);
|
|
\draw[thick,-Triangle] (0,0,0) -- (1.16*\rvec,0,0);
|
|
\draw[thick,-Triangle] (0,0,0) -- (0,1.1*\rvec,0);
|
|
\draw[thick,-Triangle] (0,0,0) -- (0,0,1.25*\rvec);
|
|
|
|
\tdplotsetcoord{P}{\rvec}{\thetavec}{\phivec}
|
|
\tdplotsetcoord{PB}{\rvec}{\thetavec+\dtheta}{\phivec}
|
|
\tdplotsetcoord{PR}{\rvec}{\thetavec}{\phivec+\dphi}
|
|
\tdplotsetcoord{PBR}{\rvec}{\thetavec+\dtheta}{\phivec+\dphi}
|
|
|
|
\draw[DARCblue] (O) -- (PBR);
|
|
\draw[DARCblue] (O) -- (PR);
|
|
\draw[DARCblue] (O) -- (P);
|
|
\draw[DARCblue] (O) -- (PB);
|
|
|
|
\shade[ball color=blue!10!white,opacity=0.2]
|
|
(1cm,0) arc (0:-180:1cm and 5mm)
|
|
arc (180:0:1cm and 0.866cm);
|
|
|
|
\draw[DARCgray] plot[domain=0:90]({\rvec*sin(\x)*cos(\phivec)},{\rvec*sin(\x)*sin(\phivec)},{\rvec*cos(\x)}) coordinate (BL);
|
|
\draw[DARCgray] plot[domain=0:90]({\rvec*sin(\x)*cos(\phivec+\dphi)},{\rvec*sin(\x)*sin(\phivec+\dphi)},{\rvec*cos(\x)}) coordinate (BR);
|
|
\draw[DARCgray] (O) -- (BL);
|
|
\draw[DARCgray] (O) -- (BR);
|
|
|
|
\draw[area]
|
|
plot[domain=0:.99*\dphi]({\rvec*sin(\thetavec)*cos(\phivec+\x)},{\rvec*sin(\thetavec)*sin(\phivec+\x)},{\rvec*cos(\thetavec)}) --
|
|
plot[domain=0:.99*\dtheta]({\rvec*sin(\thetavec+\x)*cos(\phivec+\dphi)},{\rvec*sin(\thetavec+\x)*sin(\phivec+\dphi)},{\rvec*cos(\thetavec+\x)}) --
|
|
plot[domain=.99*\dphi:0]({\rvec*sin(\thetavec+\dtheta)*cos(\phivec+\x)},{\rvec*sin(\thetavec+\dtheta)*sin(\phivec+\x)},{\rvec*cos(\thetavec+\dtheta)}) --
|
|
plot[domain=.99*\dtheta:0]({\rvec*sin(\thetavec+\x)*cos(\phivec)},{\rvec*sin(\thetavec+\x)*sin(\phivec)},{\rvec*cos(\thetavec+\x)}) --
|
|
cycle;
|
|
|
|
\draw[DARCred, fill=DARCred](0,0,0) to [open,-*,fill=DARCred,color=DARCred] ++(0,0);
|
|
\draw[DARCred, fill=DARCred](0,0,0) node[above left, align=right] (){Isotrop\\strålare};
|
|
|
|
\end{tikzpicture} |