Summary sine and cosine without using extension functions

Additional information

<!-- example of a call --> <xsl:variable name="result-sine"> <xsl:call-template name="sine"> <xsl:with-param name="angle" select="$input-angle"/> </xsl:call-template> </xsl:variable> <!-- end of example --> <?xml version="1.0" encoding="utf-8"?> <xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform" version="1.0"> <xsl:variable name="pi" select="3.14159"/> <xsl:variable name="threshold" select=".0001"/> <!-- sine(angle) --> <xsl:template name="sineLoop"> <xsl:param name="N"/> <xsl:param name="XSQ"/> <xsl:param name="TERM"/> <xsl:param name="SIGN"/> <xsl:param name="SUM"/> <xsl:variable name="newN" select="$N + 2"/> <xsl:variable name="newTERM" select="($TERM * $XSQ) div ($newN * ($newN - 1))"/> <xsl:variable name="newSIGN" select="-$SIGN"/> <xsl:variable name="newSUM" select="$SUM + ($newSIGN * $newTERM)"/> <xsl:choose> <xsl:when test="(($SUM - $newSUM) > $threshold) or (($newSUM - $SUM) > $threshold)"> <xsl:variable name="result"> <xsl:call-template name="sineLoop"> <xsl:with-param name="N" select="$newN"/> <xsl:with-param name="XSQ" select="$XSQ"/> <xsl:with-param name="TERM" select="$newTERM"/> <xsl:with-param name="SIGN" select="$newSIGN"/> <xsl:with-param name="SUM" select="$newSUM"/> </xsl:call-template> </xsl:variable> <xsl:value-of select="$result"/> </xsl:when> <xsl:otherwise> <xsl:value-of select="$newSUM"/> </xsl:otherwise> </xsl:choose> </xsl:template> <xsl:template name="sine"> <xsl:param name="angle"/> <xsl:variable name="result"> <xsl:call-template name="sineLoop"> <xsl:with-param name="N" select="number(1)"/> <xsl:with-param name="XSQ" select="number($angle)* number($angle)"/> <xsl:with-param name="TERM" select="number($angle)"/> <xsl:with-param name="SIGN" select="number(1)"/> <xsl:with-param name="SUM" select="number($angle)"/> </xsl:call-template> </xsl:variable> <xsl:value-of select="$result"/> </xsl:template> <!-- cosine(angle) --> <xsl:template name="cosineLoop"> <xsl:param name="F"/> <xsl:param name="X2"/> <xsl:param name="NUM"/> <xsl:param name="DEN"/> <xsl:param name="S"/> <xsl:param name="CS"/> <xsl:variable name="newNUM" select="$NUM * $X2"/> <xsl:variable name="newDEN" select="$DEN * $F * ($F + 1)"/> <xsl:variable name="newF" select="$F + 2"/> <xsl:variable name="newS" select="-$S"/> <xsl:variable name="newCS" select="$CS + ($newS * ($newNUM div $newDEN))"/> <xsl:choose> <xsl:when test="(($CS - $newCS) > $threshold) or (($newCS - $S) > $threshold)"> <xsl:variable name="result"> <xsl:call-template name="cosineLoop"> <xsl:with-param name="F" select="$newF"/> <xsl:with-param name="X2" select="$X2"/> <xsl:with-param name="NUM" select="$newNUM"/> <xsl:with-param name="DEN" select="$newDEN"/> <xsl:with-param name="S" select="$newS"/> <xsl:with-param name="CS" select="$newCS"/> </xsl:call-template> </xsl:variable> <xsl:value-of select="$result"/> </xsl:when> <xsl:otherwise> <xsl:value-of select="$newCS"/> </xsl:otherwise> </xsl:choose> </xsl:template> <xsl:template name="cosine"> <xsl:param name="angle"/> <xsl:variable name="result"> <xsl:call-template name="cosineLoop"> <xsl:with-param name="F" select="number(1)"/> <xsl:with-param name="X2" select="number($angle)* number($angle)"/> <xsl:with-param name="NUM" select="number(1)"/> <xsl:with-param name="DEN" select="number(1)"/> <xsl:with-param name="S" select="number(1)"/> <xsl:with-param name="CS" select="number(1)"/> </xsl:call-template> </xsl:variable> <xsl:value-of select="$result"/> </xsl:template> </xsl:stylesheet>