0 people like it.

Classifier DSL

sample

 1: 
 2: 
 3: 
 4: 
 5: 
 6: 
 7: 
 8: 
 9: 
10: 
11: 
12: 
13: 
14: 
15: 
16: 
17: 

let win = ClassifierWindow()
 
let downUp = (Price.sequenceAnd (Price.regression Price.declining) (Price.regression Price.rising)) 
let upDown = (Price.sequenceAnd (Price.regression Price.rising) (Price.regression Price.declining)) 

win.Add("Rising", Price.regression Price.rising)
win.Add("Declining", Price.regression Price.declining)
win.Add("Down & Up", downUp)
win.Add("Up & Down", upDown)
win.Add("W pattern", Price.sequenceAnd downUp downUp)
win.Add("Minimum", Price.minimum)
win.Add("Average", Price.average)

win.Clear()
win.Run("AAPL")
win.Run("MSFT")
win.Stop()
val win : obj

Full name: Script.win
val downUp : obj

Full name: Script.downUp
val upDown : obj

Full name: Script.upDown
Next Version Raw view Test code New version

More information

Link:http://fssnip.net/bH
Posted:14 years ago
Author:
Tags: dsl

This web site is created using F# and Suave web server. It is hosted on Azure and the source code is on GitHub. Contributions are welcome!

The first version of fssnip.net has been created by @tomaspetricek back in 2010. This web site is a new, open-source and contribution-friendly version.