ͨ´ïÐÅÕÇÍ£·ÖʱÖ÷ͼָ±ê¹«Ê½£º

LONG:=24;SHORT:=13;M:=6;N:=6;
RCC:=DYNAINFO( 3);
S2:=SMA(C,3,1);
S6:=Sma(C,5,1);
KK:=1;
TT:=FROMOPEN;
RC:=DYNAINFO( 3);
SS2:=SMA(C,2,1);
SS6:=SMA(C,6,1);
DK:=2*(S2-S6);
DK1:=CONst(HHV(RC+DK,TT+1));
DK2:=CONST(LLV(RC+DK,TT+1));
DC1:=CONST(HHV(C,TT+1));
DC2:=CONST(LLV(C,TT+1));
MMA:=CONST(MAX(DC1,DK1));
MMB:=CONST(MIN(DC2,DK2));
{ʱ¼äÉèÖÃ}
V1:=TIME;
A1:=COUNT(BARSCOUNT(C)=1 AND TIME<102000 ,0 );
T:=IF(V1<130000,(FLOOR(V1/10000)-9.5)*60+(FLOOR(V1/100)-100*FLOOR(V1/10000)),
(FLOOR(V1/10000)-11)*60+(FLOOR(V1/100)-100*FLOOR(V1/10000)));
TTT:=INTPART(2*T/5);
P:=IF(TT<120,4,10);
P2:=IF(TT<120,20,30);
STICKLINE(C>0,H,L,6,1),COLOR000000;
STICKLINE(CURRBARSCOUNT<TT+1,MMB,MMA,4,1),COLORFF0000;
{cyc}
VAR1:=AMOUNT/vol/100;
VAR2:=(3*HIGH+LOW+OPEN+2*CLOSE)/7;
VAR3:=SUM(AMOUNT,5)/VAR1/100;
VAR4:=SUM(AMOUNT,13)/VAR1/100;
VAR5:=SUM(AMOUNT,34)/VAR1/100;
CYC5:=DMA(VAR2,VOL/VAR3);
CYC13:=DMA(VAR2,VOL/VAR4);
CYC34:=DMA(VAR2,VOL/VAR5);
DRAWBAND(CYC5,RGB(50,120,120),CYC13,DRAWNULL);
DRAWBAND(CYC13,RGB(0,150,150),CYC34,DRAWNULL);
{·Öʱmacd}
×òÊÕ:=DYNAINFO( 3);
HH:=DYNAINFO(5);
LL:=DYNAINFO(6);
FK:=MAX(HH-×òÊÕ,×òÊÕ-LL)*0.1;
ZS:=×òÊÕ-FK*3.2;
Q1:=×òÊÕ-FK*3.22;
Q2:=×òÊÕ-2*FK*3.22;
Q3:=×òÊÕ-3*FK*3.2;
MA5:=MA(CLOSE,5);
MA10:=MA(CLOSE,10);
MA20:=MA(CLOSE,20);
MA30:=MA(CLOSE,30);
DIF:=(EMA(CLOSE,SHORT) - EMA(CLOSE,LONG));
DEA:=(EMA(DIF,M));
MacD:=5*(DIF-DEA);
A4:=BArslAST(REF(crOSS(DIF,DEA),1));
B1:=REF(C,A4+1)>C AND REF(DIF,A4+1)<DIF AND CROSS(DIF,DEA);
{DRAWTEXT(FILTER(B1>0,5),RCC*KK-0.03*RCC*KK,'±³Àë'),COLORYELLOW;}
STICKLINE(MACD>=0 AND MACD>=REF(MACD,1),RCC*KK,MACD*4+RCC*KK,3,0),COLORFF00FF,LINETHICK3;
STICKLINE(MACD>=0 AND MACD< REF(MACD,1),RCC*KK,MACD*4+RCC*KK,3,0),COLORBLUE,LINETHICK3;
STICKLINE(MACD<0 AND MACD>=REF(MACD,1),RCC*KK,MACD*4+RCC*KK,3,0),COLOR4ABEFF,LINETHICK3;
STICKLINE(MACD<0 AND MACD< REF(MACD,1),RCC*KK,MACD*4+RCC*KK,3,0),COLORBLUE,LINETHICK3;
STICKLINE(DK>0,RCC*KK,RCC*KK+DK,0,1),COLORRED;
STICKLINE(DK<0,RCC*KK,RCC*KK+DK,0,1),COLORCYAN;
·ÖʱÏß:C,COLORFFFFFF,LINETHICK2;
AA1:=REF(·ÖʱÏß,P)=HHV(·ÖʱÏß,2*P+1);
BB1:=FILTER(AA1,P);
CC1:=BACKSET(BB1,P+1);
DD1:=FILTER(CC1,P);{¸ßµã}
AA2:=REF(·ÖʱÏß,P)=LLV(·ÖʱÏß,2*P+1);
BB2:=FILTER(AA2,P);
CC2:=BACKSET(BB2,P+1);
DD2:=FILTER(CC2,P);{µÍµã}
QA1:=REF(·ÖʱÏß,P2)=HHV(·ÖʱÏß,P2+1);
QB1:=FILTER(QA1,P2);
QC1:=BACKSET(QB1,P2+1);
QD1:=FILTER(QC1,P2);{¸ßµã2}
QA2:=REF(·ÖʱÏß,P2)=LLV(·ÖʱÏß,2*P2+1);
QB2:=FILTER(QA2,P2);
QC2:=BACKSET(QB2,P+1);
QD2:=FILTER(QC2,P2);{µÍµã};
R11:=BACKSET(ISLASTBAR,BARSLAST(DD1)+1);
S11:=R11>REF(R11,1);
QR11:=BACKSET(ISLASTBAR,BARSLAST(QD1)+1);
QS11:=QR11>REF(QR11,1);
ѹÁ¦Ïß:=DRAWLINE(DD1,·ÖʱÏß,S11,·ÖʱÏß,1),COLORYELLOW;
ѹÁ¦Ïß2:=DRAWLINE(QD1,·ÖʱÏß,QS11,·ÖʱÏß,1),COLORGREEN;
ѹÁ¦Ïß3:=DRAWLINE(QS11,·ÖʱÏß,DD1,·ÖʱÏß,1),COLORWHITE;
IF(BETWEEN(ѹÁ¦Ïß,MMA,MMB),ѹÁ¦Ïß,DRAWNULL),COLORRED,LINETHICK1;
IF(BETWEEN(ѹÁ¦Ïß2,MMA,MMB),ѹÁ¦Ïß2,DRAWNULL),COLORGREEN,LINETHICK1;
IF(BETWEEN(ѹÁ¦Ïß3,MMA,MMB),ѹÁ¦Ïß3,DRAWNULL),COLORWHITE,LINETHICK1;
T11:=BACKSET(ISLASTBAR,BARSLAST(DD2)+1);
U11:=T11>REF(T11,1);
QT11:=BACKSET(ISLASTBAR,BARSLAST(QD2)+1);
QU11:=QT11>REF(QT11,1);
Ö§³ÅÏß:=DRAWLINE(DD2,·ÖʱÏß,U11,·ÖʱÏß,1),COLORYELLOW;
Ö§³ÅÏß2:=DRAWLINE(QD2,·ÖʱÏß,QU11,·ÖʱÏß,1),COLORGREEN;
Ö§³ÅÏß3:=DRAWLINE(QU11,·ÖʱÏß,DD2,·ÖʱÏß,1),COLORWHITE;
IF(BETWEEN(Ö§³ÅÏß,MMA,MMB),Ö§³ÅÏß,DRAWNULL),COLORRED,LINETHICK1;
IF(BETWEEN(Ö§³ÅÏß2,MMA,MMB),Ö§³ÅÏß2,DRAWNULL),COLORGREEN,LINETHICK1;
IF(BETWEEN(Ö§³ÅÏß3,MMA,MMB),Ö§³ÅÏß3,DRAWNULL),COLORWHITE,LINETHICK1;
DRAWICON(DD1,·ÖʱÏß,2);
DRAWICON(DD2,·ÖʱÏß,1);
HHH:=CONST(HHV(H,160));
LLL:=CONST(LLV(L,160));
MM0:=CONST((HHH+LLL)/2);
HL:=CONST(IF(MM0<CONST(REF(C,160)),LLL+(HHH-LLL)*0.20,HHH-(HHH-LLL)*0.20));
HH1:=IF(MM0>CONST(REF(C,160)),HHH-(HHH-LLL)*0.1,HL);
LL1:=IF(MM0<CONST(REF(C,160)),LLL+(HHH-LLL)*0.1,HL);
HLMAX:=MAX(HH1,LL1);
HLMIN:=MIN(HH1,LL1);
HLMN1:=(HLMAX+HLMIN)/2;
HLMN2:=HLMAX-HLMIN;
HLMN3:=1;
HLMN4:=2;
DRAWTEXT(CURRBARSCOUNT=55,(MMB+(MMA-MMB)/10),'»»ÊÖ:')COLOR00FFFF;
DRAWNUMBER(CURRBARSCOUNT=40,(MMB+(MMA-MMB)/10),CONST(DYNAINFO(37))*100)COLOR00FFFF;
DRAWTEXT(CURRBARSCOUNT=55,(MMB+(MMA-MMB)/10*2),'ÕÇ·ù:');
DRAWNUMBER(CURRBARSCOUNT=40,(MMB+(MMA-MMB)/10*2),CONST(DYNAINFO(14))*100)COLORFF00FF;
±äÉ«ÓÃ:DRAWNUMBER(CURRBARSCOUNT=40,(MMB+(MMA-MMB)/10*2),IF(CONST(DYNAINFO(14)*100)<=0,CONST(DYNAINFO(14)*100),DRAWNULL))COLOR00DD00;
DRAWTEXT(CURRBARSCOUNT=55,(MMB+(MMA-MMB)/10*3),'Á¿±È:')COLORFF00FF;
DRAWNUMBER(CURRBARSCOUNT=40,(MMB+(MMA-MMB)/10*3),CONST(DYNAINFO(17)))COLORFF00FF;

ͨ´ïÐÅÕÇÍ£·ÖʱÖ÷ͼָ±ê¹«Ê½ÊµÀýͼ½â£º

ͨ´ïÐÅÕÇÍ£·ÖʱÖ÷ͼָ±ê¹«Ê½