Merge branch 'main' of https://github.com/edwbaker/edwbaker.github.io

edwbaker · Jul 10, 2024 · cee77b5 · cee77b5
2 parents 0ed38ff + 15bfcde
commit cee77b5
Show file tree

Hide file tree

Showing 7 changed files with 34 additions and 2 deletions.
diff --git a/_layouts/default.html b/_layouts/default.html
@@ -53,10 +53,10 @@ <h2>Talks</h2>
         <p class="view"><a href="/talks/2024-NatureTech">25/06/2024 - Nature Tech Expo</a></p>
         <p class="view">24/04/2024 - How data in the cloud could help restore UK's biodiversity - AWS Summit 2024</p>
         <p class="view"><a href="/talks/2024-Hull">03/2024 - Next generation monitoring at the Natural History Museum</a></p>
+        <p class="view"><a href="/talks/2023-11-NR">11/2023 - UK Nature Recovery theme Town Hall</a></p>
         <p class="view"><a href="/talks/2023-11-GS">11/2023 - Garden Science workshop</a></p>
         <p class="view"><a href="/talks/2023-IBAC">10/2023 - IBAC 2023</a></p>
         <p class="view"><a href="/talks/2023-09-RSPB">09/2023 - RSPB/Kelvingrove Museum</a></p>
-        <p class="view"><a href="/talks/2023-05-BNA">05/2023 - British Naturalists' Association</a></p>
         <p class="view"><a href="/talks">All talks</a></p>
 
         <h2>Notes</h2>

diff --git a/notes/acoustics-figures.md b/notes/acoustics-figures.md
@@ -34,4 +34,4 @@ library(tuneR)
 par(mfrow=c(2,1))
 waveSampled(sine(freq=1), 1000, 10)
 waveSampled(sine(freq=1), 1000, 50)
-```
+```
diff --git a/notes/index.md b/notes/index.md
@@ -9,6 +9,10 @@
 - [Linux audio recipes](/notes/linux-audio-recipes)
 - [Acoustics figures](/notes/acoustics-figures)
 
+## R
+
+- [Invert a polynomial in R](/notes/r-invert-polynomial)
+
 ## Mathematical visualisations
 
 - [Collatz Conjecture](/notes/collatz-conjecture)
diff --git a/notes/r-invert-polynomial.md b/notes/r-invert-polynomial.md
@@ -0,0 +1,23 @@
+# Inverting a polynomial using R
+
+R code to numerically find the inverse of a polynomial.
+
+```r
+# Define a polynomial function to invert
+pn <- function(x) {
+  return(3*x^3 + 2*x^2)
+}
+
+# Generic invert() function
+invert = function(fn, interval = NULL, ...){
+  Vectorize(function(y){
+    uniroot(function(x){fn(x)-y}, interval, ...)$root
+  })
+}
+
+# Inversion function specific to pn()
+pn.inverse <- invert(pn, interval = c(-10, 10))
+
+# Find the inverse for a specific value
+pn.inverse(4)
+```
diff --git a/talks/2023-11-NR.md b/talks/2023-11-NR.md
@@ -0,0 +1,3 @@
+# NHM Gardens Science Workshop
+
+[Slides](/talks/2023-11-NR.pptx)
diff --git a/talks/2023-11-NR.pptx b/talks/2023-11-NR.pptx
diff --git a/talks/index.md b/talks/index.md
@@ -10,6 +10,8 @@
 
 ## 2023
 
+- [09/11/2023 - Sounds, sensors, specimsn](talks/2023-11-NR) - NHM UK Nature Recovery Theme Town Hall
+
 - [09/11/2023 - Garden science: sounds, sensors and network](/talks/2023-11-GS) - NHM Internal workshop on Gardens Science
 
 - [28/10/2023 - IBAC Sapporo, Japan](/talks/2023-IBAC) - Infrastructures for multi-scale bioacoustics analysis
Original file line number	Diff line number	Diff line change
		@@ -0,0 +1,3 @@
		# NHM Gardens Science Workshop

		[Slides](/talks/2023-11-NR.pptx)
-Original file line number
+Diff line change
@@ Expand Up / @@ -10,6 +10,8 @@ @@
     ## 2023
+    - [09/11/2023 - Sounds, sensors, specimsn](talks/2023-11-NR) - NHM UK Nature Recovery Theme Town Hall
     - [09/11/2023 - Garden science: sounds, sensors and network](/talks/2023-11-GS) - NHM Internal workshop on Gardens Science
     - [28/10/2023 - IBAC Sapporo, Japan](/talks/2023-IBAC) - Infrastructures for multi-scale bioacoustics analysis
@@ Expand Down @@