diff --git a/quad12/labmoderna/p1b/.gitignore b/quad12/labmoderna/p1b/.gitignore
new file mode 100644
index 0000000..f0de8a3
--- /dev/null
+++ b/quad12/labmoderna/p1b/.gitignore
@@ -0,0 +1 @@
+main.pdf
diff --git a/quad12/labmoderna/p1b/README.md b/quad12/labmoderna/p1b/README.md
new file mode 100644
index 0000000..fc02130
--- /dev/null
+++ b/quad12/labmoderna/p1b/README.md
@@ -0,0 +1,8 @@
+# Pràctica 1b. Absorció de radiació gamma.
+
+Overleaf project (where the original report was written):
+https://www.overleaf.com/project/6413a1f116995ac1f3863b3f.
+
+The overleaf project is guaranteed to compile. This folder contains the code for
+the graph generation (which is tested to work) and a copy of the LaTeX code
+(which is not guaranteed to compile).
diff --git a/quad12/labmoderna/p1b/dades/dades.txt b/quad12/labmoderna/p1b/dades/dades.txt
new file mode 100644
index 0000000..231ff4c
--- /dev/null
+++ b/quad12/labmoderna/p1b/dades/dades.txt
@@ -0,0 +1,10 @@
+lamines	gruixMassic	temps	impulsosPerSegon
+# Unitats: -, g/cm^2, s, #/s
+E	15.88	600	3.06
+D	10.77	600	5.06
+A+C	7.93	300	7.04
+C	6.80	600	7.51
+A+B	4.53	300	9.53
+B	3.40	230	10.45
+A	1.13	180	12.01
+Cap	0.00	185	12.9
diff --git a/quad12/labmoderna/p1b/grafiques/README b/quad12/labmoderna/p1b/grafiques/README
new file mode 100644
index 0000000..8d55dbd
--- /dev/null
+++ b/quad12/labmoderna/p1b/grafiques/README
@@ -0,0 +1 @@
+Generated from the code in the "R" folder and copied here.
diff --git a/quad12/labmoderna/p1b/grafiques/grafica.tex b/quad12/labmoderna/p1b/grafiques/grafica.tex
new file mode 100644
index 0000000..4414370
--- /dev/null
+++ b/quad12/labmoderna/p1b/grafiques/grafica.tex
@@ -0,0 +1,133 @@
+% Created by tikzDevice version 0.12.4 on 2023-03-17 11:33:00
+% !TEX encoding = UTF-8 Unicode
+\begin{tikzpicture}[x=1pt,y=1pt]
+\definecolor{fillColor}{RGB}{255,255,255}
+\path[use as bounding box,fill=fillColor,fill opacity=0.00] (0,0) rectangle (397.48,325.21);
+\begin{scope}
+\path[clip] ( 49.20, 61.20) rectangle (372.28,276.01);
+\definecolor{drawColor}{RGB}{0,0,0}
+
+\path[draw=drawColor,line width= 0.4pt,line join=round,line cap=round] (358.07, 66.91) -- (362.57, 71.41);
+
+\path[draw=drawColor,line width= 0.4pt,line join=round,line cap=round] (358.07, 71.41) -- (362.57, 66.91);
+
+\path[draw=drawColor,line width= 0.4pt,line join=round,line cap=round] (261.80,136.43) -- (266.30,140.93);
+
+\path[draw=drawColor,line width= 0.4pt,line join=round,line cap=round] (261.80,140.93) -- (266.30,136.43);
+
+\path[draw=drawColor,line width= 0.4pt,line join=round,line cap=round] (208.30,182.09) -- (212.80,186.59);
+
+\path[draw=drawColor,line width= 0.4pt,line join=round,line cap=round] (208.30,186.59) -- (212.80,182.09);
+
+\path[draw=drawColor,line width= 0.4pt,line join=round,line cap=round] (187.02,191.02) -- (191.52,195.52);
+
+\path[draw=drawColor,line width= 0.4pt,line join=round,line cap=round] (187.02,195.52) -- (191.52,191.02);
+
+\path[draw=drawColor,line width= 0.4pt,line join=round,line cap=round] (144.25,223.95) -- (148.75,228.45);
+
+\path[draw=drawColor,line width= 0.4pt,line join=round,line cap=round] (144.25,228.45) -- (148.75,223.95);
+
+\path[draw=drawColor,line width= 0.4pt,line join=round,line cap=round] (122.97,236.69) -- (127.47,241.19);
+
+\path[draw=drawColor,line width= 0.4pt,line join=round,line cap=round] (122.97,241.19) -- (127.47,236.69);
+
+\path[draw=drawColor,line width= 0.4pt,line join=round,line cap=round] ( 80.20,255.93) -- ( 84.70,260.43);
+
+\path[draw=drawColor,line width= 0.4pt,line join=round,line cap=round] ( 80.20,260.43) -- ( 84.70,255.93);
+
+\path[draw=drawColor,line width= 0.4pt,line join=round,line cap=round] ( 58.92,265.81) -- ( 63.42,270.31);
+
+\path[draw=drawColor,line width= 0.4pt,line join=round,line cap=round] ( 58.92,270.31) -- ( 63.42,265.81);
+\end{scope}
+\begin{scope}
+\path[clip] (  0.00,  0.00) rectangle (397.48,325.21);
+\definecolor{drawColor}{RGB}{0,0,0}
+
+\path[draw=drawColor,line width= 0.4pt,line join=round,line cap=round] ( 61.17, 61.20) -- (343.74, 61.20);
+
+\path[draw=drawColor,line width= 0.4pt,line join=round,line cap=round] ( 61.17, 61.20) -- ( 61.17, 55.20);
+
+\path[draw=drawColor,line width= 0.4pt,line join=round,line cap=round] (155.36, 61.20) -- (155.36, 55.20);
+
+\path[draw=drawColor,line width= 0.4pt,line join=round,line cap=round] (249.55, 61.20) -- (249.55, 55.20);
+
+\path[draw=drawColor,line width= 0.4pt,line join=round,line cap=round] (343.74, 61.20) -- (343.74, 55.20);
+
+\node[text=drawColor,anchor=base,inner sep=0pt, outer sep=0pt, scale=  1.00] at ( 61.17, 39.60) {0};
+
+\node[text=drawColor,anchor=base,inner sep=0pt, outer sep=0pt, scale=  1.00] at (155.36, 39.60) {5};
+
+\node[text=drawColor,anchor=base,inner sep=0pt, outer sep=0pt, scale=  1.00] at (249.55, 39.60) {10};
+
+\node[text=drawColor,anchor=base,inner sep=0pt, outer sep=0pt, scale=  1.00] at (343.74, 39.60) {15};
+
+\path[draw=drawColor,line width= 0.4pt,line join=round,line cap=round] ( 49.20, 80.43) -- ( 49.20,273.97);
+
+\path[draw=drawColor,line width= 0.4pt,line join=round,line cap=round] ( 49.20, 80.43) -- ( 43.20, 80.43);
+
+\path[draw=drawColor,line width= 0.4pt,line join=round,line cap=round] ( 49.20,108.08) -- ( 43.20,108.08);
+
+\path[draw=drawColor,line width= 0.4pt,line join=round,line cap=round] ( 49.20,135.73) -- ( 43.20,135.73);
+
+\path[draw=drawColor,line width= 0.4pt,line join=round,line cap=round] ( 49.20,163.38) -- ( 43.20,163.38);
+
+\path[draw=drawColor,line width= 0.4pt,line join=round,line cap=round] ( 49.20,191.03) -- ( 43.20,191.03);
+
+\path[draw=drawColor,line width= 0.4pt,line join=round,line cap=round] ( 49.20,218.68) -- ( 43.20,218.68);
+
+\path[draw=drawColor,line width= 0.4pt,line join=round,line cap=round] ( 49.20,246.32) -- ( 43.20,246.32);
+
+\path[draw=drawColor,line width= 0.4pt,line join=round,line cap=round] ( 49.20,273.97) -- ( 43.20,273.97);
+
+\node[text=drawColor,rotate= 90.00,anchor=base,inner sep=0pt, outer sep=0pt, scale=  1.00] at ( 34.80, 80.43) {1.2};
+
+\node[text=drawColor,rotate= 90.00,anchor=base,inner sep=0pt, outer sep=0pt, scale=  1.00] at ( 34.80,108.08) {1.4};
+
+\node[text=drawColor,rotate= 90.00,anchor=base,inner sep=0pt, outer sep=0pt, scale=  1.00] at ( 34.80,135.73) {1.6};
+
+\node[text=drawColor,rotate= 90.00,anchor=base,inner sep=0pt, outer sep=0pt, scale=  1.00] at ( 34.80,163.38) {1.8};
+
+\node[text=drawColor,rotate= 90.00,anchor=base,inner sep=0pt, outer sep=0pt, scale=  1.00] at ( 34.80,191.03) {2.0};
+
+\node[text=drawColor,rotate= 90.00,anchor=base,inner sep=0pt, outer sep=0pt, scale=  1.00] at ( 34.80,218.68) {2.2};
+
+\node[text=drawColor,rotate= 90.00,anchor=base,inner sep=0pt, outer sep=0pt, scale=  1.00] at ( 34.80,246.32) {2.4};
+
+\node[text=drawColor,rotate= 90.00,anchor=base,inner sep=0pt, outer sep=0pt, scale=  1.00] at ( 34.80,273.97) {2.6};
+
+\path[draw=drawColor,line width= 0.4pt,line join=round,line cap=round] ( 49.20, 61.20) --
+	(372.28, 61.20) --
+	(372.28,276.01) --
+	( 49.20,276.01) --
+	( 49.20, 61.20);
+\end{scope}
+\begin{scope}
+\path[clip] (  0.00,  0.00) rectangle (397.48,325.21);
+\definecolor{drawColor}{RGB}{0,0,0}
+
+\node[text=drawColor,anchor=base,inner sep=0pt, outer sep=0pt, scale=  1.00] at (210.74, 15.60) {$t$ (g cm\textsuperscript{-2})};
+
+\node[text=drawColor,rotate= 90.00,anchor=base,inner sep=0pt, outer sep=0pt, scale=  1.00] at ( 10.80,168.61) {$\log(I)$};
+\end{scope}
+\begin{scope}
+\path[clip] ( 49.20, 61.20) rectangle (372.28,276.01);
+\definecolor{drawColor}{RGB}{209,95,238}
+
+\path[draw=drawColor,line width= 0.4pt,line join=round,line cap=round] ( 49.20,285.20) -- (372.28, 67.50);
+\definecolor{drawColor}{RGB}{0,0,0}
+
+\path[draw=drawColor,line width= 0.4pt,line join=round,line cap=round] (297.83,269.57) rectangle (367.44,233.57);
+\definecolor{drawColor}{RGB}{209,95,238}
+
+\path[draw=drawColor,line width= 0.4pt,line join=round,line cap=round] (300.53,245.57) -- (318.53,245.57);
+\definecolor{drawColor}{RGB}{0,0,0}
+
+\path[draw=drawColor,line width= 0.4pt,line join=round,line cap=round] (307.28,255.32) -- (311.78,259.82);
+
+\path[draw=drawColor,line width= 0.4pt,line join=round,line cap=round] (307.28,259.82) -- (311.78,255.32);
+
+\node[text=drawColor,anchor=base west,inner sep=0pt, outer sep=0pt, scale=  1.00] at (327.53,254.13) {Mesures};
+
+\node[text=drawColor,anchor=base west,inner sep=0pt, outer sep=0pt, scale=  1.00] at (327.53,242.13) {Ajust};
+\end{scope}
+\end{tikzpicture}
diff --git a/quad12/labmoderna/p1b/grafiques/graficanormal.tex b/quad12/labmoderna/p1b/grafiques/graficanormal.tex
new file mode 100644
index 0000000..7bb3387
--- /dev/null
+++ b/quad12/labmoderna/p1b/grafiques/graficanormal.tex
@@ -0,0 +1,221 @@
+% Created by tikzDevice version 0.12.4 on 2023-03-17 12:18:24
+% !TEX encoding = UTF-8 Unicode
+\begin{tikzpicture}[x=1pt,y=1pt]
+\definecolor{fillColor}{RGB}{255,255,255}
+\path[use as bounding box,fill=fillColor,fill opacity=0.00] (0,0) rectangle (397.48,325.21);
+\begin{scope}
+\path[clip] ( 49.20, 61.20) rectangle (372.28,276.01);
+\definecolor{drawColor}{RGB}{0,0,0}
+
+\path[draw=drawColor,line width= 0.4pt,line join=round,line cap=round] (358.07, 66.91) -- (362.57, 71.41);
+
+\path[draw=drawColor,line width= 0.4pt,line join=round,line cap=round] (358.07, 71.41) -- (362.57, 66.91);
+
+\path[draw=drawColor,line width= 0.4pt,line join=round,line cap=round] (261.80,107.33) -- (266.30,111.83);
+
+\path[draw=drawColor,line width= 0.4pt,line join=round,line cap=round] (261.80,111.83) -- (266.30,107.33);
+
+\path[draw=drawColor,line width= 0.4pt,line join=round,line cap=round] (208.30,147.36) -- (212.80,151.86);
+
+\path[draw=drawColor,line width= 0.4pt,line join=round,line cap=round] (208.30,151.86) -- (212.80,147.36);
+
+\path[draw=drawColor,line width= 0.4pt,line join=round,line cap=round] (187.02,156.86) -- (191.52,161.36);
+
+\path[draw=drawColor,line width= 0.4pt,line join=round,line cap=round] (187.02,161.36) -- (191.52,156.86);
+
+\path[draw=drawColor,line width= 0.4pt,line join=round,line cap=round] (144.25,197.69) -- (148.75,202.19);
+
+\path[draw=drawColor,line width= 0.4pt,line join=round,line cap=round] (144.25,202.19) -- (148.75,197.69);
+
+\path[draw=drawColor,line width= 0.4pt,line join=round,line cap=round] (122.97,216.29) -- (127.47,220.79);
+
+\path[draw=drawColor,line width= 0.4pt,line join=round,line cap=round] (122.97,220.79) -- (127.47,216.29);
+
+\path[draw=drawColor,line width= 0.4pt,line join=round,line cap=round] ( 80.20,247.82) -- ( 84.70,252.32);
+
+\path[draw=drawColor,line width= 0.4pt,line join=round,line cap=round] ( 80.20,252.32) -- ( 84.70,247.82);
+
+\path[draw=drawColor,line width= 0.4pt,line join=round,line cap=round] ( 58.92,265.81) -- ( 63.42,270.31);
+
+\path[draw=drawColor,line width= 0.4pt,line join=round,line cap=round] ( 58.92,270.31) -- ( 63.42,265.81);
+\end{scope}
+\begin{scope}
+\path[clip] (  0.00,  0.00) rectangle (397.48,325.21);
+\definecolor{drawColor}{RGB}{0,0,0}
+
+\path[draw=drawColor,line width= 0.4pt,line join=round,line cap=round] ( 61.17, 61.20) -- (343.74, 61.20);
+
+\path[draw=drawColor,line width= 0.4pt,line join=round,line cap=round] ( 61.17, 61.20) -- ( 61.17, 55.20);
+
+\path[draw=drawColor,line width= 0.4pt,line join=round,line cap=round] (155.36, 61.20) -- (155.36, 55.20);
+
+\path[draw=drawColor,line width= 0.4pt,line join=round,line cap=round] (249.55, 61.20) -- (249.55, 55.20);
+
+\path[draw=drawColor,line width= 0.4pt,line join=round,line cap=round] (343.74, 61.20) -- (343.74, 55.20);
+
+\node[text=drawColor,anchor=base,inner sep=0pt, outer sep=0pt, scale=  1.00] at ( 61.17, 39.60) {0};
+
+\node[text=drawColor,anchor=base,inner sep=0pt, outer sep=0pt, scale=  1.00] at (155.36, 39.60) {5};
+
+\node[text=drawColor,anchor=base,inner sep=0pt, outer sep=0pt, scale=  1.00] at (249.55, 39.60) {10};
+
+\node[text=drawColor,anchor=base,inner sep=0pt, outer sep=0pt, scale=  1.00] at (343.74, 39.60) {15};
+
+\path[draw=drawColor,line width= 0.4pt,line join=round,line cap=round] ( 49.20, 88.16) -- ( 49.20,249.87);
+
+\path[draw=drawColor,line width= 0.4pt,line join=round,line cap=round] ( 49.20, 88.16) -- ( 43.20, 88.16);
+
+\path[draw=drawColor,line width= 0.4pt,line join=round,line cap=round] ( 49.20,128.58) -- ( 43.20,128.58);
+
+\path[draw=drawColor,line width= 0.4pt,line join=round,line cap=round] ( 49.20,169.01) -- ( 43.20,169.01);
+
+\path[draw=drawColor,line width= 0.4pt,line join=round,line cap=round] ( 49.20,209.44) -- ( 43.20,209.44);
+
+\path[draw=drawColor,line width= 0.4pt,line join=round,line cap=round] ( 49.20,249.87) -- ( 43.20,249.87);
+
+\node[text=drawColor,rotate= 90.00,anchor=base,inner sep=0pt, outer sep=0pt, scale=  1.00] at ( 34.80, 88.16) {4};
+
+\node[text=drawColor,rotate= 90.00,anchor=base,inner sep=0pt, outer sep=0pt, scale=  1.00] at ( 34.80,128.58) {6};
+
+\node[text=drawColor,rotate= 90.00,anchor=base,inner sep=0pt, outer sep=0pt, scale=  1.00] at ( 34.80,169.01) {8};
+
+\node[text=drawColor,rotate= 90.00,anchor=base,inner sep=0pt, outer sep=0pt, scale=  1.00] at ( 34.80,209.44) {10};
+
+\node[text=drawColor,rotate= 90.00,anchor=base,inner sep=0pt, outer sep=0pt, scale=  1.00] at ( 34.80,249.87) {12};
+
+\path[draw=drawColor,line width= 0.4pt,line join=round,line cap=round] ( 49.20, 61.20) --
+	(372.28, 61.20) --
+	(372.28,276.01) --
+	( 49.20,276.01) --
+	( 49.20, 61.20);
+\end{scope}
+\begin{scope}
+\path[clip] (  0.00,  0.00) rectangle (397.48,325.21);
+\definecolor{drawColor}{RGB}{0,0,0}
+
+\node[text=drawColor,anchor=base,inner sep=0pt, outer sep=0pt, scale=  1.00] at (210.74, 15.60) {$t$ (g cm\textsuperscript{-2})};
+
+\node[text=drawColor,rotate= 90.00,anchor=base,inner sep=0pt, outer sep=0pt, scale=  1.00] at ( 10.80,168.61) {$I$ (\#s \textsuperscript{-1})};
+\end{scope}
+\begin{scope}
+\path[clip] ( 49.20, 61.20) rectangle (372.28,276.01);
+\definecolor{drawColor}{RGB}{209,95,238}
+
+\path[draw=drawColor,line width= 0.4pt,line join=round,line cap=round] ( 61.17,285.76) --
+	( 64.16,281.73) --
+	( 67.15,277.76) --
+	( 70.14,273.84) --
+	( 73.13,269.98) --
+	( 76.12,266.18) --
+	( 79.12,262.43) --
+	( 82.11,258.74) --
+	( 85.10,255.10) --
+	( 88.09,251.51) --
+	( 91.08,247.98) --
+	( 94.07,244.49) --
+	( 97.06,241.06) --
+	(100.06,237.68) --
+	(103.05,234.34) --
+	(106.04,231.06) --
+	(109.03,227.82) --
+	(112.02,224.62) --
+	(115.01,221.48) --
+	(118.01,218.38) --
+	(121.00,215.32) --
+	(123.99,212.31) --
+	(126.98,209.34) --
+	(129.97,206.42) --
+	(132.96,203.54) --
+	(135.95,200.70) --
+	(138.95,197.90) --
+	(141.94,195.14) --
+	(144.93,192.42) --
+	(147.92,189.74) --
+	(150.91,187.10) --
+	(153.90,184.49) --
+	(156.89,181.93) --
+	(159.89,179.40) --
+	(162.88,176.91) --
+	(165.87,174.46) --
+	(168.86,172.04) --
+	(171.85,169.65) --
+	(174.84,167.30) --
+	(177.84,164.98) --
+	(180.83,162.70) --
+	(183.82,160.45) --
+	(186.81,158.24) --
+	(189.80,156.05) --
+	(192.79,153.90) --
+	(195.78,151.77) --
+	(198.78,149.68) --
+	(201.77,147.62) --
+	(204.76,145.59) --
+	(207.75,143.59) --
+	(210.74,141.62) --
+	(213.73,139.67) --
+	(216.73,137.76) --
+	(219.72,135.87) --
+	(222.71,134.01) --
+	(225.70,132.17) --
+	(228.69,130.36) --
+	(231.68,128.58) --
+	(234.67,126.83) --
+	(237.67,125.10) --
+	(240.66,123.39) --
+	(243.65,121.71) --
+	(246.64,120.06) --
+	(249.63,118.42) --
+	(252.62,116.81) --
+	(255.62,115.23) --
+	(258.61,113.67) --
+	(261.60,112.13) --
+	(264.59,110.61) --
+	(267.58,109.11) --
+	(270.57,107.64) --
+	(273.56,106.19) --
+	(276.56,104.76) --
+	(279.55,103.35) --
+	(282.54,101.96) --
+	(285.53,100.58) --
+	(288.52, 99.23) --
+	(291.51, 97.90) --
+	(294.51, 96.59) --
+	(297.50, 95.30) --
+	(300.49, 94.03) --
+	(303.48, 92.77) --
+	(306.47, 91.53) --
+	(309.46, 90.31) --
+	(312.45, 89.11) --
+	(315.45, 87.93) --
+	(318.44, 86.76) --
+	(321.43, 85.61) --
+	(324.42, 84.48) --
+	(327.41, 83.36) --
+	(330.40, 82.26) --
+	(333.40, 81.17) --
+	(336.39, 80.10) --
+	(339.38, 79.05) --
+	(342.37, 78.01) --
+	(345.36, 76.99) --
+	(348.35, 75.98) --
+	(351.34, 74.99) --
+	(354.34, 74.01) --
+	(357.33, 73.04) --
+	(360.32, 72.09);
+\definecolor{drawColor}{RGB}{0,0,0}
+
+\path[draw=drawColor,line width= 0.4pt,line join=round,line cap=round] (297.83,269.57) rectangle (367.44,233.57);
+\definecolor{drawColor}{RGB}{209,95,238}
+
+\path[draw=drawColor,line width= 0.4pt,line join=round,line cap=round] (300.53,245.57) -- (318.53,245.57);
+\definecolor{drawColor}{RGB}{0,0,0}
+
+\path[draw=drawColor,line width= 0.4pt,line join=round,line cap=round] (307.28,255.32) -- (311.78,259.82);
+
+\path[draw=drawColor,line width= 0.4pt,line join=round,line cap=round] (307.28,259.82) -- (311.78,255.32);
+
+\node[text=drawColor,anchor=base west,inner sep=0pt, outer sep=0pt, scale=  1.00] at (327.53,254.13) {Mesures};
+
+\node[text=drawColor,anchor=base west,inner sep=0pt, outer sep=0pt, scale=  1.00] at (327.53,242.13) {Ajust};
+\end{scope}
+\end{tikzpicture}
diff --git a/quad12/labmoderna/p1b/main.tex b/quad12/labmoderna/p1b/main.tex
new file mode 100644
index 0000000..83c31c5
--- /dev/null
+++ b/quad12/labmoderna/p1b/main.tex
@@ -0,0 +1,98 @@
+\documentclass[a4paper, 11pt]{article}
+
+\input{preamble.tex}
+\addbibresource{references.bib}
+
+\rhead{Adrià Vilanova Martínez i Diana Tur Otero}
+\lhead{Pràctica 1b}
+\fancyfoot[C]{\thepage}
+
+\setlength{\droptitle}{-4em}
+\title{Pràctica 1b. Absorció de radiació gamma.}
+\author{Adrià Vilanova Martínez i Diana Tur Otero}
+\date{Divendres 10 de març de 2023}
+
+\begin{document}
+
+{
+  \parskip = 0pt
+  \maketitle
+}
+
+\section{Objectiu}
+Estudiar l'absorció de radiació gamma pel plom i, en concret, determinar el seu coeficient d'atenuació màssic $\mu/\rho$.
+
+\section{Metodologia}
+Usarem una font puntual de \ch{^{137}Cs} per tenir un feix col·limat de raigs gamma, degut al decaïment del bari al seu estat fonamental, que alhora ha provingut del decaïment del cesi. La diferència amb la pràctica 1a és que en aquest cas aquests decaïments estan en el règim de l'equilibri secular. Per això la intensitat del feix serà constant.
+
+Hem fet incidir aquest feix en 8 combinacions de làmines de plom de diferents gruixos i hem mesurat la intensitat transmesa per unitat de temps. Això ens permetrà determinar el coeficient d'atenuació màssic $\mu/\rho$ perquè la intensitat transmesa és funció del gruix màssic $t := \rho x$ que ha de travessar el feix:
+\begin{equation}
+    I(t) = I_0 \exp\left( - \frac{\mu}{\rho} t \right).
+    \label{eq:intensitat_transmesa}
+\end{equation}
+
+\section{Figures i valors obtinguts}
+Abans de fer les mesures, teníem l'objectiu d'escollir un temps d'execució suficient gran per tal de garantir que la incertesa estadística en la intensitat mesurada sigui com a màxim del 2\%. Si anomenem $\delta(n)$ la incertesa en el nombre de decaïments observats, degut al fet que el decaïment segueix una distribució de Poisson tindrem $\delta(n) = \sqrt{n}$. Aleshores, per tal que $\delta(n)/n < 0.02$, s'ha de complir:
+\begin{equation}
+    0.02 > \frac{\delta(n)}{n} = n^{-1/2} \iff n > \left( \frac{1}{0.02} \right)^2 = 2500.
+    \label{eq:incertesa_n}
+\end{equation}
+És a dir, hem de mesurar al menys 2500 impulsos per poder garantir que estem per sota del 2\% d'incertesa.
+
+Per tal de saber el temps que trigàvem en rebre al menys 2500 impulsos, hem agafat la làmina més gruixuda –és a dir, la que absorbeix més radiació– i hem mesurat durant $\qty{100}{\second}$ la intensitat mitjana transmesa per segon ($I_\text{mitj.} = \qty{3.06}{\#\per\second}$). Així, en el cas d'aquesta làmina havíem de fer la mesura durant al menys $n/I_\text{mitj.} = \qty{817}{\second}$.
+
+En el cas de les altres làmines, com són menys absorbents, aquest temps també és suficient. Tot i així, per les làmines més fines hem tornat a calcular el temps necessari mitjançant el procediment anterior (calculant-nos la $I_\text{mitj.}$ de cada combinació) per tal de reduir el temps de mesura.
+
+A més, també hem decidit truncar els temps d'execució a $\qty{600}{\second}$ en cas que el superin, degut al temps limitat que tenim al laboratori.
+
+Just abans de començar l'experiment pròpiament, hem tornat a fer un calibratge mesurant la radiació de fons de la mateixa manera que vam fer a la pràctica 1a. Això ens ha donat el valor
+\[ I_\text{fons} = \qty{18.5(9)}{\#\per\second}. \]
+
+\begin{figure}
+    \centering
+    \includegraphics[trim=0 0.45cm 0 1.5cm]{grafiques/graficanormal.tex}
+    \caption{Representació de la intensitat transmesa $I$ mesurada en funció del gruixos màssics $t$, amb l'exponencial ajustada a través de la regressió lineal de l'equació (\ref{eq:intensitat_transmesa_linealitzada}).}
+    \label{fig:directe}
+\end{figure}
+
+Els valors obtinguts durant l'experiment es poden trobar a la taula \ref{table:mesures} i a la figura \ref{fig:directe}. Per poder trobar el coeficient d'atenuació màssic a partir d'ells, podem linealitzar la relació (\ref{eq:intensitat_transmesa}) prenent el logaritme a ambdues bandes:
+\begin{equation}
+    \log(I(t)) = log(I_0) - \frac{\mu}{\rho} t.
+    \label{eq:intensitat_transmesa_linealitzada}
+\end{equation}
+
+\begin{figure}
+    \centering
+    \includegraphics[trim=0 0.45cm 0 1.5cm]{grafiques/grafica.tex}
+    \caption{Regressió lineal amb les mesures de les desintegracions gamma del bari.}
+    \label{fig:regressio}
+\end{figure}
+
+Així, fent una regressió lineal als valors obtinguts –que es pot veure a la figura \ref{fig:regressio}–, obtenim els següents paràmetres:
+\[
+    \begin{cases}
+        \log(I_0) = \qty{2.62(2)}{}, \\[0.5em]
+        \dfrac{\mu}{\rho} = \qty{0.092(4)}{\centi\meter\squared\per\gram}.
+    \end{cases}
+\]
+
+El coeficient màssic donat per la base de dades XCOM del NIST pel plom en el cas dels fotons que fèiem incidir ($E_\gamma = \qty{662}{\kilo\electronvolt}$) és de $\qty{0.1126}{\centi\meter\squared\per\gram}$. Per tant, veiem que en principi el valor que hem trobat no és compatible amb el donat a la base de dades donat que no està dins de 2 vegades la desviació típica (incertesa) de la mesura.
+
+Tot i això, si haguéssim fent un anàlisi de la propagació d'errors més acurat considerant també la incertesa deguda a la fluctuació del fons, és possible que haguéssim obtingut una incertesa molt més ampla que faria ambdós valors compatibles. Això és degut al fet que a l'informe curt només hem tingut en compte la incertesa estadística.
+
+\section{Taules de dades}
+\begin{center}
+    \pgfplotstabletypeset[
+      columns={lamines, gruixMassic, temps, impulsosPerSegon},
+      columns/lamines/.style={column name={Làmines}, string type},
+      columns/gruixMassic/.style={column name={\makecell[b]{Gruix màssic \\ $t \pm 0.01$ (\qty{}{\gram\per\centi\meter\squared})}}, fixed, fixed zerofill, precision=2},
+      columns/temps/.style={column name={\makecell[b]{Temps \\ $t$ (s)}}, fixed, fixed zerofill, precision=0},
+      columns/impulsosPerSegon/.style={column name={\makecell[b]{Intensitat transmesa \\ $I \pm 0.01$ ($\qty{}{\#\per\second}$)}}, fixed, fixed zerofill, precision=2}
+    ]{dades/dades.txt}
+    \captionof{table}{Mesures de la intensitat transmesa mitjana $I$ en funció del gruix màssic $t$. Les mesures s'han dut a terme durant el temps $t$ indicat.}
+    \label{table:mesures}
+\end{center}
+
+\printbibliography
+
+\end{document}
diff --git a/quad12/labmoderna/p1b/preamble.tex b/quad12/labmoderna/p1b/preamble.tex
new file mode 100644
index 0000000..c832f74
--- /dev/null
+++ b/quad12/labmoderna/p1b/preamble.tex
@@ -0,0 +1,82 @@
+% !TEX root = main.tex
+\usepackage[utf8]{inputenc}
+\usepackage[catalan]{babel}
+\usepackage{fancyhdr}
+\usepackage{graphicx}
+\usepackage[labelfont=bf, font=small]{caption}
+\usepackage{siunitx}
+\usepackage{geometry}
+\geometry{
+  margin=20mm,
+  heightrounded
+}
+\usepackage{amsmath}
+\usepackage{amsfonts}
+\usepackage{booktabs}
+\usepackage{chemformula}
+\usepackage{hyperref}
+\usepackage[style=english]{csquotes}
+\usepackage{biblatex}
+\usepackage{pgfplotstable}
+\usepackage{adjustbox}
+\usepackage{array}
+\usepackage{float}
+\usepackage{stackengine}
+\usepackage{titling}
+\usepackage{algpseudocode}
+\usepackage{xcolor}
+\usepackage{multicol}
+\usepackage{gincltex}
+\usepackage{makecell}
+
+\newcolumntype{L}[1]{>{\raggedright\let\newline\\\arraybackslash\hspace{0pt}}m{#1}}
+\newcolumntype{C}[1]{>{\centering\let\newline\\\arraybackslash\hspace{0pt}}m{#1}}
+\newcolumntype{R}[1]{>{\raggedleft\let\newline\\\arraybackslash\hspace{0pt}}m{#1}}
+
+\pgfplotsset{compat=1.16}
+\pgfplotstableset{
+  empty cells with={--}, % replace empty cells with ’--’
+  every head row/.style={before row=\toprule,after row=\midrule},
+  every last row/.style={after row=\bottomrule},
+  set thousands separator={\,}%,
+}
+\sisetup{separate-uncertainty=true}
+\setlength{\parskip}{1em}
+\pagestyle{fancy}
+\fancyhf{}
+
+% Plantilles del notate
+\def\myupbracefill#1{\rotatebox{90}{\stretchto{\{}{#1}}}
+\def\rlwd{.5pt}
+\newcommand\notate[4][B]{%
+  \if B#1\else\def\myupbracefill##1{}\fi%
+  \def\useanchorwidth{T}%
+  \setbox0=\hbox{$\displaystyle#2$}%
+  \def\stackalignment{c}\stackunder[-6pt]{%
+    \def\stackalignment{c}\stackunder[-1.5pt]{%
+      \stackunder[2pt]{\strut $\displaystyle#2$}{\myupbracefill{\wd0}}}{%
+    \rule{\rlwd}{#3\baselineskip}}}{%
+  \strut\kern9pt$\rightarrow$\smash{\rlap{$~#4$}}}%
+}
+\newcommand\lnotate[4][B]{%
+  \if B#1\else\def\myupbracefill##1{}\fi%
+  \def\useanchorwidth{T}%
+  \setbox0=\hbox{$\displaystyle#2$}%
+  \def\stackalignment{c}\stackunder[-6pt]{%
+    \def\stackalignment{c}\stackunder[-1.5pt]{%
+      \stackunder[2pt]{\strut $\displaystyle#2$}{\myupbracefill{\wd0}}}{%
+    \rule{\rlwd}{#3\baselineskip}}}{%
+  \strut\kern-9pt$\leftarrow$\smash{\llap{$~#4\quad\;\,$}}}%
+}
+
+\newcommand{\Ham}{\mathcal{H}}
+
+\definecolor{CommentGray}{gray}{0.5}
+\algrenewcommand\algorithmiccomment[1]{{\color{CommentGray} \hfill\(\triangleright\) #1}}%
+
+% To prevent underfull/overfull messages in bibliography
+\usepackage{etoolbox}
+\apptocmd{\sloppy}{\hbadness 10000\relax}{}{}
+
+\usepackage{enumitem}
+\setlist{nolistsep}
diff --git a/quad12/labmoderna/p1b/r/.gitignore b/quad12/labmoderna/p1b/r/.gitignore
new file mode 100644
index 0000000..35f6a0e
--- /dev/null
+++ b/quad12/labmoderna/p1b/r/.gitignore
@@ -0,0 +1,2 @@
+*.tex
+*.pdf
diff --git a/quad12/labmoderna/p1b/r/main.r b/quad12/labmoderna/p1b/r/main.r
new file mode 100644
index 0000000..47cc204
--- /dev/null
+++ b/quad12/labmoderna/p1b/r/main.r
@@ -0,0 +1,39 @@
+library(tikzDevice)
+
+table <- read.table('../dades/dades.txt', sep="\t", header=TRUE)
+
+table$logI <- log(table$impulsosPerSegon)
+
+fit_lineal <- lm(logI~gruixMassic, data = table)
+summary(fit_lineal)
+
+fit_coef <- coef(fit_lineal)
+fit_coef
+
+plotall <- function() {
+  plot(table$gruixMassic, table$logI, pch = 4, xlab = "$t$ (g cm\\textsuperscript{-2})", ylab = "$\\log(I)$")
+  abline(fit_lineal, col = "mediumorchid2")
+  legend("topright", inset = c(0.015, 0.03),col = c("black", "mediumorchid2"), legend = c("Mesures", "Ajust"), pch=c(4, NA), lty=c(NA, 1))
+}
+
+plotallnormal <- function() {
+  plot(table$gruixMassic, table$impulsosPerSegon, pch = 4, xlab = "$t$ (g cm\\textsuperscript{-2})", ylab = "$I$ (\\#s \\textsuperscript{-1})")
+  curve(exp(fit_coef[1] + x*fit_coef[2]), col = "mediumorchid2", add = TRUE)
+  legend("topright", inset = c(0.015, 0.03),col = c("black", "mediumorchid2"), legend = c("Mesures", "Ajust"), pch=c(4, NA), lty=c(NA, 1))
+}
+
+pdf('grafica.pdf', width = 6, height = 5)
+plotall()
+dev.off()
+
+tikz("grafica.tex", width = 5.5, height = 4.5)
+plotall()
+dev.off()
+
+pdf('graficanormal.pdf', width = 6, height = 5)
+plotallnormal()
+dev.off()
+
+tikz("graficanormal.tex", width = 5.5, height = 4.5)
+plotallnormal()
+dev.off()
diff --git a/quad12/labmoderna/p1b/references.bib b/quad12/labmoderna/p1b/references.bib
new file mode 100644
index 0000000..e69de29
--- /dev/null
+++ b/quad12/labmoderna/p1b/references.bib