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