Skip to content

Instantly share code, notes, and snippets.

Avatar
🎯
Focusing

Martin Møller Skarbiniks Pedersen MartinMSPedersen

🎯
Focusing
View GitHub Profile
@MartinMSPedersen
MartinMSPedersen / hat3.R
Last active Jan 8, 2019
Hat number 3 in R
View hat3.R
x <- function(k, t) {
c( -sin(4*pi*k/1000) + sin(t)*sin(t/3)/5,
-0.5*sin(8*pi*k/1000) + cos(t)/2
)
}
y <- function(k, t) {
c( -cos(2*pi*k/1000) + cos(t)*cos(t/3)/2,
-0.5*cos(4*pi*k/1000) + sin(t)/3
You can’t perform that action at this time.