打印本文
關閉窗口
相關標簽:
?
自用主圖，變紅可以關注，買入結合副圖，變綠賣出，喜歡的朋友看看，源碼奉獻。
?
?
AVX:=(((((IF(C>MA(C,5),10,(0-10))+IF(MA(C,5)>MA(C,10),10,(0-10)))+IF(C>MA(C,10),10,(0-10)))+IF(MA(C,5)>MA(C,20),10,(0-10)))+IF((C>MA(C,20)),10,(0-10)))+IF(MA(C,20)>REF(MA(C,20),1),10,(0-10)));
DSLX:=(C/INDEXC);
DSLX1:=MA(DSLX,5);
TJTS1:=BARSTATUS=2 AND C<200;
TJTS2:=BARSTATUS=2 AND C>200;
V1:=MA(V,3);
V2:=MA(V,8);
K2:=HHV(H*0.99,BARSLAST(BARSTATUS=1));
DRAWTEXT_FIX(TJTS1 AND ((CROSS(AVX,1) AND (V1>=V2)) AND (DSLX>=DSLX1)),0.5,0,0,'量能穩定,有走強跡象,根據指數線性關系布局分批介入. '),COLORRED,LINETHICK1;
DRAWTEXT_FIX(TJTS1 AND ((CROSS(AVX,1) AND (V1<V2)) AND (DSLX>=DSLX1)),0.5,0,0,'走勢趨強,量能不足,根據指數線性關系布局分批買入. '),COLORRED,LINETHICK1;
DRAWTEXT_FIX(TJTS1 AND ((CROSS(AVX,1) AND (V1>V2)) AND (DSLX<DSLX1)),0.5,0,0,'量價配合良好,沒有明顯走強,根據指數線性關系考慮進入與否. '),COLORYELLOW,LINETHICK1;
DRAWTEXT_FIX(TJTS1 AND ((CROSS(AVX,1) AND (V1<=V2)) AND (DSLX<DSLX1)),0.5,0,0,'形態尚可,量能不足,未完全走強,根據指數線性關系考慮是否進入. '),COLORGREEN,LINETHICK1;
DRAWTEXT_FIX(TJTS1 AND ((CROSS(1,AVX) AND (V1>=V2)) AND (DSLX>=DSLX1)),0.5,0,0,'形態變壞,減持或者賣出觀望. '),COLORGREEN,LINETHICK2;
DRAWTEXT_FIX(TJTS1 AND ((CROSS(1,AVX) AND (V1<V2)) AND (DSLX>=DSLX1)),0.5,0,0,'明顯縮量走勢,根據指數線性關系減持或清倉,等待機會. '),COLORWHITE,LINETHICK1;
DRAWTEXT_FIX(TJTS1 AND ((CROSS(1,AVX) AND (V1>=V2)) AND (DSLX<DSLX1)),0.5,0,0,'走勢偏弱,謹慎操作. '),COLORGREEN,LINETHICK1;
DRAWTEXT_FIX(TJTS1 AND ((CROSS(1,AVX) AND (V1<V2)) AND (DSLX<DSLX1)),0.5,0,0,'縮量下跌,走勢偏弱,離場觀望. '),COLORGREEN,LINETHICK1;
DRAWTEXT_FIX(TJTS1 AND ((((AVX>=1) AND (REF(AVX,1)>0)) AND (V1>=V2)) AND (DSLX>=DSLX1)),0.5,0,0,'強勢明顯,量能充足,注意前期平臺和指數影響. '),COLORRED,LINETHICK1;
DRAWTEXT_FIX(TJTS1 AND ((((AVX>=1) AND (REF(AVX,1)>0)) AND (V1<V2)) AND (DSLX>=DSLX1)),0.5,0,0,'強勢依然,量能轉弱,高拋低吸做好布局. '),COLORCYAN,LINETHICK2;
DRAWTEXT_FIX(TJTS1 AND ((((AVX>=1) AND (REF(AVX,1)>0)) AND (V1>=V2)) AND (DSLX<DSLX1)),0.5,0,0,'具備上漲潛力,根據線性關系操作. '),COLORCYAN,LINETHICK2;
DRAWTEXT_FIX(TJTS1 AND ((((AVX>=1) AND (REF(AVX,1)>0)) AND (V1<V2)) AND (DSLX<DSLX1)),0.5,0,0,'走勢趨弱,量能不足,減持籌碼. '),COLORCYAN,LINETHICK2;
DRAWTEXT_FIX(TJTS1 AND ((((AVX<1) AND (REF(AVX,1)<0)) AND (V1>=V2)) AND (DSLX>=DSLX1)),0.5,0,0,'形態不佳,注意量能變化,跟蹤分析確認. '),LINETHICK2;
DRAWTEXT_FIX(TJTS1 AND ((((AVX<1) AND (REF(AVX,1)<0)) AND (V1<V2)) AND (DSLX>=DSLX1)),0.5,0,0,'走勢雖弱,關注線性關系和量能變化,確認業績、題材. '),COLORYELLOW,LINETHICK2;
DRAWTEXT_FIX(TJTS1 AND ((((AVX<1) AND (REF(AVX,1)<0)) AND (V1>=V2)) AND (DSLX<DSLX1)),0.5,0,0,'有走強跡象,上漲壓力大,根據大盤情況操作. '),COLORYELLOW,LINETHICK2;
DRAWTEXT_FIX(TJTS1 AND ((((AVX<1) AND (REF(AVX,1)<0)) AND (V1<V2)) AND (DSLX<DSLX1)),0.5,0,0,'走勢太弱,整理后關注量能和信號提示. '),LINETHICK2,COLORYELLOW;
DRAWTEXT_FIX(TJTS2 AND (CROSS(AVX,1) AND (V1>=V2)),0.5,0,0,'量能穩定,有明顯走強跡象,可以考慮布局. '),COLORWHITE,LINETHICK2;
DRAWTEXT_FIX(TJTS2 AND (CROSS(AVX,1) AND (V1>=V2)),0.5,0,0,'如前期經過一輪下跌，此時為最佳買點，但前期有過一段漲幅則介入需謹慎. '),COLORWHITE,LINETHICK2;
DRAWTEXT_FIX(TJTS2 AND (CROSS(AVX,1) AND (V1<V2)),0.5,0,0,'雖然走勢趨強,量能還顯不足,根據線性關系操作. '),COLORWHITE,LINETHICK2;
DRAWTEXT_FIX(TJTS2 AND (CROSS(AVX,1) AND (V1<V2)),0.5,0,0,' 可以謹慎布局,控制倉位,一旦量能放大可以重倉買入. '),COLORWHITE,LINETHICK2;
DRAWTEXT_FIX(TJTS2 AND (CROSS(1,AVX) AND (V1>=V2)),0.5,0,0,'大盤形態走壞,減倉或者拋光. '),COLORGREEN,LINETHICK2;
DRAWTEXT_FIX(TJTS2 AND (CROSS(1,AVX) AND (V1<V2)),0.5,0,0,'弱勢縮量調整,清倉觀望,尋找可布局股票. '),COLORWHITE,LINETHICK2;
DRAWTEXT_FIX(TJTS2 AND (((AVX>=1) AND (REF(AVX,1)>0)) AND (V1>=V2)),0.5,0,0,'走勢良好,量能穩定,可以繼續持有強勢股. '),COLORWHITE,LINETHICK2;
DRAWTEXT_FIX(TJTS2 AND (((AVX>=1) AND (REF(AVX,1)>0)) AND (V1<V2)),0.5,0,0,'形態良好,量能稍顯不足,線性關系頂部背離,隨時準備清倉. '),COLORWHITE,LINETHICK2;
DRAWTEXT_FIX(TJTS2 AND (((AVX<1) AND (REF(AVX,1)<0)) AND (V1>=V2)),0.5,0,0,'趨勢不明,注意量能和線性關系變化,減少操作. '),LINETHICK2,COLORWHITE;
DRAWTEXT_FIX(TJTS2 AND (((AVX<1) AND (REF(AVX,1)<0)) AND (V1<V2)),0.5,0,0,'趨勢向下,量能萎縮,關注線性關系變化,減少操作. '),LINETHICK2,COLORWHITE;
RSV:=(CLOSE-LLV(LOW,13))/(HHV(HIGH,13)-LLV(LOW,13))*100;
K1:=SMA(RSV,3,1);
D1:=SMA(K1,3,1);
高1:=HHV(H,150);
低1:=LLV(L,150);
QR:=(H+L+2*C)/4;
強弱分界線:=EMA(QR,55),COLORFFFF00;
TFXXS:=INTPART(K1)+INTPART(D1);
TGL:=(TFXXS-REF(TFXXS,1));
DRAWTEXT_FIX(ISLASTBAR AND TGL>=0 AND TGL>REF(TGL,1),0.99,0.01,1,'資金狀況：流入加快'),COLOR0202FF;
DRAWTEXT_FIX(ISLASTBAR AND TGL>=0 AND TGL<=REF(TGL,1),0.99,0.01,1,'資金狀況：流入減慢'),COLOR1876E9;
DRAWTEXT_FIX(ISLASTBAR AND TGL<0 AND TGL>REF(TGL,1),0.99,0.01,1,'資金狀況：流出減慢'),COLOR13B79A;
DRAWTEXT_FIX(ISLASTBAR AND TGL<0 AND TGL<=REF(TGL,1),0.99,0.01,1,'資金狀況：流出加快'),COLOR00CA00;
VAR1E:=REF((LOW+OPEN+CLOSE+HIGH)/4,1);
VAR2E:=SMA(ABS(LOW-VAR1E),13,1)/SMA(MAX(LOW-VAR1E,0),10,1);
VAR3E:=EMA(VAR2E,10);
VAR4E:=LLV(LOW,33);
VAR5E:=EMA(IF(LOW<=VAR4E,VAR3E,0),3);
VAR21E:=SMA(ABS(HIGH-VAR1E),13,1)/SMA(MIN(HIGH-VAR1E,0),10,1);
VAR31E:=EMA(VAR21E,10);
VAR41E:=HHV(HIGH,33);
VAR51E:=EMA(IF(HIGH>=VAR41E,VAR31E,0),3);
DRAWTEXT_FIX(ISLASTBAR AND VAR51E<REF(VAR51E,1),0.99,0.08,1,'主力正在拉高'),COLOR0202FF;
DRAWTEXT_FIX(ISLASTBAR AND VAR5E>REF(VAR5E,1),0.99,0.15,1,'典型吸籌行為'),COLOR1876E9;
DRAWTEXT_FIX(ISLASTBAR AND VAR5E<REF(VAR5E,1),0.99,0.15,1,'典型洗盤行為'),COLORC08000;
DRAWTEXT_FIX(ISLASTBAR AND VAR5E=REF(VAR5E,1),0.99,0.15,1,'無特殊行為'),COLORC0C0C0;
DRAWTEXT_FIX(ISLASTBAR AND VAR51E>REF(VAR51E,1),0.99,0.08,1,'主力正在出貨'),COLOR00CA00;
DRAWTEXT_FIX(ISLASTBAR AND VAR51E=REF(VAR51E,1),0.99,0.08,1,'主力無大動作'),COLORC0C0C0;
{拉升潛力}
VAR78:=C/EXPMA(C,5);
A1:=COST(1.91);
A2:=COST(3.82);
A3:=COST(5);
A4:=COST(6.18);
A5:=COST(8.09);
COSTT:=(A1+A2+A3+A4+A5)/5;
COSTT1:=C/COSTT;
VARD1:=(2*INDEXC+INDEXH+INDEXL)/4;
VARD2:=LLV(INDEXL,21);
VARD3:=HHV(INDEXH,8);
MIJI:=EMA((VARD1-VARD2)/(VARD3-VARD2)*100,9);
MIJI1:=MIJI-VAR78;
MIJI2:=MIJI1-REF(MIJI1,1);
MIJI3:=MIJI-REF(MIJI,1);
DAPAN:=COSTT1-(MIJI3+0.618*MIJI2)/16.18;
DRAWTEXT_FIX(ISLASTBAR AND DAPAN<COSTT1,0.99,0.8,1,'受大盤拉動'),COLOR0202FF;
DRAWTEXT_FIX(ISLASTBAR AND DAPAN>=COSTT1,0.99,0.8,1,'受大盤壓制'),COLOR00CA00;
X1E:=(FINANCE(11)-FINANCE(15))/FINANCE(10)*1.2;
X2E:=(FINANCE(31)+FINANCE(17))/FINANCE(10)*1.4;
X3E:=FINANCE(23)/FINANCE(10)*3.3;
X4E:=FINANCE(19)/FINANCE(15)*0.6;
X5E:=FINANCE(20)/FINANCE(15)*0.999;
YAOGU:=X1E+X2E+X3E+X4E+X5E;
XJF:=CON2STR(FINANCE(25)/FINANCE(15),3);
YZZ:=CON2STR((FINANCE(19)-FINANCE(22)-FINANCE(27))/FINANCE(19),2);
DRAWTEXT_FIX(YAOGU<=0,0.99,0.99,1,'拉升潛力：難于登天'),COLOR00FF00;
DRAWTEXT_FIX(YAOGU>0 AND YAOGU<=1.2,0.99,0.99,1,'拉升潛力：難度較大'),COLOR3A8B5C;
DRAWTEXT_FIX(YAOGU>1.2 AND YAOGU<=2.6,0.99,0.99,1,'拉升潛力：尚可一試'),COLOR4747B8;
DRAWTEXT_FIX(YAOGU>2.6 AND YAOGU<=5.8,0.99,0.99,1,'拉升潛力：較為容易'),COLOR2424DB;
DRAWTEXT_FIX(YAOGU>5.8,0.99,0.99,1,'拉升潛力：輕而易舉'),COLOR0000FF;
DRAWTEXT_FIX(XJF>=1618,0.99,0.86,1,'過于保守'),COLOR4747B8;
DRAWTEXT_FIX(XJF>=618 AND XJF<1618,0.99,0.86,1,'保守求穩'),COLOR4747B8;
DRAWTEXT_FIX(XJF>=100 AND XJF<618,0.99,0.86,1,'收支平衡'),,COLOR0000FF;
DRAWTEXT_FIX(XJF<100,0.99,0.86,1,'負債過多'),COLOR00FF00;
DRAWTEXT_FIX(YZZ<85,0.99,0.86,1,'資產質地差'),COLOR00FF00;
快線:=EMA(C,7)-EMA(C,21),LINETHICK2,COLORRED;
慢線:=MA(快線,4),COLORGREEN,LINETHICK2;
數值:=EMA((0.668*REF(快線,1)+0.333*快線),1),COLORSTICK;
X1:=V/SUM(V,13);
X2:=DMA(C,X1);
X3:=(C-X2)/X2*40;
L2:=MA(AMOUNT/(100*V),13);
CYS13:= (C-L2)/L2*100;
做多:=IF(快線>=數值,快線,數值);
做空:=IF(數值-快線,數值,快線);
強莊:STICKLINE(CYS13>5,L-0.22,L-0.35,2,0),COLORCYAN;
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,LINETHICK2,COLORRED;
VAR2:=(HHV(VAR1,2)+HHV(VAR1,4)+HHV(VAR1,8))/0;
VAR3:=(LLV(VAR1,2)+LLV(VAR1,4)+LLV(VAR1,8))/3;
VAR4:=(HHV(VAR2,2)+HHV(VAR2,4)+HHV(VAR2,8))/0;
VAR5:(LLV(VAR3,2)+LLV(VAR3,4)+LLV(VAR3,8))/3,COLORRED;
VAR6:=(LLV(VAR1,2)+LLV(VAR1,4)+LLV(VAR1,8))/3;
{DRAWBAND(VAR1,RGB(155,50,50),VAR6,RGB(250,250,0));}
IF((VAR1 <= REF(VAR1,1)),VAR1,DRAWNULL),COLORGREEN,LINETHICK3;
IF((VAR1 >= REF(VAR1,1)),VAR1,DRAWNULL),COLORRED,LINETHICK3;
STICKLINE(VAR4>VAR1,VAR4,VAR1,0,0),COLORBLUE;
DRAWKLINE(H,O,L,C);
DRAWTEXT(REF(VAR5,1)=REF(VAR1,1) AND VAR5<VAR1,L*0.99,'↖買入'),COLORYELLOW;
DRAWTEXT(REF(VAR6,1)=REF(VAR1,1) AND VAR6<VAR1,L*0.98,'↖加倉'),COLORYELLOW;
CC:=((HIGH+LOW+CLOSE)/3-EMA((HIGH+LOW+CLOSE)/3,5))/(0.015*AVEDEV((HIGH+LOW+CLOSE)/3,5));
STICKLINE(CC>=0,LOW,HIGH,0.0,0),COLORRED;
STICKLINE(CC>=0,CLOSE,OPEN,3,1),COLORRED;
STICKLINE(CC<0,LOW,HIGH,0.0,0),COLORGREEN;
STICKLINE(CC<0,CLOSE,OPEN,3,1),COLORGREEN;
月DI:="MACD.DIF#MONTH";
月DE:="MACD.DEA#MONTH";
周DI:="MACD.DIF#WEEK";
周DE:="MACD.DEA#WEEK";
日DI:="MACD.DIF";
日DE:="MACD.DEA";
日金叉:=CROSS(日DI,日DE);
周金叉:=CROSS(周DI,周DE);
月金叉:=CROSS(月DI,月DE);
日穿0:=CROSS(日DI,0);
周穿0:=CROSS(周DI,0);
月穿0:=CROSS(月DI,0);
DRAWTEXT(日穿0,LOW-0.48,'↖日穿0'),COLORCYAN;
DRAWTEXT(周穿0,L*0.94,'↖周穿0'),COLORCYAN;
DRAWTEXT(月穿0,L*0.99,'↖月穿0'),COLORCYAN;
DRAWTEXT(日金叉,LOW-0.3,'↖日金叉'),COLORCYAN;
DRAWTEXT(周金叉,L*0.92,'↖周金叉'),COLORCYAN;
DRAWTEXT(月金叉,L*0.90,'↖月金叉'),COLORCYAN;
{穿三線}
MA2:=EMA(C,2);
MA05:=EMA(C,5);
MA010:=EMA(C,10);
MA020:=EMA(C,20);
MA030:=EMA(C,30);
YC0X:=MA05>=REF(MA05,1);
H01:=MAX(MAX(MA05,MA010),MA020);
L01:=MIN(MIN(MA05,MA010),MA020);
一穿三線:=H01<C AND O<L01 AND YC0X AND MA2>REF(MA2,1);
STICKLINE(一穿三線,O,C,0.3,0),COLORYELLOW;
DRAWTEXT(一穿三線,L-0.62, '←穿三線'),COLORGREEN;
{資金凈流入監控}
總額:=AMOUNT;
買A:=IF(O=C AND (C-REF(C,1))/REF(C,1)*100>9.8,AMOUNT,AMOUNT/((H-L)*2-ABS(O-C))*(C-L));
買%:=買A/AMOUNT*100;
流入:=AMOUNT*買%/10000000000;
流出:=AMOUNT/100000000-流入;
凈流:=(流入-流出);
總額3:=SUM(AMOUNT,3);
流入3:=SUM(流入,3);
流出3:=SUM(流出,3);
凈流3:=SUM(流入-流出,3);
總額5:=SUM(AMOUNT,5);
流入5:=SUM(流入,5);
流出5:=SUM(流出,5);
凈流5:=SUM(流入-流出,5);
總額10:=SUM(AMOUNT,10);
流入10:=SUM(流入,10);
流出10:=SUM(流出,10);
凈流10:=SUM(流入-流出,10);
畫:=CONST(FINDHIGH(總額10,0,190,1));
DRAWTEXT_FIX(1,0,0.37,0,'凈流(億):'),COLORMAGENTA,LINETHICK1;
DRAWTEXT_FIX(1,0,0.45,0,'1日'),COLORMAGENTA,LINETHICK1;
DRAWTEXT_FIX(1,0,0.55,0,'3日'),COLORMAGENTA,LINETHICK1;
DRAWTEXT_FIX(1,0,0.65,0,'5日'),COLORMAGENTA,LINETHICK1;
DRAWTEXT_FIX(1,0,0.75,0,'10日'),COLORMAGENTA,LINETHICK1;
DRAWNUMBER_FIX(1,0.05,0.45,0,CONST((凈流))),COLORYELLOW;
DRAWNUMBER_FIX(1,0.05,0.55,0,CONST((凈流3))),COLORYELLOW;
DRAWNUMBER_FIX(1,0.05,0.65,0,CONST((凈流5))),COLORYELLOW;
DRAWNUMBER_FIX(1,0.05,0.75,0,CONST((凈流10))),COLORYELLOW;DRAWTEXT_FIX(C>O,0.01,0.9,0,' www.tumamayizhan.com '),COLORRED;
DRAWTEXT_FIX(C>O,1,1,0,'程序化交易模型'),COLORRED;
?
?
公式導入教程: 【通達信公式源碼導入方法教程】 【同花順公式源碼導入方法教程】 【大智慧新一代公式源碼導入方法教程】
?