黄金分割、斐波那契周期、江恩角度主图(The golden section, Fibonacci cycle, Gann angle of the main map)
黄金分割、斐波那契周期、江恩角度主图(The golden section,
Fibonacci cycle, Gann angle of the main map)
(drawgbk (c > 0, rgb (220220220) rgb (220220220), 10, 12, 0)}
(hday 2 96 20
invest 20 lday 2
上角度 1 9999 70
下角度 1 9999 70
调点 1 4 3
curr = currbarscount.
ch: = const (findhigh (h, 0, hday (10.1).
gtt: = const (barslast (ch = (h) + 1).
sx跌h = const * (gtt = 1, h ref (h, the twg (- 1)).
bcl:: = const (findlow (l, 0, lday * 10.1).
bar: = const (barslast (bcl = (l) + 1).
sx涨l) (if (= '= 1, l, ref (dtt));
涨点 = barssince (backset (islastbar, barslast (l = sx涨l) +
1).
跌点 = barssince (backset (islastbar, barslast (h = sx跌h) +
1).
最低: = if (调点 = 1, 跌点, if (调点 = 2, 涨点, if (调点 = 3, 涨点, 跌点));
l斜率 = 下角度 / if (c < 3001000,10).
最高: = if (调点 = 1, 跌点, if (调点 = 2, 涨点, if (调点 = 3, 跌点, 涨点));
h斜率 = 上角度 / if (c < 3001000,10).
im68: = ((sx跌h - sx涨l) / 8 (sx跌h - sx涨l) / 8);
gh跌x = sx跌h + (sx跌h - sx涨l) / 8.
dl涨x = sx涨l (sx跌h - sx涨l) / 8.
gtht: = if (dtt) technical working group (twg), dtt, ttg).
r: = abs (twg (dtt).
1965: drawband (fi (curr = gtht, sx跌h, drawnull) rgb (0120120), sx跌h, rgb (8168168).
dll: if drawband (curr = gtht, sx涨l, drawnull) rgb (0120120), sx涨l, rgb (0160160).
stickline (currbarscount = gtt, sx跌h, sx涨l color556600,
0.0).
stickline (currbarscount = ', sx跌h, sx涨l color666666, 0.0).
stickline (currbarscount = 1, sx跌h, sx涨l color556600, 0.0).
天线 = sx跌h.
地线 = sx涨l.
k: = (天线 - 地线) (if (> = 涨点 跌点, 跌点, 涨点) - if (跌点 > = 涨点, 涨点, 跌点).
上斜线: = if (地线 + const (l斜率 * * * 最低 > = 地线, 地线 + const (l斜率 * * * 最低, drawnull).
上斜线0: = if (地线 + const (l斜率 * 2.00) 最低 > = 地线, 地线 + const (l斜率 * 2.00) 最低, drawnull).
上斜线1: = if (地线 + const (l斜率 * 1.5 * 最低 > = 地线, 地线 + const (l斜率 * 1.5 * 最低, drawnull).
上斜线2: = if (+) (- 地线 l斜率 * * 最低 > = 地线, 地线 + const (l斜率 * 1000 * 最低, drawnull).
上斜线3: = if (地线 + const (l斜率 * * 最低 = 0.70) 地线, 地线 + const (l斜率 * 0.7 * 最低, drawnull).
上斜线4: = if (地线 + const (l斜率 * 0.50) 最低 > = 地线, 地线 + const (l斜率 * 0.50) 最低, drawnull).
上斜线5: = if (地线 + const (l斜率 * 0.365) 最低 > = 地线, 地线 + const (l斜率 * * 最低 0.365), drawnull).
上斜线6: = if (地线 + const (l斜率 * 0.250) 最低 > = 地线, 地线 + const (l斜率 * * 最低 0.250), drawnull).
上斜线7: = if (地线 + const (l斜率 * 0.165) 最低 > = 地线, 地线 + const (l斜率 * * 最低 0.165), drawnull).
上斜线8: = if (地线 + const (l斜率 * 0.123) 最低 > = 地线, 地线 + const (l斜率 * * 最低 0.123), drawnull).
上斜线9: = if (地线 + const (l斜率 * * 最低 = 0.06) 地线, 地线 + const (l斜率 - 0.06) 最低, drawnull).
上9: if (上斜线9 天线 * = 1.05, 上斜线9, drawnull), coloraa00aa, dotline.
上8: if (上斜线8 天线 * = 1.05, 上斜线8, drawnull), coloraa00aa, dotline.
上7: if (上斜线7 天线 * = 1.05, 上斜线7, drawnull), coloraa00aa, dotline.
上6: if (上斜线6 天线 * = 1.05, 上斜线6, drawnull), coloraa00aa, dotline.
上5: if (上斜线5 天线 * = 1.05, 上斜线5, drawnull), coloraa00aa, dotline.
上4: if (上斜线4 天线 * = 1.05, 上斜线4, drawnull),
color0000ff, dotline.
上3: if (上斜线3 天线 * = 1.05, 上斜线3, drawnull),
coloraa00aa, dotline.
上2: if (上斜线2 天线 * = 1.05, 上斜线2, drawnull),
coloraa00aa, dotline.
上1: if (上斜线1 天线 * = 1.05, 上斜线1, drawnull),
coloraa00aa, dotline.
上0: if (上斜线0 天线 * = 1.05, 上斜线0, drawnull),
coloraa00aa, dotline.
上: if (上斜线 天线 * = 1.05, 上斜线, drawnull), coloraa00aa,
dotline.
Under the slash: =IF (antenna -CONST (H slope *4.00) * highest antenna antenna -CONST (H < =, slope *4.00) * maximum, DRAWNULL);
Under the 0:=IF (slash antenna -CONST (H slope *2.00) * highest antenna antenna -CONST (H < =, slope *2.00) * maximum, DRAWNULL);
Under the 1:=IF (slash antenna -CONST (H slope *1.500) * highest antenna antenna -CONST (H < =, slope *1.500) * maximum, DRAWNULL);
Under the 2:=IF (slash antenna -CONST (H slope *1.000) * highest antenna antenna -CONST (H < =, slope *1.000) * maximum,
DRAWNULL);
Under the 3:=IF (slash antenna -CONST (H slope *0.70) * highest antenna antenna -CONST (H < =, slope *0.70) * maximum, DRAWNULL);
Under the 4:=IF (slash antenna -CONST (H slope *0.50) * highest antenna antenna -CONST (H < =, slope *0.50) * maximum, DRAWNULL);
Under the 5:=IF (slash antenna -CONST (H slope *0.365) * highest antenna antenna -CONST (H < =, slope *0.365) * maximum, DRAWNULL);
Under the 6:=IF (slash antenna -CONST (H slope *0.250) * highest antenna antenna -CONST (H < =, slope *0.250) * maximum, DRAWNULL);
Under the 7:=IF (slash antenna -CONST (H slope *0.165) * highest antenna antenna -CONST (H < =, slope *0.165) * maximum, DRAWNULL);
Under the 8:=IF (slash antenna -CONST (H slope *0.123) * highest antenna antenna -CONST (H < =, slope *0.123) * maximum, DRAWNULL);
Under the 9:=IF (slash antenna -CONST (H slope *0.06) * highest antenna antenna -CONST (H < =, slope *0.06) * maximum, DRAWNULL);
Lower 9:IF (lower slash, 9>= ground, *0.95, lower slash 9,
DRAWNULL), COLORAAAAAA, DOTLINE;
Lower 8:IF (lower slash, 8>= ground, *0.95, lower slash 8, DRAWNULL), COLORAAAAAA, DOTLINE;
Lower 7:IF (lower slash, 7>= ground, *0.95, lower slash 7, DRAWNULL), COLORAAAAAA, DOTLINE;
Lower 6:IF (lower slash, 6>= ground, *0.95, lower slash 6, DRAWNULL), COLORAAAAAA, DOTLINE;
Lower 5:IF (lower slash, 5>= ground, *0.95, lower slash 5, DRAWNULL), COLORAAAAAA, DOTLINE;
Lower 4:IF (lower slash, 4>= ground, *0.95, lower slash 4, DRAWNULL), COLOR0000FF, DOTLINE;
Lower 3:IF (lower slash, 3>= ground, *0.95, lower slash 3, DRAWNULL), COLORAAAAAA, DOTLINE;
Lower 2:IF (lower slash, 2>= ground, *0.95, lower slash 2, DRAWNULL), COLORAAAAAA, DOTLINE;
Lower 1:IF (lower slash, 1>= ground, *0.95, lower slash 1, DRAWNULL), COLORAAAAAA, DOTLINE;
Lower 0:IF (lower slash, 0>= ground, *0.95, lower slash 0, DRAWNULL), COLORAAAAAA, DOTLINE;
: IF (under ground *0.95 > = slash, slash under, DRAWNULL, COLORAAAAAA, DOTLINE);
{golden section}
X146:IF (CURR<=GTHT, SX, fall H- (SX, fall, H-SX up, L), *0.146, DRAWNULL), DOTLINE, COLOR556600;
DRAWTEXT (CURR=GTHT, (X146) *1.001, STRCAT (` 0.146%% ', CON2STR (X146,3)), COLOR889900;
X191:IF (CURR<=GTHT, SX, fall H- (SX, fall, H-SX up, L), *0.191, DRAWNULL), DOTLINE, COLOR556600;
DRAWTEXT (CURR=GTHT, (X191) *1.001, STRCAT (` 0.191%% ', CON2STR (X191,3)), COLOR889900;
X236:IF (CURR<=GTHT, SX, fall H- (SX, fall, H-SX up, L), *0.236, DRAWNULL), DOTLINE, COLOR556600;
DRAWTEXT (CURR=GTHT, (X236) *1.001, STRCAT (` 0.236%% ', CON2STR (X236,3)), COLOR889900;
X382:IF (CURR<=GTHT, SX, fall H- (SX, fall, H-SX up, L), *0.382, DRAWNULL), DOTLINE, COLOR556600;
DRAWTEXT (CURR=GTHT, (X382) *1.001, STRCAT (` 0.382%% ', CON2STR (X382,3)), COLOR889900;
X500:IF (CURR<=GTHT, SX, fall H- (SX, fall, H-SX up, L), *0.500, DRAWNULL), DOTLINE, COLOR556600;
DRAWTEXT (CURR=GTHT, (X500) *1.001, STRCAT (` 0.500%% ',
CON2STR (X500,3)), COLOR889900;
X618:IF (CURR<=GTHT, SX, fall H- (SX, fall, H-SX up, L), *0.618, DRAWNULL), DOTLINE, COLOR556600;
DRAWTEXT (CURR=GTHT, (X618) *1.001, STRCAT (` 0.618%% ', CON2STR (X618,3)), COLOR889900;
X764:IF (CURR<=GTHT, SX, fall H- (SX, fall, H-SX up, L), *0.764, DRAWNULL), DOTLINE, COLOR556600;
DRAWTEXT (CURR=GTHT, (X764) *1.001, STRCAT (` 0.764%% ', CON2STR (X764,3)), COLOR889900;
X809:IF (CURR<=GTHT, SX, fall H- (SX, fall, H-SX up, L), *0.809, DRAWNULL), DOTLINE, COLOR556600;
DRAWTEXT (CURR=GTHT, (X809) *1.001, STRCAT (0.809%% ', CON2STR (X809,3)),
COLOR889900;
X854:IF (CURR<=GTHT, SX, fall H- (SX, fall, H-SX up, L), *0.854, DRAWNULL), DOTLINE, COLOR556600;
DRAWTEXT (CURR=GTHT, (X854) *1.001, STRCAT (` 0.854%% ', CON2STR (X854,3)), COLOR889900;
{Fibonacci cycle}
DRAWTEXT (CURRBARSCOUNT=GTT, SX or H*1.02, 'COLOR00FF00', the
Fibonacci down cycle);
DRAWTEXT (CURRBARSCOUNT=GTT, SX, H*1.01,'1'), COLOR00FF00;
STICKLINE (CURRBARSCOUNT=GTT-2, SX, H, SX, L, 0,0), COLOR556600;
DRAWTEXT (CURRBARSCOUNT=GTT-2, SX, H*1.01,'3'), COLOR00FF00;
STICKLINE (CURRBARSCOUNT=GTT-4, SX, H, SX, L, 0,0), COLOR556600;
DRAWTEXT (CURRBARSCOUNT=GTT-4, SX, H*1.01,'5'), COLOR00FF00;
STICKLINE (CURRBARSCOUNT=GTT-7, SX, H, SX, L, 0,0), COLOR556600;
DRAWTEXT (CURRBARSCOUNT=GTT-7, SX, H*1.01,'8'), COLOR00FF00;
STICKLINE (CURRBARSCOUNT=GTT-12, SX, H, SX, L, 0,0), COLOR556600;
DRAWTEXT (CURRBARSCOUNT=GTT-12, SX, H*1.01,'13'), COLOR00FF00;
STICKLINE (CURRBARSCOUNT=GTT-20, SX, H, SX, L, 0,0), COLOR556600;
DRAWTEXT (CURRBARSCOUNT=GTT-20, SX, H*1.01,'21'), COLOR00FF00;
STICKLINE (CURRBARSCOUNT=GTT-33, SX, H, SX, L, 0,0), COLOR556600;
DRAWTEXT (CURRBARSCOUNT=GTT-33, SX, H*1.01,'34), COLOR00FF00;
STICKLINE (CURRBARSCOUNT=GTT-54, SX, H, SX, L, 0,0), COLOR556600;
DRAWTEXT (CURRBARSCOUNT=GTT-54, SX, H*1.01,'55'), COLOR00FF00;
STICKLINE (CURRBARSCOUNT=GTT-67, SX, H, SX, L, 0,0), COLOR556600;
DRAWTEXT (CURRBARSCOUNT=GTT-67, SX, H*1.01,'68'), COLOR00FF00;
STICKLINE (CURRBARSCOUNT=GTT-88, SX, H, SX, L, 0,0), COLOR556600;
DRAWTEXT (CURRBARSCOUNT=GTT-88, SX, H*1.01,'89'), COLOR00FF00;
STICKLINE (CURRBARSCOUNT=GTT-109, SX, H, SX, L, 0,0), COLOR556600;
DRAWTEXT (CURRBARSCOUNT=GTT-109, SX, H*1.01,'110'), COLOR00FF00;
STICKLINE (CURRBARSCOUNT=GTT-143, SX, H, SX, L, 0,0), COLOR556600;
DRAWTEXT (CURRBARSCOUNT=GTT-143, SX, H*1.01,'144'), COLOR00FF00;
DRAWTEXT (CURRBARSCOUNT=DTT, SX rose L*0.96, 'COLOR0000FF', Fibonacci upcycle);
DRAWTEXT (CURRBARSCOUNT=DTT, SX, up L*0.98,'1'), COLOR0000FF;
STICKLINE (CURRBARSCOUNT=DTT-2, SX, H, SX, L, 0,0), COLORAA00AA;
DRAWTEXT (CURRBARSCOUNT=DTT-2, SX, up L*0.98,'3'), COLOR0000FF;
STICKLINE (CURRBARSCOUNT=DTT-4, SX, H, SX, L, 0,0), COLORAA00AA;
DRAWTEXT (CURRBARSCOUNT=DTT-4, SX, up L*0.98,'5'), COLOR0000FF;
STICKLINE (CURRBARSCOUNT=DTT-7, SX, H, SX, L, 0,0), COLORAA00AA;
DRAWTEXT (CURRBARSCOUNT=DTT-7, SX, up L*0.98,'8'), COLOR0000FF;
STICKLINE (CURRBARSCOUNT=DTT-12, SX, H, SX, L, 0,0), COLORAA00AA;
DRAWTEXT (CURRBARSCOUNT=DTT-12, SX, up L*0.98,'13'),
COLOR0000FF;
STICKLINE (CURRBARSCOUNT=DTT-20, SX, H, SX, L, 0,0), COLORAA00AA;
DRAWTEXT (CURRBARSCOUNT=DTT-20, SX, up L*0.98.01,'21'), COLOR0000FF;
STICKLINE (CURRBARSCOUNT=DTT-33, SX, H, SX, L, 0,0), COLORAA00AA;
DRAWTEXT (CURRBARSCOUNT=DTT-33, SX, up L*0.98,'34'), COLOR0000FF;
STICKLINE (CURRBARSCOUNT=DTT-54, SX, H, SX, L, 0,0), COLORAA00AA;
DRAWTEXT (CURRBARSCOUNT=DTT-54, SX, up L*0.98,'55'), COLOR0000FF;
STICKLINE (CURRBARSCOUNT=DTT-67, SX, H, SX, L, 0,0), COLORAA00AA;
DRAWTEXT (CURRBARSCOUNT=DTT-67, SX, up L*0.98,'68'), COLOR0000FF;
STICKLINE (CURRBARSCOUNT=DTT-88, SX, H, SX, L, 0,0), COLORAA00AA;
DRAWTEXT (CURRBARSCOUNT=DTT-88, SX, up L*0.98,'89'), COLOR0000FF;
STICKLINE (CURRBARSCOUNT=DTT-109, SX, H, SX, L, 0,0),
COLORAA00AA;
DRAWTEXT (CURRBARSCOUNT=DTT-109,
SX涨×0.98,'110”),color0000ff;
STICKLINE(currbarscount = dtt-143,SX跌h,SX涨L,0,0),coloraa00aa;
DrawText(currbarscount = dtt-143,SX涨×0.98,144号”),color0000ff;