自用組合優化的主圖指標公式指標公式

作者：飛狐來源：cxh99.com 發布時間：2021年11月08日

相關標簽:自用賣出指標公式、自用cci指標公式、西點自用指標公式、自用組合股票公式、通達信主圖指標公式、黃金柱主圖指標公式、金鉆指標公式主圖、獲利盤主圖指標公式、 macd主圖指標公式、絕密主圖指標公式、波段主圖指標公式、恒者主圖指標公式、分時主圖指標公式、

{自用組合優化的主圖指標
首先感謝此指標的原作者！
聲明此指標不是我原創，只是自己學著組合和優化的主圖。自己還在學習編指標的階段。
}
INPUT:DA(5,1,100),FY(20,5,40),CT(1,1,60),P(0,0,60),N(3,0,60);
DRAWGBK(CLOSE<HHV(HIGH,0),COLORRGB(60,15,35),COLORRGB(50,50,90),1);
STICKLINE(CLOSE>OPEN OR CLOSE=OPEN AND CLOSE>REF(CLOSE,1),LOW,HIGH,0.5,0),LINETHICK5,color10000;
STICKLINE(CLOSE<OPEN OR CLOSE=OPEN AND CLOSE<=REF(CLOSE,1),LOW,HIGH,0.5,0),LINETHICK5,color10000;DRAWTEXT((BARPOS = SYSPARAM(2)),HIGH,(((((((((((((((((((((((((((((((('所屬板塊:' + BLKNAME) + ' 總資產') + NUMTOSTR(FINANCE(10),2)) + '千元') + ' 凈利潤') + NUMTOSTR(FINANCE(30),2)) + '千元') + '\n') + '總股本') + NUMTOSTR(FINANCE(1),0)) + '萬股') + ' 流通A股') + NUMTOSTR(FINANCE(7),0)) + '萬股') + ' 凈資產') + NUMTOSTR(FINANCE(34),2)) + '元') + ' 每股收益') + NUMTOSTR(FINANCE(33),2)) + '元') + ' 每股未分配') + NUMTOSTR(FINANCE(32),2)) + '元') + ' 市盈率') + NUMTOSTR(DYNAINFO(39),2)) + '%') + ' 凈資收益率') + NUMTOSTR(FINANCE(37),2)) + '%') + ' 每股公積金') + NUMTOSTR(FINANCE(18),2)) + '元')),ALIGN4,colorFF00ff;
vV:='◆代碼：'+stklabel;
EXPLAIN(1=1,vV),,Color4080FF;{explain(1=1,'■所屬板塊:'+blkname+'\n'),colorRED;}
explain(1=1,'●流通A股:'+NUMTOSTR(FINANCE(7)/10000,4)+'億股'),colorYELLOW;
explain(1=1,'●總股'+ NUMTOSTR(FINANCE(1)/10000,2)+'億股'),COLORYELLOW;
explain(1=1,'●每股收益:'+NUMTOSTR(FINANCE(33),2)+'元'),colorcyan;
explain(1=1,'●凈資產:'+NUMTOSTR(FINANCE(34),2)+'元'),colorCYAN;
explain(1=1,'●公積金:'+NUMTOSTR(FINANCE(18),2)+'元'),COLORCYAN;
explain(1=1,'●未分配利潤:'+NUMTOSTR(FINANCE(32),2)+'元'),COLORCYAN;
explain(1=1,'◎市盈率:'+NUMTOSTR(DYNAINFO(39),2)+'倍'),colorGREEN;
explain(1=1,'◎獲利%'+NUMTOSTR(winner(c)*100, 2)),COLORGREEN;
mma:=(2*c+h+l)/(4);M20:eMA(MMA,8),COLORYELLOW,LINETHICK2;
m20a:=REF(M20,1);
PARTLINE(M20>REF(M20,1),M20),COLORMAGENTA,LINETHICK2;
{買入:=CROSS(m20,m20a);
賣出:=CROSS(m20a,m20);}
X:=(BARSLAST((SYSPARAM(2)=BARPOS))+1);
NS:=IF((HHV(ABS(((HHV(mma,DA)/LLV(mma,DA))-1)),DA)>(10/100)),3,DA);
N1:=IF((DATATYPE=2),(NS*48),IF((DATATYPE=3),(NS*16),IF((DATATYPE=4),(NS*8),IF((DATATYPE=5),(NS*4),NS))));
{MM:=IF((((STKTYPE=0) OR (P=0)) OR (VOL=0)),MA(MMA,5),((SUM(AMOUNT,N1)/SUM(VOL,N1))/100)); }
mm:=m20;
M1:=REF(MM,1);
買入:=IF(CROSS(mm,M1),M1,0);
賣出:=IF(CROSS(M1,mm),M1,0);
YE:=BARPOS;
費用:=(FY/1000);
DW:=BARSLAST((賣出>0));
EX10:=HHV((買入>0),(DW+1));
BJ:=IF((EX10>REF(EX10,1)),買入,0);
SJ:=IF((EX10<REF(EX10,1)),賣出,0);
BNN:=BARSLAST((BJ>0));
CC:=REF(BJ,BNN);
盈利:=((SJ*(1-費用))-(CC*(1+費用)));
YL:=SUM(IF((SJ>0),盈利,0),0);
每股盈利:=YL,LINETHICK0,PRECISION2,colorFFFFFF;
CN:=SUM(IF(((SJ>0) AND (REF(CC,1)>0)),1,0),0);
CG:=SUM(IF(((SJ>0) AND (盈利>0)),1,0),0);
成功率:=((100*CG)/CN),LINETHICK0,PRECISION1,color88FF;
H1:=HHV(IF((CT=2),成功率,YL),X);
L1:=LLV(IF((CT=2),成功率,YL),X);
AH:=H1[DATACOUNT];
AL:=L1[DATACOUNT];
AHL:=(AH-AL);
POLYLINE((CT=2),成功率),color88FF;
買入均價:=(SUM(BJ,0)/CN),LINETHICK0,PRECISION1,colorFF;
年收益:=((100*((240*YL)/YE))/買入),LINETHICK0,PRECISION1,colorFF;
持股時間:=(SUM(IF(((SJ>0) AND (CC>0)),(REF(BNN,1)+1),0),0)/YE),LINETHICK0,PRECISION2,colorFF00FF;
交易:=CN,LINETHICK0,PRECISION0,colorAAAAAA;
（次）成功:=CG,LINETHICK0,PRECISION0,colorAAAAAA;
年交均次:=((240*CN)/YE);
MON:=SUM(IF((MONTH<>REF(MONTH,1)),1,0),0);
上市年:=(MON/12);
DRAWNUMBER((BJ>0),(LOW*0.95),BJ,2),ALIGN0,colorFF;
DRAWICON(((BJ>0) AND (CT=1)),(LOW*0.97),4);
DRAWNUMBER((((SJ>0) AND (CT=1)) AND (((盈利/(CC*(1+費用)))*100)>=0)),(HIGH*1.1),((盈利/(CC*(1+費用)))*100),1),ALIGN0,colorFF;
DRAWNUMBER((((SJ>0) AND (CT=1)) AND (((盈利/(CC*(1+費用)))*100)<0)),(HIGH*1.1),((盈利/(CC*(1+費用)))*100),1),ALIGN0,colorFFFF;
DRAWICON(((SJ>0) AND (CT=1)),(HIGH*1.04),5);
DRAWNUMBER(((SJ>0) AND (CT=1)),(HIGH*1.07),SJ,2),ALIGN0,colorFF00;
Ｎ波動:=(SUM(IF((((SJ>0) AND (CC>0)) AND ((REF(BNN,1)+1)<=N)),(REF(BNN,1)+1),0),0)/YE),LINETHICK0,PRECISION2,colorFF00FF;
買價:=IF((BJ>0),BJ,0),LINETHICK0,PRECISION2,colorFF;
賣價:=IF((SJ>0),SJ,0),LINETHICK0,PRECISION2,colorFF00;
{DRAWTEXTEX(CLOSE,1,0,0,(((((((((((((((((('年盈利:'+NUMTOSTR(YL,2))+'元成功率:')+NUMTOSTR(成功率,1))+'% 年收益:')+NUMTOSTR(年收益,1))+'%')+' 持股時間比:')+NUMTOSTR(持股時間,1))+'\n')+'交易:')+NUMTOSTR(交易,0))+'次成功:')+NUMTOSTR(CG,0))+'次年均:')+NUMTOSTR(年交均次,1))+'次總共:')+NUMTOSTR(YE,0))+'K線')),colorFFFF;}
臨界:=(((CLOSE/M1)-1)*100);
增減:=(臨界-(100*((REF(CLOSE,1)/REF(M1,1))-1)));
{DRAWTEXTEX(CLOSE,1,500,80,(((((((('當前信號持續:'+NUMTOSTR(BNN,0))+'(K線)')+' 最高盈利:')+NUMTOSTR(HHV((((HIGH/CC)-1)*100),(BNN+1)),1))+'% 買賣臨界點:')+NUMTOSTR(臨界,1))+'% 增減:')+NUMTOSTR(IF(((BNN>0) AND (DATATYPE=6)),增減,IF((BNN=0),0,-100)),1))),colorFFFF; }
{DRAWTEXT(((SYSPARAM(3)=BARPOS) AND (CT<3)),HIGH,'.'),color1;
DRAWTEXT(((SYSPARAM(3)=BARPOS) AND (CT<3)),LOW,'.'),color1;}
參考介入價:MM,LINETHICK0,PRECISION2,colorFFFFFF;
FUA:=HHV(HIGH,15);
FUB:=LLV(LOW,15);
{DRAWTEXTEX(CLOSE,1,720,60,(('15日最高價:'+NUMTOSTR(FUA,2))+' ')),ALIGN2,colorFF;}
{DRAWTEXTEX(CLOSE,1,840,60,(('15日最低價:'+NUMTOSTR(FUB,2))+' ')),ALIGN2,colorBB0000;}
{DRAWTEXTEX(CLOSE,1,950,60,(('參考介入價:'+NUMTOSTR(MM,2))+' ')),ALIGN2,colorEE9999;}
STICKLINE(CLOSE>=mm,HIGH,LOW,1,0),color0000ff;
STICKLINE(CLOSE<mm,LOW,HIGH,1,0),color00ff00;
STICKLINE(CLOSE>OPEN OR CLOSE=OPEN AND CLOSE>REF(CLOSE,1),OPEN,CLOSE,9,0),LINETHICK5,color10000;
STICKLINE(CLOSE<OPEN OR CLOSE=OPEN AND CLOSE<=REF(CLOSE,1),OPEN,CLOSE,9,0),LINETHICK5,color10000;
STICKLINE(CLOSE>=mm,CLOSE,OPEN,8,0),color000055;
STICKLINE(CLOSE>=mm,CLOSE,OPEN,7,0),color000077;
STICKLINE(CLOSE>=mm,CLOSE,OPEN,5.8,0),color000099;
STICKLINE(CLOSE>=mm,CLOSE,OPEN,4.4,0),color0000bb;
STICKLINE(CLOSE>=mm,CLOSE,OPEN,2.8,0),color0000dd;
STICKLINE(CLOSE>=mm,CLOSE,OPEN,1,0),color0000ff;
STICKLINE(CLOSE<mm,CLOSE,OPEN,8,0),color005500;
STICKLINE(CLOSE<mm,CLOSE,OPEN,7,0),color007700;
STICKLINE(CLOSE<mm,CLOSE,OPEN,5.8,0),color009900;
STICKLINE(CLOSE<mm,CLOSE,OPEN,4.4,0),color00bb00;
STICKLINE(CLOSE<mm,CLOSE,OPEN,2.8,0),color00dd00;
STICKLINE(CLOSE<mm,CLOSE,OPEN,1,0),color00ff00;
STICKLINE(((BJ > 0) AND (CT = 1)),OPEN,(OPEN+CLOSE)/2,8,0),color0033ff;
STICKLINE(((BJ > 0) AND (CT = 1)),OPEN,(OPEN+CLOSE)/2,7,0),color0066ff;
STICKLINE(((BJ > 0) AND (CT = 1)),OPEN,(OPEN+CLOSE)/2,5.8,0),color0099ff;
STICKLINE(((BJ > 0) AND (CT = 1)),OPEN,(OPEN+CLOSE)/2,4.4,0),color00bbff;
STICKLINE(((BJ > 0) AND (CT = 1)),OPEN,(OPEN+CLOSE)/2,2.8,0),color00ddff;
STICKLINE(((BJ > 0) AND (CT = 1)),OPEN,(OPEN+CLOSE)/2,1,0),color00ffff;
STICKLINE(((SJ>0) AND (CT=1)),CLOSE,(CLOSE+OPEN)/2,8,0),colorff4400;
STICKLINE(((SJ>0) AND (CT=1)),CLOSE,(CLOSE+OPEN)/2,7,0),colorff7700;
STICKLINE(((SJ>0) AND (CT=1)),CLOSE,(CLOSE+OPEN)/2,5.8,0),colorff9911;
STICKLINE(((SJ>0) AND (CT=1)),CLOSE,(CLOSE+OPEN)/2,4.4,0),colorffbb22;
STICKLINE(((SJ>0) AND (CT=1)),CLOSE,(CLOSE+OPEN)/2,2.8,0),colorffdd33;
STICKLINE(((SJ>0) AND (CT=1)),CLOSE,(CLOSE+OPEN)/2,1,0),colorffff33;
STICKLINE(((SJ>0) AND (CT=1)),OPEN,(CLOSE+OPEN)/2,8,0),color550000;
STICKLINE(((SJ>0) AND (CT=1)),OPEN,(CLOSE+OPEN)/2,7,0),color770000;
STICKLINE(((SJ>0) AND (CT=1)),OPEN,(CLOSE+OPEN)/2,5.8,0),color990000;
STICKLINE(((SJ>0) AND (CT=1)),OPEN,(CLOSE+OPEN)/2,4.4,0),colorbb0000;
STICKLINE(((SJ>0) AND (CT=1)),OPEN,(CLOSE+OPEN)/2,2.8,0),colordd0000;
STICKLINE(((SJ>0) AND (CT=1)),OPEN,(CLOSE+OPEN)/2,1,0),colorff0000;
支撐價:LLV(LOW,30) ,COLOR7FFF00,LINETHICK2;
阻力價:HHV(HIGH,30),COLORFF9900, LINETHICK2;A4:=MA(CLOSE,20);
A5:=(CLOSE > MA(CLOSE,5));
A6:=(MA(CLOSE,5) > MA(CLOSE,10));
A7:=(CLOSE > MA(CLOSE,10));
A8:=(MA(CLOSE,5) > MA(CLOSE,20));
A9:=(CLOSE > MA(CLOSE,20));
A10:=REF(A4,1);
A11:=(A4 > A10);
AVX:=(((((IF(A5,10,(0 - 10)) + IF(A6,10,(0 - 10))) + IF(A7,10,(0 - 10))) + IF(A8,10,(0 - 10))) + IF(A9,10,(0 - 10))) + IF(A11,10,(0 - 10)));
DSLX:=(CLOSE / INDEXC);
DSLX1:=MA(DSLX,5);
DSLX2:=MA(DSLX,10);
V1:=MA(VOL,5);
V2:=MA(VOL,10);
T := BARSLAST(BARSTATUS=1)+1;
HHg := HHV(HIGH, T);
ddg := LLV(LOW, T);
{Hk := LL-HH; G12 := LL-HK*1.55; }
a001:=BARSTATUS=2 and CLOSE<200 and ((CROSS(AVX,1) AND (V1 >= V2)) AND (DSLX >= DSLX1));
DRAWTEXTEX(a001,0,12,170,'該股的量能理想，有明顯走強跡象，可以考慮中線進場參與，倉位在2/3左右。 '),color0000FF,LINETHICK3;
a002:=BARSTATUS=2 and CLOSE<200 and ((CROSS(AVX,1) AND (V1 < V2)) AND (DSLX >= DSLX1));
DRAWTEXTEX(a002,0,12,170,'該股雖然走勢趨強，但量能還顯不足，可以考慮短線進場，倉位在1/2左右。 '),color0000FF,LINETHICK3;
a003:=BARSTATUS=2 and CLOSE<200 and ((CROSS(AVX,1) AND (V1 > V2)) AND (DSLX < DSLX1));
DRAWTEXTEX(a003,0,12,170,'該股量價配合良好，但相對其它股票并沒有明顯走強，可以考慮短線進場，倉位1/2左右。 '),color0000FF,LINETHICK3;
a004:=BARSTATUS=2 and CLOSE<200 and ((CROSS(AVX,1) AND (V1 <= V2)) AND (DSLX < DSLX1));
DRAWTEXTEX(a004,0,12,170,'該股形態尚可，但量能不足，股票也未完全走強，可以短線參與，倉位1/3左右。 '),color0000FF,LINETHICK3;
a005:=BARSTATUS=2 and CLOSE<200 and ((CROSS(1,AVX) AND (V1 >= V2)) AND (DSLX >= DSLX1));
DRAWTEXTEX(a005,0,12,170,'該股形態變壞，但走勢相對其它股票尚可，重倉者減持大半，清倉者可以觀望。 '),color00FF00,LINETHICK3;
a006:=BARSTATUS=2 and CLOSE<200 and ((CROSS(1,AVX) AND (V1 < V2)) AND (DSLX >= DSLX1));
DRAWTEXTEX(a006,0,12,170,'該股隨大盤一起下跌，程明顯縮量走勢，考慮到大盤風險，減持或清倉。 '),color00FF00,LINETHICK3;
a007:=BARSTATUS=2 and CLOSE<200 and ((CROSS(1,AVX) AND (V1 >= V2)) AND (DSLX < DSLX1));
DRAWTEXTEX(a007,0,12,170,'該股放量下跌，走勢明顯偏弱，離場觀望。 '),color00FF00,LINETHICK3;
a0071:=BARSTATUS=2 and CLOSE<200 and ((CROSS(1,AVX) AND (V1 < V2)) AND (DSLX < DSLX1));
DRAWTEXTEX(a0071,0,12,170,'該股縮量下跌，走勢偏弱，離場觀望。 '),color00FF00,LINETHICK3;
a008:=BARSTATUS=2 and CLOSE<200 and ((((AVX >= 1) AND (REF(AVX,1) > 0)) AND (V1 >= V2)) AND (DSLX >= DSLX1));
DRAWTEXTEX(a008,0,12,170,'該股形態良好，強勢明顯，量能充足，可以繼續持有。 '),color00FFFF,LINETHICK3;
a009:=BARSTATUS=2 and CLOSE<200 and ((((AVX >= 1) AND (REF(AVX,1) > 0)) AND (V1 < V2)) AND (DSLX >= DSLX1));
DRAWTEXTEX(a009,0,12,170,'該股上行趨勢不變，強勢依然，但量能開始轉弱，注意風險。 '),color00FFFF,LINETHICK3;
a010:=BARSTATUS=2 and CLOSE<200 and ((((AVX >= 1) AND (REF(AVX,1) > 0)) AND (V1 >= V2)) AND (DSLX < DSLX1));
DRAWTEXTEX(a010,0,12,170,'該股仍然具備上漲潛力，但股性偏弱，可考慮減倉。 '),color00FFFF,LINETHICK3;
a011:=BARSTATUS=2 and CLOSE<200 and ((((AVX >= 1) AND (REF(AVX,1) > 0)) AND (V1 < V2)) AND (DSLX < DSLX1));
DRAWTEXTEX(a011,0,12,170,'該股走勢趨弱，量能不足，減持大部分籌碼。 '),color00FFFF,LINETHICK3;
a012:=BARSTATUS=2 and CLOSE<200 and ((((AVX < 1) AND (REF(AVX,1) < 0)) AND (V1 >= V2)) AND (DSLX >= DSLX1));
DRAWTEXTEX(a012,0,12,170,'該股形態不佳，注意成交量的變化，但目前不適合參與。 '),COLOR00FF00,LINETHICK3;
a013:=BARSTATUS=2 and CLOSE<200 and ((((AVX < 1) AND (REF(AVX,1) < 0)) AND (V1 < V2)) AND (DSLX >= DSLX1));
DRAWTEXTEX(a013,0,12,170,'該股趨勢不明，股價偏弱，注意量能變化，目前不宜參與。 '),COLOR00FF00,LINETHICK3;
a014:=BARSTATUS=2 and CLOSE<200 and ((((AVX < 1) AND (REF(AVX,1) < 0)) AND (V1 >= V2)) AND (DSLX < DSLX1));
DRAWTEXTEX(a014,0,12,170,'該股有走強跡象，但量能不足，趨勢不明，不適合操作。 '),COLOR00FF00,LINETHICK3;
a015:=BARSTATUS=2 and CLOSE<200 and ((((AVX < 1) AND (REF(AVX,1) < 0)) AND (V1 < V2)) AND (DSLX < DSLX1));
DRAWTEXTEX(a015,0,12,170,'該股走勢太弱，沒有參與價值。 '),COLOR00FF00,LINETHICK3;
a016:=BARSTATUS=2 and CLOSE>200 and (CROSS(AVX,1) AND (V1 >= V2));
DRAWTEXTEX(a016,0,12,170,'大盤量能理想，有明顯走強跡象，可以考慮中線進場參與，倉位在2/3左右， '),color0000FF,LINETHICK3;
a017:=BARSTATUS=2 and CLOSE>200 and (CROSS(AVX,1) AND (V1 >= V2));
DRAWTEXTEX(a017,0,12,170,'如前期經過一輪下跌，此時為最佳買點，但如果前期有過一段漲幅則介入需謹慎。 '),color0000FF,LINETHICK3;
a018:=BARSTATUS=2 and CLOSE>200 and (CROSS(AVX,1) AND (V1 < V2));
DRAWTEXTEX(a018,0,12,170,'大盤雖然走勢趨強，但量能還顯不足，如果前期經過一輪下跌， '),color0000FF,LINETHICK3;
a019:=BARSTATUS=2 and CLOSE>200 and (CROSS(AVX,1) AND (V1 < V2));
DRAWTEXTEX(a019,0,12,170,'可以考慮短線進場，倉位在1/2左右，一旦量能放大可以加倉買入。 '),color0000FF,LINETHICK3;
a020:=BARSTATUS=2 and CLOSE>200 and (CROSS(1,AVX) AND (V1 >= V2));
DRAWTEXTEX(a020,0,12,170,'大盤形態走壞，重倉者可以減去大部分倉位。 '),color00FF00,LINETHICK3;
a021:=BARSTATUS=2 and CLOSE>200 and (CROSS(1,AVX) AND (V1 < V2));
DRAWTEXTEX(a021,0,12,170,'大盤縮量調整，注意風險，短線清倉觀望。 '),color00FF00,LINETHICK3;
a022:=BARSTATUS=2 and CLOSE>200 and (((AVX >= 1) AND (REF(AVX,1) > 0)) AND (V1 >= V2));
DRAWTEXTEX(a022,0,12,170,'大盤走勢良好，量能理想，可以繼續持有強勢股。 '),color00FFFF,LINETHICK3;
a023:=BARSTATUS=2 and CLOSE>200 and (((AVX >= 1) AND (REF(AVX,1) > 0)) AND (V1 < V2));
DRAWTEXTEX(a023,0,12,170,'大盤形態良好，但量能稍顯不足，隨時準備減倉。 '),color00FFFF,LINETHICK3;
a024:=BARSTATUS=2 and CLOSE>200 and (((AVX < 1) AND (REF(AVX,1) < 0)) AND (V1 >= V2));
DRAWTEXTEX(a024,0,12,170,'大盤趨勢不明，注意成交量變化，目前不適宜進場。 '),COLOR00FF00,LINETHICK3;
a025:=BARSTATUS=2 and CLOSE>200 and (((AVX < 1) AND (REF(AVX,1) < 0)) AND (V1 < V2));
DRAWTEXTEX(a025,0,12,170,'大盤趨勢向下，量能萎縮，不適合進場。 '),COLOR00FF00,LINETHICK3;
NN:= BARSTATUS=2;

公式導入教程: 【通達信公式源碼導入方法教程】【同花順公式源碼導入方法教程】【大智慧新一代公式源碼導入方法教程】