本位線:EMA(CLOSE,6),COLORWHITE,LINETHICK1;

{DRAWNUMBER(ISLASTBAR  ,C,C),COLORMAGENTA;}

 SJTJ:=DATE<1590301;

 {主趨勢線:EMA(EMA(C,10),10),COLORBLUE,LINETHICK2;

 B:=主趨勢線<REF(主趨勢線,1);

 IF(B-1,主趨勢線,DRAWNULL)COLORRED,LINETHICK2;}

 主趨勢線:EMA(EMA(C,10),10),COLORRED,LINETHICK2;

 B:=主趨勢線>REF(主趨勢線,1);

 IF(B-1,主趨勢線,DRAWNULL),COLORGREEN,LINETHICK2;

 AA:=EMA(C,5) > EMA(C,20);

 BB:=EMA(C,5) < EMA(C,20);

 CC:= EMA(C,5) > EMA(C,10);

 CC1:=EMA(C,5) < EMA(C,10);

 DD:=CLOSE<OPEN;

{平衡線:EMA(CLOSE,50),COLORFF00FF;}

黃金趨勢線:EMA(CLOSE,108),COLOR00FFFF,LINETHICK1;

均價:SUM(V*C,0)/SUM(V,0),COLOR888888,LINETHICK1;

N:=10;

 波峰:PEAK(CLOSE,N,1)*0.996,COLORFFEE66,LINETHICK1,DOTLINE;

 波谷:TROUGH(CLOSE,N,1)*1.002,COLORFFFFFF,LINETHICK1,DOTLINE;

 {止贏:1.05*IF(CURRBARSCOUNT<18,CONST(REF(C,1)),DRAWNULL),COLORFFFFFF,LINETHICK1;}

 止損:0.97*IF(CURRBARSCOUNT<18,CONST(REF(C,1)),DRAWNULL),COLORGREEN,COLOR008800{,DOTLINE};

F:=100*(C-REF(C,1))/REF(C,1);

 今小昨:=IF(C<REF(O,1) AND F<0,1,0);

 P1:=今小昨;

 今小前:=IF(C<REF(O,2) AND F<0,1,0);

 P2:=今小前;

 STICKLINE(P1=0 AND REF(P1,1)=1 AND P2=0 AND REF(P2,1)=1,OPEN,CLOSE,1,0),COLORMAGENTA;

 {STICKLINE(P1=1 AND REF(P1,1)=0 AND P2=1 AND REF(P2,1)=0,OPEN,CLOSE,3,0),COLOR008800;}

STICKLINE(CLOSE= REF(CLOSE,1) ,H,L,3,1 ),COLOR999999;

 STICKLINE(CLOSE= REF(CLOSE,1) ,HIGH,LOW,0,0 ),COLORWHITE;

 STICKLINE(CLOSE= REF(CLOSE,1) ,OPEN,CLOSE,3,0 ),COLOR555555;

 STICKLINE(CLOSE= REF(CLOSE,1) ,OPEN,CLOSE,2.7,0 ),COLOR777777;

 STICKLINE(CLOSE= REF(CLOSE,1) ,OPEN,CLOSE,2.1,0 ),COLOR999999;

 STICKLINE(CLOSE= REF(CLOSE,1) ,OPEN,CLOSE,1.5,0 ),COLORBBBBBB;

 STICKLINE(CLOSE= REF(CLOSE,1) ,OPEN,CLOSE,0.9,0 ),COLORDDDDDD;

 STICKLINE(CLOSE= REF(CLOSE,1) ,OPEN,CLOSE,0.3,0 ),COLORFFFFFF;

C3:=REF(C,1);

非ST漲停:=IF((C-C3)*100/C3>=(10-0.01*100/C3),1,0);

漲停:=非ST漲停;

非ST跌停:=IF((C3-C)*100/C3>=(10-0.01*100/C3),1,0);

跌停:=非ST跌停;

NUMBER:=COUNT(非ST漲停,BARSSINCE(非ST漲停)+1);

{DRAWNUMBER(非ST漲停,HIGH*1.04,NUMBER),COLORYELLOW;}

DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.1,0.15,0,NUMBER),COLOR00C0C0;

DRAWTEXT_FIX(CURRBARSCOUNT=1,0.00,0.15,0,'近期漲停：'),COLOR00C0C0;

{Z1:=STRCAT(HYBLOCK,' ');

Z2:=STRCAT(Z1,DYBLOCK);

Z3:=STRCAT(Z2,' ');

DRAWTEXT_FIX(ISLASTBAR,0,0.00,0,STRCAT(Z3,GNBLOCK)),COLOR99FF00;}

{買賣點}

{VAR1:=(100-((90*(HHV(HIGH,21)-CLOSE))/(HHV(HIGH,21)-LLV(LOW,21))));

VAR2:=(100-((90*(HHV(HIGH,21)-CLOSE))/(HHV(HIGH,21)-LLV(LOW,21))));

VAR3:=(100-MA(((100*(HHV(HIGH,6)-CLOSE))/(HHV(HIGH,6)-LLV(LOW,6))),34));

DRAWICON(CROSS(VAR2,MA(VAR3,6)),(LOW*0.984),1);

DRAWICON(CROSS(MA(VAR3,6),VAR1),(HIGH*1.035),2);}

{前期高低位}

{BA1:=REF(C,10)=HHV(C,2*10+1);

B1:=FILTER(BA1,10);

C1:=BACKSET(B1,10+1);

HD:=FILTER(C1,10);

BA2:=REF(C,10)=LLV(C,2*10+1);

B2:=FILTER(BA2,10);

C2:=BACKSET(B2,10+1);

LD:=FILTER(C2,10);

前期高位:REF(H,BARSLAST(HD)),COLOR00FF00,LINETHICK1,POINTDOT;

前期低位:REF(L,BARSLAST(LD)),COLORFF00FF,LINETHICK1,POINTDOT;

STICKLINE(C,前期高位,前期高位,1,0),COLOR008800;

STICKLINE(C,前期低位,前期低位,1,0),COLOR408080;};

進退力度:=((HSL*0.50+REF(HSL,1)*0.33)+(REF(HSL,2)*0.17))*SUM(C,FROMOPEN)/FROMOPEN;

進退力度A:=SUM(IF(C>REF(C,1),進退力度*V,0),FROMOPEN),COLOR0000FF,LINETHICK0;

進退力度B:=-SUM(IF(C<REF(C,1),進退力度*V,0),FROMOPEN),COLOR00FF00,LINETHICK0;

進退流量:=進退力度A+進退力度B,COLORSTICK;

NOTEXT進退線:=進退流量,COLORYELLOW,LINETHICK1;

進退比:=進退流量/SUM(V,FROMOPEN)*1000,COLORRED,LINETHICK1;

東風:=IF(進退比>=0,(進退比+500),1000-ABS((進退比-500)));

西風:=IF(進退比<=0,(進退比-500),1000-ABS((進退比+500)));

{AAD:=CONST(MAX(ABS(東風),ABS(西風)))*4,NODRAW;

DRAWRECTREL(0,00,CONST(ABS(東風)*500/AAD),40,IF(CONST(東風)>0,RGB(255,0,0),RGB(255,0,0)));

DRAWRECTREL(0,42,CONST(ABS(西風)*500/AAD),82,IF(CONST(西風)>0,RGB(0,50,0),RGB(0,50,0)));};

DRAWTEXT_FIX(1,0.0,0.22,0,STRCAT('東風：',CON2STR(東風,0))),COLORRED;

DRAWTEXT_FIX(1,0.0,0.29,0,STRCAT('西風：',CON2STR(西風,0))),COLORGREEN;

DRAWTEXT_FIX(1,0.00,0.00,0,'主題投資：'),COLOR00C0C0;

DRAWTEXT_FIX(1,0.07,0.00,0,EXTERNSTR(0,1)),COLOR00C0C0;

DRAWTEXT_FIX(1,0.00,0.08,0,'主營業(yè)務：'),COLOR00C0C0;

DRAWTEXT_FIX(1,0.07,0.08,0,EXTERNSTR(0,2)),COLOR00C0C0;