SierraChart/LRS.cpp at main · TraderOracle/SierraChart · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
#include "sierrachart.h"

SCDLLName("Linear Regressive Slope with Color")

SCSFExport scsf_LinearRegSlopeWithColor(SCStudyInterfaceRef sc)
{
    SCInputRef Length = sc.Input[0];
    SCInputRef OuterEdge = sc.Input[1];
    SCInputRef SlopeLineColorAboveThreshold = sc.Input[2];
    SCInputRef SlopeLineColorBelowThreshold = sc.Input[3];
    SCInputRef SlopeLineColorNormal = sc.Input[4];

    SCFloatArrayRef LinearRegSlope = sc.Subgraph[0].Data;
    SCSubgraphRef LineZero = sc.Subgraph[0];
    SCSubgraphRef BackColor = sc.Subgraph[1];
    SCSubgraphRef Histogram = sc.Subgraph[2];
    SCSubgraphRef Smoothed = sc.Subgraph[3];
    SCSubgraphRef Smoothed2 = sc.Subgraph[4];
    SCSubgraphRef SlopeLine = sc.Subgraph[5];

    if (sc.SetDefaults)
    {
        sc.GraphName = "DaveC's LRS";
        sc.StudyDescription = "DaveC's LRS";

        Length.Name = "Length";
        Length.SetInt(20);
        Length.SetIntLimits(1, MAX_STUDY_LENGTH);

        SlopeLineColorNormal.Name = "Normal Color";
        SlopeLineColorNormal.SetColor(RGB(100, 100, 100));

        SlopeLineColorAboveThreshold.Name = "Color Above Threshold";
        SlopeLineColorAboveThreshold.SetColor(RGB(0, 255, 0));

        SlopeLineColorBelowThreshold.Name = "Color Below Threshold";
        SlopeLineColorBelowThreshold.SetColor(RGB(255, 0, 0));

        OuterEdge.Name = "Outer Extreme";
        OuterEdge.SetFloat(4);

        sc.AutoLoop = 1;
        sc.GraphRegion = 1;

        return;
    }

    BackColor.Name = "Background on Cross";
    BackColor.DrawStyle = DRAWSTYLE_BACKGROUND_TRANSPARENT;
    BackColor.PrimaryColor = RGB(255, 0, 0);
    BackColor.LineWidth = 5;

    LineZero.Name = "Zero Line";
    LineZero.DrawStyle = DRAWSTYLE_LINE;
    LineZero.PrimaryColor = RGB(255, 255, 255);
    LineZero.LineWidth = 2;
    LineZero.DrawZeros = true;

    Histogram.Name = "Histogram";
    Histogram.DrawStyle = DRAWSTYLE_BAR_BOTTOM;
    Histogram.PrimaryColor = RGB(80, 80, 80);
    Histogram.LineWidth = 7;
    Histogram.DrawZeros = false;

    Smoothed.Name = "Smoothed";
    Smoothed.DrawStyle = DRAWSTYLE_IGNORE;
    Smoothed.DrawZeros = false;

    SlopeLine.Name = "Linear Regressive Slope";
    SlopeLine.DrawStyle = DRAWSTYLE_LINE;
    SlopeLine.PrimaryColor = SlopeLineColorNormal.GetColor();
    SlopeLine.LineWidth = 3;

    // Linear Regression Slope
    // lrs = (lrc - lrc[1]) / 1
    sc.LinearRegressionSlope(sc.BaseDataIn[SC_LAST], LinearRegSlope, sc.Index, Length.GetInt());

    // Smooth Linear Regression Slope
    // slrs = ta.ema(lrs, slen)
    sc.MovingAverage(LinearRegSlope, Smoothed, MOVAVGTYPE_EXPONENTIAL, 4);

    // Signal Linear Regression Slope
    // alrs = ta.sma(slrs, glen)
    sc.MovingAverage(Smoothed, Histogram, MOVAVGTYPE_SIMPLE, 14);

    // uacce = lrs > alrs and lrs > 0
    if (LinearRegSlope[sc.Index] > Histogram[sc.Index] && LinearRegSlope[sc.Index - 1] > 0)
        Histogram.DataColor[sc.Index] = RGB(0, 182, 30);
    // dacce = lrs < alrs and lrs < 0
    else if (LinearRegSlope[sc.Index] < Histogram[sc.Index] && LinearRegSlope[sc.Index - 1] < 0)
        Histogram.DataColor[sc.Index] = RGB(180, 18, 0);
    else
        Histogram.DataColor[sc.Index] = RGB(88, 88, 88);

    if (LinearRegSlope[sc.Index] > 0 && LinearRegSlope[sc.Index - 1] < 0)
    {
        BackColor[sc.Index] = 1;
        BackColor.DataColor[sc.Index] = SlopeLineColorAboveThreshold.GetColor();
    }
    else if (LinearRegSlope[sc.Index] < 0 && LinearRegSlope[sc.Index - 1] > 0)
    {
        BackColor[sc.Index] = 1;
        BackColor.DataColor[sc.Index] = SlopeLineColorBelowThreshold.GetColor();
    }
    else
        BackColor[sc.Index] = 0;

    if (LinearRegSlope[sc.Index] > OuterEdge.GetFloat())
    {
	    SlopeLine.LineWidth = 4;
        SlopeLine.DataColor[sc.Index] = SlopeLineColorAboveThreshold.GetColor();
        Histogram.DataColor[sc.Index] = SlopeLineColorAboveThreshold.GetColor();
    }
    else if (LinearRegSlope[sc.Index] < OuterEdge.GetFloat() * -1)
    {
	    SlopeLine.LineWidth = 4;
        SlopeLine.DataColor[sc.Index] = SlopeLineColorBelowThreshold.GetColor();
        Histogram.DataColor[sc.Index] = SlopeLineColorBelowThreshold.GetColor();
    }
    else
    {
        SlopeLine.DataColor[sc.Index] = SlopeLineColorNormal.GetColor();
    }
}