【LinReg2Periods】

1. [LegacyColorValue = TRUE];
   
2. 
   
3. inputs  : Periods(20);
   
4.     vars    : LRValueEnd(0),
   
5.                  LRSlopeEnd(0),
   
6.                  LRStdDevEnd(0),
   
7.                  LRValueBeg(0),
   
8.                  PlotBarsBack(0),
   
9.                  LRChanWidth(0);
   
10. 
    
11.     LRValueEnd = LinearRegValue(close, Periods, 0);
    
12.     LRSlopeEnd = LinearRegSlope(close, Periods);
    
13.     LRStdDevEnd = stddev(close, Periods);
    
14.     {
    
15.     Print(file("X:\omega\i_LRPrc.log"),Date, BarNumber, " Close ", Close, "
    
16. LRVal ", LRValueEnd, " LRSlp ", LRSlopeEnd, " LRStd ", LRStdDevEnd);
    
17.     }
    
18.     if date = LastCalcDate then begin
    
19.         {Plot end of last LR period)}
    
20.         PlotBarsBack = 0;
    
21.         LRChanWidth = (2 * LRStdDevEnd[PlotBarsBack]);
    
22.         plot1[PlotBarsBack](LRValueEnd[PlotBarsBack],"LRP Short");
    
23.         plot2[PlotBarsBack]((LRValueEnd + LRChanWidth)[PlotBarsBack],"LRP SUpper");
    
24.         plot3[PlotBarsBack]((LRValueEnd - LRChanWidth)[PlotBarsBack],"LRP SLower");
    
25.         {Plot begin of last LR period)}
    
26.         LRValueBeg = LRValueEnd[PlotBarsBack] + ((Periods-1) *
    
27. (LRSlopeEnd[PlotBarsBack] * -1));
    
28.         PlotBarsBack = Periods - 1;
    
29.         plot1[PlotBarsBack](LRValueBeg, "LRP Short");
    
30.         plot2[PlotBarsBack]((LRValueBeg + LRChanWidth), "LRP SUpper");
    
31.         plot3[PlotBarsBack]((LRValueBeg - LRChanWidth), "LRP SLower");
    
32.         {Plot end of prev LR period)}
    
33.         plot4[Periods](LRValueEnd[Periods],"LRP S Prev");
    
34.         {Plot begin of last LR period)}
    
35.         LRValueBeg = LRValueEnd[Periods] + ((Periods-1) *
    
36. (LRSlopeEnd[Periods] * -1));
    
37.         PlotBarsBack = (Periods * 2) - 1;
    
38.         plot4[PlotBarsBack](LRValueBeg, "LRP S Prev");
    
39.     end;

复制代码