[通达信指标]江恩系列3 斐波那契数列

HDAY:=20;

LDAY:=20;

NNS:=70;

NNX:=70;

DIANWEI:=3;

CURR:=CURRBARSCOUNT;

TCH:=CONST(FINDHIGH(H,0,HDAY*10,1));

GTT:=CONST(BARSLAST(TCH=H))+1;

SXDIEH:=CONST(IF(GTT=1,H,REF(H,GTT-1)));

BCL:=CONST(FINDLOW(L,0,LDAY*10,1));

DTT:=CONST(BARSLAST(BCL=L))+1;

SXZHANGL:=CONST(IF(DTT=1,L,REF(L,DTT-1)));

ZHANGDD:=BARSSINCE(BACKSET(ISLASTBAR,BARSLAST(L=SXZHANGL)+1));

DIEDD:=BARSSINCE(BACKSET(ISLASTBAR,BARSLAST(H=SXDIEH)+1));

ZLLL:=IF(DIANWEI=1,DIEDD,IF(DIANWEI=2,ZHANGDD,IF(DIANWEI=3,ZHANGDD,DIEDD)));

LXILV:=NNX/IF(C<300,1000,10);

ZHHH:=IF(DIANWEI=1,DIEDD,IF(DIANWEI=2,ZHANGDD,IF(DIANWEI=3,DIEDD,ZHANGDD)));

HXILV:=NNS/IF(C<300,1000,10);

IM68:=((SXDIEH-SXZHANGL)/8-(SXDIEH-SXZHANGL)/8);

GHDIEX:=SXDIEH+(SXDIEH-SXZHANGL)/8;

DLZHANGX:=SXZHANGL-(SXDIEH-SXZHANGL)/8;

GTHT:=IF(DTT>GTT,DTT,GTT);

R:=ABS(GTT-DTT);

DHH:DRAWBAND(IF(CURR<=GTHT,SXDIEH,DRAWNULL),RGB(0,120,120),SXDIEH,RGB(8,168,168));

DLL:DRAWBAND(IF(CURR<=GTHT,SXZHANGL,DRAWNULL),RGB(0,120,120),SXZHANGL,RGB(0,160,160));

STICKLINE(CURRBARSCOUNT=GTT,SXDIEH,SXZHANGL,0,0),COLOR556600;

STICKLINE(CURRBARSCOUNT=DTT,SXDIEH,SXZHANGL,0,0),COLOR666666;

STICKLINE(CURRBARSCOUNT=1,SXDIEH,SXZHANGL,0,0),COLOR556600;

X146:IF(CURR<=GTHT,SXDIEH-(SXDIEH-SXZHANGL)*0.146,DRAWNULL),DOTLINE,COLOR556600;

DRAWTEXT(CURR=GTHT,(X146)*1.001,STRCAT(‘ 0.146%% ‘,CON2STR(X146,3))),COLOR889900;

X191:IF(CURR<=GTHT,SXDIEH-(SXDIEH-SXZHANGL)*0.191,DRAWNULL),DOTLINE,COLOR556600;

DRAWTEXT(CURR=GTHT,(X191)*1.001,STRCAT(‘ 0.191%% ‘,CON2STR(X191,3))),COLOR889900;

X236:IF(CURR<=GTHT,SXDIEH-(SXDIEH-SXZHANGL)*0.236,DRAWNULL),DOTLINE,COLOR556600;

DRAWTEXT(CURR=GTHT,(X236)*1.001,STRCAT(‘ 0.236%% ‘,CON2STR(X236,3))),COLOR889900;

X382:IF(CURR<=GTHT,SXDIEH-(SXDIEH-SXZHANGL)*0.382,DRAWNULL),DOTLINE,COLOR556600;

DRAWTEXT(CURR=GTHT,(X382)*1.001,STRCAT(‘ 0.382%% ‘,CON2STR(X382,3))),COLOR889900;

X500:IF(CURR<=GTHT,SXDIEH-(SXDIEH-SXZHANGL)*0.500,DRAWNULL),DOTLINE,COLOR556600;

DRAWTEXT(CURR=GTHT,(X500)*1.001,STRCAT(‘ 0.500%% ‘,CON2STR(X500,3))),COLOR889900;

X618:IF(CURR<=GTHT,SXDIEH-(SXDIEH-SXZHANGL)*0.618,DRAWNULL),DOTLINE,COLOR556600;

DRAWTEXT(CURR=GTHT,(X618)*1.001,STRCAT(‘ 0.618%% ‘,CON2STR(X618,3))),COLOR889900;

X764:IF(CURR<=GTHT,SXDIEH-(SXDIEH-SXZHANGL)*0.764,DRAWNULL),DOTLINE,COLOR556600;

DRAWTEXT(CURR=GTHT,(X764)*1.001,STRCAT(‘ 0.764%% ‘,CON2STR(X764,3))),COLOR889900;

X809:IF(CURR<=GTHT,SXDIEH-(SXDIEH-SXZHANGL)*0.809,DRAWNULL),DOTLINE,COLOR556600;

DRAWTEXT(CURR=GTHT,(X809)*1.001,STRCAT(‘ 0.809%% ‘,CON2STR(X809,3))),COLOR889900;

X854:IF(CURR<=GTHT,SXDIEH-(SXDIEH-SXZHANGL)*0.854,DRAWNULL),DOTLINE,COLOR556600;

DRAWTEXT(CURR=GTHT,(X854)*1.001,STRCAT(‘ 0.854%% ‘,CON2STR(X854,3))),COLOR889900;

DRAWTEXT(CURRBARSCOUNT=GTT,SXDIEH*1.02,’斐波那契下DIE周期’),COLOR00FF00;

DRAWTEXT(CURRBARSCOUNT=GTT,SXDIEH*1.01,’1′),COLOR00FF00;

STICKLINE(CURRBARSCOUNT=GTT-2,SXDIEH,SXZHANGL,0,0),COLOR556600;

DRAWTEXT(CURRBARSCOUNT=GTT-2,SXDIEH*1.01,’3′),COLOR00FF00;

STICKLINE(CURRBARSCOUNT=GTT-4,SXDIEH,SXZHANGL,0,0),COLOR556600;

DRAWTEXT(CURRBARSCOUNT=GTT-4,SXDIEH*1.01,’5′),COLOR00FF00;

STICKLINE(CURRBARSCOUNT=GTT-7,SXDIEH,SXZHANGL,0,0),COLOR556600;

DRAWTEXT(CURRBARSCOUNT=GTT-7,SXDIEH*1.01,’8′),COLOR00FF00;

STICKLINE(CURRBARSCOUNT=GTT-12,SXDIEH,SXZHANGL,0,0),COLOR556600;

DRAWTEXT(CURRBARSCOUNT=GTT-12,SXDIEH*1.01,’13’),COLOR00FF00;

STICKLINE(CURRBARSCOUNT=GTT-20,SXDIEH,SXZHANGL,0,0),COLOR556600;

DRAWTEXT(CURRBARSCOUNT=GTT-20,SXDIEH*1.01,’21’),COLOR00FF00;

STICKLINE(CURRBARSCOUNT=GTT-33,SXDIEH,SXZHANGL,0,0),COLOR556600;

DRAWTEXT(CURRBARSCOUNT=GTT-33,SXDIEH*1.01,’34 ‘),COLOR00FF00;

STICKLINE(CURRBARSCOUNT=GTT-54,SXDIEH,SXZHANGL,0,0),COLOR556600;

DRAWTEXT(CURRBARSCOUNT=GTT-54,SXDIEH*1.01,’55’),COLOR00FF00;

STICKLINE(CURRBARSCOUNT=GTT-67,SXDIEH,SXZHANGL,0,0),COLOR556600;

DRAWTEXT(CURRBARSCOUNT=GTT-67,SXDIEH*1.01,’68’),COLOR00FF00;

STICKLINE(CURRBARSCOUNT=GTT-88,SXDIEH,SXZHANGL,0,0),COLOR556600;

DRAWTEXT(CURRBARSCOUNT=GTT-88,SXDIEH*1.01,’89’),COLOR00FF00;

STICKLINE(CURRBARSCOUNT=GTT-109,SXDIEH,SXZHANGL,0,0),COLOR556600;

DRAWTEXT(CURRBARSCOUNT=GTT-109,SXDIEH*1.01,’110′),COLOR00FF00;

STICKLINE(CURRBARSCOUNT=GTT-143,SXDIEH,SXZHANGL,0,0),COLOR556600;

DRAWTEXT(CURRBARSCOUNT=GTT-143,SXDIEH*1.01,’144′),COLOR00FF00;

DRAWTEXT(CURRBARSCOUNT=DTT,SXZHANGL*0.96,’斐波那契上升周期’),COLOR0000FF;

DRAWTEXT(CURRBARSCOUNT=DTT,SXZHANGL*0.98,’1′),COLOR0000FF;

STICKLINE(CURRBARSCOUNT=DTT-2,SXDIEH,SXZHANGL,0,0),COLORAA00AA;

DRAWTEXT(CURRBARSCOUNT=DTT-2,SXZHANGL*0.98,’3′),COLOR0000FF;

STICKLINE(CURRBARSCOUNT=DTT-4,SXDIEH,SXZHANGL,0,0),COLORAA00AA;

DRAWTEXT(CURRBARSCOUNT=DTT-4,SXZHANGL*0.98,’5′),COLOR0000FF;

STICKLINE(CURRBARSCOUNT=DTT-7,SXDIEH,SXZHANGL,0,0),COLORAA00AA;

DRAWTEXT(CURRBARSCOUNT=DTT-7,SXZHANGL*0.98,’8′),COLOR0000FF;

STICKLINE(CURRBARSCOUNT=DTT-12,SXDIEH,SXZHANGL,0,0),COLORAA00AA;

DRAWTEXT(CURRBARSCOUNT=DTT-12,SXZHANGL*0.98,’13’),COLOR0000FF;

STICKLINE(CURRBARSCOUNT=DTT-20,SXDIEH,SXZHANGL,0,0),COLORAA00AA;

DRAWTEXT(CURRBARSCOUNT=DTT-20,SXZHANGL*0.98.01,’21’),COLOR0000FF;

STICKLINE(CURRBARSCOUNT=DTT-33,SXDIEH,SXZHANGL,0,0),COLORAA00AA;

DRAWTEXT(CURRBARSCOUNT=DTT-33,SXZHANGL*0.98,’34’),COLOR0000FF;

STICKLINE(CURRBARSCOUNT=DTT-54,SXDIEH,SXZHANGL,0,0),COLORAA00AA;

DRAWTEXT(CURRBARSCOUNT=DTT-54,SXZHANGL*0.98,’55’),COLOR0000FF;

STICKLINE(CURRBARSCOUNT=DTT-67,SXDIEH,SXZHANGL,0,0),COLORAA00AA;

DRAWTEXT(CURRBARSCOUNT=DTT-67,SXZHANGL*0.98,’68’),COLOR0000FF;

STICKLINE(CURRBARSCOUNT=DTT-88,SXDIEH,SXZHANGL,0,0),COLORAA00AA;

DRAWTEXT(CURRBARSCOUNT=DTT-88,SXZHANGL*0.98,’89’),COLOR0000FF;

STICKLINE(CURRBARSCOUNT=DTT-109,SXDIEH,SXZHANGL,0,0),COLORAA00AA;

DRAWTEXT(CURRBARSCOUNT=DTT-109,SXZHANGL*0.98,’110′),COLOR0000FF;

STICKLINE(CURRBARSCOUNT=DTT-143,SXDIEH,SXZHANGL,0,0),COLORAA00AA;

DRAWTEXT(CURRBARSCOUNT=DTT-143,SXZHANGL*0.98,’144′),COLOR0000FF;