#------------------------------------------------------------------------
#Trignometry in degrees
sind<-function(d) sin(d*pi/180)
asind<-function(x) asin(x)/pi*180
cosd<-function(d) cos(d*pi/180)
acosd<-function(x) acos(x)*180/pi
tand<-function(d) tan(d*pi/180)
atand<-function(x) atand(x)*180/3.1415926
rtd<-function(r) r/pi*180
dtr<-function(d) d/180*pi
#------------------------------------------------------------------------
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.