-
Notifications
You must be signed in to change notification settings - Fork 2
/
Variacoes.src
70 lines (70 loc) · 1.83 KB
/
Variacoes.src
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
input
Close0_Open1_Max2_Min3_Aju4 (0000.0);
Variacao_1 (0.005);
Variacao_2 (0.01);
var
nFechamento, nAbertura, nMaxima, nMinima, nAjuste, nValor, nVariacao1, nVariacao2: float;
begin
nFechamento:= priorcote(0);
nAbertura:= priorcote(1);
nMaxima:= priorcote(2);
nMinima:= priorcote(3);
nAjuste:= priorcote(4);
nValor:= Close0_Open1_Max2_Min3_Aju4;
nVariacao1:= -Variacao_1;
nVariacao2:= -Variacao_2;
if (nValor = 0) then
begin
Plot (nfechamento + (nfechamento * (Variacao_1)));
Plot2(nfechamento + (nfechamento * (Variacao_2)));
Plot3(nfechamento + (nfechamento * (-Variacao_1)));
Plot4(nfechamento + (nfechamento * (-Variacao_2)));
end
else if (nValor = 1) then
begin
Plot (nAbertura + (nAbertura * (Variacao_1)));
Plot2(nAbertura + (nAbertura * (Variacao_2)));
Plot3(nAbertura + (nAbertura * (-Variacao_1)));
Plot4(nAbertura + (nAbertura * (-Variacao_2)));
end
else if (nValor = 2) then
begin
Plot (nMaxima + (nMaxima * (Variacao_1)));
Plot2(nMaxima + (nMaxima * (Variacao_2)));
Plot3(nMaxima + (nMaxima * (-Variacao_1)));
Plot4(nMaxima + (nMaxima * (-Variacao_2)));
end
else if (nValor = 3) then
begin
Plot (nMinima + (nMinima * (Variacao_1)));
Plot2(nMinima + (nMinima * (Variacao_2)));
Plot3(nMinima + (nMinima * (-Variacao_1)));
Plot4(nMinima + (nMinima * (-Variacao_2)));
end
else if (nValor = 4) then
begin
Plot (nAjuste + (nAjuste * (Variacao_1)));
Plot2(nAjuste + (nAjuste * (Variacao_2)));
Plot3(nAjuste + (nAjuste * (-Variacao_1)));
Plot4(nAjuste + (nAjuste * (-Variacao_2)));
end
else if (nValor > 4) then
begin
Plot (nValor + (nValor * (Variacao_1)));
Plot2 (nValor + (nValor * (Variacao_2)));
Plot3 (nValor + (nValor * (-Variacao_1)));
Plot4 (nValor + (nValor * (-Variacao_2)));
end;
if (bartype > 1 ) then
begin
NoPlot(1);
NoPlot(2);
NoPlot(3);
NoPlot(4);
end;
end;
// 0 Fechamento
// 1 Abertura
// 2 Maxima
// 3 Minima
// 4 Ajuste