{江恩、費(fèi)氏、黃金分割}

HDAY:=20;

LDAY:=20;

上角度:=70;

下角度:=70;

調(diào)點(diǎn):=3;

CURR:=CURRBARSCOUNT;

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

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

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

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

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

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

漲點(diǎn):=BARSSINCE(BACKSET(ISLASTBAR,BARSLAST(L=SX漲L)+1));

跌點(diǎn):=BARSSINCE(BACKSET(ISLASTBAR,BARSLAST(H=SX跌H)+1));

最低:=IF(調(diào)點(diǎn)=1,跌點(diǎn),IF(調(diào)點(diǎn)=2,漲點(diǎn),IF(調(diào)點(diǎn)=3,漲點(diǎn),跌點(diǎn))));

L斜率:=下角度/IF(C<300,1000,10);

最高:=IF(調(diào)點(diǎn)=1,跌點(diǎn),IF(調(diào)點(diǎn)=2,漲點(diǎn),IF(調(diào)點(diǎn)=3,跌點(diǎn),漲點(diǎn))));

H斜率:=上角度/IF(C<300,1000,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>GTT,DTT,GTT);  

R:=ABS(GTT-DTT);

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

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

STICKLINE(CURRBARSCOUNT=GTT,SX跌H,SX漲L,0,0),COLOR556600;

STICKLINE(CURRBARSCOUNT=DTT,SX跌H,SX漲L,0,0),COLOR666666;

STICKLINE(CURRBARSCOUNT=1,SX跌H,SX漲L,0,0),COLOR556600;

天線:=SX跌H; 

地線:=SX漲L;

K:=(天線-地線)/(IF(跌點(diǎn)>=漲點(diǎn),跌點(diǎn),漲點(diǎn))-IF(跌點(diǎn)>=漲點(diǎn),漲點(diǎn),跌點(diǎn)));

上斜線:=IF(地線+CONST(L斜率*4.00)*最低>=地線,地線+CONST(L斜率*4.00)*最低,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(地線+CONST(L斜率*1.00)*最低>=地線,地線+CONST(L斜率*1.000)*最低,DRAWNULL);

上斜線3:=IF(地線+CONST(L斜率*0.70)*最低>=地線,地線+CONST(L斜率*0.70)*最低,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;

下斜線:=IF(天線-CONST(H斜率*4.00)*最高<=天線,天線-CONST(H斜率*4.00)*最高,DRAWNULL);

下斜線0:=IF(天線-CONST(H斜率*2.00)*最高<=天線,天線-CONST(H斜率*2.00)*最高,DRAWNULL);

下斜線1:=IF(天線-CONST(H斜率*1.500)*最高<=天線,天線-CONST(H斜率*1.500)*最高,DRAWNULL);

下斜線2:=IF(天線-CONST(H斜率*1.000)*最高<=天線,天線-CONST(H斜率*1.000)*最高,DRAWNULL);

下斜線3:=IF(天線-CONST(H斜率*0.70)*最高<=天線,天線-CONST(H斜率*0.70)*最高,DRAWNULL);

下斜線4:=IF(天線-CONST(H斜率*0.50)*最高<=天線,天線-CONST(H斜率*0.50)*最高,DRAWNULL);

下斜線5:=IF(天線-CONST(H斜率*0.365)*最高<=天線,天線-CONST(H斜率*0.365)*最高,DRAWNULL);

下斜線6:=IF(天線-CONST(H斜率*0.250)*最高<=天線,天線-CONST(H斜率*0.250)*最高,DRAWNULL);

下斜線7:=IF(天線-CONST(H斜率*0.165)*最高<=天線,天線-CONST(H斜率*0.165)*最高,DRAWNULL);

下斜線8:=IF(天線-CONST(H斜率*0.123)*最高<=天線,天線-CONST(H斜率*0.123)*最高,DRAWNULL);

下斜線9:=IF(天線-CONST(H斜率*0.06)*最高<=天線,天線-CONST(H斜率*0.06)*最高,DRAWNULL);

下9:IF(下斜線9>=地線*0.95,下斜線9,DRAWNULL),COLORAAAAAA,DOTLINE;

下8:IF(下斜線8>=地線*0.95,下斜線8,DRAWNULL),COLORAAAAAA,DOTLINE;

下7:IF(下斜線7>=地線*0.95,下斜線7,DRAWNULL),COLORAAAAAA,DOTLINE;

下6:IF(下斜線6>=地線*0.95,下斜線6,DRAWNULL),COLORAAAAAA,DOTLINE;

下5:IF(下斜線5>=地線*0.95,下斜線5,DRAWNULL),COLORAAAAAA,DOTLINE;

下4:IF(下斜線4>=地線*0.95,下斜線4,DRAWNULL),COLOR0000FF,DOTLINE;

下3:IF(下斜線3>=地線*0.95,下斜線3,DRAWNULL),COLORAAAAAA,DOTLINE;

下2:IF(下斜線2>=地線*0.95,下斜線2,DRAWNULL),COLORAAAAAA,DOTLINE;

下1:IF(下斜線1>=地線*0.95,下斜線1,DRAWNULL),COLORAAAAAA,DOTLINE;

下0:IF(下斜線0>=地線*0.95,下斜線0,DRAWNULL),COLORAAAAAA,DOTLINE;

下:IF(下斜線>=地線*0.95,下斜線,DRAWNULL),COLORAAAAAA,DOTLINE;

{黃金分割}

X146:IF(CURR<=GTHT,SX跌H-(SX跌H-SX漲L)*0.146,DRAWNULL),DOTLINE,COLOR556600;

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

X191:IF(CURR<=GTHT,SX跌H-(SX跌H-SX漲L)*0.191,DRAWNULL),DOTLINE,COLOR556600;

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

X236:IF(CURR<=GTHT,SX跌H-(SX跌H-SX漲L)*0.236,DRAWNULL),DOTLINE,COLOR556600;

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

X382:IF(CURR<=GTHT,SX跌H-(SX跌H-SX漲L)*0.382,DRAWNULL),DOTLINE,COLOR556600;

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

X500:IF(CURR<=GTHT,SX跌H-(SX跌H-SX漲L)*0.500,DRAWNULL),DOTLINE,COLOR556600;

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

X618:IF(CURR<=GTHT,SX跌H-(SX跌H-SX漲L)*0.618,DRAWNULL),DOTLINE,COLOR556600;

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

X764:IF(CURR<=GTHT,SX跌H-(SX跌H-SX漲L)*0.764,DRAWNULL),DOTLINE,COLOR556600;

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

X809:IF(CURR<=GTHT,SX跌H-(SX跌H-SX漲L)*0.809,DRAWNULL),DOTLINE,COLOR556600;

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

X854:IF(CURR<=GTHT,SX跌H-(SX跌H-SX漲L)*0.854,DRAWNULL),DOTLINE,COLOR556600;

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

{斐波那契周期}

DRAWTEXT(CURRBARSCOUNT=GTT,SX跌H*1.02,'斐波那契下跌周期'),COLOR00FF00;

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漲L*0.96,'斐波那契上升周期'),COLOR0000FF;

DRAWTEXT(CURRBARSCOUNT=DTT,SX漲L*0.98,'1'),COLOR0000FF;

STICKLINE(CURRBARSCOUNT=DTT-2,SX跌H,SX漲L,0,0),COLORAA00AA;

DRAWTEXT(CURRBARSCOUNT=DTT-2,SX漲L*0.98,'3'),COLOR0000FF;

STICKLINE(CURRBARSCOUNT=DTT-4,SX跌H,SX漲L,0,0),COLORAA00AA;

DRAWTEXT(CURRBARSCOUNT=DTT-4,SX漲L*0.98,'5'),COLOR0000FF;

STICKLINE(CURRBARSCOUNT=DTT-7,SX跌H,SX漲L,0,0),COLORAA00AA;

DRAWTEXT(CURRBARSCOUNT=DTT-7,SX漲L*0.98,'8'),COLOR0000FF;

STICKLINE(CURRBARSCOUNT=DTT-12,SX跌H,SX漲L,0,0),COLORAA00AA;

DRAWTEXT(CURRBARSCOUNT=DTT-12,SX漲L*0.98,'13'),COLOR0000FF;

STICKLINE(CURRBARSCOUNT=DTT-20,SX跌H,SX漲L,0,0),COLORAA00AA;

DRAWTEXT(CURRBARSCOUNT=DTT-20,SX漲L*0.98.01,'21'),COLOR0000FF;

STICKLINE(CURRBARSCOUNT=DTT-33,SX跌H,SX漲L,0,0),COLORAA00AA;

DRAWTEXT(CURRBARSCOUNT=DTT-33,SX漲L*0.98,'34'),COLOR0000FF;

STICKLINE(CURRBARSCOUNT=DTT-54,SX跌H,SX漲L,0,0),COLORAA00AA;

DRAWTEXT(CURRBARSCOUNT=DTT-54,SX漲L*0.98,'55'),COLOR0000FF;

STICKLINE(CURRBARSCOUNT=DTT-67,SX跌H,SX漲L,0,0),COLORAA00AA;

DRAWTEXT(CURRBARSCOUNT=DTT-67,SX漲L*0.98,'68'),COLOR0000FF;

STICKLINE(CURRBARSCOUNT=DTT-88,SX跌H,SX漲L,0,0),COLORAA00AA;

DRAWTEXT(CURRBARSCOUNT=DTT-88,SX漲L*0.98,'89'),COLOR0000FF;

STICKLINE(CURRBARSCOUNT=DTT-109,SX跌H,SX漲L,0,0),COLORAA00AA;

DRAWTEXT(CURRBARSCOUNT=DTT-109,SX漲L*0.98,'110'),COLOR0000FF;

STICKLINE(CURRBARSCOUNT=DTT-143,SX跌H,SX漲L,0,0),COLORAA00AA;

DRAWTEXT(CURRBARSCOUNT=DTT-143,SX漲L*0.98,'144'),COLOR0000FF;