Parallel Data Fetching by F#

namespace JQD.Parallel
open System
open System.Collections.Generic
type DataFetcher() =
    let f (hhr) =Reporting.HoldingMapper.MapHolding(hhr)
    let f2 (ar:Reporting.Domain.Objects.GetHoldingsHierarchyResult[]) =
            ar|> Array.Parallel.map (fun (g) -> Reporting.HoldingMapper.MapHolding(g))
              |> Array.Parallel.map (fun h -> h.MarketValue ) 
              |> Array.sum 

    member this.DA(ar:Reporting.Domain.Objects.GetHoldingsHierarchyResult[]) =
            ar|> Array.Parallel.map (fun (g) -> Reporting.HoldingMapper.MapHolding(g))
              |> Array.Parallel.map (fun h -> h.MarketValue ) 
              |> Array.sum 

    member this.DA3(ar:DateTime[],groupId:int) =
            ar|> Array.Parallel.map( fun i -> Seq.toArray(Reporting.Dal.GetHoldingsHierarchy(groupId,i,i)))
              |> Array.Parallel.map(fun g -> f2(g))
              

WPF DataGrid Row/Cell Accessor

       public static T GetVisualChild<T>(Visual parent) where T : Visual
        {
            T child = default(T);
            int numVisuals = VisualTreeHelper.GetChildrenCount(parent);
            for (int i = 0; i < numVisuals; i++)
            {
                Visual v = (Visual)VisualTreeHelper.GetChild(parent, i);
                child = v as T;
                if (child == null)
                {
                    child = GetVisualChild<T>(v);
                }
                if (child != null)
                {
                    break;
                }
            }
            return child;
        }

        public static DataGridRow GetSelectedRow( DataGrid grid)
        {
            return (DataGridRow)grid.ItemContainerGenerator.ContainerFromItem(grid.SelectedItem);
        }

        public static DataGridRow GetRow( DataGrid grid, int index)
        {
            DataGridRow row = (DataGridRow)grid.ItemContainerGenerator.ContainerFromIndex(index);
            if (row == null)
            {
                // May be virtualized, bring into view and try again.
                grid.UpdateLayout();
                grid.ScrollIntoView(grid.Items[index]);
                row = (DataGridRow)grid.ItemContainerGenerator.ContainerFromIndex(index);
            }
            return row;
        }

        public static DataGridCell GetCell( DataGrid grid, DataGridRow row, int column)
        {
            if (row != null)
            {
                DataGridCellsPresenter presenter = GetVisualChild(row);

                if (presenter == null)
                {
                    grid.ScrollIntoView(row, grid.Columns[column]);
                    presenter = GetVisualChild<DataGridCellsPresenter>(row);
                }

                DataGridCell cell = (DataGridCell)presenter.ItemContainerGenerator.ContainerFromIndex(column);
                return cell;
            }
            return null;
        }

        public static DataGridCell GetCell( DataGrid grid, int row, int column)
        {
            DataGridRow rowContainer = GetRow(grid,row);
            return GetCell(grid,rowContainer, column);
        }

F# Active Parttern to break down data

// break down into tuple
open System.Drawing
let (|RGB|) (col:System.Drawing.Color) =  (col.R, col.G, col.B)
let (|HSB|) (col:System.Drawing.Color) = (col.GetHue(), col.GetSaturation(),col.GetBrightness())

//parsing
open System
let (|Int|_|)(x:string) =
    let mutable y =0.0
    if System.Double.TryParse(x, &y) then Some(x)
    else None

let PrintRGB x =
    match x with
    | RGB (r,g,b) -> printfn"%d %d %d" r g b

let Parse x =
    match x with
    | Int t -> printfn "%A" t
    | _ -> printfn "not integer"

F# Discriminated Union as Option Type

type Options<'a> =
    | Some of 'a
    | None

let op1 = Some(10.0)
let op2 = None
let op3 = Options.Some("adf")

let ShowOption x =
    match x with 
    | None ->printfn "%A" "Nothing"
    | Some t ->printfn "%A" t

ShowOption op1
ShowOption op2
ShowOption op3

F# Finding Prime Number

let IsNotMultipleOf n x =
    x=n || x%n<>0

let rec RemoveAllMultiples listn listx =
    match listn with
    | head::tail -> RemoveAllMultiples tail (List.filter (IsNotMultipleOf head) listx)
    | [] -> listx

let GetPrimeTo n =
    let r= (int) ( sqrt(float n))
    RemoveAllMultiples  [2..r] [1..100]

printfn "%A" (GetPrimeTo 100)

F# Async Workflow

#light
open System.IO
open System.Net
open System

let AyncHttp(url:string) =
    async {
        let req=WebRequest.Create(url)
        let! rsp=req.AsyncGetResponse()
        use s= rsp.GetResponseStream()
        use r= new System.IO.StreamReader(s)
       r.ReadToEnd()
    }

//let SyncHttp(url:string) =
//    let req=WebRequest.Create(url)
//    let rsp=req.GetResponse()
//    use s= rsp.GetResponseStream()
//    use r= new System.IO.StreamReader(s)
//    r.ReadToEnd()



let dt=System.DateTime.Now

//SyncHttp "http://maps.google.com"
//SyncHttp "http://maps.live.com"
//SyncHttp("http://www.nhl.com");
//SyncHttp("http://www.nfl.com");
//SyncHttp("http://www.china.com");
//SyncHttp("http://www.sina.com");
//SyncHttp("http://www.nba.com");
//printf "%A" (DateTime.Now-dt).Milliseconds

Async.Parallel [ 
    AyncHttp("http://maps.google.com"); 
    AyncHttp("http://maps.live.com");
    AyncHttp("http://www.nhl.com");
    AyncHttp("http://www.nfl.com");
    AyncHttp("http://www.china.com");
    AyncHttp("http://www.sina.com");
    AyncHttp("http://www.nba.com");
    ]
    |> Async.RunSynchronously

printf "%A" (DateTime.Now-dt).Milliseconds

TreeMap and Zoom Control onto TreeGraph (WPF Toolkit and Extension)

WPF ToolKit  and CodePlex WPF Extension

<Window x:Class="GMO.Monitor.MainWindow"
        xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
        xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
        Title="MainWindow" Height="350" Width="525"
        xmlns:chartingToolkit="clr-namespace:System.Windows.Controls.DataVisualization.Charting;assembly=System.Windows.Controls.DataVisualization.Toolkit"
        xmlns:dv="clr-namespace:System.Windows.Controls.DataVisualization;assembly=System.Windows.Controls.DataVisualization.Toolkit"
        xmlns:tc="clr-namespace:TreeContainer;assembly=TreeContainer"
        xmlns:wpfec="clr-namespace:WPFExtensions.Controls;assembly=WPFExtensions"
        x:Name="M"
        >
     <Grid >
        <!--<WrapPanel>-->
            <DockPanel>
            <dv:TreeMap Name="tmp1"  Height="Auto" Width="200"  >
                <dv:TreeMap.Interpolators>
                    <dv:SolidColorBrushInterpolator
                        TargetName="bdr"
                        TargetProperty="Background"
                        DataRangeBinding="{Binding Path=totalValue}"
                        From="Green"
                        To="White"/>
                </dv:TreeMap.Interpolators>
                <dv:TreeMap.ItemDefinition>
                    <dv:TreeMapItemDefinition
                        ItemsSource="{Binding}" 
                        ValueBinding="{Binding Path=totalValue}"
                        >
                        <DataTemplate>
                            <Border BorderThickness="1" BorderBrush="Black" Name="bdr" MouseDown="bdr_MouseDown"  ToolTip="{Binding Path=ToolTip}" >
                                <TextBlock Text="{Binding Path=shortname}" VerticalAlignment="Center" Margin="2,2,0,0" FontSize="10" />
                            </Border>
                        </DataTemplate>
                    </dv:TreeMapItemDefinition>
                </dv:TreeMap.ItemDefinition>
            </dv:TreeMap>
            <wpfec:ZoomControl >

                <Grid Width="1000" Height="1000" Background="Beige">
                    <Canvas>
                        <tc:TreeContainer tc:TreeContainer.Root="O" HorizontalAlignment="Center" VerticalAlignment="Center" x:Name="tc1" HorizontalBuffer="38" VerticalBuffer="48" HorizontalBufferSubtree="40" VerticalJustification="top">

                        </tc:TreeContainer>
                    </Canvas>
                </Grid>
            </wpfec:ZoomControl>
        </DockPanel>
        <!--</WrapPanel>-->
    </Grid>
</Window>


using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Windows;
using System.Windows.Controls;
using System.Windows.Data;
using System.Windows.Documents;
using System.Windows.Input;
using System.Windows.Media;
using System.Windows.Media.Imaging;
using System.Windows.Navigation;
using System.Windows.Shapes;
using System.Windows.Controls.DataVisualization.Charting;
using System.Windows.Controls.DataVisualization;
using GMO.Monitor.Model;
using TreeContainer;
using System.Collections.ObjectModel;

namespace GMO.Monitor
{
    /// 

    /// Interaction logic for MainWindow.xaml
    /// 
    public partial class MainWindow : Window
    {
        ApexDevEntities ctx = new ApexDevEntities();
        public MainWindow()
        {
            InitializeComponent();
           var q = from t in ctx.GetDashboard() select new { t.shortname, t.totalValue, t.groupid, ToolTip = t.shortname + "," + t.groupid.ToString() };
           tmp1.ItemsSource = q;
        }

        protected override void OnRenderSizeChanged(SizeChangedInfo sizeInfo)
        {
            //vb.Width = this.ActualWidth - tmp1.ActualWidth; ;
            //vb.Height = this.ActualHeight - tmp1.ActualHeight;
            base.OnRenderSizeChanged(sizeInfo);
        }

        private void bdr_MouseDown(object sender, MouseButtonEventArgs e)
        {
            if (e.ClickCount <= 1) return;

            Border bdr = sender as Border;
            string tip = bdr.ToolTip.ToString();
            int GrpId = Convert.ToInt32(tip.Split(',')[1]);
            TextBlock tb = bdr.Child as TextBlock;
            tc1.Clear();
            TreeNode root=  tc1.AddRoot(tb.Text);
            var q = from t in ctx.CustomGroups where t.RelatedGroupId == GrpId select t;
            foreach (var q1 in q)
            {
              TextBlock tb1 = new TextBlock() { Text = q1.CustomGroupName};
              TreeNode tn=  tc1.AddNode(tb1, root);
              tn.Tag = q.FirstOrDefault();
             // tn.MouseDoubleClick += new MouseButtonEventHandler(tn_MouseDoubleClick);
             // TreeNode tn = sender as TreeNode;
              DateTime dt = new DateTime(2011, 2, 1);
              string subCGstr = "a,0,b,1,c,2";
              var q2 = from t in ctx.GetCustomGroupExposures(dt, q1.CustomGroupId, true, subCGstr) select t;
              foreach (var q3 in q2)
              {
                  TextBlock tb3 = new TextBlock() { Text = q3.Bet + "\r\n " + q3.Exposure.ToString() + "\r\n " + q3.PercentExposure.ToString() };
                  TreeNode tn1 = tc1.AddNode(tb3, tn);
              }
            }
        }

        void tn_MouseDoubleClick(object sender, MouseButtonEventArgs e)
        {
            tc1.Clear();
            TreeNode tn = sender as TreeNode;
            CustomGroup cg = tn.Tag as CustomGroup;
            TextBlock tb= new TextBlock() { Text= cg.CustomGroupName};
            TreeNode root = tc1.AddRoot(tb);
            DateTime dt = new DateTime(2011,2,1);
            var q = from t in ctx.GetCustomGroupExposures(dt, cg.CustomGroupId, true, "") select t;
            foreach (var q1 in q)
            {
                TextBlock tb1 = new TextBlock() { Text = q1.Bet+" "+q1.Exposure.ToString() +" "+q1.PercentExposure.ToString() };
                TreeNode tn1 = tc1.AddNode(tb1, root);
            }
        }
    }

    public class Data1
    {
        public string shortname { get; set; }
        public double totalValue { get; set; }
    }
}