本位線: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;均價(jià):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;}
{買賣點(diǎn)}{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;};
進(jìn)退力度:=((HSL*0.50+REF(HSL,1)*0.33)+(REF(HSL,2)*0.17))*SUM(C,FROMOPEN)/FROMOPEN;進(jìn)退力度A:=SUM(IF(C>REF(C,1),進(jìn)退力度*V,0),FROMOPEN),COLOR0000FF,LINETHICK0;進(jìn)退力度B:=-SUM(IF(C<REF(C,1),進(jìn)退力度*V,0),FROMOPEN),COLOR00FF00,LINETHICK0;進(jìn)退流量:=進(jìn)退力度A+進(jìn)退力度B,COLORSTICK;NOTEXT進(jìn)退線:=進(jìn)退流量,COLORYELLOW,LINETHICK1;進(jìn)退比:=進(jìn)退流量/SUM(V,FROMOPEN)*1000,COLORRED,LINETHICK1;東風(fēng):=IF(進(jìn)退比>=0,(進(jìn)退比+500),1000-ABS((進(jìn)退比-500)));西風(fēng):=IF(進(jìn)退比<=0,(進(jìn)退比-500),1000-ABS((進(jìn)退比+500)));{AAD:=CONST(MAX(ABS(東風(fēng)),ABS(西風(fēng))))*4,NODRAW;DRAWRECTREL(0,00,CONST(ABS(東風(fēng))*500/AAD),40,IF(CONST(東風(fēng))>0,RGB(255,0,0),RGB(255,0,0)));DRAWRECTREL(0,42,CONST(ABS(西風(fēng))*500/AAD),82,IF(CONST(西風(fēng))>0,RGB(0,50,0),RGB(0,50,0)));};DRAWTEXT_FIX(1,0.0,0.22,0,STRCAT('東風(fēng)：',CON2STR(東風(fēng),0))),COLORRED;DRAWTEXT_FIX(1,0.0,0.29,0,STRCAT('西風(fēng)：',CON2STR(西風(fēng),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è)務(wù)：'),COLOR00C0C0;DRAWTEXT_FIX(1,0.07,0.08,0,EXTERNSTR(0,2)),COLOR00C0C0;
|
