Instantly share code, notes, and snippets.

Embed
What would you like to do?
// Bfexplorer cannot be held responsible for any losses or damages incurred during the use of this betfair bot.
// It is up to you to determine the level of risk you wish to trade under.
// Do not gamble with money you cannot afford to lose.
module FindingGapsBetweenBackPrices
#I @"C:\Program Files (x86)\BeloSoft\Bfexplorer\"
//#I @"D:\Projects\Bfexplorer\Development\Applications\BeloSoft.Bfexplorer.App\bin\Debug\"
#r "BeloSoft.Data.dll"
#r "BeloSoft.Betfair.API.dll"
#r "BeloSoft.Bfexplorer.Domain.dll"
#r "BeloSoft.Bfexplorer.Trading.dll"
#r "BeloSoft.Bfexplorer.Service.Core.dll"
open System.Text
open BeloSoft.Bfexplorer.Domain
open BeloSoft.Bfexplorer.Trading
/// <summary>
/// FindingGapsBetweenBackPrices
/// </summary>
type FindingGapsBetweenBackPrices(market : Market, selection : Selection, botName : string, botTriggerParameters : BotTriggerParameters, myBfexplorer : IMyBfexplorer) =
let isGapBetweenBackPrices (mySelection : Selection) =
let bestOfferedPrices = mySelection.ToBack
let bestPrice = bestOfferedPrices.BestPrice
let secondBestPrice = bestOfferedPrices.SecondBestPrice
if secondBestPrice.IsValid
then
mySelection.OddsContext.GetOddsDifference(secondBestPrice.Price, bestPrice.Price) > 1
else
false
let getSelectionsWithGapBetweenBackPrices() =
market.Selections
|> Seq.filter (fun mySelection -> isActiveSelection mySelection && isGapBetweenBackPrices mySelection)
|> Seq.toList
let reportMySelection (mySelection : Selection) =
let bestOfferedPrices = mySelection.ToBack
let bestPrice = bestOfferedPrices.BestPrice.Price
let secondBestPrice = bestOfferedPrices.SecondBestPrice.Price
sprintf "%s: %.2f - %.2f | %d" mySelection.Name bestPrice secondBestPrice (mySelection.OddsContext.GetOddsDifference(secondBestPrice, bestPrice))
interface IBotTrigger with
/// <summary>
/// Execute
/// </summary>
member this.Execute() =
let mySelections = getSelectionsWithGapBetweenBackPrices()
if not mySelections.IsEmpty
then
let sb = StringBuilder()
mySelections
|> List.iter (fun mySelection -> sb.AppendLine(reportMySelection mySelection) |> ignore)
myBfexplorer.BfexplorerService.OutputMessage(sb.ToString())
WaitingForOperation
/// <summary>
/// EndExecution
/// </summary>
member this.EndExecution() =
()
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment