大頂震倉金不換指標公式源碼

作者：大智慧來源：cxh99.com 發布時間：2016年05月01日

相關標簽:大智慧主圖公式源碼、大智慧分時指標源碼、大智慧ddx指標源碼、大智慧bs指標源碼、大智慧散戶指標源碼、大智慧主圖指標公式、大智慧公式源碼附圖、大智慧股票公式源碼、布林線副圖指標源碼、大智慧跨周期指標源碼、大智慧操盤線指標源碼、黑馬指標源碼大智慧版、大智慧指標公式大全、大智慧地量指標公式、大智慧逃頂指標公式、

{大智慧5.57版本，改動后和樓主的有區別，呵呵。大家再修改吧！ }

原理解析：

輸出MA7:收盤價的7日簡單移動平均,畫白色

輸出MA13:收盤價的13日簡單移動平均,畫黃色

輸出MA21:收盤價的21日簡單移動平均,畫紅色

輸出MA42:收盤價的42日簡單移動平均,畫綠色

輸出MA119:收盤價的119日簡單移動平均,畫藍色

A12賦值:收盤價的有效數據周期數

AH賦值:200日內最高價的最高值

AL賦值:200日內最低價的最低值

B0賦值:(AH-AL)/40

B1賦值:最高價+B0

B2賦值:最低價-B0

追賦值:0日前的21日內成交量(手)距今天數日前的收盤價,畫綠色,線寬為0

M1賦值:收盤價的1日簡單移動平均,線寬為0

A1賦值:成交量(手)>1*1日前的成交量(手) AND (收盤價/1日前的收盤價-1)*100>9.5 AND M1>=追,畫紅色

當滿足條件A1上穿1時,在最低價*0.98位置畫3號圖標,畫白色,

當滿足條件A1時,在最低價*0.93位置書寫文字,線寬為1,畫紅色

當滿足條件如果69上穿收盤價-1日前的收盤價和0的較大值的13日[1日權重]移動平均/收盤價-1日前的收盤價的絕對值的13日[1日權重]移動平均*100,返回1,否則返回0時,在最高價*1.045位置書寫文字,畫綠色

LC賦值:1日前的收盤價

RSI賦值:收盤價-LC和0的較大值的4.1日[1日權重]移動平均/收盤價-LC的絕對值的4.1日[1日權重]移動平均*100

VAR28賦值:收盤價-LC和0的較大值的5.5日[1日權重]移動平均/收盤價-LC的絕對值的6日[1日權重]移動平均*100

當滿足條件收盤價的60日指數移動平均-收盤價的12日指數移動平均>0ANDEMA(收盤價,12)/最低價>1.15的5日過濾時,在最低價位置書寫文字,畫紅色

VARA賦值:((成交額(元))/(成交量(手)))/(100)

VARB賦值:((3)*(最高價)+最低價+開盤價+(2)*(收盤價))/(7)

VARC賦值:((成交額(元)的7日累和)/(VARA))/(100)

VARD賦值:以(成交量(手))/(VARC)為權重VARB的動態移動平均

VARE賦值:((收盤價-VARD)/(VARD))*(100)

VARF賦值:((收盤價-34日內最低價的最低值)/(34日內最高價的最高值-34日內最低價的最低值))*(100)

VARJ賦值:VARE的20日簡單移動平均+VARE的20日估算標準差

BIAS18賦值:((收盤價-收盤價的18日簡單移動平均)/(收盤價的18日簡單移動平均))*(100)

AA賦值:VARF的3日[1日權重]移動平均

SS賦值:(1日前的BIAS18>=5) AND VARJ上穿VARE AND (AA>79)

當滿足條件(1日前的BIAS18>=5)ANDCROSS(VARJ,VARE)AND(AA>SS)ANDCROSS(84,RSI)時,在最高價*1.028位置書寫文字,線寬為7,COLOR00FFFF

當滿足條件84上穿RSIANDCROSS(76,VAR28)時,在最高價*1.01位置書寫文字,線寬為7,畫藍色

VAR3賦值:(收盤價-收盤價的6日簡單移動平均)/收盤價的6日簡單移動平均*100

VAR4賦值:(收盤價-收盤價的24日簡單移動平均)/收盤價的24日簡單移動平均*100

VAR5賦值:(收盤價-收盤價的32日簡單移動平均)/收盤價的32日簡單移動平均*100

VAR6賦值:(VAR3+VAR4+VAR5)/3

VAR7賦值:VAR6的5日指數移動平均

ZB賦值:VAR3的5日指數移動平均的5日指數移動平均*3, COLORSTICK

VAR8賦值:如果VAR6<=-20,返回10,否則返回0

VAR9賦值:10日內VAR8的最高值

VARA10賦值:如果VAR9ANDCROSS(收盤價的3日簡單移動平均,收盤價的5日簡單移動平均),返回20,否則返回0

K1賦值:VAR7的5日指數移動平均*2, , COLORFF00FF

D1賦值:K1的5日指數移動平均, , 畫白色

J1賦值:K1*3-D1*2, ,畫黃色

VARB10賦值:收盤價位于收盤價的3日簡單移動平均和收盤價的5日簡單移動平均之間 AND J1>10

當滿足條件VAR8=10ANDFILTER(VAR8=10,5)時,在最低價*0.93位置書寫文字,COLORFF00FF

當滿足條件VAR8=10ANDFILTER(VAR8=10,5)時,在最低價*0.94位置書寫文字,COLORFF00FF

VARE10賦值:100*(收盤價-34日內收盤價的最低值)/(34日內最高價的最高值-34日內最低價的最低值)的5日簡單移動平均-20

VARF10賦值:100-3*(收盤價-75日內最低價的最低值)/(75日內最高價的最高值-75日內最低價的最低值)*100的20日[1日權重]移動平均+2*(收盤價-75日內最低價的最低值)/(75日內最高價的最高值-75日內最低價的最低值)*100的20日[1日權重]移動平均的15日[1日權重]移動平均

VAR10賦值:100-3*(開盤價-75日內最低價的最低值)/(75日內最高價的最高值-75日內最低價的最低值)*100的20日[1日權重]移動平均+2*(開盤價-75日內最低價的最低值)/(75日內最高價的最高值-75日內最低價的最低值)*100的20日[1日權重]移動平均的15日[1日權重]移動平均

VAR11賦值:VARF<1日前的VAR10 AND 成交量(手)>1日前的成交量(手) AND 收盤價>1日前的收盤價

當滿足條件VAR11ANDCOUNT(VAR11,30)=1時,在最低價*0.95位置書寫文字,線寬為1,COLORFF00FF

當滿足條件VAR11ANDCOUNT(VAR11,30)=1時,在最低價*0.94位置書寫文字,線寬為1,COLORFF00FF

當滿足條件VAR11ANDCOUNT(VAR11,30)=1時,在最低價*0.93位置書寫文字,線寬為1,COLORFF00FF

當滿足條件VAR11ANDCOUNT(VAR11,30)=1時,在最低價*0.92位置書寫文字,線寬為1,COLORFF00FF

VAR12賦值:(最高價+最低價+收盤價)/3

VAR13賦值:(VAR12-VAR12的14日簡單移動平均)/(0.015*VAR12的14日平均絕對偏差)

VAR14賦值:(VAR12-VAR12的70日簡單移動平均)/(0.015*VAR12的70日平均絕對偏差)

VAR15賦值:如果VAR13>=150ANDVAR13<200ANDVAR14>=150ANDVAR14<200,返回10,否則返回0

VAR16賦值:如果VAR13<=-150ANDVAR13>-200ANDVAR14<=-150ANDVAR14>-200,返回-10,否則返回VAR15

VAR17賦值:(收盤價-收盤價的13日簡單移動平均)/收盤價的13日簡單移動平均*100

VAR18賦值:100-VAR17的絕對值

VAR19賦值:如果VAR18<90,返回VAR18,否則返回100

VAR1A賦值:如果VARE>0,返回VARE,否則返回0

VAR1B賦值:如果VAR14>=200ANDVAR13>=150,返回15,否則返回如果VAR14<=-200ANDVAR13<=-150,返回-15,否則返回VAR16+60

VAR1C賦值:VAR1A>48 AND VAR1B>60 AND VAR19<100

當滿足條件VAR1CANDCOUNT(VAR1C,30)=1時,在最低價*0.95位置書寫文字,畫白色

當滿足條件VAR1CANDCOUNT(VAR1C,30)=1時,在最低價*0.96位置書寫文字,畫白色

DIFF賦值:收盤價的12日指數移動平均 - 收盤價的26日指數移動平均

DEA賦值:DIFF的8日指數移動平均

A10賦值:上次1日前的DIFF上穿DEA距今天數

B10賦值:A10+1日前的收盤價>收盤價 AND A10+1日前的DIFF<DIFF AND DIFF上穿DEA

當滿足條件如果B10>0,返回1,否則返回0時,在最低價位置書寫文字,COLOR0000F5

當滿足條件如果B10>0,返回1,否則返回0時,在最低價-0.11位置書寫文字,COLOR0000F5

RSV賦值:(收盤價-9日內最低價的最低值)/(9日內最高價的最高值-9日內最低價的最低值)*100

K11賦值:RSV的3日[1日權重]移動平均

D11賦值:K11的3日[1日權重]移動平均

A2賦值:上次1日前的K11上穿D11距今天數

B20賦值:A2+1日前的收盤價>收盤價 AND A2+1日前的K11<K11 AND K11上穿D11

當滿足條件如果B20>0,返回1,否則返回0時,在最低價-0.22位置書寫文字,COLOR6C8CCF

當滿足條件如果B20>0,返回1,否則返回0時,在最低價-0.35位置書寫文字,COLOR6C8CCF

LC1賦值:1日前的收盤價

RSI1賦值:收盤價-LC1和0的較大值的6日[1日權重]移動平均/收盤價-LC1的絕對值的6日[1日權重]移動平均*100

RSI2賦值:收盤價-LC1和0的較大值的12日[1日權重]移動平均/收盤價-LC1的絕對值的12日[1日權重]移動平均*100

A3賦值:上次1日前的RSI1上穿RSI2距今天數

B3賦值:A3+1日前的收盤價>收盤價 AND A3+1日前的RSI1<RSI1 AND RSI1上穿RSI2

當滿足條件如果B3>0,返回1,否則返回0時,在最低價-0.46位置書寫文字,COLOR0067DE

當滿足條件如果B3>0,返回1,否則返回0時,在最低價-0.57位置書寫文字,COLOR0067DE

C1賦值:上次1日前的DEA上穿DIFF距今天數

D10賦值:C1+1日前的收盤價<收盤價 AND C1+1日前的DIFF>DIFF AND DEA上穿DIFF

當滿足條件如果D10>0,返回1,否則返回0時,在最高價+0.1位置書寫文字,COLORB27800

C2賦值:上次1日前的D11上穿K11距今天數

D2賦值:C2+1日前的收盤價<收盤價 AND C2+1日前的K11>K11 AND D11上穿K11

當滿足條件如果D2>0,返回1,否則返回0時,在最高價+0.25位置書寫文字,COLOR0AB000

C3賦值:上次1日前的RSI2上穿RSI1距今天數

D3賦值:C3+1日前的收盤價<收盤價 AND C3+1日前的RSI1>RSI1 AND RSI2上穿RSI1

當滿足條件如果D3>0,返回1,否則返回0時,在最高價+0.4位置書寫文字,COLORFF0000

CXH賦值:STRTONUM(STRRIGHT(DATESTR(CURRENTDATE),1))

輸出WARNING('HTTP://www.tumamayizhan.com',CURRENTTIME>180000 AND (CXH=1 OR CXH=6))

DRAWTEXTREL(10 ,10 ,'指標公式')

源碼：

MA7:MA(C,7),colorwhite;
MA13:MA(C,13),coloryellow;
MA21:MA(C,21),COLORRED;
MA42:MA(C,42),colorgreen;
MA119:MA(C,119),COLORBLUE;A12:=BARSCOUNT(CLOSE);
AH:=HHV(HIGH,200);
AL:=LLV(LOW,200);
B0:=(AH-AL)/40;
B1:=HIGH+B0;
B2:=LOW-B0;
追:=ref(c,ref(hhvbars(v,21),0)),COLORGREEN,linethick0;
m1:=ma(close,1),linethick0;
a1:=V>1*ref(V,1) and (c/ref(C,1)-1)*100>9.5 and m1>=追,COLORRED;
DRAWICON(cross(a1,1),l*0.98,3),COLORWHITE,;
DRAWTEXT(a1,l*0.93,'追'),LINETHICK1,colorred;
DRAWTEXT(IF(CROSS(69,SMA(MAX(CLOSE-REF(CLOSE,1),0),13,1)/SMA(ABS(CLOSE-REF(CLOSE,1)),13,1)*100),1,0),HIGH*1.045,'持幣'),colorgreen;
LC:=REF(CLOSE,1);
RSI:=SMA(MAX(CLOSE-LC,0),4.1,1)/SMA(ABS(CLOSE-LC),4.1,1)*100;
VAR28:=SMA(MAX(CLOSE-LC,0),5.5,1)/SMA(ABS(CLOSE-LC),6,1)*100;
DRAWTEXT(FILTER(EMA(CLOSE,60)-EMA(CLOSE,12)>0 AND EMA(CLOSE,12)/LOW>1.15,5),LOW,'▲'),COLORRED;
VARA:=((AMOUNT)/(VOL))/(100);
VARB:=((3)*(HIGH)+LOW+OPEN+(2)*(CLOSE))/(7);
VARC:=((SUM(AMOUNT,7))/(VARA))/(100);
VARD:=DMA(VARB,(VOL)/(VARC));
VARE:=((CLOSE-VARD)/(VARD))*(100);
VARF:=((CLOSE-LLV(LOW,34))/(HHV(HIGH,34)-LLV(LOW,34)))*(100);
VARJ:=MA(VARE,20)+STD(VARE,20);
BIAS18:=((CLOSE-MA(CLOSE,18))/(MA(CLOSE,18)))*(100);
AA:=SMA(VARF,3,1);
SS:=(REF(BIAS18,1)>=5) AND CROSS(VARJ,VARE) AND (AA>79);
DRAWTEXT((REF(BIAS18,1)>=5) AND CROSS(VARJ,VARE) AND (AA>SS) AND CROSS(84,RSI),H*1.028,'▼'),LINETHICK7,COLOR00FFFF;
DRAWTEXT(CROSS(84,RSI) AND CROSS(76,VAR28),H*1.01,'頂'),LINETHICK7,colorblue;
VAR3:=(CLOSE-MA(CLOSE,6))/MA(CLOSE,6)*100;
VAR4:=(CLOSE-MA(CLOSE,24))/MA(CLOSE,24)*100;
VAR5:=(CLOSE-MA(CLOSE,32))/MA(CLOSE,32)*100;
VAR6:=(VAR3+VAR4+VAR5)/3;
VAR7:=EMA(VAR6,5);
ZB:=EMA(EMA(VAR3,5),5)*3, COLORSTICK;
VAR8:=IF(VAR6<=-20,10,0);
VAR9:=HHV(VAR8,10);
VARA10:=IF(VAR9 AND CROSS(MA(CLOSE,3),MA(CLOSE,5)),20,0);
K1:=EMA(VAR7,5)*2, , COLORFF00FF;
D1:=EMA(K1,5), , COLORWHITE;
J1:=K1*3-D1*2, ,COLORYELLOW;
VARB10:=BETWEEN(CLOSE,MA(CLOSE,3),MA(CLOSE,5)) AND J1>10;
DRAWTEXT(VAR8=10 AND FILTER(VAR8=10,5),LOW*0.93,'持'),COLORFF00FF;
DRAWTEXT(VAR8=10 AND FILTER(VAR8=10,5),LOW*0.94,'股'),COLORFF00FF;VARE10:=MA(100*(CLOSE-LLV(CLOSE,34))/(HHV(HIGH,34)-LLV(LOW,34)),5)-20;
VARF10:=100-3*SMA((CLOSE-LLV(LOW,75))/(HHV(HIGH,75)-LLV(LOW,75))*100,20,1)+2*SMA(SMA((CLOSE-LLV(LOW,75))/(HHV(HIGH,75)-LLV(LOW,75))*100,20,1),15,1);
VAR10:=100-3*SMA((OPEN-LLV(LOW,75))/(HHV(HIGH,75)-LLV(LOW,75))*100,20,1)+2*SMA(SMA((OPEN-LLV(LOW,75))/(HHV(HIGH,75)-LLV(LOW,75))*100,20,1),15,1);
VAR11:=VARF<REF(VAR10,1) AND VOL>REF(VOL,1) AND CLOSE>REF(CLOSE,1);
DRAWTEXT(VAR11 AND COUNT(VAR11,30)=1,LOW*0.95,'主'),LINETHICK1,COLORFF00FF;
DRAWTEXT(VAR11 AND COUNT(VAR11,30)=1,LOW*0.94,'力'),LINETHICK1,COLORFF00FF;
DRAWTEXT(VAR11 AND COUNT(VAR11,30)=1,LOW*0.93,'行'),LINETHICK1,COLORFF00FF;
DRAWTEXT(VAR11 AND COUNT(VAR11,30)=1,LOW*0.92,'為'),LINETHICK1,COLORFF00FF;
VAR12:=(HIGH+LOW+CLOSE)/3;
VAR13:=(VAR12-MA(VAR12,14))/(0.015*AVEDEV(VAR12,14));
VAR14:=(VAR12-MA(VAR12,70))/(0.015*AVEDEV(VAR12,70));
VAR15:=IF(VAR13>=150 AND VAR13<200 AND VAR14>=150 AND VAR14<200,10,0);
VAR16:=IF(VAR13<=-150 AND VAR13>-200 AND VAR14<=-150 AND VAR14>-200,-10,VAR15);
VAR17:=(CLOSE-MA(CLOSE,13))/MA(CLOSE,13)*100;
VAR18:=100-ABS(VAR17);
VAR19:=IF(VAR18<90,VAR18,100);
VAR1A:=IF(VARE>0,VARE,0);
VAR1B:=IF(VAR14>=200 AND VAR13>=150,15,IF(VAR14<=-200 AND VAR13<=-150,-15,VAR16))+60;
VAR1C:=VAR1A>48 AND VAR1B>60 AND VAR19<100;
DRAWTEXT(VAR1C AND COUNT(VAR1C,30)=1,LOW*0.95,'震'),COLORWHITE;
DRAWTEXT(VAR1C AND COUNT(VAR1C,30)=1,LOW*0.96,'倉'),COLORWHITE;DIFF:=EMA(CLOSE,12) - EMA(CLOSE,26);
DEA:=EMA(DIFF,8);
A10:=BARSLAST(REF(CROSS(DIFF,DEA),1));
B10:=REF(C,A10+1)>C AND REF(DIFF,A10+1)<DIFF AND CROSS(DIFF,DEA);
DRAWTEXT(IF(B10>0,1,0),L,'大'),Color0000F5;
DRAWTEXT(IF(B10>0,1,0),L-0.11,'底'),Color0000F5;
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K11:=SMA(RSV,3,1);
D11:=SMA(K11,3,1);
A2:=BARSLAST(REF(CROSS(K11,D11),1));
B20:=REF(C,A2+1)>C AND REF(K11,A2+1)<K11 AND CROSS(K11,D11);
DRAWTEXT(IF(B20>0,1,0),L-0.22,'小'),Color6C8CCF;
DRAWTEXT(IF(B20>0,1,0),L-0.35,'底'),Color6C8CCF;
LC1:=REF(CLOSE,1);
RSI1:=SMA(MAX(CLOSE-LC1,0),6,1)/SMA(ABS(CLOSE-LC1),6,1)*100;
RSI2:=SMA(MAX(CLOSE-LC1,0),12,1)/SMA(ABS(CLOSE-LC1),12,1)*100;
A3:=BARSLAST(REF(CROSS(RSI1,RSI2),1));
B3:=REF(C,A3+1)>C AND REF(RSI1,A3+1)<RSI1 AND CROSS(RSI1,RSI2);
DRAWTEXT(IF(B3>0,1,0),L-0.46,'中'),Color0067DE;
DRAWTEXT(IF(B3>0,1,0),L-0.57,'底'),Color0067DE;
C1:=BARSLAST(REF(CROSS(DEA,DIFF),1));
D10:=REF(C,C1+1)<C AND REF(DIFF,C1+1)>DIFF AND CROSS(DEA,DIFF);
DRAWTEXT(IF(D10>0,1,0),H+0.1,'小頂'),ColorB27800;
C2:=BARSLAST(REF(CROSS(D11,K11),1));
D2:=REF(C,C2+1)<C AND REF(K11,C2+1)>K11 AND CROSS(D11,K11);
DRAWTEXT(IF(D2>0,1,0),H+0.25,'中頂'),Color0AB000;
C3:=BARSLAST(REF(CROSS(RSI2,RSI1),1));
D3:=REF(C,C3+1)<C AND REF(RSI1,C3+1)>RSI1 AND CROSS(RSI2,RSI1);
DRAWTEXT(IF(D3>0,1,0),H+0.4,'大頂'),ColorFF0000;CXH:=STRTONUM(STRRIGHT(DATESTR(CURRENTDATE),1));
WARNING('http://www.tumamayizhan.com',CURRENTTIME>180000 and (CXH=1 OR CXH=6));
DRAWTEXTREL(10 ,10 ,'指標公式');

公式導入教程: 【通達信公式源碼導入方法教程】【同花順公式源碼導入方法教程】【大智慧新一代公式源碼導入方法教程】