通達信 周K線疊加主圖

WC:="YYB.C1#WEEK";
{以上這句需另建一個文件引用,
文件名:YYB,
函數:
C1:C;
O1:O;
H1:H;
L1:L;}
{參數 N:1/150/150;M:1/5/3;P:1/2/1;}
WO1:=IF(WEEKDAY<REF(WEEKDAY,1),O,DRAWNULL);
WO:=HHV(WO1,WEEKDAY);
STICKLINE(WC>=WO,WO,WC,4,0)COLOR000045;
STICKLINE(WC<WO,WO,WC,4,0),COLOR353500;
STICKLINE(C>=O,C,O,3.0,0),COLOR0000CC;
STICKLINE(C>=O,C,O,2.0,0),COLOR0000CC;
STICKLINE(C>=O,C,O,1.0,0),COLOR0000EE;
STICKLINE(C>=O,L,H,0.3,0),COLORRED;
STICKLINE(C<O,C,O,3.0,0),COLORBBBB00;
STICKLINE(C<O,C,O,2.0,0),COLORCCCC00;
STICKLINE(C<O,C,O,1.0,0),COLOREEEE00;
STICKLINE(C<O,L,H,0.3,0),COLORFFFF00;
高:=REF(HHV(H,N),M);
低:=REF(LLV(L,N),M);
中:=高-(高-低)*0.191;
高位:REFDATE(高,DATE),COLORRED;
中位:REFDATE(中,DATE),COLORYELLOW;
低位:REFDATE(低,DATE),COLORBLUE;
DRAWTEXT(ISLASTBAR,高位,'高'),COLORWHITE;
DRAWTEXT(ISLASTBAR,中位,'中'),COLORYELLOW;
DRAWTEXT(ISLASTBAR,低位,'低'),COLORWHITE;
AAA:=(3*C+H+L+O)/6;
VAR1:=(8*AAA+7*REF(AAA,1)+6*REF(AAA,2)+5*REF(AAA,3)+4*REF(AAA,4)+3*REF(AAA,5)+2*REF(AAA,6)+REF(AAA,8))/36;
VAR2:=(HHV(VAR1,5)+HHV(VAR1,10)+HHV(VAR1,20))/3;
VAR3:=(LLV(VAR1,5)+LLV(VAR1,10)+LLV(VAR1,20))/3;
VAR4:=(HHV(VAR2,5)+HHV(VAR2,10)+HHV(VAR2,20))/3;
VAR5:=(LLV(VAR3,5)+LLV(VAR3,10)+LLV(VAR3,20))/3;
VAR6:=(LLV(VAR1,2)+LLV(VAR1,4)+LLV(VAR1,6))/3;
升線:IF(P=1,VAR1,DRAWNULL),COLORWHITE;
托線:IF(P=1,VAR6,DRAWNULL),COLORMAGENTA;
跌線:IF(P=1 AND VAR1=VAR6,VAR6,DRAWNULL),COLORGREEN;
①:IF(P=2,MA(C,5),DRAWNULL),COLORWHITE;
②:IF(P=2,MA(C,10),DRAWNULL),COLORYELLOW;
③:IF(P=2,MA(C,20),DRAWNULL),COLORMAGENTA;
④:IF(P=2,MA(C,60),DRAWNULL),COLORGREEN;
量價線:=IF(BETWEEN(C/(SUM(AMOUNT,0)/SUM(VOL*100,0)),1.05,0.95)=0,MA(C,0),(SUM(AMOUNT,0)/SUM(VOL*100,0))),COLORMAGENTA,LINETHICK2;{量價平衡洋紅色線};
STICKLINE(量價線,量價線,量價線,4,1),COLORGREEN;
AA1:=AMOUNT/V;
BB1:=L<AA1*0.9;
CC1:=(C-REF(C,1))/REF(C,1)*100>1.2;
DD1:=L<MA(C,5)*0.921;
EE1:=V<MA(V,5)*1.5;
FF1:=(BB1 AND CC1 AND DD1 AND EE1);
老鼠倉×:IF(FF1,L,DRAWNULL)CROSSDOT,LINETHICK2,COLORWHITE;
{個股研判}
A74:=MA(CLOSE,20);
A75:=(CLOSE>MA(CLOSE,5));
A76:=(MA(CLOSE,5)>MA(CLOSE,10));
A77:=(CLOSE>MA(CLOSE,10));
A78:=(MA(CLOSE,5)>MA(CLOSE,20));
A79:=(CLOSE>MA(CLOSE,20));
A710:=REF(A74,1);
A711:=(A74>A710);
AVX:=(((((IF(A75,10,(0-10))+IF(A76,10,(0-10)))+IF(A77,10,(0-10)))+IF(A78,10,(0-10)))+IF(A79,10,(0-10)))+IF(A711,10,(0-10)));
DSLX:=(CLOSE/INDEXC);
DSLX1:=MA(DSLX,5);
DSLX2:=MA(DSLX,10);
V1:=MA(VOL,5);
V2:=MA(VOL,10);
T1:=CONST(IF(C<200 AND ((CROSS(AVX,1) AND (V1>=V2)) AND (DSLX>=DSLX1)),1,0));
T2:=CONST(IF(C<200 AND ((CROSS(AVX,1) AND (V1< V2)) AND (DSLX>=DSLX1)),1,0));
T3:=CONST(IF(C<200 AND ((CROSS(AVX,1) AND (V1> V2)) AND (DSLX< DSLX1)),1,0));
T4:=CONST(IF(C<200 AND ((CROSS(AVX,1) AND (V1<=V2)) AND (DSLX< DSLX1)),1,0));
T5:=CONST(IF(C<200 AND ((CROSS(1,AVX) AND (V1>=V2)) AND (DSLX>=DSLX1)),1,0));
T6:=CONST(IF(C<200 AND ((CROSS(1,AVX) AND (V1< V2)) AND (DSLX>=DSLX1)),1,0));
T7:=CONST(IF(C<200 AND ((CROSS(1,AVX) AND (V1>=V2)) AND (DSLX< DSLX1)),1,0));
T8:=CONST(IF(C<200 AND ((CROSS(1,AVX) AND (V1< V2)) AND (DSLX< DSLX1)),1,0));
T9:=CONST(IF(C<200 AND ((((AVX>= 1) AND (REF(AVX,1)>0)) AND (V1>=V2)) AND (DSLX>= DSLX1)),1,0));
T10:=CONST(IF(C<200 AND ((((AVX>= 1) AND (REF(AVX,1)>0)) AND (V1< V2)) AND (DSLX>=DSLX1)),1,0));
T11:=CONST(IF(C<200 AND ((((AVX>= 1) AND (REF(AVX,1)>0)) AND (V1>=V2)) AND (DSLX< DSLX1)),1,0));
T12:=CONST(IF(C<200 AND ((((AVX>= 1) AND (REF(AVX,1)>0)) AND (V1< V2)) AND (DSLX< DSLX1)),1,0));
T13:=CONST(IF(C<200 AND ((((AVX < 1) AND (REF(AVX,1)<0)) AND (V1>=V2)) AND (DSLX>=DSLX1)),1,0));
T14:=CONST(IF(C<200 AND ((((AVX < 1) AND (REF(AVX,1)<0)) AND (V1< V2)) AND (DSLX>=DSLX1)),1,0));
T15:=CONST(IF(C<200 AND ((((AVX < 1) AND (REF(AVX,1)<0)) AND (V1>=V2)) AND (DSLX< DSLX1)),1,0));
T16:=CONST(IF(C<200 AND ((((AVX < 1) AND (REF(AVX,1)<0)) AND (V1< V2)) AND (DSLX< DSLX1)),1,0));
T17:=CONST(IF(C>200 AND (CROSS(AVX,1) AND (V1>=V2)),1,0));
T18:=CONST(IF(C>200 AND (CROSS(AVX,1) AND (V1>=V2)),1,0));
T19:=CONST(IF(C>200 AND (CROSS(AVX,1) AND (V1< V2)),1,0));
T20:=CONST(IF(C>200 AND (CROSS(1,AVX) AND (V1>=V2)),1,0));
T21:=CONST(IF(C>200 AND (CROSS(1,AVX) AND (V1< V2)),1,0));
T22:=CONST(IF(C>200 AND (((AVX>=1) AND (REF(AVX,1)>0)) AND (V1>=V2)),1,0));
T23:=CONST(IF(C>200 AND (((AVX>=1) AND (REF(AVX,1)>0)) AND (V1< V2)),1,0));
T24:=CONST(IF(C>200 AND (((AVX< 1) AND (REF(AVX,1)<0)) AND (V1>=V2)),1,0));
T25:=CONST(IF(C>200 AND (((AVX< 1) AND (REF(AVX,1)<0)) AND (V1< V2)),1,0));
定位:=CONST(LLV(L,120))*1.02;
DRAWTEXT(T1=1 AND CURRBARSCOUNT=100,定位,'■量能理想，明顯走強，中線參與，倉位在2/3左右'),COLORYELLOW ;
DRAWTEXT(T2=1 AND CURRBARSCOUNT=100,定位,'■走勢趨強，還顯不足，短線進場，倉位在1/2左右'),COLORYELLOW ;
DRAWTEXT(T3=1 AND CURRBARSCOUNT=100,定位,'■量價良好，沒有明顯走強，短線進場，倉位1/2左右'),COLORYELLOW ;
DRAWTEXT(T4=1 AND CURRBARSCOUNT=100,定位,'■形態尚可，量能不足，未完全走強，短線參與，倉位1/3左右'),COLORYELLOW ;
DRAWTEXT(T5=1 AND CURRBARSCOUNT=100,定位,'■形態變壞，重倉者減持大半，清倉者觀望'),COLORYELLOW ;
DRAWTEXT(T6=1 AND CURRBARSCOUNT=100,定位,'■隨大盤一起下跌，明顯縮量走勢，考慮到風險，減持或清倉'),COLORYELLOW ;
DRAWTEXT(T7=1 AND CURRBARSCOUNT=100,定位,'■該股放量下跌，走勢明顯偏弱，離場觀望'),COLORYELLOW ;
DRAWTEXT(T8=1 AND CURRBARSCOUNT=100,定位,'■該股縮量下跌，走勢偏弱，離場觀望'),COLORYELLOW ;
DRAWTEXT(T9=1 AND CURRBARSCOUNT=100,定位,'■該股形態良好，強勢明顯，量能充足，可以繼續持有'),COLORYELLOW ;
DRAWTEXT(T10=1 AND CURRBARSCOUNT=100,定位,'■上行趨勢不變，強勢依然，量能開始轉弱，注意風險'),COLORYELLOW ;
DRAWTEXT(T11=1 AND CURRBARSCOUNT=100,定位,'■該股仍然具備上漲潛力，但股性偏弱，可考慮減倉'),COLORYELLOW ;
DRAWTEXT(T12=1 AND CURRBARSCOUNT=100,定位,'■該股走勢趨弱，量能不足，減持大部分籌碼'),COLORYELLOW ;
DRAWTEXT(T13=1 AND CURRBARSCOUNT=100,定位,'■該股形態不佳，注意成交量的變化，目前不適合參與'),COLORYELLOW ;
DRAWTEXT(T14=1 AND CURRBARSCOUNT=100,定位,'■趨勢不明，股價偏弱，注意量能變化，目前不宜參與'),COLORYELLOW ;
DRAWTEXT(T15=1 AND CURRBARSCOUNT=100,定位,'■有走強跡象，但量能不足，趨勢不明，不適合操作'),COLORYELLOW ;
DRAWTEXT(T16=1 AND CURRBARSCOUNT=100,定位,'■該股走勢太弱，沒有參與價值'),COLORYELLOW ;
DRAWTEXT(T17=1 AND CURRBARSCOUNT=100,定位,'■大盤理想，有明顯走強跡象，中線參與，倉位在2/3左右'),COLORYELLOW ;
DRAWTEXT(T18=1 AND CURRBARSCOUNT=100,定位,'■如前期經過一輪下跌，最佳買點，前期有過一段漲幅需謹慎'),COLORYELLOW ;
DRAWTEXT(T19=1 AND CURRBARSCOUNT=100,定位,'■考慮短線進場，倉位在1/2左右，一旦量能放大,加倉買入'),COLORYELLOW ;
DRAWTEXT(T20=1 AND CURRBARSCOUNT=100,定位,'■大盤形態走壞，重倉者可以減去大部分倉位'),COLORYELLOW ;
DRAWTEXT(T21=1 AND CURRBARSCOUNT=100,定位,'■大盤縮量調整，注意風險，短線清倉觀望'),COLORYELLOW ;
DRAWTEXT(T22=1 AND CURRBARSCOUNT=100,定位,'■大盤走勢良好，量能理想，可以繼續持有強勢股'),COLORYELLOW ;
DRAWTEXT(T23=1 AND CURRBARSCOUNT=100,定位,'■大盤形態良好，但量能稍顯不足，隨時準備減倉'),COLORYELLOW ;
DRAWTEXT(T24=1 AND CURRBARSCOUNT=100,定位,'■大盤趨勢不明，注意成交量變化，目前不適宜進場'),COLORYELLOW ;
DRAWTEXT(T25=1 AND CURRBARSCOUNT=100,定位,'■大盤趨勢向下，量能萎縮，不適合進場'),COLORYELLOW ;
{//////////////////////////////////////////////////////////////////////////};