SSAS: Pareto Analysis

http://byobi.com/blog/2013/10/creating-a-pareto-chart-in-ssrs/

WITH 
    SET [Products] AS
        ORDER(
             [Product].[Product].[Product].Members 
            ,[Measures].[Internet Sales Amount]
            ,DESC
        ) 
    MEMBER [Measures].[Level] AS 
        RANK( 
             [Product].[Product].CurrentMember 
            ,[Products] 
        ) 
    MEMBER [Measures].[Internet Sales Amount - RT] AS  
        SUM( 
            HEAD( 
                [Products], 
                ( 
                    [Measures].[Level], 
                    [Product].[Product].CurrentMember 
                ) 
            ), 
            [Measures].[Internet Sales Amount]
        ) 
    MEMBER [Measures].[Internet Sales Amount - Total] AS 
        SUM(
            [Products],
            [Measures].[Internet Sales Amount]
        ) 
    MEMBER [Measures].[Internet Sales Amount - RTPctOfTotal] AS 
        [Measures].[Internet Sales Amount - RT]/[Measures].[Internet Sales Amount - Total] 
        ,FORMAT_STRING = "percent"
SELECT 
    NON EMPTY { 
        [Measures].[Internet Sales Amount], 
        [Measures].[Internet Sales Amount - RT], 
        [Measures].[Internet Sales Amount - Total], 
        [Measures].[Internet Sales Amount - RTPctOfTotal],
        [Measures].[Level]
    } ON 0, 
    NON EMPTY { 
        [Products] 
    } ON 1 
FROM 
    [Adventure Works]
WHERE  
    [Date].[Calendar Year].&[2007]