123456825 发表于 2024-1-29 13:20:09

双龙之翼潜伏趋势变色K线通达信主图副图源码

<p data-first-child></p><p class="ztext-empty-paragraph"><br/></p><p >双龙主图</p><p >DRAWTEXT_FIX(1,0.00,0.00,0,'【★★黑马交流9★★】'),COLOR00FFFF;</p><p >上市日期年:REF(YEAR,BARSCOUNT(CLOSE)-1),NODRAW,COLOR0000FF;</p><p >月:REF(MONTH,BARSCOUNT(CLOSE)-1),NODRAW,COLORFF00FF;</p><p >日:REF(DAY,BARSCOUNT(CLOSE)-1),NODRAW,COLOR00FFFF;</p><p >Z1:=STRCAT(HYBLOCK,' ');</p><p >Z2:=STRCAT(Z1,FGBLOCK);</p><p >Z3:=STRCAT(Z2,DYBLOCK);</p><p >Z4:=STRCAT(Z3,' ');</p><p >DRAWTEXT_FIX(ISLASTBAR,0.00,0.99,0,STRCAT(Z4,GNBLOCK)),COLORGREEN;</p><p >DA:(3*CLOSE+OPEN+LOW+HIGH)/6,POINTDOT;</p><p >DB:(20*DA+19*REF(DA,1)+18*REF(DA,2)</p><p >+17*REF(DA,3)+16*REF(DA,4)+15*REF(DA,5)+14*REF(DA,6)+13*REF(DA,7)</p><p >+12*REF(DA,8)+11*REF(DA,9)+10*REF(DA,10)+9*REF(DA,11)</p><p >+8*REF(DA,12)+7*REF(DA,13)+6*REF(DA,14)+5*REF(DA,15)+4*REF(DA,16)+3*REF(DA,17)</p><p >+2*REF(DA,18)+REF(DA,20))/210,COLORF0F000;DC:MA(DB,5),COLORYELLOW,LINETHICK1;</p><p >STICKLINE(DC>DB , DC,DB ,2.5,0),COLORGREEN,LINETHICK2;</p><p >STICKLINE(DB>DC,DC,DB,2.5,0),COLORRED,LINETHICK2;</p><p >买点:=CROSS(DB,DC) AND DB>DC;</p><p >DRAWTEXT(买点,DB*0.98,'买点'),COLORYELLOW;</p><p >卖点:=CROSS(DC,DB) AND DC>DB;</p><p >DRAWTEXT(卖点,DC*1.02,'卖点'),COLORYELLOW;</p><p >AC:=(2*C-H-L)*V/CAPITAL*100*0.1;{这里.用0.1不扩大成交量的影响力度}</p><p >MX:=MAX(AC,MAX(ABS(AC-REF(H,1)),ABS(AC-REF(L,1))));</p><p >WX5:=WMA(MX,5);</p><p >ZC:=(2*C+H+L)/4;</p><p >ZC5:=WMA(ZC,5);</p><p >STICKLINE(CROSS(ZC5,WX5),L*0.99,L*0.98,10,0),COLORYELLOW;</p><p >STICKLINE(CROSS(WX5,ZC5),H*1.01,H*1.02,10,0),COLOR0077FF;</p><p class="ztext-empty-paragraph"><br/></p><p ><b>双龙潜伏副图</b></p><p >DRAWGBK(C>0, RGB(0,0,50),RGB(00,0,0),0,0,1);</p><p > Z1:=STRCAT(HYBLOCK,' ');</p><p > Z2:=STRCAT(Z1,DYBLOCK);</p><p > Z3:=STRCAT(Z2,' ');</p><p > Z4:DRAWTEXT_FIX(ISLASTBAR,0,0,0,STRCAT(Z3,GNBLOCK)),COLORRED;</p><p > DRAWTEXT_FIX(ISLASTBAR,0.001,0.050,0,GNBLOCK),COLORCYAN;{概念};</p><p >DRAWTEXT_FIX(ISLASTBAR,0.002,0.1,0,ZDBLOCK);</p><p > LHB:SIGNALS_USER(4,1);</p><p > DRAWTEXT(LHB,H,'龙虎'),COLORWHITE;</p><p > AHC1:=CLOSE*VOL;</p><p > AHC2:=EMA((EXPMA(AHC1,3)/EXPMA(VOL,3)+EXPMA(AHC1,6)/EXPMA(VOL,6)+EXPMA(AHC1,12)/EXPMA(VOL,12)+EXPMA(AHC1,24)/EXPMA(VOL,24))/4,13),COLORYELLOW;</p><p > ZT:=REF(C,1)*1.1-C<0.01 AND H=C;</p><p >顶:=1.3*AHC2;</p><p >内上:=1.06*AHC2;</p><p >内下:=AHC2*0.94;</p><p >底:=AHC2*0.87,DOTLINE,COLORGREEN;</p><p class="ztext-empty-paragraph"><br/></p><p >IF((内上 <= REF(内上,1)),内上,DRAWNULL),COLORGREEN,DOTLINE,LINETHICK2;</p><p > IF((内上 >= REF(内上,1)),内上,DRAWNULL),COLORMAGENTA,DOTLINE,LINETHICK2;</p><p > IF((内下 <= REF(内下,1)),内下,DRAWNULL),COLORGREEN,DOTLINE,LINETHICK2;</p><p > IF((内下 >= REF(内下,1)),内下,DRAWNULL),COLORMAGENTA,DOTLINE,LINETHICK2;</p><p >爆:=REF(O<内上,1) AND C>内上 AND O>内上;</p><p >牛股:=C>内上 AND O>内上;</p><p >AR:=BARSLAST(牛股);</p><p >DRAWKLINE(H,O,L,C);</p><p > STICKLINE( 牛股 AND C>O,C,O,3.2,0),COLOR000066;</p><p > STICKLINE(牛股 AND C>O,C,O,2.0,0),COLOR000077;</p><p > STICKLINE(牛股 AND C>O,C,O,1.5,0),COLOR000099;</p><p > STICKLINE(牛股 AND C>O,C,O,0.9,0),COLOR0000CC;</p><p > STICKLINE(牛股 AND C>O,C,O,0.5,0),COLOR0000FF;</p><p > STICKLINE(牛股 AND C>O,O,C,0,0),COLORFFFFFF;</p><p class="ztext-empty-paragraph"><br/></p><p >STICKLINE( 牛股 AND C<O,L,H,0,0),COLOR009900;</p><p > STICKLINE( 牛股 AND C<O,C,O,3.2,0),COLOR009900;</p><p > STICKLINE( 牛股 AND C<O,C,O,2.5,0),COLOR00BB00;</p><p > STICKLINE(牛股 AND C<O,C,O,1.5,0),COLOR00DD00;</p><p > STICKLINE(牛股 AND C<O,C,O,0.5,0),COLOR00FF00;</p><p > STICKLINE(牛股 AND C<O,C,O,0,0),COLORFFFFFF;</p><p class="ztext-empty-paragraph"><br/></p><p >LC:=REF(CLOSE,1);</p><p >操作线:=SMA(MAX(CLOSE-LC,0),2,1)/SMA(ABS(CLOSE-LC),2,1)*100;</p><p >操作线1:=SMA(MAX(CLOSE-LC,0),20,1)/SMA(ABS(CLOSE-LC),20,1)*100;</p><p >潜伏:=操作线<10 AND 内上>=REF(内上,1);</p><p > DRAWTEXT(潜伏,L,'双龙</p><p >潜伏'),COLORYELLOW;</p><p class="ztext-empty-paragraph"><br/></p><p class="ztext-empty-paragraph"><br/></p><p >双龙副图选股</p><p >参数 N   2         500            13</p><p >       M   2            500       45</p><p class="ztext-empty-paragraph"><br/></p><p >X_1:=EMA(CLOSE,M1);</p><p >X_2:=EMA(CLOSE,M2);</p><p >X_3:=EMA(CLOSE,13);</p><p >X_4:=EMA(CLOSE,45);</p><p >X_5:=CLOSE/REF(CLOSE,1)>1.095 AND HIGH=CLOSE;</p><p >X_6:=X_3>REF(X_3,1) AND X_4>REF(X_4,1) AND CROSS(CLOSE,X_4);</p><p >X_7:=CROSS(X_3,X_4) AND COUNT(REF(X_5,1),3)>0 AND CLOSE>X_4 AND CLOSE<OPEN;</p><p >X_8:=X_3>X_4 AND LOW<X_4 AND HIGH>X_3 AND CLOSE>X_4 AND CLOSE>OPEN;</p><p >XG:REF(X_7,1) OR X_6 OR X_8;</p>

秦弩焙 发表于 2024-2-28 13:17:19

已收藏,以后会常来!

桑果果丫丫安 发表于 2024-3-17 13:24:05

希望更多人一起分享,感谢!

九曲山人骨 发表于 2024-3-28 18:24:58

牛人一个
页: [1]
查看完整版本: 双龙之翼潜伏趋势变色K线通达信主图副图源码