BizTalk Utilities CV ,   Jobs ,   Code library  
 
 
Page 8 of 11

 

 Previous Page Table Of ContentsNext Page
Table of Contents

Introduction
Starting point
Major FP design patterns/functions in XSLT
List processing
Tree processing
Lazy evaluation
Advanced XSLT FP applications
 Square root
Numerical differentiation
Numerical integration
Summary


The Functional Programming Language XSLT - A proof through examples

Square root

Let's first consider the Newton-Raphson algorithm for finding square roots. The square root of a number N is computed starting from an initial approximation a0 and successively computing better ones using the rule:

a(n+1) = (a(n) + N/a(n)) / 2

This sequence in fact converges quite rapidly. We'll use a tolerance (eps) as a stop criterion -- the computation will yield a final result whenever two successive sequence elements differ by less than the tolerance.

Here's the XSLT implementation of the sqrt function:

<xsl:stylesheet version = "1.0" 
    xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
   xmlns:msxsl="urn:schemas-microsoft-com:xslt"
   xmlns:MyRepeatGenerator="MyRepeatGenerator" 
   xmlns:MyRepeatableFunction="MyRepeatableFunction"
   exclude-result-prefixes = "xsl msxsl MyRepeatGenerator MyRepeatableFunction" >

         <xsl:import href = "within.xsl" />

         <MyRepeatGenerator:MyRepeatGenerator/>

         <MyRepeatableFunction:MyRepeatableFunction/>

         <xsl:template name = "sqrt" >
             <xsl:param name = "N" />
             <xsl:param name = "Eps" select = "0.1" />

             <xsl:variable name = "vMyRepeat" 
                          select = "document('')/*/MyRepeatGenerator:*[1]" />

             <xsl:variable name = "vMyFunction" 
                          ; select = "document('')/*/MyRepeatableFunction:*[1]" />

              <xsl:variable name = "vrtfParams" >
                 <param>
                     <xsl:value-of select = "$N div 2" />
                 </param>

                 <xsl:copy-of select = "$vMyFunction" />

                 <param>
                     <xsl:value-of select = "$N" />
                 </param>
             </xsl:variable>

             <xsl:call-template name = "within" >
                 <xsl:with-param nam e = "pGenerator" select = "$vMyRepeat" />
                 <xsl:with-param name = "pParam0" 
                                select = "msxsl:node-set($vrtfParams)/*" />
                 <xsl:with-param name = "Eps" select = "$Eps" />
             </xsl:call-template>
         </xsl:template>

         <xsl:template name = "myRepeater" 
                      match = "*[namespace-uri()='MyRepeatGenerator']" >
             <xsl:param name = "pList" select = "/.." />
             <xsl:param name = "pParams" />

             <xsl:choose>
                 <xsl:when test = "not($pList)" >
                     <xsl:copy-of select = "$pParams[1]/node()" />
                 </xsl:when>
                 <xsl:otherwise>
                     <xsl:apply-templates select = "$pParams[2]" >
                         <xsl:with-param name = "X" 
                                         select = "$pList[last()]" />
                         <xsl:with-param name = "N" 
                                        select = "$pParams[3]/node()" />
                     </xsl:apply-templates>
                 </xsl:otherwise>
             </xsl:choose>
         </xsl:template>

         <xsl:template name = "myRptFn" 
                      match = "*[namespace-uri()='MyRepeatableFunction']" >
             <xsl:param name = "X" />
             <xsl:param name = "N" />

             <xsl:value-of select = "($X + ($N div $X)) div 2" />
         </xsl:template>

     </xsl:stylesheet>

Page 8 of 11

 

 Previous Page Table Of ContentsNext Page
 

Recent Jobs

Integration Specialist Needed - Wor
Virtualization Server Infrastructur
A great opportunity to Digital Vide
here is a greate opportunity as a S
A great opportunity as a Network En

View all Jobs (Add yours)
View all CV (Add yours)


swimming pool contractor
chicago web site design
teleconferencing
Web Hosting
go to meeting
Burberry sunglasses
answering service

    Email TopXML  

Front Page Daily Stuff TopXML Forum XML blogs XML Newsgroups BizTalk Biztalk Utilities Biztalk Utilities Tutorial B2B SAP XML Microsoft .NET Dotnet System XML Soapformatter SQLXML XMLserializer XQuery PHP PHP SimpleXML PHP XML Dom PHP XML RPC PHP XSLT Java Java Java XML Xalan Microsoft ASP ASP Schemas XML SQL Server XML XMLDom XSL XSL Tutorial XSLT Stylesheets General Javascript CSS XHTML WAP