Martin Møller Skarbiniks Pedersen MartinMSPedersen

## 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
	x <- function(k, t) {

	c( -sin(4pik/1000) + sin(t)*sin(t/3)/5,
	-0.5sin(8pi*k/1000) + cos(t)/2
	)
	}

	y <- function(k, t) {
	c( -cos(2pik/1000) + cos(t)*cos(t/3)/2,
	-0.5cos(4pi*k/1000) + sin(t)/3