精选通达信主图指标之神秘乾坤（源码分享）
<p data-first-child >通达信主图神秘乾坤（附源码)</p><p >{神秘乾坤}</p><p >MA1:MA(CLOSE,M1),COLOR0000FF;</p><p >MA2:MA(CLOSE,M2);</p><p >MA3:MA(CLOSE,M3);</p><p >MA4:MA(CLOSE,M4);</p><p >MA5:MA(CLOSE,M5);</p><p >MA6:MA(CLOSE,M6);</p><p >A:=BARSCOUNT(CLOSE);</p><p >AH:=HHV(HIGH,200);</p><p >AL:=LLV(LOW,200);</p><p >B0:=(AH-AL)/40;</p><p >B1:=HIGH+B0;</p><p >B2:=LOW-B0;</p><p >DRAWTEXT((A+0)/34=FLOOR((A+0)/34),B2-2.2*B0*1.1,'←窗,变盘'),COLORRED;</p><p >LC:=REF(CLOSE,1);</p><p >RSI:=SMA(MAX(CLOSE-LC,0),4.1,1)/SMA(ABS(CLOSE-LC),4.1,1)*100;</p><p >DRAWICON(CROSS(RSI,11) ,L*0.99,3);</p><p >VAR28:=SMA(MAX(CLOSE-LC,0),5.5,1)/SMA(ABS(CLOSE-LC),6,1)*100;</p><p >DRAWTEXT(FILTER(EMA(CLOSE,60)-EMA(CLOSE,12)>0 AND EMA(CLOSE,12)/LOW>1.15,5),LOW,'买'),COLORFF00FF;</p><p >VARA:=((AMOUNT)/(VOL))/(100);</p><p >VARB:=((3)*(HIGH)+LOW+OPEN+(2)*(CLOSE))/(7);</p><p >VARC:=((SUM(AMOUNT,7))/(VARA))/(100);</p><p >VARD:=DMA(VARB,(VOL)/(VARC));</p><p >VARE:=((CLOSE-VARD)/(VARD))*(100);</p><p >VARF:=((CLOSE-LLV(LOW,34))/(HHV(HIGH,34)-LLV(LOW,34)))*(100);</p><p >VARJ:=MA(VARE,20)+STD(VARE,20);</p><p >BIAS18:=((CLOSE-MA(CLOSE,18))/(MA(CLOSE,18)))*(100);</p><p >AA:=SMA(VARF,3,1);</p><p >SS:=(REF(BIAS18,1)>=5) AND CROSS(VARJ,VARE) AND (AA>79);</p><p >V7:=IF(CURRBARSCOUNT=1,VOL*240/FROMOPEN/REF(VOL,1)-1,VOL/REF(VOL,1)-1);</p><p >STICKLINE(V7>=1,O,C,1,0),COLORYELLOW;</p><p >LC1:=REF(CLOSE,1);</p><p >RSI1:=((SMA(MAX((CLOSE - LC1),0),3,1) / SMA(ABS((CLOSE - LC1)),3,1)) * 100);</p><p >FF:=EMA(CLOSE,3);</p><p >MA15:=EMA(CLOSE,21);</p><p >DRAWTEXT(CROSS(FF,MA15),(LOW * 0.85),'←底背离'),COLORYELLOW;</p><p >AA1:=(HHV(HIGH,20) - (2 * ATR));</p><p >BB:=CROSS(CLOSE,REF(HHV(HIGH,55),1));</p><p >SSS:=CROSS(MIN(MA(CLOSE,13),AA1),CLOSE);</p><p >BBB:=BARSLAST(BB);</p><p >SSSB:=BARSLAST(SSS);</p><p >B11:=((BBB = 0) AND (REF(SSSB,1) < REF(BBB,1)));</p><p >B1B:=BARSLAST(B11);</p><p >B21:=((((BB = 1) AND (B1B < SSSB)) AND (B1B > 0)) AND (COUNT(BB,SSSB) < 3));</p><p >B2B:=BARSLAST(B21);</p><p >B3:=((((BB = 1) AND (B2B < B1B)) AND (COUNT(BB,SSSB) < 4)) AND (COUNT(BB,SSSB) > 2));</p><p >VAR2S:=(2*CLOSE+HIGH+LOW)/4;</p><p >VAR3S:=IF(YEAR>=2099 AND MONTH>2,0,1);</p><p >VAR4S:=LLV(LOW,5); VAR5S:=HHV(HIGH,4);</p><p >散户:=EMA((VAR2S-VAR4S)/(VAR5S-VAR4S)*100,4)*VAR3S;</p><p >庄稼:=EMA(0.667*REF(散户,1)+0.333*散户,2)*VAR3S;</p><p >DRAWTEXT(CROSS(散户,庄稼) AND 散户<30,L-0.05,'←吸'),COLORRED;</p><p >MA20:=MA(C,20);</p><p >MA90:=MA(C,90);</p><p >Y1:=BARSLAST(CROSS(MA5,MA20)) AND MA5>MA20;</p><p >Y2:=Y1 AND BARSLAST(CROSS(MA5,MA90));</p><p >Y3:=Y2 AND CROSS(MA20,MA90);</p><p >STICKLINE(Y3,O,C,3,0),COLORYELLOW;</p><p >DRAWTEXT(Y3,L-0.40,'←股票'),COLORWHITE;</p><p >F0:=BARSLAST(CROSS(MA(C,5),MA(C,90)));</p><p >F1:=F0 AND BARSLAST(CROSS(MA(C,20),MA(C,90)));</p><p >F2:=F1 AND CROSS(MA(C,5),MA(C,20)) AND MA(C,20)>MA(C,90);</p><p >DRAWICON(F2,L-0.10,1);</p><p >DRAWTEXT(F2,L-0.40,'←股票'),COLORFF00FF;</p><p >M:=OPEN;</p><p >M1:=MA(C,1);</p><p >M2:=REF(M1,1);</p><p >M3:=REF(M2,1);</p><p >保护价:(M2+M3+M)/3,COLORWHITE,LINETHICK0;</p><p >STICKLINE(L<EMA(EMA(L,8),6)*0.799,B2,B2-0.8*B0,3,0),COLORYELLOW;</p><p >波动回调提示图:=MA(CLOSE,10000);</p><p >DRAWICON(CROSS(FF,MA15),(LOW -0.49),9);</p><p >VAR1:=1;</p><p >VAR2:=LLV(LOW,10);</p><p >VAR3:=HHV(HIGH,25);</p><p >X:=EMA(((SLOPE(CLOSE,21) * 20) + CLOSE),68);</p><p >Y:=EMA(CLOSE,10);</p><p >LL:=REF(CLOSE,2);</p><p >MM:=((SMA(MAX((CLOSE - LL),0),6,1) / SMA(ABS((CLOSE - LL)),6,1)) * 100);</p><p >DB:=IF(((MM < REF(MM,1)) AND (MM > 79)),MM,0);</p><p >DRAWTEXT(CROSS(Y,X),(LOW * 0.985),'▲'),LINETHICK2,COLORRED;</p><p >DRAWTEXT(CROSS(X,Y),(HIGH * 1.02),'◆'),LINETHICK2,COLOR00FF00;</p><p >DRAWTEXT(DB,(HIGH * 1.02),'●'),LINETHICK2,COLOR00FF00;</p><p >VAR11:=LLV(LOW,21);</p><p >VAR21:=HHV(HIGH,21);</p><p >AK1:=EMA((((CLOSE - VAR1) / (VAR2 - VAR1)) * 100),5);</p><p >AK:=EMA((((CLOSE - VAR1) / (VAR2 - VAR1)) * 50),13);</p><p >DD:=EMA(((0.667 * REF(AK1,1)) + (0.333 * AK1)),2);</p><p >VAR31:=LLV(LOW,55);</p><p >VAR4:=HHV(HIGH,34);</p><p >VAR5:=EMA((((CLOSE - VAR3) / (VAR4 - VAR3)) * 100),3);</p><p >VAR6:=((AK + VAR5) / 2);</p><p >VAR7:=EMA(((0.667 * REF(VAR5,1)) + (0.333 * AK1)),2);</p><p >VAR8:=EMA(VAR6,5);</p><p >BBA:=EMA(((0.667 * REF(VAR8,1)) + (0.333 * VAR8)),2);</p><p >AB:=CROSS(AK1,AK);</p><p >BB1:=(CROSS(AK1,BBA) AND (BBA < 30));</p><p >CD:=(BBA * 0.6);</p><p >DRAWTEXT((CD = 0.6),(LOW * 0.99),'□'),LINETHICK2,COLOR33CC99;</p><p >DRAWTEXT((AB = 1),(LOW * 0.99),'□'),LINETHICK2,COLORWHITE;</p><p >C1:=(CLOSE+LOW+HIGH)/3;</p><p >C2:=EMA(C1,6);</p><p >C3:=EMA(C2,5);</p><p >C4:=CROSS(C2,C3);</p><p >DRAWTEXT(C4,LOW/1.01,'★'),,COLORRED;</p><p >C5:=CROSS(C3,C2);</p><p >DRAWTEXT(C5,HIGH*1.03,'★'),,COLORBLUE;</p><p >IF(MA1>REF(MA1,1),MA1,DRAWNULL),COLORRED,LINETHICK2;</p><p >IF(MA1<REF(MA1,1),MA1,DRAWNULL),COLORGREEN,LINETHICK2;</p><p >JG:=CROSS(MA1,MA2);</p><p >VOLUME:=VOL,VOLSTICK;</p><p >MAVOL1:=MA(VOLUME,5);</p><p >MAVOL2:=MA(VOLUME,10);</p><p >NL:=CROSS(MAVOL1,MAVOL2);</p><p >DIF:=EMA(CLOSE,12)-EMA(CLOSE,26);</p><p >DEA:=EMA(DIF,9);</p><p >MACD:=(DIF-DEA)*2,COLORSTICK;</p><p >NA:=CROSS(DIF,DEA);</p><p >RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;</p><p >K:=SMA(RSV,9,1);</p><p >D:=SMA(K,9,1);</p><p >J:=3*K-2*D;</p><p >KD:=CROSS(K,D) AND CROSS(J,D);</p><p >定乾坤:DRAWTEXT((JG AND NL AND NA) OR (JG AND NL AND KD) OR</p><p >(JG AND NA AND KD) OR (NL AND NA AND KD),L*0.93,'←定乾坤'),COLORYELLOW;</p><p >X1:=LLV(J,2)=LLV(J,8);</p><p >DRAWTEXT(CROSS(J,REF(J+0.01,1)) AND X1 AND J<20,LOW*0.98,'←进'),COLORLIMAGENTA;</p><p >JH9:=SMA(MAX(C-REF(C,1),0),5,1)/SMA(ABS(C-REF(C,1)),5,1)*100;</p><p >DRAWTEXT(CROSS(84,JH9),H*1.02,'★S'),COLORGREEN;</p><p >空:=EMA(C,5);</p><p >均衡:=EMA(空,5),COLORWHITE;</p><p >中轨:=HHV(MA(H,1),13),COLORRED,LINETHICK2;</p><p >VAR55:=FILTER(均衡>REF(均衡,1)AND 中轨<REF(中轨,1)AND C>REF(C,1),11);</p><p >DRAWTEXT(VAR55,L*0.98,'←追'),COLORYELLOW</p><p class="ztext-empty-paragraph"><br/></p><figcaption>注：平台目前更新的有关公式源码，手机电脑均可使用，部分提示编码错误的，是为了避免业内叨唠，大家看好有意，可以及时联系我们这边，（会有收费，主99副1）帮忙处理，在线即回！感谢后续多多，关注支持！</figcaption><p></p> 找了很久了，多谢！
页:
[1]