-
Notifications
You must be signed in to change notification settings - Fork 1
/
Equity-Drawdown.lua
102 lines (84 loc) · 4.23 KB
/
Equity-Drawdown.lua
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
------------------------------------------Overview------------------------------------------
-- Name: Equity Drawdown
-- Notes: Copyright (c) 2014 Jeremy Gulickson
-- Version: 1.1.11062014
-- Usage: Calculates and displays equity drawdown based on the current equity
-- compared to the user variable 'Equity High'.
--
-- Requirements: FXTS (FXCM Trading Station)
-- Download Link: http://download.fxcorporate.com/FXCM/FXTS2Install.EXE
-- Documentation: http://www.fxcodebase.com/documents/IndicoreSDK-2.3/web-content.html
--
---------------------------------------Version History--------------------------------------
-- v1.0.11062014: Initial release
-- v1.1.11062014: Updated default value for 'Nickname' to ""
-- Updated 'Format_Financial' function to add thousands separator
-- Added option to control precision for 'Format_Financial'
-- Added support for existing (though unused) option to control font color
--
--------------------------------------------------------------------------------------------
local Host;
local Account = {};
local Text = {};
function Init()
indicator:name("Equity Drawdown");
indicator:requiredSource(core.Bar);
indicator:type(core.Indicator);
indicator:setTag("group", "Statistics");
indicator.parameters:addGroup("Display Options");
indicator.parameters:addString("AccountName", "Account Number", "Select the account to monitor.", "");
indicator.parameters:setFlag("AccountName", core.FLAG_ACCOUNT);
indicator.parameters:addString("EquityHigh", "Equity High", "Enter the equity high of the account. Do not include a thousands separator.", "50000.00");
indicator.parameters:addString("Nickname", "Account Nickname", "Optional. Enter the nickname of account otherwise leave blank.", "");
indicator.parameters:addString("Precision", "Precision", "Select desired decimal precision", "0");
indicator.parameters:addStringAlternative("Precision", "0 decimal places", "", "0");
indicator.parameters:addStringAlternative("Precision", "2 decimal places", "", "2");
indicator.parameters:addColor("Color", "Color", "Select the color of the text.", core.rgb(255, 255, 255));
end
function Prepare()
Host = core.host;
Account.Name = instance.parameters.AccountName;
Account.EquityHigh = instance.parameters.EquityHigh;
Text.Nickname = instance.parameters.Nickname;
Text.Color = instance.parameters.Color;
Text.Precision = instance.parameters.Precision;
Text.Display = Text.Nickname .. " Drawdown from ".. Format_Financial(Account.EquityHigh, Text.Precision) ..": ";
instance:name(Text.Display);
-- Only used to set the color of the legend
Text.Legend = instance:createTextOutput ("O", "O", "Arial", 9, core.H_Center, core.V_Top, Text.Color, 0);
end
function Update()
Calculate_Account()
Host:execute("setStatus", tostring(Account.EquityDiffp .. " | " .. Account.EquityDiff));
end
function Calculate_Account()
if not(Host:execute("isTableFilled", "accounts")) then
-- Login does not contain any accounts or data is inaccessible.
error("No Accounts Found.");
end
Account.Table = Host:findTable("accounts");
Account.Row = Account.Table:find("AccountID", Account.Name);
if Account.Row ~= nil then
Account.Equity = Account.Row.Equity;
Account.EquityDiff = Format_Financial((Account.Equity - Account.EquityHigh), Text.Precision);
Account.EquityDiffp = Format_Percentage(((Account.Equity - Account.EquityHigh) / Account.EquityHigh * 100), 2);
else
-- Login does not contain the selected account or the selected account row is inaccessible.
-- Below error call will stop indicator.
error("Selected Account Not Found.");
end
end
function Format_Percentage(input, decimals)
return string.format("%." .. decimals .. "f", input) .. "%";
end
function Format_Financial (input, decimals)
-- Inspired by http://www.gammon.com.au/forum/?id=7805
input = string.format("%." .. decimals .. "f", input);
local result = ""
local sign, before, after = string.match (tostring (input), "^([%+%-]?)(%d*)(%.?.*)$")
while string.len (before) > 3 do
result = "," .. string.sub (before, -3, -1) .. result
before = string.sub (before, 1, -4)
end
return "$" .. sign .. before .. result .. after;
end