home *** CD-ROM | disk | FTP | other *** search
/ Programmer Plus 2007 / Programmer-Plus-2007.iso / Programming / XML Utilities / Professional Programmer XSL IDE / Xselerator25.msi / Data.Cab / F36618_testmonteCarlo65536.xsl < prev    next >
Encoding:
Extensible Markup Language  |  2002-04-08  |  3.1 KB  |  96 lines
  1. <xsl:stylesheet version="1.0" 
  2.  xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
  3.  xmlns:x="f:fxsl-test-monteCarlo"
  4.  xmlns:mySampleFun1="f:mySampleFun1"
  5.  xmlns:mySampleFun2="f:mySampleFun2"
  6.  xmlns:mySampleFun3="f:mySampleFun3"
  7.  exclude-result-prefixes="xsl mySampleFun1"
  8.  >
  9.  
  10.   <xsl:import href="monteCarlo.xsl"/>
  11.   
  12.   <xsl:output method="text"/>
  13.   
  14.   <mySampleFun1:mySampleFun1/>
  15.   <mySampleFun2:mySampleFun2/>
  16.   <mySampleFun3:mySampleFun3/>
  17.  
  18.   <xsl:variable name="x:st" 
  19.                 select="document('')/*"/>
  20.  
  21.   <xsl:template match="/">
  22.     <xsl:variable name="vSampleFun1" 
  23.          select="$x:st/mySampleFun1:*[1]"/>
  24.     <xsl:variable name="vSampleFun2" 
  25.          select="$x:st/mySampleFun2:*[1]"/>
  26.     <xsl:variable name="vSampleFun3" 
  27.          select="$x:st/mySampleFun3:*[1]"/>
  28.     
  29.     <xsl:call-template name="monteCarlo">
  30.       <xsl:with-param name="arg1" 
  31.                       select="65536"/>
  32.       <xsl:with-param name="arg2" 
  33.                 select="$vSampleFun1"/>
  34.       <xsl:with-param name="arg3" 
  35.                       select="'0'"/> <!-- sx -->
  36.       <xsl:with-param name="arg4" 
  37.                       select="1"/>   <!-- tx -->
  38.       <xsl:with-param name="arg5" 
  39.                       select="'0'"/> <!-- sy -->
  40.       <xsl:with-param name="arg6" 
  41.                       select="4"/>   <!-- ty -->
  42.     </xsl:call-template>
  43.     <xsl:text> </xsl:text>
  44.     <xsl:call-template name="monteCarlo">
  45.       <xsl:with-param name="arg1" 
  46.                       select="65536"/>
  47.       <xsl:with-param name="arg2" 
  48.                 select="$vSampleFun2"/>
  49.       <xsl:with-param name="arg3" 
  50.                       select="'0'"/> <!-- sx -->
  51.       <xsl:with-param name="arg4" 
  52.                       select="1"/>   <!-- tx -->
  53.       <xsl:with-param name="arg5" 
  54.                       select="'0'"/> <!-- sy -->
  55.       <xsl:with-param name="arg6" 
  56.                       select="1"/>   <!-- ty -->
  57.     </xsl:call-template>
  58.     <xsl:text> </xsl:text>
  59.     <xsl:call-template name="monteCarlo">
  60.       <xsl:with-param name="arg1" 
  61.                       select="65536"/>
  62.       <xsl:with-param name="arg2" 
  63.                 select="$vSampleFun3"/>
  64.       <xsl:with-param name="arg3" 
  65.                       select="1"/> <!-- sx -->
  66.       <xsl:with-param name="arg4" 
  67.                       select="2"/>   <!-- tx -->
  68.       <xsl:with-param name="arg5" 
  69.                       select="'0'"/> <!-- sy -->
  70.       <xsl:with-param name="arg6" 
  71.                       select="1"/>   <!-- ty -->
  72.     </xsl:call-template>
  73.   </xsl:template>
  74.   
  75.   <!-- f x = 4 / (1 + x^2) -->
  76.   <xsl:template match="mySampleFun1:*"> 
  77.     <xsl:param name="arg1"/>
  78.     
  79.     <xsl:value-of select="4 
  80.                        div (1 + $arg1*$arg1)"/>
  81.   </xsl:template>
  82.  
  83.   <!-- f x = x -->
  84.   <xsl:template match="mySampleFun2:*"> 
  85.     <xsl:param name="arg1"/>
  86.     
  87.     <xsl:value-of select="$arg1"/>
  88.   </xsl:template>
  89.  
  90.   <!-- f x = 1 / x -->
  91.   <xsl:template match="mySampleFun3:*"> 
  92.     <xsl:param name="arg1"/>
  93.     
  94.     <xsl:value-of select="1 div $arg1"/>
  95.   </xsl:template>
  96. </xsl:stylesheet>