powered by
angle(v,w) lV( v ) vecprod(v, w) v %v% w
v %v% w
vecprod(v, w)
tau <- (1+sqrt(5))/2 # 1.618034 a <- c(1/tau,tau,0) # vertex of dodecahedron next to y-axis b <- c(0,1,0) # y-axis deg( angle(a,b)) # 20.905157 Degrees vecprod(a, b) # 0 0 0.61803399
Run the code above in your browser using DataLab