Räkna ut tangent, sinus och cosinus

<%@ Language = VBScript%>
<%
	Option Explicit

	'## -- Dimmar variablar --
	dim tanvinkeln, tanpi, tansvar, tantal, sinvinkeln, sinpi, sinsvar, sintal,cosvinkeln, cospi, cossvar, costal

	
	'## -- räknar ut tangent --

	tanvinkeln = 5.5 	'## -- Ange vinkeln i grader
	tanpi = 4 * Atn(1)   

	tantal = tanvinkeln*(tanpi/180) 
	tansvar = Tan(tantal)   

	response.write "tan("&tanvinkeln&") = " & round(tansvar,9)

	'## -- räknar ut sinus --

	sinvinkeln = 5.5 	'## -- Ange vinkeln i grader
	sinpi = 4 * Atn(1)   

	sintal = sinvinkeln*(sinpi/180) 
	sinsvar = Sin(sintal)   

	response.write "<br><br>sin("&sinvinkeln&") = " & round(sinsvar,9)

	'## -- räknar ut cosinus --

	cosvinkeln = 5.5 	'## -- Ange vinkeln i grader
	cospi = 4 * Atn(1)   

	costal = cosvinkeln*(cospi/180) 
	cossvar = Cos(costal)   

	response.write "<br><br>cos("&cosvinkeln&") = " & round(cossvar,9)
%>