通達信改博易 [博易POBO]
咨詢內容：
通達信改博易
總手:VOL,LINETHICK0;?
zz:=IF(REF(C,1)>REF(O,1) AND O>REF(C,1)*1.014 AND C<O*1.02,1,3);?
v5:=MA(V,5);?
v12:=MA(V,12);?
V34:=MA(V,34);?
C6:=MA(C,6);?
STICKLINE(C,0,VOL,8,0),Color4D4D4D;?
STICKLINE(CROSS(C,C6) AND V>v5*1.2 AND V>v12*1.2 AND zz>2 AND?
C>H*0.975,0,VOL,8,0),colorred;?
STICKLINE(CROSS(C6,C) AND V>v5*1.2 AND V>v12*1.2,0,VOL,8,0),Color009F00;?
STICKLINE(VOL>MA(VOL,5)*2 AND V>V34*3 AND C<REF(C,1)*1.05,0,VOL,8,0);?
STICKLINE(VOL<MA(VOL,5)/2 AND V<v12/2,0,VOL,8,0),ColorCE6700;?
STICKLINE(VOL>MA(VOL,5)*2 AND V>V34*3 AND C<REF(C,1)*1.05? AND CROSS(C,C6) AND?
V>v5*1.2 AND V>v12*1.2 AND zz>2 AND C>H*0.975,VOL*0.5,0,8,0);?
STICKLINE(VOL>MA(VOL,5)*2 AND V>V34*3 AND C<REF(C,1)*1.05? AND CROSS(C6,C) AND?
V>v5*1.2 AND V>v12*1.2,VOL*0.5,0,8,0);?
DRAWTEXT (VOL>MA(VOL,5)*2 AND V>V34*3 AND C<REF(C,1)*1.05,V,'天'),colorwhite;?
DRAWTEXT (VOL<MA(VOL,5)/2 AND V<v12/2,(V5+V)/2,'地'),colorwhite;?
DRAWTEXT (CROSS(C,C6) AND V>v5*1.2 AND V>v12*1.2 AND zz>2 AND C>H*0.975,0,'吸
'),colorwhite;?
DRAWTEXT (CROSS(C6,C) AND V>v5*1.2 AND V>v12*1.2,0,'出'),colorwhite;?
地選:VOL<MA(VOL,5)/2 AND V<v12/2;?
吸選:CROSS(C,C6) AND V>v5*1.2 AND V>v12*1.2 AND zz>2 AND C>H*0.975;?
?
?
?
MA14:=MA(C,14);?
STICKLINE(H<MA14 ,H,L,10,0),COLOR000000;?
STICKLINE(H<MA14 ,H,L,0.1,0),COLOR666666;?
STICKLINE(H<MA14 ,O,C,8,0),COLOR666666;?
STICKLINE(H<MA14? AND C>O,O,C,8,0),COLOR8F8F8F; www.docin.comCC:=(3*C+H+L+O)/6;?
MA6:=ema(MA(IF(MA(CC,3)>MA(CC,4),MA((CC+3*H)/4,3),REF(MA((CC+3*L)/4,3),1)),3),5)
;?
?
REF(MA6,1), COLOR8A8A8A;?
REF(MA6,2), COLOR898989;?
REF(MA6,3), COLOR888888;?
REF(MA6,4), COLOR878787;?
REF(MA6,5), COLOR868686;?
REF(MA6,6), COLOR858585;?
REF(MA6,7), COLOR848484;?
REF(MA6,8), COLOR838383;?
REF(MA6,9), COLOR828282;?
REF(MA6,10), COLOR818181;?
REF(MA6,11), COLOR808080;?
REF(MA6,12), COLOR7A7A7A;?
REF(MA6,13), COLOR797979;?
REF(MA6,14), COLOR787878;?
REF(MA6,15), COLOR777777;?
REF(MA6,16), COLOR767676;?
REF(MA6,17), COLOR757575;?
REF(MA6,18), COLOR747474;?
REF(MA6,19), COLOR737373;?
REF(MA6,20), COLOR727272;?
REF(MA6,21), COLOR717171;?
REF(MA6,22), COLOR707070;?
REF(MA6,23), COLOR6A6A6A;?
REF(MA6,24), COLOR696969;?
REF(MA6,25), COLOR686868;?
REF(MA6,26), COLOR676767;?
REF(MA6,27), COLOR666666;?
REF(MA6,28), COLOR656565;?
REF(MA6,29), COLOR646464;?
REF(MA6,30), COLOR636363;?
REF(MA6,31), COLOR626262;?
REF(MA6,32), COLOR616161;?
REF(MA6,33), COLOR606060;?
STICKLINE(l<MA14? AND C>O AND H>MA14 ,H,L,0.1,0),COLORDD66CC;?
STICKLINE(l<MA14? AND C<O AND H>MA14,H,L,0.1,0),COLORFFCC66;?
STICKLINE(l<MA14? AND C>O AND H>MA14 ,O,C,8,0),COLORDD66CC;?
STICKLINE(l<MA14? AND C<O AND H>MA14,O,C,8,0),COLORFFCC66;?
STICKLINE(l>MA14? AND C>O AND H>MA14,H,L,0.1,0),COLOR0066FF;?
STICKLINE(l>MA14? AND C<O AND H>MA14,H,L,0.1,0),COLOR66FF66; www.docin.comSTICKLINE(l>MA14? AND C>O AND H>MA14,O,C,8,0),COLOR0066FF;?
STICKLINE(l>MA14? AND C<O AND H>MA14,O,C,8,0),COLOR66FF66;?
?
a0:=OPENMINUTES(TIME);?
p:=DATATYPE;?
a:=if(p=1,a0,if(p=2,a0/5,if(p=3,a0/15,if(p=4,a0/30,if(p=5,a0/60,if(p=0,0,1))))))
;?
均價線:=IF(CAPITAL>0,SUM(AMOUNT,a)/100/SUM(VOL,a),SUM(CLOSE*VOL,a)/SUM(VOL,a));?
額勢:=IF(CAPITAL>0,均價線,1);?
取勢:=IF(SMA(額勢,3,2)>SMA(額勢,5,3),(O+2*hhV(h,2))/3,(O+2*llV(l,2))/3);?
短1:=(EMA(取勢,1)+MA(取勢,3)+MA(取勢,5))/3;??
短2:=(EMA(取勢,3)+MA(取勢,6)+MA(取勢,9))/3;?
短01:=EMA((短1+短2+MD(短2,5))/3,2.637),COLORFFC0F0,LINETHICK2;?
趨勢線1:=SMA(FORCAST(CLOSE,13),5,1),COLORffff00,LINETHICK1,PRECISION2;?
趨勢線2:(EMA(SMA(FORCAST(取勢,12),4,1),4)+趨勢線
1)/2,COLORffff00,LINETHICK1,PRECISION2;?
趨勢線3:(EMA(SMA(FORCAST(取勢,12),20,1),4)+趨勢線
1)/2,COLORffff00,LINETHICK1,PRECISION2;?
PARTLINE(趨勢線1>REF(趨勢線1,1),趨勢線2),ColorFFAA00,linethick2;?
PARTLINE(趨勢線1<REF(趨勢線1,1),趨勢線2),Color0088FF,linethick2;?
MA6,COLOR66FFFF;?
PARTLINE(1,MA6),COLOR878787;?
a0:="rsi.rsi1"(6,12,24);?
ZF:=(C-REF(C,1))/REF(C,1)*100;?
選股: CROSS(A0,50) AND ZF>3,LINETHICK;?
DRAWICON(CROSS(A0,50) AND ZF>3,L*0.98,1);?
ma20:=ma(c,20),colorwhite,linethick2;?
乖離線:=((c-ref(ma20,1))/20+ma20)*1.20;?
賣點:=cross(c,乖離線);?
X6:=REF(CLOSE,1);?
X7:=((SMA(MAX((CLOSE - X6),0),7,1) / SMA(ABS((CLOSE - X6)),7,1)) * 100);?
X8:=CROSS(79,X7) ;?
X9:=FILTER(X8,4) ;?
出貨:=x9;?
條件A:=賣點 AND C<O;?
條件B:出貨 AND C<O,LINETHICK;?
顯示A_B:=(ref(BARSLAST(條件A OR 條件B)>=4,1) AND 條件B )? or 條件A;?
限制性出現出貨:DRAWTEXT((ref(BARSLAST(條件A OR 條件B)>=4,1) AND 條件B ),(HIGH *?
1.02),'出貨'),COLOR9000F5;//賣點跟出貨在5天內同時出現的時候不讓出貨顯示?
允許出現賣點:DRAWTEXT(條件A? ,h+0.13,'賣點'),color00ff00;?
STICKLINE(顯示A_B,O,C,8,0),COLORFF9933;??
DRAWTEXT(顯示A_B,(H+L)/2,'★'),ALIGN0,COLORDD99FF;?
★:DRAWTEXT(C>ma(c,20) AND (ma(c,5)>ma(c,10) and ma(c,5)<ma(c,20))??
or (C>ma(c,20) AND ma(c,5)>ma(c,10) and ma(c,10)<ma(c,20)) www.docin.comor(C>ma(c,20) AND ma(c,5)>ma(c,10) and ma(c,10)<ma(c,20)),ma(c,20),'★
'),COLORFFFFFF;?
?
?
RSI1:=SMA(MAX(CLOSE-LC,0),10,1)/SMA(ABS(CLOSE-LC),10,1)*100;
總手:VOL,LINETHICK0;?
ZZ:=IF(REF(C,1)>REF(O,1) AND O>REF(C,1)*1.014 AND C<O*1.02,1,3);?
V5:=MA(V,5);?
V12:=MA(V,12);?
V34:=MA(V,34);?
C6:=MA(C,6);?
STICKLINE(C,0,VOL,8,0),COLOR4D4D4D;?
STICKLINE(CROSS(C,C6) AND V>V5*1.2 AND V>V12*1.2 AND ZZ>2 AND?
C>H*0.975,0,VOL,8,0),COLORRED;?
STICKLINE(CROSS(C6,C) AND V>V5*1.2 AND V>V12*1.2,0,VOL,8,0),COLOR009F00;?
STICKLINE(VOL>MA(VOL,5)*2 AND V>V34*3 AND C<REF(C,1)*1.05,0,VOL,8,0);?
STICKLINE(VOL<MA(VOL,5)/2 AND V<V12/2,0,VOL,8,0),COLORCE6700;?
STICKLINE(VOL>MA(VOL,5)*2 AND V>V34*3 AND C<REF(C,1)*1.05? AND CROSS(C,C6) AND?
V>V5*1.2 AND V>V12*1.2 AND ZZ>2 AND C>H*0.975,VOL*0.5,0,8,0);?
STICKLINE(VOL>MA(VOL,5)*2 AND V>V34*3 AND C<REF(C,1)*1.05? AND CROSS(C6,C) AND?
V>V5*1.2 AND V>V12*1.2,VOL*0.5,0,8,0);?
DRAWTEXT (VOL>MA(VOL,5)*2 AND V>V34*3 AND C<REF(C,1)*1.05,V,'天'),COLORWHITE;?
DRAWTEXT (VOL<MA(VOL,5)/2 AND V<V12/2,(V5+V)/2,'地'),COLORWHITE;?
DRAWTEXT (CROSS(C,C6) AND V>V5*1.2 AND V>V12*1.2 AND ZZ>2 AND C>H*0.975,0,'吸'),COLORWHITE;?
DRAWTEXT (CROSS(C6,C) AND V>V5*1.2 AND V>V12*1.2,0,'出'),COLORWHITE;?
地選:VOL<MA(VOL,5)/2 AND V<V12/2;?
吸選:CROSS(C,C6) AND V>V5*1.2 AND V>V12*1.2 AND ZZ>2 AND C>H*0.975;?
?
?
?
MA14:=MA(C,14);?
STICKLINE(H<MA14 ,H,L,10,0),COLOR000000;?
STICKLINE(H<MA14 ,H,L,0.1,0),COLOR666666;?
STICKLINE(H<MA14 ,O,C,8,0),COLOR666666;?
STICKLINE(H<MA14? AND C>O,O,C,8,0),COLOR8F8F8F; CC:=(3*C+H+L+O)/6;?
MA6:=EMA(MA(IF(MA(CC,3)>MA(CC,4),MA((CC+3*H)/4,3),REF(MA((CC+3*L)/4,3),1)),3),5)
;?
?
REF(MA6,1), COLOR8A8A8A;?
REF(MA6,2), COLOR898989;?
REF(MA6,3), COLOR888888;?
REF(MA6,4), COLOR878787;?
REF(MA6,5), COLOR868686;?
REF(MA6,6), COLOR858585;?
REF(MA6,7), COLOR848484;?
REF(MA6,8), COLOR838383;?
REF(MA6,9), COLOR828282;?
REF(MA6,10), COLOR818181;?
REF(MA6,11), COLOR808080;?
REF(MA6,12), COLOR7A7A7A;?
REF(MA6,13), COLOR797979;?
REF(MA6,14), COLOR787878;?
REF(MA6,15), COLOR777777;?
REF(MA6,16), COLOR767676;?
REF(MA6,17), COLOR757575;?
REF(MA6,18), COLOR747474;?
REF(MA6,19), COLOR737373;?
REF(MA6,20), COLOR727272;?
REF(MA6,21), COLOR717171;?
REF(MA6,22), COLOR707070;?
REF(MA6,23), COLOR6A6A6A;?
REF(MA6,24), COLOR696969;?
REF(MA6,25), COLOR686868;?
REF(MA6,26), COLOR676767;?
REF(MA6,27), COLOR666666;?
REF(MA6,28), COLOR656565;?
REF(MA6,29), COLOR646464;?
REF(MA6,30), COLOR636363;?
REF(MA6,31), COLOR626262;?
REF(MA6,32), COLOR616161;?
REF(MA6,33), COLOR606060;?
STICKLINE(L<MA14? AND C>O AND H>MA14 ,H,L,0.1,0),COLORDD66CC;?
STICKLINE(L<MA14? AND C<O AND H>MA14,H,L,0.1,0),COLORFFCC66;?
STICKLINE(L<MA14? AND C>O AND H>MA14 ,O,C,8,0),COLORDD66CC;?
STICKLINE(L<MA14? AND C<O AND H>MA14,O,C,8,0),COLORFFCC66;?
STICKLINE(L>MA14? AND C>O AND H>MA14,H,L,0.1,0),COLOR0066FF;?
STICKLINE(L>MA14? AND C<O AND H>MA14,H,L,0.1,0),COLOR66FF66; STICKLINE(L>MA14? AND C>O AND H>MA14,O,C,8,0),COLOR0066FF;?
STICKLINE(L>MA14? AND C<O AND H>MA14,O,C,8,0),COLOR66FF66;?
?
A0:=MINUTEOFTIME(TIME);?
P:=DATAPERIOD;?
A:=IF(P=1,A0,IF(P=2,A0/5,IF(P=3,A0/15,IF(P=4,A0/30,IF(P=5,A0/60,IF(P=0,0,1))))))
;?
均價線:=IF(CAPITAL>0,SUM(AMOUNT,A)/100/SUM(VOL,A),SUM(CLOSE*VOL,A)/SUM(VOL,A));?
額勢:=IF(CAPITAL>0,均價線,1);?
取勢:=IF(SMA(額勢,3,2)>SMA(額勢,5,3),(O+2*HHV(H,2))/3,(O+2*LLV(L,2))/3);?
短1:=(EMA(取勢,1)+MA(取勢,3)+MA(取勢,5))/3;??
短2:=(EMA(取勢,3)+MA(取勢,6)+MA(取勢,9))/3;?
短01:=EMA((短1+短2+MA(短2,5))/3,2.637),COLORFFC0F0,LINETHICK2;?
趨勢線1:=SMA(FORCAST(CLOSE,13),5,1),COLORFFFF00,LINETHICK1,PRECISION2;?
趨勢線2:(EMA(SMA(FORCAST(取勢,12),4,1),4)+趨勢線1)/2,COLORFFFF00,LINETHICK1,PRECISION2;?
趨勢線3:(EMA(SMA(FORCAST(取勢,12),20,1),4)+趨勢線1)/2,COLORFFFF00,LINETHICK1,PRECISION2;?
PARTLINE(趨勢線1>REF(趨勢線1,1),趨勢線2),COLORFFAA00,LINETHICK2;?
PARTLINE(趨勢線1<REF(趨勢線1,1),趨勢線2),COLOR0088FF,LINETHICK2;?
MA6,COLOR66FFFF;?
PARTLINE(1,MA6),COLOR878787;?
A0:=RSI1;?
ZF:=(C-REF(C,1))/REF(C,1)*100;?
選股: CROSS(A0,50) AND ZF>3,LINETHICK2;?
DRAWICON(CROSS(A0,50) AND ZF>3,L*0.98,1);?
MA20:=MA(C,20),COLORWHITE,LINETHICK2;?
乖離線:=((C-REF(MA20,1))/20+MA20)*1.20;?
賣點:=CROSS(C,乖離線);?
X6:=REF(CLOSE,1);?
X7:=((SMA(MAX((CLOSE - X6),0),7,1) / SMA(ABS((CLOSE - X6)),7,1)) * 100);?
X8:=CROSS(79,X7) ;?
X9:=FILTER(X8,4) ;?
出貨:=X9;?
條件A:=賣點 AND C<O;?
條件B:出貨 AND C<O,LINETHICK2;?
顯示A_B:=(REF(BARSLAST(條件A OR 條件B)>=4,1) AND 條件B )? OR 條件A;?
DRAWTEXT((REF(BARSLAST(條件A OR 條件B)>=4,1) AND 條件B ),(HIGH * 1.02),'出貨'),COLOR9000F5;//賣點跟出貨在5天內同時出現的時候不讓出貨顯示?
DRAWTEXT(條件A? ,H+0.13,'賣點'),COLOR00FF00;?
STICKLINE(顯示A_B,O,C,8,0),COLORFF9933;??
DRAWTEXT(顯示A_B,(H+L)/2,'★'),ALIGN0,COLORDD99FF;?
DRAWTEXT(C>MA(C,20) AND (MA(C,5)>MA(C,10) AND MA(C,5)<MA(C,20)) OR (C>MA(C,20) AND MA(C,5)>MA(C,10) AND MA(C,10)<MA(C,20)) OR(C>MA(C,20) AND MA(C,5)>MA(C,10) AND MA(C,10)<MA(C,20)),MA(C,20),'★'),COLORFFFFFF; 這個這么復雜，都能改，厲害了。 來源 程序化久久網
zz:=IF(REF(C,1)>REF(O,1) AND O>REF(C,1)*1.014 AND C<O*1.02,1,3);?
v5:=MA(V,5);?
v12:=MA(V,12);?
V34:=MA(V,34);?
C6:=MA(C,6);?
STICKLINE(C,0,VOL,8,0),Color4D4D4D;?
STICKLINE(CROSS(C,C6) AND V>v5*1.2 AND V>v12*1.2 AND zz>2 AND?
C>H*0.975,0,VOL,8,0),colorred;?
STICKLINE(CROSS(C6,C) AND V>v5*1.2 AND V>v12*1.2,0,VOL,8,0),Color009F00;?
STICKLINE(VOL>MA(VOL,5)*2 AND V>V34*3 AND C<REF(C,1)*1.05,0,VOL,8,0);?
STICKLINE(VOL<MA(VOL,5)/2 AND V<v12/2,0,VOL,8,0),ColorCE6700;?
STICKLINE(VOL>MA(VOL,5)*2 AND V>V34*3 AND C<REF(C,1)*1.05? AND CROSS(C,C6) AND?
V>v5*1.2 AND V>v12*1.2 AND zz>2 AND C>H*0.975,VOL*0.5,0,8,0);?
STICKLINE(VOL>MA(VOL,5)*2 AND V>V34*3 AND C<REF(C,1)*1.05? AND CROSS(C6,C) AND?
V>v5*1.2 AND V>v12*1.2,VOL*0.5,0,8,0);?
DRAWTEXT (VOL>MA(VOL,5)*2 AND V>V34*3 AND C<REF(C,1)*1.05,V,'天'),colorwhite;?
DRAWTEXT (VOL<MA(VOL,5)/2 AND V<v12/2,(V5+V)/2,'地'),colorwhite;?
DRAWTEXT (CROSS(C,C6) AND V>v5*1.2 AND V>v12*1.2 AND zz>2 AND C>H*0.975,0,'吸
'),colorwhite;?
DRAWTEXT (CROSS(C6,C) AND V>v5*1.2 AND V>v12*1.2,0,'出'),colorwhite;?
地選:VOL<MA(VOL,5)/2 AND V<v12/2;?
吸選:CROSS(C,C6) AND V>v5*1.2 AND V>v12*1.2 AND zz>2 AND C>H*0.975;?
?
?
?
MA14:=MA(C,14);?
STICKLINE(H<MA14 ,H,L,10,0),COLOR000000;?
STICKLINE(H<MA14 ,H,L,0.1,0),COLOR666666;?
STICKLINE(H<MA14 ,O,C,8,0),COLOR666666;?
STICKLINE(H<MA14? AND C>O,O,C,8,0),COLOR8F8F8F; www.docin.comCC:=(3*C+H+L+O)/6;?
MA6:=ema(MA(IF(MA(CC,3)>MA(CC,4),MA((CC+3*H)/4,3),REF(MA((CC+3*L)/4,3),1)),3),5)
;?
?
REF(MA6,1), COLOR8A8A8A;?
REF(MA6,2), COLOR898989;?
REF(MA6,3), COLOR888888;?
REF(MA6,4), COLOR878787;?
REF(MA6,5), COLOR868686;?
REF(MA6,6), COLOR858585;?
REF(MA6,7), COLOR848484;?
REF(MA6,8), COLOR838383;?
REF(MA6,9), COLOR828282;?
REF(MA6,10), COLOR818181;?
REF(MA6,11), COLOR808080;?
REF(MA6,12), COLOR7A7A7A;?
REF(MA6,13), COLOR797979;?
REF(MA6,14), COLOR787878;?
REF(MA6,15), COLOR777777;?
REF(MA6,16), COLOR767676;?
REF(MA6,17), COLOR757575;?
REF(MA6,18), COLOR747474;?
REF(MA6,19), COLOR737373;?
REF(MA6,20), COLOR727272;?
REF(MA6,21), COLOR717171;?
REF(MA6,22), COLOR707070;?
REF(MA6,23), COLOR6A6A6A;?
REF(MA6,24), COLOR696969;?
REF(MA6,25), COLOR686868;?
REF(MA6,26), COLOR676767;?
REF(MA6,27), COLOR666666;?
REF(MA6,28), COLOR656565;?
REF(MA6,29), COLOR646464;?
REF(MA6,30), COLOR636363;?
REF(MA6,31), COLOR626262;?
REF(MA6,32), COLOR616161;?
REF(MA6,33), COLOR606060;?
STICKLINE(l<MA14? AND C>O AND H>MA14 ,H,L,0.1,0),COLORDD66CC;?
STICKLINE(l<MA14? AND C<O AND H>MA14,H,L,0.1,0),COLORFFCC66;?
STICKLINE(l<MA14? AND C>O AND H>MA14 ,O,C,8,0),COLORDD66CC;?
STICKLINE(l<MA14? AND C<O AND H>MA14,O,C,8,0),COLORFFCC66;?
STICKLINE(l>MA14? AND C>O AND H>MA14,H,L,0.1,0),COLOR0066FF;?
STICKLINE(l>MA14? AND C<O AND H>MA14,H,L,0.1,0),COLOR66FF66; www.docin.comSTICKLINE(l>MA14? AND C>O AND H>MA14,O,C,8,0),COLOR0066FF;?
STICKLINE(l>MA14? AND C<O AND H>MA14,O,C,8,0),COLOR66FF66;?
?
a0:=OPENMINUTES(TIME);?
p:=DATATYPE;?
a:=if(p=1,a0,if(p=2,a0/5,if(p=3,a0/15,if(p=4,a0/30,if(p=5,a0/60,if(p=0,0,1))))))
;?
均價線:=IF(CAPITAL>0,SUM(AMOUNT,a)/100/SUM(VOL,a),SUM(CLOSE*VOL,a)/SUM(VOL,a));?
額勢:=IF(CAPITAL>0,均價線,1);?
取勢:=IF(SMA(額勢,3,2)>SMA(額勢,5,3),(O+2*hhV(h,2))/3,(O+2*llV(l,2))/3);?
短1:=(EMA(取勢,1)+MA(取勢,3)+MA(取勢,5))/3;??
短2:=(EMA(取勢,3)+MA(取勢,6)+MA(取勢,9))/3;?
短01:=EMA((短1+短2+MD(短2,5))/3,2.637),COLORFFC0F0,LINETHICK2;?
趨勢線1:=SMA(FORCAST(CLOSE,13),5,1),COLORffff00,LINETHICK1,PRECISION2;?
趨勢線2:(EMA(SMA(FORCAST(取勢,12),4,1),4)+趨勢線
1)/2,COLORffff00,LINETHICK1,PRECISION2;?
趨勢線3:(EMA(SMA(FORCAST(取勢,12),20,1),4)+趨勢線
1)/2,COLORffff00,LINETHICK1,PRECISION2;?
PARTLINE(趨勢線1>REF(趨勢線1,1),趨勢線2),ColorFFAA00,linethick2;?
PARTLINE(趨勢線1<REF(趨勢線1,1),趨勢線2),Color0088FF,linethick2;?
MA6,COLOR66FFFF;?
PARTLINE(1,MA6),COLOR878787;?
a0:="rsi.rsi1"(6,12,24);?
ZF:=(C-REF(C,1))/REF(C,1)*100;?
選股: CROSS(A0,50) AND ZF>3,LINETHICK;?
DRAWICON(CROSS(A0,50) AND ZF>3,L*0.98,1);?
ma20:=ma(c,20),colorwhite,linethick2;?
乖離線:=((c-ref(ma20,1))/20+ma20)*1.20;?
賣點:=cross(c,乖離線);?
X6:=REF(CLOSE,1);?
X7:=((SMA(MAX((CLOSE - X6),0),7,1) / SMA(ABS((CLOSE - X6)),7,1)) * 100);?
X8:=CROSS(79,X7) ;?
X9:=FILTER(X8,4) ;?
出貨:=x9;?
條件A:=賣點 AND C<O;?
條件B:出貨 AND C<O,LINETHICK;?
顯示A_B:=(ref(BARSLAST(條件A OR 條件B)>=4,1) AND 條件B )? or 條件A;?
限制性出現出貨:DRAWTEXT((ref(BARSLAST(條件A OR 條件B)>=4,1) AND 條件B ),(HIGH *?
1.02),'出貨'),COLOR9000F5;//賣點跟出貨在5天內同時出現的時候不讓出貨顯示?
允許出現賣點:DRAWTEXT(條件A? ,h+0.13,'賣點'),color00ff00;?
STICKLINE(顯示A_B,O,C,8,0),COLORFF9933;??
DRAWTEXT(顯示A_B,(H+L)/2,'★'),ALIGN0,COLORDD99FF;?
★:DRAWTEXT(C>ma(c,20) AND (ma(c,5)>ma(c,10) and ma(c,5)<ma(c,20))??
or (C>ma(c,20) AND ma(c,5)>ma(c,10) and ma(c,10)<ma(c,20)) www.docin.comor(C>ma(c,20) AND ma(c,5)>ma(c,10) and ma(c,10)<ma(c,20)),ma(c,20),'★
'),COLORFFFFFF;?
?
?
?
?來源:程序化99網（ www.tumamayizhan.com ）
博易技術人員： LC := REF(CLOSE,1);RSI1:=SMA(MAX(CLOSE-LC,0),10,1)/SMA(ABS(CLOSE-LC),10,1)*100;
總手:VOL,LINETHICK0;?
ZZ:=IF(REF(C,1)>REF(O,1) AND O>REF(C,1)*1.014 AND C<O*1.02,1,3);?
V5:=MA(V,5);?
V12:=MA(V,12);?
V34:=MA(V,34);?
C6:=MA(C,6);?
STICKLINE(C,0,VOL,8,0),COLOR4D4D4D;?
STICKLINE(CROSS(C,C6) AND V>V5*1.2 AND V>V12*1.2 AND ZZ>2 AND?
C>H*0.975,0,VOL,8,0),COLORRED;?
STICKLINE(CROSS(C6,C) AND V>V5*1.2 AND V>V12*1.2,0,VOL,8,0),COLOR009F00;?
STICKLINE(VOL>MA(VOL,5)*2 AND V>V34*3 AND C<REF(C,1)*1.05,0,VOL,8,0);?
STICKLINE(VOL<MA(VOL,5)/2 AND V<V12/2,0,VOL,8,0),COLORCE6700;?
STICKLINE(VOL>MA(VOL,5)*2 AND V>V34*3 AND C<REF(C,1)*1.05? AND CROSS(C,C6) AND?
V>V5*1.2 AND V>V12*1.2 AND ZZ>2 AND C>H*0.975,VOL*0.5,0,8,0);?
STICKLINE(VOL>MA(VOL,5)*2 AND V>V34*3 AND C<REF(C,1)*1.05? AND CROSS(C6,C) AND?
V>V5*1.2 AND V>V12*1.2,VOL*0.5,0,8,0);?
DRAWTEXT (VOL>MA(VOL,5)*2 AND V>V34*3 AND C<REF(C,1)*1.05,V,'天'),COLORWHITE;?
DRAWTEXT (VOL<MA(VOL,5)/2 AND V<V12/2,(V5+V)/2,'地'),COLORWHITE;?
DRAWTEXT (CROSS(C,C6) AND V>V5*1.2 AND V>V12*1.2 AND ZZ>2 AND C>H*0.975,0,'吸'),COLORWHITE;?
DRAWTEXT (CROSS(C6,C) AND V>V5*1.2 AND V>V12*1.2,0,'出'),COLORWHITE;?
地選:VOL<MA(VOL,5)/2 AND V<V12/2;?
吸選:CROSS(C,C6) AND V>V5*1.2 AND V>V12*1.2 AND ZZ>2 AND C>H*0.975;?
?
?
?
MA14:=MA(C,14);?
STICKLINE(H<MA14 ,H,L,10,0),COLOR000000;?
STICKLINE(H<MA14 ,H,L,0.1,0),COLOR666666;?
STICKLINE(H<MA14 ,O,C,8,0),COLOR666666;?
STICKLINE(H<MA14? AND C>O,O,C,8,0),COLOR8F8F8F; CC:=(3*C+H+L+O)/6;?
MA6:=EMA(MA(IF(MA(CC,3)>MA(CC,4),MA((CC+3*H)/4,3),REF(MA((CC+3*L)/4,3),1)),3),5)
;?
?
REF(MA6,1), COLOR8A8A8A;?
REF(MA6,2), COLOR898989;?
REF(MA6,3), COLOR888888;?
REF(MA6,4), COLOR878787;?
REF(MA6,5), COLOR868686;?
REF(MA6,6), COLOR858585;?
REF(MA6,7), COLOR848484;?
REF(MA6,8), COLOR838383;?
REF(MA6,9), COLOR828282;?
REF(MA6,10), COLOR818181;?
REF(MA6,11), COLOR808080;?
REF(MA6,12), COLOR7A7A7A;?
REF(MA6,13), COLOR797979;?
REF(MA6,14), COLOR787878;?
REF(MA6,15), COLOR777777;?
REF(MA6,16), COLOR767676;?
REF(MA6,17), COLOR757575;?
REF(MA6,18), COLOR747474;?
REF(MA6,19), COLOR737373;?
REF(MA6,20), COLOR727272;?
REF(MA6,21), COLOR717171;?
REF(MA6,22), COLOR707070;?
REF(MA6,23), COLOR6A6A6A;?
REF(MA6,24), COLOR696969;?
REF(MA6,25), COLOR686868;?
REF(MA6,26), COLOR676767;?
REF(MA6,27), COLOR666666;?
REF(MA6,28), COLOR656565;?
REF(MA6,29), COLOR646464;?
REF(MA6,30), COLOR636363;?
REF(MA6,31), COLOR626262;?
REF(MA6,32), COLOR616161;?
REF(MA6,33), COLOR606060;?
STICKLINE(L<MA14? AND C>O AND H>MA14 ,H,L,0.1,0),COLORDD66CC;?
STICKLINE(L<MA14? AND C<O AND H>MA14,H,L,0.1,0),COLORFFCC66;?
STICKLINE(L<MA14? AND C>O AND H>MA14 ,O,C,8,0),COLORDD66CC;?
STICKLINE(L<MA14? AND C<O AND H>MA14,O,C,8,0),COLORFFCC66;?
STICKLINE(L>MA14? AND C>O AND H>MA14,H,L,0.1,0),COLOR0066FF;?
STICKLINE(L>MA14? AND C<O AND H>MA14,H,L,0.1,0),COLOR66FF66; STICKLINE(L>MA14? AND C>O AND H>MA14,O,C,8,0),COLOR0066FF;?
STICKLINE(L>MA14? AND C<O AND H>MA14,O,C,8,0),COLOR66FF66;?
?
A0:=MINUTEOFTIME(TIME);?
P:=DATAPERIOD;?
A:=IF(P=1,A0,IF(P=2,A0/5,IF(P=3,A0/15,IF(P=4,A0/30,IF(P=5,A0/60,IF(P=0,0,1))))))
;?
均價線:=IF(CAPITAL>0,SUM(AMOUNT,A)/100/SUM(VOL,A),SUM(CLOSE*VOL,A)/SUM(VOL,A));?
額勢:=IF(CAPITAL>0,均價線,1);?
取勢:=IF(SMA(額勢,3,2)>SMA(額勢,5,3),(O+2*HHV(H,2))/3,(O+2*LLV(L,2))/3);?
短1:=(EMA(取勢,1)+MA(取勢,3)+MA(取勢,5))/3;??
短2:=(EMA(取勢,3)+MA(取勢,6)+MA(取勢,9))/3;?
短01:=EMA((短1+短2+MA(短2,5))/3,2.637),COLORFFC0F0,LINETHICK2;?
趨勢線1:=SMA(FORCAST(CLOSE,13),5,1),COLORFFFF00,LINETHICK1,PRECISION2;?
趨勢線2:(EMA(SMA(FORCAST(取勢,12),4,1),4)+趨勢線1)/2,COLORFFFF00,LINETHICK1,PRECISION2;?
趨勢線3:(EMA(SMA(FORCAST(取勢,12),20,1),4)+趨勢線1)/2,COLORFFFF00,LINETHICK1,PRECISION2;?
PARTLINE(趨勢線1>REF(趨勢線1,1),趨勢線2),COLORFFAA00,LINETHICK2;?
PARTLINE(趨勢線1<REF(趨勢線1,1),趨勢線2),COLOR0088FF,LINETHICK2;?
MA6,COLOR66FFFF;?
PARTLINE(1,MA6),COLOR878787;?
A0:=RSI1;?
ZF:=(C-REF(C,1))/REF(C,1)*100;?
選股: CROSS(A0,50) AND ZF>3,LINETHICK2;?
DRAWICON(CROSS(A0,50) AND ZF>3,L*0.98,1);?
MA20:=MA(C,20),COLORWHITE,LINETHICK2;?
乖離線:=((C-REF(MA20,1))/20+MA20)*1.20;?
賣點:=CROSS(C,乖離線);?
X6:=REF(CLOSE,1);?
X7:=((SMA(MAX((CLOSE - X6),0),7,1) / SMA(ABS((CLOSE - X6)),7,1)) * 100);?
X8:=CROSS(79,X7) ;?
X9:=FILTER(X8,4) ;?
出貨:=X9;?
條件A:=賣點 AND C<O;?
條件B:出貨 AND C<O,LINETHICK2;?
顯示A_B:=(REF(BARSLAST(條件A OR 條件B)>=4,1) AND 條件B )? OR 條件A;?
DRAWTEXT((REF(BARSLAST(條件A OR 條件B)>=4,1) AND 條件B ),(HIGH * 1.02),'出貨'),COLOR9000F5;//賣點跟出貨在5天內同時出現的時候不讓出貨顯示?
DRAWTEXT(條件A? ,H+0.13,'賣點'),COLOR00FF00;?
STICKLINE(顯示A_B,O,C,8,0),COLORFF9933;??
DRAWTEXT(顯示A_B,(H+L)/2,'★'),ALIGN0,COLORDD99FF;?
DRAWTEXT(C>MA(C,20) AND (MA(C,5)>MA(C,10) AND MA(C,5)<MA(C,20)) OR (C>MA(C,20) AND MA(C,5)>MA(C,10) AND MA(C,10)<MA(C,20)) OR(C>MA(C,20) AND MA(C,5)>MA(C,10) AND MA(C,10)<MA(C,20)),MA(C,20),'★'),COLORFFFFFF; 這個這么復雜，都能改，厲害了。 來源 程序化久久網
有思路，想編寫各種指標公式，交易模型，選股公式，還原公式的朋友
可聯系技術人員 QQ: 262069696 或微信號：cxh99cxh99 進行 有償收費 編寫！
(注：由于人數限制，QQ或微信請選擇方便的一個聯系我們就行，加好友時請簡單備注下您的需求，否則無法通過。謝謝您！)
相關文章
-
沒有相關內容