威廉多空力度線

函數腳本

複製
1SetBarMode(2);
2
3{
4XQ: WA/D 指標
5}
6
7variable: wadt(0), adt(0);
8
9if CurrentBar = 1 then
10 wadt = 0
11else
12 begin
13 if close = close[1] then
14 adt = 0
15 else
16 begin
17 if close < close[1] then
18 adt = close - TrueHigh
19 else
20 adt = close - TrueLow;
21 end;
22
23 wadt = adt + wadt[1];
24 end;
25
26WAD = wadt;
SetBarMode(2);

{
XQ: WA/D 指標
}

variable: wadt(0), adt(0);

if CurrentBar = 1 then
 wadt = 0
else
 begin
 if close = close[1] then
 adt = 0
 else
 begin
 if close < close[1] then
 adt = close - TrueHigh
 else
 adt = close - TrueLow;
 end;

 wadt = adt + wadt[1];
 end;

WAD = wadt;

指標腳本

複製
1// XQ: WA/D 指標
2//
3
4variable: wad(0), _ad(0);
5
6if CurrentBar = 1 then
7 wad = 0
8else
9 begin 
10 if close = close[1] then
11 _ad = 0
12 else 
13 begin
14 if close < close[1] then
15 _ad = close - TrueHigh
16 else { close > close[1] }
17 _ad = close - TrueLow;
18 end;
19
20 wad = _ad + wad[1];
21 end;
22 
23Plot1(wad, "WA/D");
// XQ: WA/D 指標
//

variable: wad(0), _ad(0);

if CurrentBar = 1 then
 wad = 0
else
 begin 
 if close = close[1] then
 _ad = 0
 else 
 begin
 if close < close[1] then
 _ad = close - TrueHigh
 else { close > close[1] }
 _ad = close - TrueLow;
 end;

 wad = _ad + wad[1];
 end;
 
Plot1(wad, "WA/D");

參考圖