se/SE/schema/default_db_xml_cache.public/default_db/Benford.xsl

<?xml version="1.0" encoding="UTF-8"?>
<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
    xmlns:xs="http://www.w3.org/2001/XMLSchema"
    xmlns:Benford="https://pl.wikipedia.org/wiki/Rozkład_Benforda"
    xmlns:system_cache__dita="http://biuro.biall-net.pl/xmlschema_procesy5/default_db_xml_cache/dita.xsd"
    exclude-result-prefixes="xs"
    version="2.0">
    <!-- Template for analysis of https://pl.wikipedia.org/wiki/Rozkład_Benforda 
        use this example to construct 
        
        
        <Benford:table>
           <xsl:attribute name="Benford:year" select="."/>
           <xsl:attribute name="Benford:subject" select="$Osoba"/>
               <xsl:for-each select="$BI_audit_ENERGA_RUM_UMOWY_fix//default_db:BI_audit_ENERGA_RUM_UMOWY[ lower-case(default_db:Osoba_merytoryczna___nazwisko_i_imie) = lower-case($Osoba)  and Data_zawarcia.rok = $rok_cur and not(Wartosc = '0' )]">
                   <Benford:value><xsl:value-of select="substring( Wartosc,1,1)"/></Benford:value>
               </xsl:for-each>
        </Benford:table>
        
        than to analyze:
        <xsl:if test="$Benford:table//Benford:value">
            <xsl:apply-templates mode="Benford:table_analys" select="$Benford:table"/>
        </xsl:if>
        
        expect:
        
        <Benford:table_analys_exceed Benford:year="2012"
                                                  Benford:subject="Jan Npwak"
                                                  Benford:digit="8"
                                                  Benford:true.current.dig="5"
                                                  Benford:current.dig.ratio="16"
                                                  Benford:current.dig.test.fault="11"
                                                  Benford:table_analys.dig.all.sum="37"/>
                                                  
          or:
          
         <Benford:table Benford:year="2011"
              Benford:subject="Jan Nowak"
              Benford:use_wider_period="#41 $Benford:table_analys not complete all numnbers used - use bigger period">
                        <Benford:value>8</Benford:value>
                        <Benford:value>5</Benford:value>
                        <Benford:value>0</Benford:value>
                        <Benford:value>0</Benford:value>
                        <Benford:value>6</Benford:value>
                        <Benford:value>0</Benford:value>
                        <Benford:value>1</Benford:value>
                        <Benford:value>1</Benford:value>
                        <Benford:value>6</Benford:value>
                        <Benford:value>8</Benford:value>
                        <Benford:value>8</Benford:value>
                        <Benford:value>8</Benford:value>
                        <Benford:value>9</Benford:value>
                        <Benford:value>0</Benford:value>
                        <Benford:value>0</Benford:value>
                        <Benford:value>6</Benford:value>
                        <Benford:value>0</Benford:value>
                        <Benford:value>0</Benford:value>
                        <Benford:value>0</Benford:value>
                        <Benford:value>0</Benford:value>
                        <Benford:value>0</Benford:value>
                     </Benford:table>
        
        which should be analyzed more wider - TODO example:
    -->
    
    <xsl:param name="Benford:true.tolerance" select="10"/>
    
    <xsl:variable name="Benford:true">
        <Benford:true>
            <Benford:table_analys.dig Benford:digit="1" Benford:digit.occurs="{xs:double(30.1)}"/>
            <Benford:table_analys.dig Benford:digit="2" Benford:digit.occurs="{xs:double(17.6)}"/>
            <Benford:table_analys.dig Benford:digit="3" Benford:digit.occurs="{xs:double(12.5)}"/>
            <Benford:table_analys.dig Benford:digit="4" Benford:digit.occurs="{xs:double(9.7)}"/>
            <Benford:table_analys.dig Benford:digit="5" Benford:digit.occurs="{xs:double(7.9)}"/>
            <Benford:table_analys.dig Benford:digit="6" Benford:digit.occurs="{xs:double(6.7)}"/>
            <Benford:table_analys.dig Benford:digit="7" Benford:digit.occurs="{xs:double(5.8)}"/>
            <Benford:table_analys.dig Benford:digit="8" Benford:digit.occurs="{xs:double(5.1)}"/>
            <Benford:table_analys.dig Benford:digit="9" Benford:digit.occurs="{xs:double(4.6)}"/>
        </Benford:true>
    </xsl:variable>
    
    
    
    <xsl:template mode="Benford:table_analys" match="Benford:table">
        <xsl:variable name="Benford:table" select="."/>
        <!--<xsl:copy-of select="$Benford:table"></xsl:copy-of>-->
        <xsl:variable name="Benford:table_analys">
            <Benford:table_analys>
                <xsl:copy-of select="@*"/>
                <xsl:for-each select="1 to 9">
                    <Benford:table_analys.dig>
                        <xsl:attribute name="Benford:digit" select="."/>
                        <xsl:attribute name="Benford:digit.occurs" select="count($Benford:table//Benford:value[ number(text()) = current()])"/>
                    </Benford:table_analys.dig>
                </xsl:for-each>
            </Benford:table_analys>
        </xsl:variable>
        
        <xsl:choose>
            <xsl:when test="$Benford:table_analys//Benford:table_analys.dig[@Benford:digit.occurs = 0 ]">
                <xsl:comment>#41 $Benford:table_analys not complete all numnbers used - use bigger period</xsl:comment>
                <Benford:table>
                    <xsl:copy-of select="$Benford:table/@*"/>
                    <xsl:attribute name="Benford:use_wider_period" select="'#41 $Benford:table_analys not complete all numnbers used - use bigger period'"/>
                    <xsl:copy-of select="*"/>
                </Benford:table>
            </xsl:when>
            <xsl:otherwise>
                <xsl:variable name="Benford:table_analys.dig.all.sum" select="sum($Benford:table_analys//Benford:table_analys.dig/@Benford:digit.occurs)"/>
                <xsl:for-each select="$Benford:table_analys//Benford:table_analys.dig">
                    <xsl:variable name="Benford:true.current.dig" select="$Benford:true//Benford:table_analys.dig[number(@Benford:digit) = current()/number(@Benford:digit)]/@Benford:digit.occurs" />
                    <xsl:variable name="Benford:current.dig.ratio" select="number(@Benford:digit.occurs) div number($Benford:table_analys.dig.all.sum) * 100" />
                    <xsl:variable name="Benford:current.dig.test.fault" select="abs(number($Benford:current.dig.ratio) - number($Benford:true.current.dig))" />
                    <xsl:choose>
                        <xsl:when test=" number($Benford:current.dig.test.fault) &gt; number($Benford:true.tolerance) ">
                            <Benford:table_analys_exceed>
                                <xsl:copy-of select="$Benford:table/@*"/>
                                <xsl:attribute name="Benford:digit" select="@Benford:digit"/>
                                <xsl:attribute name="Benford:true.current.dig" select="round($Benford:true.current.dig)"/>
                                <xsl:attribute name="Benford:current.dig.ratio" select="round($Benford:current.dig.ratio)"/>
                                <xsl:attribute name="Benford:current.dig.test.fault" select="round($Benford:current.dig.test.fault)"/>
                                <xsl:attribute name="Benford:table_analys.dig.all.sum" select="$Benford:table_analys.dig.all.sum"/>
                                <xsl:attribute name="Benford:current.dig.test.fault.rel" select="number($Benford:current.dig.ratio) - number($Benford:true.current.dig)"/>
                            </Benford:table_analys_exceed>
                        </xsl:when>
                    </xsl:choose>
                </xsl:for-each>
            </xsl:otherwise>
        </xsl:choose>
    </xsl:template>
    
    <xsl:template match="*|text()|comment()" mode="system_cache__dita:topic"/>
    
    <!-- to generate dita topic based on Benford:table_analys_exceed - it will try to target data from parameter (deals etc)-->
    <xsl:template match="Benford:table_analys_exceed" mode="system_cache__dita:topic">
        <!-- input: <Benford:table_analys_exceed Benford:year="2012"
                                                  Benford:subject="Jan Npwak"
                                                  Benford:digit="8"
                                                  Benford:true.current.dig="5"
                                                  Benford:current.dig.ratio="16"
                                                  Benford:current.dig.test.fault="11"
                                                  Benford:table_analys.dig.all.sum="37"
                                                  Benford:current.dig.test.fault.rel="-10"/>
        -->
        <xsl:param name="Benford:subject.xml" /> <!-- example "$BI_audit_ENERGA_RUM_UMOWY_fix//default_db:BI_audit_ENERGA_RUM_UMOWY"  -->
        <xsl:param name="Benford:subject.value" /> <!-- to search against Benford:subject.xml for get value - example  'Wartosc' -->
        
        <xsl:param name="Benford:subject" /> <!-- example to search against Benford:subject.xml 'default_db:Osoba_merytoryczna___nazwisko_i_imie'  -->
        <xsl:param name="Benford:year" /> <!-- to search against shorter period - example  'Data_zawarcia.rok' -->
        <xsl:param name="Benford:subject.description" /> <!-- to search against Benford:subject.xml for get description - example  'default_db:Przedmiot_umowy default_db:Kontrahenci' -->
        
        <xsl:param name="topic.id"/>
        <xsl:param name="simpletable.id"/>
        <xsl:param name="id" select="concat('topic__Benford_table_analys_exceed',generate-id())"/>
        <xsl:variable name="Benford:table_analys_exceed" select="."/>
        
        <topic id="{$id}" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
            Benford:digit="{@Benford:digit}"
            Benford:current.dig.test.fault="{@Benford:current.dig.test.fault}"
            Benford:current.dig.test.fault.rel="{@Benford:current.dig.test.fault.rel}"
            xsi:noNamespaceSchemaLocation="urn:oasis:names:tc:dita:xsd:topic.xsd">
            
            <xsl:message>#156 Wykryte anomalia Benford dla <xsl:value-of select="@Benford:subject"/> w <xsl:value-of select="@Benford:year"/> dla liczby <xsl:value-of select="@Benford:digit"/>  przekroczone o <xsl:value-of select="@Benford:current.dig.test.fault"/>, liczone dla <xsl:value-of select="@Benford:table_analys.dig.all.sum"/> pozycji.</xsl:message>
            <xsl:choose>
                <xsl:when test="$Benford:subject.xml and $Benford:subject.value "><!--<xsl:when test="$Benford:subject.xml and $Benford:subject and $Benford:year and $Benford:subject.value and $Benford:subject.description">-->
                    <title>Wykryte anomalia Benford dla <xsl:value-of select="@Benford:subject"/> w <xsl:value-of select="@Benford:year"/> dla liczby <xsl:value-of select="@Benford:digit"/>   liczone dla <xsl:value-of select="@Benford:table_analys.dig.all.sum"/> pozycji.
                        <!--Wartość: <xsl:value-of select="sum($Benford:subject.xml [ node()[name()=$Benford:subject] = $Benford:table_analys_exceed/@Benford:subject and substring(node()[name()=$Benford:subject.value],1,1)=$Benford:table_analys_exceed/@Benford:digit and  node()[name()=$Benford:year]=$Benford:table_analys_exceed/@Benford:year  ]/node()[name()=$Benford:subject.value])"/>-->
                        Wartość: <xsl:value-of select="sum($Benford:subject.xml[substring(node()[name()=$Benford:subject.value],1,1)=$Benford:table_analys_exceed/@Benford:digit ] /node()[name()=$Benford:subject.value]) div 1000000"/> [mln]
                        <xsl:if test="number(@Benford:current.dig.test.fault.rel) &lt; 0"> - Za mało obiektów o <xsl:value-of select="@Benford:current.dig.test.fault"/> %</xsl:if>
                        <xsl:if test="number(@Benford:current.dig.test.fault.rel) &gt; 0"> - Przekroczenie ilości obiektów o <xsl:value-of select="@Benford:current.dig.test.fault"/> %</xsl:if>
                    </title>
                    <body>
                        <p>
                            <xsl:value-of select="@Benford:true.current.dig"/> - stała rozkładu dla  liczby <xsl:value-of select="@Benford:digit"/>.
                        </p>
                        <p>
                            <xsl:value-of select="@Benford:current.dig.test.fault.rel"/> % - o ile za dużo / za mało jest danych
                        </p>
                        <p>
                            <xsl:value-of select="round(sum($Benford:subject.xml/node()[name()=$Benford:subject.value]) div 1000000)"/> [mln] - ogólna wartość transakcji 
                            
                        </p>
                        <p>
                            <xsl:value-of select="count($Benford:subject.xml/node()[name()=$Benford:subject.value]) "/> -  ogólna ilość transakcji 
                        </p>
                        <p>
                            <xsl:value-of select="round(sum($Benford:subject.xml[substring(node()[name()=$Benford:subject.value],1,1)=$Benford:table_analys_exceed/@Benford:digit ] /node()[name()=$Benford:subject.value]) div sum($Benford:subject.xml/node()[name()=$Benford:subject.value]) * 100 )"/> - % wartości trasnakcji z anomalią do ogółu (kwota) 
                        </p>
                        <p>
                            <xsl:value-of select="count($Benford:subject.xml[substring(node()[name()=$Benford:subject.value],1,1)=$Benford:table_analys_exceed/@Benford:digit ] /node()[name()=$Benford:subject.value]) div count($Benford:subject.xml/node()[name()=$Benford:subject.value]) * 100 "/> -  % wartości trasnakcji z anomalią do ogółu (ilość) 
                        </p>
                        <simpletable frame="all"  relcolwidth="8* 1.0* 2*" id="topic__Benford_table_analys_exceed_simpletable_{ generate-id()}" > <!-- system_cache__dita:width_cols="auto" -->
                            <sthead>
                                <stentry>Dane obiektu </stentry>
                                <stentry>Data</stentry>
                                <stentry>Kwota</stentry>
                            </sthead>
                           
                                <!--<xsl:for-each select="$Benford:subject.xml [ node()[name()=$Benford:subject] = $Benford:table_analys_exceed/@Benford:subject and substring(node()[name()=$Benford:subject.value],1,1)=$Benford:table_analys_exceed/@Benford:digit and  node()[name()=$Benford:year]=$Benford:table_analys_exceed/@Benford:year  ]">-->
                                <xsl:for-each select="$Benford:subject.xml[substring(node()[name()=$Benford:subject.value],1,1)=$Benford:table_analys_exceed/@Benford:digit  ]">   
                                    <strow>
                                    <xsl:variable name="current" select="current()"/>
                                        <stentry>
                                            <!--<xsl:value-of select="current()/node()[name()='default_db:Numer_rejestrowy']"/>-->
                                            <xsl:for-each select=" tokenize($Benford:subject.description,' ')">
                                                <xsl:variable name="nname" select="."/>
                                                <!--<xsl:comment>#171 checking for name '<xsl:value-of select="$nname"/>'</xsl:comment>-->
                                                <p><xsl:value-of select="$nname"/>: <xsl:value-of select="$current//node()[name()=$nname]"/></p>
                                            </xsl:for-each>
                                        </stentry>
                                        <stentry><xsl:value-of select="current()/node()[name()=$Benford:year]"/></stentry>
                                        <stentry><xsl:value-of select="current()/node()[name()=$Benford:subject.value]"/></stentry>
                                    </strow>
                                </xsl:for-each>
                            
                        </simpletable>
                    </body>
                </xsl:when>
                <xsl:when test="$topic.id and $simpletable.id">
                    <title>Wykryte anomalia Benford dla <xsl:value-of select="@Benford:subject"/> w <xsl:value-of select="@Benford:year"/> dla liczby <xsl:value-of select="@Benford:digit"/>  przekroczone o <xsl:value-of select="@Benford:current.dig.test.fault"/>, liczone dla <xsl:value-of select="@Benford:table_analys.dig.all.sum"/> pozycji.</title>
                    <body>
                        <p><xsl:copy-of select="system_cache__dita:xref_2_topc($topic.id)"/></p>
                    </body>
                </xsl:when>
            </xsl:choose>
            
        </topic>
    </xsl:template>
    
    
    <xsl:template match="topichead" mode="Benford:ditamap_root.embedded_map">
        <xsl:apply-templates mode="Benford:ditamap_root.embedded_map"/>
    </xsl:template>
    
    <xsl:template match="topic" mode="Benford:ditamap_root.embedded_map">
        <xsl:message>#197 found topic <xsl:value-of select="@id"/></xsl:message>
        <xsl:apply-templates mode="Benford:ditamap_root.embedded_map.topic">
            <xsl:with-param name="topic.id" select="@id"/>
        </xsl:apply-templates>
    </xsl:template>
    
    <xsl:template match="body|p" mode="Benford:ditamap_root.embedded_map.topic">
        <xsl:param name="topic.id" required="yes"/>
        <xsl:apply-templates mode="Benford:ditamap_root.embedded_map.topic.body">
            <xsl:with-param name="topic.id" select="$topic.id"/>
        </xsl:apply-templates>
    </xsl:template>
    
    <xsl:template match="simpletable" mode="Benford:ditamap_root.embedded_map.topic.body">
        <xsl:param name="topic.id" required="yes"/>
        <xsl:apply-templates mode="Benford:ditamap_root.embedded_map.topic.body.simpletable">
            <xsl:with-param name="topic.id" select="$topic.id"/>
            <xsl:with-param name="simpletable.id" select="@id"/>
        </xsl:apply-templates>
    </xsl:template>
    
    <xsl:template match="strow|stentry" mode="Benford:ditamap_root.embedded_map.topic.body.simpletable">
        <xsl:param name="topic.id" required="yes"/>
        <xsl:param name="simpletable.id" required="yes"/>
        <xsl:apply-templates mode="Benford:ditamap_root.embedded_map.topic.body.simpletable">
            <xsl:with-param name="topic.id" select="$topic.id"/>
            <xsl:with-param name="simpletable.id" select="$simpletable.id"/>
        </xsl:apply-templates>
    </xsl:template>
    
    
    
    <xsl:template match="Benford:table_analys_exceed" mode="Benford:ditamap_root.embedded_map.topic.body.simpletable">
        <xsl:param name="topic.id" required="yes"/>
        <xsl:param name="simpletable.id" required="yes"/>
        <xsl:apply-templates mode="system_cache__dita:topic" select=".">
            <xsl:with-param name="topic.id" select="$topic.id"/>
            <xsl:with-param name="simpletable.id" select="$simpletable.id"/>
        </xsl:apply-templates>
    </xsl:template>
    
    <xsl:template match="*" mode="Benford:ditamap_root.embedded_map">
        <xsl:apply-templates mode="Benford:ditamap_root.embedded_map"/>
    </xsl:template>
    
    <xsl:template match="text()|comment()" mode="Benford:ditamap_root.embedded_map"/>
    
    
   
    
    <xsl:template match="*" mode="Benford:ditamap_root.embedded_map.body.topic.cleanup" >
        <xsl:element name="{name()}">
            <xsl:copy-of select="@*"/>
            <xsl:apply-templates mode="Benford:ditamap_root.embedded_map.body.topic.cleanup"/>
        </xsl:element>
    </xsl:template>
    
    <xsl:template match="simpletable" mode="Benford:ditamap_root.embedded_map.body.topic.cleanup" >
        <xsl:element name="{name()}">
            <xsl:copy-of select="@*"/>
            <xsl:apply-templates mode="Benford:ditamap_root.embedded_map.body.topic.cleanup.simpletable"/>
        </xsl:element>
    </xsl:template>
    
    <xsl:template match="strow|stentry|sthead|xref" mode="Benford:ditamap_root.embedded_map.body.topic.cleanup.simpletable" >
        <xsl:element name="{name()}">
            <xsl:copy-of select="@*"/>
            <xsl:apply-templates mode="Benford:ditamap_root.embedded_map.body.topic.cleanup.simpletable"/>
        </xsl:element>
    </xsl:template>

    <xsl:template match="topic" mode="Benford:ditamap_root.embedded_map.body.topic.cleanup.simpletable" >
        <xsl:copy-of select="system_cache__dita:xref_2_topc(@id,concat('!(B',@Benford:digit,'/',round(@Benford:current.dig.test.fault.rel),')'))"/>
    </xsl:template>
    
    
    
    <!--<xsl:template match="topic" mode="Benford:ditamap_root.embedded_map.body.topic.cleanup.simpletable"/>-->
        
    <xsl:template match="Benford:table|Benford:table_analys_exceed|Benford:value" mode="Benford:ditamap_root.embedded_map.body.topic.cleanup.simpletable" />
    
    
    <xsl:template match="*" mode="Benford:ditamap_root.embedded_map.body.topicref.topic">
        <xsl:for-each select=".//topic">
            <xsl:apply-templates select="." mode="system_cache__dita:xref.topic.result-document"/>
        </xsl:for-each>
    </xsl:template>
    
    <xsl:template mode="ditamap_root.embedded_map.body" match="@Benford:value"/>
    <xsl:template mode="system_cache__dita:xref.topic.result-document" match="@Benford:digit"/>
    <xsl:template mode="system_cache__dita:xref.topic.result-document" match="@Benford:current.dig.test.fault|@Benford:current.dig.test.fault.rel"/>
    
    <!--<xsl:template mode="table_cut" match="@Benford:value" />-->
    
</xsl:stylesheet>