相關標簽: 機構專用操盤主圖指標 、 通達信機構操盤線源碼 、 金鉆操盤線多空線指標 、 吳劍機構操盤線源碼 、 通達信操盤線指標源碼 、 通達信五星操盤線指標 、 機構操盤線手機版指標 、 主力趨勢線源碼指標 、 通達信機構操盤主圖 、 操盤提醒指標源碼 、 機構操盤趨勢線主圖指標 、 機構庫存指標公式源碼 、
?
來自,回報。用法很簡單,文字提示,一看就明白。
源碼奉上;
輕松操盤
?
原理解析:
?
?來源:程序化99( www.tumamayizhan.com )
源碼:
?
?
?
量能飽和度:IF((AMOUNT/C)/(HHV(AMOUNT,20)/HHV(C,20))*100>100,100,(AMOUNT/C)/(HHV(AMOUNT,20)/HHV(C,20))*100),NODRAW,COLORYELLOW; N:=10;突破:REF(EMA(C,N),1),COLORMAGENTA,LINETHICK1; A1X:(EMA(C,5)-突破)/突破*100,NODRAW;距離:=(C-突破)/突破*100,NODRAW;出擊:IF(A1X>=0,REF(EMA(C,N),BARSLAST(CROSS(A1X,0))+1),DRAWNULL)COLORMAGENTA,LINETHICK1;休假:IF(A1X<0,REF(EMA(C,N),BARSLAST(CROSS(0,A1X))+1),DRAWNULL)COLORGREEN,LINETHICK1;STICKLINE(A1X>=0,出擊,突破,0,-1)COLORMAGENTA;STICKLINE(A1X<0,休假,突破,0,-1)COLORGREEN;持幣:IF(A1X<0,突破,DRAWNULL)COLORGREEN,LINETHICK1;DRAWTEXT(ISLASTBAR AND 出擊,出擊,' 出擊'),COLORMAGENTA;DRAWTEXT(ISLASTBAR AND 休假,休假,' 休假'),COLORGREEN;短頂:HHV(H,20),COLORWHITE;短底:LLV(L,20),COLOR00FF00;長頂:HHV(H,60),COLORRED;長底:LLV(L,60),COLORYELLOW;DRAWKLINE(H,O,L,C);漲幅:IF(A1X>=0,(C-出擊)/出擊*100,DRAWNULL)NODRAW;跌幅:IF(A1X<0,(C-休假)/休假*100,DRAWNULL)NODRAW;MA5:=MA(C,5);MA18:=MA(CLOSE,18);MA13:=MA(C,13);A:=(3*C+L+O+H)/6;VAR1:=(20*A+19*REF(A,1)+18*REF(A,2)+17*REF(A,3)+16*REF(A,4)+15*REF(A,5)+14*REF(A,6)+13*REF(A,7)+12*REF(A,8)+11*REF(A,9)+10*REF(A,10)+9*REF(A,11)+8*REF(A,12)+7*REF(A,13)+6*REF(A,14)+5*REF(A,15)+4*REF(A,16)+3*REF(A,17)+2*REF(A,18)+REF(A,20))/210;MTM:=C-REF(C,1);CB:=EMA(VAR1,13);DX:=100*EMA(EMA(MTM,6),6)/EMA(EMA(ABS(MTM),6),6);賣:=HHV(DX,2)=HHV(DX,7) AND COUNT(DX>50,2) AND CROSS(MA(DX,2),DX);DRAWTEXT(FILTER(賣=1,1),HIGH*1.01,'S'),COLORGREEN;買:=LLV(DX,2)=LLV(DX,7) AND COUNT(DX<0,2) AND CROSS(DX,MA(DX,2));DRAWTEXT(FILTER(買=1,5),LOW-0.03,'B'),COLOR00DDDD;加倉:=SMA(EMA((C-REF(C,1))/REF(C,1),5)*100,3,1)*10;DRAWTEXT(FILTER((CROSS(加倉,0) OR CROSS(CLOSE,CB)) AND 買=1,3),LOW-0.03,'↖㈩'),COLORWHITE;跟:=MA18>=REF(MA18,3) AND CROSS(CLOSE,MA18);DRAWTEXT(跟,LOW*0.999,'↖ 跟'),COLORRED;陽漲幅:=5;陽倍量:=2;單陽:=C>O*(1+陽漲幅/100) AND VOL>REF(VOL,1)*陽倍量;DRAWTEXT(CURRBARSCOUNT<100 AND 單陽,L*0.98,'陽'),COLOR00BBBB;STICKLINE(CURRBARSCOUNT<100 AND 單陽,O,C,0.8,0),COLOR00FFFF;高不破價:=REF(C,BARSLAST(單陽));中不破價:=REF((C+L)/2,BARSLAST(單陽));低不破價:=REF(L,BARSLAST(單陽));單陽不破:=CURRBARSCOUNT<100 AND BARSLAST(單陽)<11 AND {(LLV(L,BARSLAST(單陽))>低不破價 OR LLV(L,BARSLAST(單陽))=低不破價)}(LLV(C,BARSLAST(單陽))>低不破價 OR LLV(C,BARSLAST(單陽))=低不破價);STICKLINE(單陽不破,低不破價-低不破價*0.002,{低不破價}低不破價-低不破價*0.002,4.1,0),COLORRED;量:V,NODRAW;單陽量:REF(V,BARSLAST(單陽)),NODRAW;單陽后均量:SUM(V,BARSLAST(單陽)-1)/(BARSLAST(單陽)-1),NODRAW;單陽后縮量:單陽后均量<單陽量*0.75,NODRAW;單陽線體:=REF(C-O,BARSLAST(單陽)),NODRAW;小線體:=ABS(C-O)<單陽線體/2.5,NODRAW;小線體嚴:COUNT(小線體,BARSLAST(單陽)-1)>BARSLAST(單陽)-2,NODRAW;小線體松:COUNT(小線體,BARSLAST(單陽)-1)>BARSLAST(單陽)-3 AND C<REF(C,1)*1.03,NODRAW;兩天:=LLV(C,BARSLAST(單陽))>低不破價 OR LLV(C,BARSLAST(單陽))=低不破價;一般:=LLV(C,BARSLAST(單陽)-2)>低不破價 OR LLV(C,BARSLAST(單陽)-2)=低不破價;一般選股:STICKLINE(CURRBARSCOUNT<100 AND BARSLAST(單陽)<9 AND 兩天 AND 一般,低不破價,低不破價,2,0),COLOR88FF00;較強:=LLV(C,BARSLAST(單陽)-2)>中不破價 OR LLV(C,BARSLAST(單陽)-2)=中不破價;較強選股:STICKLINE(CURRBARSCOUNT<100 AND BARSLAST(單陽)<9 AND 兩天 AND 較強,中不破價,中不破價,2,0),COLOR0088FF;最強:=LLV(C,BARSLAST(單陽)-2)>高不破價 OR LLV(C,BARSLAST(單陽)-2)=高不破價;最強選股:STICKLINE(CURRBARSCOUNT<100 AND BARSLAST(單陽)<9 AND 兩天 AND 最強,高不破價,高不破價,2,0),COLOR00FFFF;DRAWTEXT(BARSLAST(單陽)=1 AND 單陽不破,低不破價-低不破價*0.02,'1'),COLOR00BB00;DRAWTEXT(BARSLAST(單陽)=2 AND 單陽不破,低不破價-低不破價*0.02,'2'),COLOR00BB00;DRAWTEXT(BARSLAST(單陽)=3 AND 單陽不破,低不破價-低不破價*0.02,'3'),COLOR00BB00;DRAWTEXT(BARSLAST(單陽)=4 AND 單陽不破,低不破價-低不破價*0.02,'4'),COLOR00BB00;DRAWTEXT(BARSLAST(單陽)=5 AND 單陽不破,低不破價-低不破價*0.02,'5'),COLOR00BB00;DRAWTEXT(BARSLAST(單陽)=6 AND 單陽不破,低不破價-低不破價*0.02,'6'),COLOR00BB00;DRAWTEXT(BARSLAST(單陽)=7 AND 單陽不破,低不破價-低不破價*0.02,'7'),COLOR00BB00;DRAWTEXT(BARSLAST(單陽)=8 AND 單陽不破,低不破價-低不破價*0.02,'8'),COLOR00BB00;DRAWTEXT(BARSLAST(單陽)=9 AND 單陽不破,低不破價-低不破價*0.02,'9'),COLOR00BB00;DRAWTEXT(BARSLAST(單陽)=10 AND 單陽不破,低不破價-低不破價*0.02,'10'),COLOR00BB00;ARE4:=MA(C,20); ARE5:=(C>MA(C,5)); ARE6:=(MA(C,5)>MA(C,10)); ARE7:=(C>MA(C,10));ARE8:=(MA(C,5)>MA(C,20)); ARE9:=(C>MA(C,20)); ARE10:=REF(ARE4,1); ARE11:=(ARE4>ARE10);AVX:=(((((IF(ARE5,10,(0-10))+IF(ARE6,10,(0-10)))+IF(ARE7,10,(0-10)))+IF(ARE8,10,(0-10)))+IF(ARE9,10,(0-10)))+IF(ARE11,10,(0-10)));DSLX:=(C/INDEXC); DSLX1:=MA(DSLX,5); DSLX2:=MA(DSLX,10); VRE1:=MA(V,5); VRE2:=MA(V,10);阻力位:=IF((C>200),(C*1.01),(C*1.07)); 阻力位1:=IF((C<10),(C*1.05),阻力位);止損位:=IF((C>200),(C*0.99),(C*0.93)); 止損位1:=IF((C<10),(C*0.95),止損位);TJTS1:=ISLASTBAR AND C<500; TJTS2:=ISLASTBAR AND C>500;KDAT:=REFDATE(HHV(H,45)/1.01,DATE);{解盤位置}解盤1:=CONST(IF(TJTS1 AND ((CROSS(AVX,1) AND (VRE1 >= VRE2)) AND (DSLX >= DSLX1)) ,1,0));解盤2:=CONST(IF(TJTS1 AND ((CROSS(AVX,1) AND (VRE1 < VRE2)) AND (DSLX >= DSLX1)) ,1,0));解盤3:=CONST(IF(TJTS1 AND ((CROSS(AVX,1) AND (VRE1 > VRE2)) AND (DSLX < DSLX1)) ,1,0));解盤4:=CONST(IF(TJTS1 AND ((CROSS(AVX,1) AND (VRE1 <= VRE2)) AND (DSLX < DSLX1)) ,1,0));解盤5:=CONST(IF(TJTS1 AND ((CROSS(1,AVX) AND (VRE1 >= VRE2)) AND (DSLX >= DSLX1)) ,1,0));解盤6:=CONST(IF(TJTS1 AND ((CROSS(1,AVX) AND (VRE1 < VRE2)) AND (DSLX >= DSLX1)) ,1,0));解盤7:=CONST(IF(TJTS1 AND ((CROSS(1,AVX) AND (VRE1 >= VRE2)) AND (DSLX < DSLX1)) ,1,0));解盤8:=CONST(IF(TJTS1 AND ((CROSS(1,AVX) AND (VRE1 < VRE2)) AND (DSLX < DSLX1)) ,1,0));解盤9:=CONST(IF(TJTS1 AND ((((AVX >= 1) AND (REF(AVX,1) > 0)) AND (VRE1 >= VRE2)) AND (DSLX >= DSLX1)) ,1,0));解盤10:=CONST(IF(TJTS1 AND ((((AVX >= 1) AND (REF(AVX,1) > 0)) AND (VRE1 < VRE2)) AND (DSLX >= DSLX1)) ,1,0));解盤11:=CONST(IF(TJTS1 AND ((((AVX >= 1) AND (REF(AVX,1) > 0)) AND (VRE1 >= VRE2)) AND (DSLX < DSLX1)) ,1,0));解盤12:=CONST(IF(TJTS1 AND ((((AVX >= 1) AND (REF(AVX,1) > 0)) AND (VRE1 < VRE2)) AND (DSLX < DSLX1)) ,1,0));解盤13:=CONST(IF(TJTS1 AND ((((AVX < 1) AND (REF(AVX,1) < 0)) AND (VRE1 >= VRE2)) AND (DSLX >= DSLX1)) ,1,0));解盤14:=CONST(IF(TJTS1 AND ((((AVX < 1) AND (REF(AVX,1) < 0)) AND (VRE1 < VRE2)) AND (DSLX >= DSLX1)) ,1,0));解盤15:=CONST(IF(TJTS1 AND ((((AVX < 1) AND (REF(AVX,1) < 0)) AND (VRE1 >= VRE2)) AND (DSLX < DSLX1)) ,1,0));解盤16:=CONST(IF(TJTS1 AND ((((AVX < 1) AND (REF(AVX,1) < 0)) AND (VRE1 < VRE2)) AND (DSLX < DSLX1)) ,1,0));解盤17:=CONST(IF(TJTS2 AND (CROSS(AVX,1) AND (VRE1 >= VRE2)) ,1,0));解盤18:=CONST(IF(TJTS2 AND (CROSS(AVX,1) AND (VRE1 >= VRE2)) ,1,0));解盤19:=CONST(IF(TJTS2 AND (CROSS(AVX,1) AND (VRE1 < VRE2)) ,1,0));解盤20:=CONST(IF(TJTS2 AND (CROSS(AVX,1) AND (VRE1 < VRE2)) ,1,0));解盤21:=CONST(IF(TJTS2 AND (CROSS(1,AVX) AND (VRE1 >= VRE2)) ,1,0));解盤22:=CONST(IF(TJTS2 AND (CROSS(1,AVX) AND (VRE1 < VRE2)) ,1,0));解盤23:=CONST(IF(TJTS2 AND (((AVX >= 1) AND (REF(AVX,1) > 0)) AND (VRE1 >= VRE2)) ,1,0));解盤24:=CONST(IF(TJTS2 AND (((AVX >= 1) AND (REF(AVX,1) > 0)) AND (VRE1 < VRE2)) ,1,0));解盤25:=CONST(IF(TJTS2 AND (((AVX < 1) AND (REF(AVX,1) < 0)) AND (VRE1 >= VRE2)) ,1,0));解盤26:=CONST(IF(TJTS2 AND (((AVX < 1) AND (REF(AVX,1) < 0)) AND (VRE1 < VRE2)) ,1,0));解盤文字1:=IF(解盤1=1,'該股的量能理想,有明顯走強跡象,可以考慮中線進場參與,倉位在2/3左右',IF(解盤2=1,'該股雖然走勢趨強,但量能還顯不足,可以考慮短線進場,倉位在1/2左右',IF(解盤3=1,'該股量價配合良好,但相對其它股票并沒有明顯走強,可以考慮短線進場,倉位1/2左右',IF(解盤4=1,'該股形態尚可,但量能不足,股票也未完全走強,可以短線參與,倉位1/3左右',IF(解盤5=1,'該股形態變壞,但走勢相對其它股票尚可,重倉者減持大半,清倉者可以觀望',IF(解盤6=1,'該股隨大盤一起下跌,程明顯縮量走勢,考慮到大盤風險,減持或清倉',IF(解盤7=1,'該股放量下跌,走勢明顯偏弱,離場觀望',IF(解盤8=1,'該股縮量下跌,走勢偏弱,離場觀望',IF(解盤9=1,'該股形態良好,強勢明顯,量能充足,可以繼續持有',IF(解盤10=1,'該股上行趨勢不變,強勢依然,但量能開始轉弱,注意風險',IF(解盤11=1,'該股仍然具備上漲潛力,但股性偏弱,可考慮減倉',IF(解盤12=1,'該股走勢趨弱,量能不足,減持大部分籌碼',IF(解盤13=1,'該股形態不佳,注意成交量的變化,但目前不適合參與',IF(解盤14=1,'該股趨勢不明,股價偏弱,注意量能變化,目前不宜參與',IF(解盤15=1,'該股有走強跡象,但量能不足,趨勢不明,不適合操作',IF(解盤17=1,'大盤量能理想,有明顯走強跡象,可以考慮中線進場參與,倉位在2/3左右',IF(解盤19=1,'大盤雖然走勢趨強,但量能還顯不足,如果前期經過一輪下跌 ',IF(解盤21=1,'大盤形態走壞,重倉者可以減去大部分倉位 ',IF(解盤22=1,'大盤縮量調整,注意風險,短線清倉觀望',IF(解盤23=1,'大盤走勢良好,量能理想,可以繼續持有強勢股',IF(解盤24=1,'大盤形態良好,但量能稍顯不足,隨時準備減倉',IF(解盤25=1,'大盤趨勢不明,注意成交量變化,目前不適宜進場',IF(解盤26=1,'大盤趨勢向下,量能萎縮,不適合進場',DRAWNULL)))))))))))))))))))))));解盤文字2:=IF(解盤16=1,'該股走勢太弱,沒有參與價值',IF(解盤18=1,' 如前期經過一輪下跌,此時為最佳買點,但如果前期有過一段漲幅則介入需謹慎',IF(解盤20=1,' 可以考慮短線進場,倉位在1/2左右,一旦量能放大可以加倉買入',DRAWNULL)));DRAWTEXT(CURRBARSCOUNT=75{位置} AND (解盤1=1 OR 解盤2=1 OR 解盤3=1 OR 解盤4=1 OR 解盤5=1 OR 解盤6=1 OR 解盤7=1 OR 解盤8=1 OR 解盤9=1 OR 解盤10=1 OR 解盤11=1 OR 解盤12=1 OR 解盤13=1 OR 解盤14=1 OR 解盤15=1 OR 解盤17=1 OR 解盤19=1 OR 解盤21=1 OR 解盤22=1 OR 解盤23=1 OR 解盤24=1 OR 解盤25=1 OR 解盤26=1),(KDAT*0.99),解盤文字1),COLORFEFE00;DRAWTEXT(CURRBARSCOUNT=75{位置} AND (解盤16=1 OR 解盤18=1 OR 解盤20=1),IF(解盤18=1 OR 解盤20=1,KDAT*0.98,KDAT*0.96),解盤文字2),COLOR0000FF;{程序化交易 www.tumamayizhan.com }
{程序化交易 www.tumamayizhan.com }
?
公式導入教程: 【通達信公式源碼導入方法教程】 【同花順公式源碼導入方法教程】 【大智慧新一代公式源碼導入方法教程】
?