[TS源码] Predicting an Event [EasyLanguage Code]

EasyLanguage Code To TesT The Predictability Of An Event

本帖隐藏的内容需要回复才可以浏览

1. Vars:
   
2.         Event(false),
   
3.         FuturePrice(0),
   
4.         I(0),
   
5.         CG(0),
   
6.         Denom(0);
   
7. 
   
8. Arrays:
   
9.         PredictBin[100](0);
   
10. 
    
11. {>>>>>>>>> Code for Event Goes Here <<<<<<<<<<}
    
12. 
    
13. If Event Then Begin
    
14.         FuturePrice = 100*(Close - Close[9]) / Close[9];        //Future is referenced to 10 bars back
    
15.         If FuturePrice < -10 Then FuturePrice = -10;        //Limits lower price to -10%
    
16.         If FuturePrice > 10 Then FuturePrice = 10;        //Limits higher price to +10%
    
17.         FuturePrice = 5*(FuturePrice + 10);        //scale -10% to +10% to be 0 - 100
    
18. End;
    
19. //Place the FuturePrices into one of 100 bins
    
20. If FuturePrice <> FuturePrice[1] Then Begin
    
21.         For I = 1 to 100 Begin
    
22.                 If FuturePrice > I - 1 and FuturePrice <= I Then PredictBin[I] = PredictBin[I] + 1;
    
23.         End;
    
24. End;
    
25. //Measure center of gravity as a quick estimate
    
26. CG = 0;
    
27. Denom = 0;
    
28. For I = 1 to 100 Begin
    
29.         CG = CG + I*PredictBin[I];
    
30.         Denom = Denom + PredictBin[I];
    
31. End;
    
32. CG = (CG/Denom-50)/5;
    
33. 
    
34. Plot1(CG);
    
35. 
    
36. If LastBarOnChart Then Begin
    
37.         For I = 0 to 100 Begin
    
38.                 Print(File("C:\PDFTest\PDF.CSV"), .2*I - 10, ",", PredictBin[I]);
    
39.         End;
    
40. End;

复制代码

学习