相關標簽:莊家控盤指標公式源碼 、 控盤籌碼公式指標源碼 、 主力控盤指標公式副圖 、 通達信kdj副圖源碼 、 通達信魚身副圖源碼 、 通達信公式源碼主圖 、 通達信主力控盤指標 、 通達信高度控盤指標 、 通達信分時控盤指標 、 通達信莊家控盤指標 、 通達信資金控盤指標 、 通達信四量圖指標源碼 、 通達信主圖指標公式 、 通達信控盤度指標公式 、

?

?

原理解析：
轉折周期賦值:7 轉折靈敏賦值:50 籌碼周期賦值:17 A賦值:(3*收盤價+最低價+開盤價+最高價)/6 X賦值:(20*A+19*1日前的A+18*2日前的A+17*3日前的A+16*4日前的A+15*5日前的A+14*6日前的A+13*7日前的A+12*8日前的A+11*9日前的A+10*10日前的A+9*11日前的A+8*12日前的A+7*13日前的A+6*14日前的A+5*15日前的A+4*16日前的A+3*17日前的A+2*18日前的A+20日前的A)/210 輸出主力成本:X的13日指數移動平均,NODRAW,COLORAAAAFF 輸出短期支撐:30日內最高價的最低值,NODRAW,COLORAAAAFF 輸出獲利盤:100*以收盤價計算的獲利盤比例,NODRAW,COLORAAAAFF 輸出籌碼重心:(籌碼周期日內獲利盤的最高值+籌碼周期日內獲利盤的最低值)/2,COLORAAAAFF TTR賦值:最高價-最低價和最高價-1日前的收盤價的絕對值的較大值和最低價-1日前的收盤價的絕對值的較大值的轉折周期日[1日權重]移動平均 HD賦值:最高價-1日前的最高價 LD賦值:1日前的最低價-最低價 DMP賦值:如果HD>0ANDHD>LD,返回HD,否則返回0的轉折周期日[1日權重]移動平均 DMM賦值:如果LD>0ANDLD>HD,返回LD,否則返回0的轉折周期日[1日權重]移動平均 正DI賦值:DMP*100/TTR,畫紅色 負DI賦值:DMM*100/TTR,畫綠色 輸出轉折點:負DI-正DI的絕對值/(負DI+正DI)*100的轉折周期日[1日權重]移動平均,COLORFF00FF,線寬為2 輸出換手率:成交量(手)/當前流通股本(手)*100,NODRAW,COLORFF8888 輸出五日均換手率:100*成交量(手)/當前流通股本(手)的5日累和/5,NODRAW,COLORAAAAFF 輸出十日均換手率:100*成交量(手)/當前流通股本(手)的10日累和/10,NODRAW,COLORAAAAFF ADXR賦值:(轉折點+6日前的轉折點)/2,COLOR66FF66 轉折點A賦值:轉折點<1日前的轉折點-1.3ANDEVERY(1日前的轉折點>=2日前的轉折點-1.3,5)ANDREF(轉折點,1)>轉折靈敏的5日過濾 轉折點B賦值:轉折點<1日前的轉折點-1.3ANDEVERY(1日前的轉折點>=2日前的轉折點-1.3,5)ANDREF(轉折點,1)>轉折靈敏的5日過濾 轉折點C賦值:轉折點<1日前的轉折點-1ANDEVERY(1日前的轉折點>=2日前的轉折點-1,3)ANDREF(轉折點,1)<=轉折靈敏ANDREF(轉折點,1)>=21的3日過濾 轉折點D賦值:轉折點<1日前的轉折點-1ANDEVERY(1日前的轉折點>=2日前的轉折點-1,3)ANDREF(轉折點,1)<=轉折靈敏ANDREF(轉折點,1)>=21的3日過濾 B1賦值:收盤價的1日簡單移動平均的2日[1日權重]移動平均的2日[1日權重]移動平均的2日[1日權重]移動平均 停損線賦值:如果3日內B1的8日簡單移動平均的最低值<B1,返回3日內B1的8日簡單移動平均的最低值,否則返回B1 操盤線賦值:13日內B1的1日簡單移動平均的最高值,畫紅色,線寬為3 當滿足條件籌碼重心>25時,在25和籌碼重心位置之間畫柱狀線,寬度為0,0不為0則畫空心柱.,COLOR2222FF 當滿足條件籌碼重心<25時,在25和籌碼重心位置之間畫柱狀線,寬度為0,0不為0則畫空心柱.,COLORFFFF55 ISBUY賦值:如果上次收盤價上穿操盤線距今天數>上次停損線上穿收盤價距今天數,返回0,否則返回1 ISSEL賦值:如果上次收盤價上穿操盤線距今天數>上次停損線上穿收盤價距今天數,返回1,否則返回0 當滿足條件轉折點AANDREF(正DI>負DI,1)時,在0和100位置之間畫柱狀線,寬度為0,-1不為0則畫空心柱.,畫綠色 當滿足條件轉折點AANDREF(正DI>負DI,1)時,在90位置書寫文字,畫綠色 當滿足條件轉折點BANDREF(正DI<負DI,1)時,在0和100位置之間畫柱狀線,寬度為0,-1不為0則畫空心柱.,COLOR8888FF 當滿足條件轉折點BANDREF(正DI<負DI,1)時,在15位置書寫文字,COLORFF88FF 當滿足條件轉折點CANDREF(正DI>負DI,1)時,在62和70位置之間畫柱狀線,寬度為1,0不為0則畫空心柱.,畫綠色 當滿足條件轉折點CANDREF(正DI>負DI,1)時,在70位置書寫文字,畫綠色 當滿足條件轉折點DANDREF(正DI<負DI,1)時,在27和35位置之間畫柱狀線,寬度為1,0不為0則畫空心柱.,COLOR8888FF 當滿足條件轉折點DANDREF(正DI<負DI,1)時,在35位置書寫文字,COLORFF88FF 當滿足條件ISBUY時,在0和-7位置之間畫柱狀線,寬度為5,0不為0則畫空心柱.,COLOR6666FF 當滿足條件ISSEL時,在0和-7位置之間畫柱狀線,寬度為5,0不為0則畫空心柱.,COLORFFFF33 當滿足條件獲利盤<=1時,在-6和-1位置之間畫柱狀線,寬度為2.5,0不為0則畫空心柱.,畫藍色 當滿足條件獲利盤>=99時,在-6和-1位置之間畫柱狀線,寬度為2.5,0不為0則畫空心柱.,畫紅色 0,COLORFF8888,線寬為2 25,COLOR9966FF,線寬為2 100,COLOR88FF88,線寬為2 量賦值:如果收盤價>200,返回成交量(手)/1000000,否則返回成交量(手)/1,線寬為0,COLOREEEEFF 地量賦值:換手率<1,COLORFF6600 低靡賦值:收盤價=收盤價 AND 換手率>=1 AND 換手率<2,COLOR008364 溫和賦值:收盤價=收盤價 AND 換手率>=2 AND 換手率<3,COLORFFFFFF 活躍賦值:收盤價=收盤價 AND 換手率>=3 AND 換手率<5,COLOR208FFF 帶量賦值:收盤價=收盤價 AND 換手率>=5 AND 換手率<8,畫黃色 放量賦值:收盤價=收盤價 AND 換手率>=8 AND 換手率<15,COLORFF00FF 巨量賦值:收盤價=收盤價 AND 換手率>=15 AND 換手率<25,畫紅色 怪異賦值:收盤價=收盤價 AND 換手率>=25,COLORE66878 當滿足條件地量ANDISLASTBARANDPERIOD=5時,在80位置書寫文字,COLORFF6600 當滿足條件低靡ANDISLASTBARANDPERIOD=5時,在80位置書寫文字,COLOR008364 當滿足條件溫和ANDISLASTBARANDPERIOD=5時,在80位置書寫文字,COLORFFFFFF 當滿足條件活躍ANDISLASTBARANDPERIOD=5時,在80位置書寫文字,COLOR208FFF 當滿足條件帶量ANDISLASTBARANDPERIOD=5時,在80位置書寫文字,畫黃色 當滿足條件放量ANDISLASTBARANDPERIOD=5時,在80位置書寫文字,COLORFF00FF 當滿足條件巨量ANDISLASTBARANDPERIOD=5時,在80位置書寫文字,畫紅色 當滿足條件怪異ANDISLASTBARANDPERIOD=5時,在80位置書寫文字,COLORE66878 VVOL賦值:如果到最后交易的周期=1ANDPERIOD=5,返回成交量(手)*240/當前離開盤分鐘數,否則返回無效數,NODRAW V換手率賦值:VVOL/當前流通股本(手)*100,NODRAW,畫黃色 V地量賦值:V換手率<1,COLORFF6600 V低靡賦值:收盤價=收盤價 AND V換手率>=1 AND V換手率<2,COLOR008364 V溫和賦值:收盤價=收盤價 AND V換手率>=2 AND V換手率<3,COLORFFFFFF V活躍賦值:收盤價=收盤價 AND V換手率>=3 AND V換手率<5,COLOR208FFF V帶量賦值:收盤價=收盤價 AND V換手率>=5 AND V換手率<8,畫黃色 V放量賦值:收盤價=收盤價 AND V換手率>=8 AND V換手率<15,COLORFF00FF V巨量賦值:收盤價=收盤價 AND V換手率>=15 AND V換手率<25,畫紅色 V怪異賦值:收盤價=收盤價 AND V換手率>=25,COLORE66878 當滿足條件V地量ANDISLASTBARANDFROMOPEN<240ANDFROMOPEN>5ANDPERIOD=5時,在70位置書寫文字,COLORFF6600 當滿足條件V低靡ANDISLASTBARANDFROMOPEN<240ANDFROMOPEN>5ANDPERIOD=5時,在70位置書寫文字,COLOR008364 當滿足條件V溫和ANDISLASTBARANDFROMOPEN<240ANDFROMOPEN>5ANDPERIOD=5時,在70位置書寫文字,COLORFFFFFF 當滿足條件V活躍ANDISLASTBARANDFROMOPEN<240ANDFROMOPEN>5ANDPERIOD=5時,在70位置書寫文字,COLOR208FFF 當滿足條件V帶量ANDISLASTBARANDFROMOPEN<240ANDFROMOPEN>5ANDPERIOD=5時,在70位置書寫文字,畫黃色 當滿足條件V放量ANDISLASTBARANDFROMOPEN<240ANDFROMOPEN>5ANDPERIOD=5時,在70位置書寫文字,COLORFF00FF 當滿足條件V巨量ANDISLASTBARANDFROMOPEN<240ANDFROMOPEN>5ANDPERIOD=5時,在70位置書寫文字,畫紅色 當滿足條件V怪異ANDISLASTBARANDFROMOPEN<240ANDFROMOPEN>5ANDPERIOD=5時,在70位置書寫文字,COLORE66878 個股6日賦值:(收盤價-收盤價的6日簡單移動平均)/收盤價的6日簡單移動平均 個股12日賦值:(收盤價-收盤價的12日簡單移動平均)/收盤價的12日簡單移動平均 個股24日賦值:(收盤價-收盤價的24日簡單移動平均)/收盤價的24日簡單移動平均 大盤6日賦值:(大盤的收盤價-大盤的收盤價的6日簡單移動平均)/大盤的收盤價的6日簡單移動平均 大盤12日賦值:(大盤的收盤價-大盤的收盤價的12日簡單移動平均)/大盤的收盤價的12日簡單移動平均 大盤24日賦值:(大盤的收盤價-大盤的收盤價的24日簡單移動平均)/大盤的收盤價的24日簡單移動平均 大盤賦值:(大盤6日 + 大盤12日 + 大盤24日)/3 個股賦值:(個股6日 + 個股12日 + 個股24日)/3 當滿足條件個股>大盤ANDISLASTBAR時,在60位置書寫文字,畫黃色 當滿足條件個股<大盤ANDISLASTBAR時,在60位置書寫文字,畫綠色 當滿足條件個股>0ANDISLASTBAR時,在50位置書寫文字,畫黃色 當滿足條件個股<0ANDISLASTBAR時,在50位置書寫文字,畫綠色 當滿足條件換手率<五日均換手率*0.6AND("KDJ的J"<0ORREF("KDJ的J",1)<0)時,在5位置畫9號圖標 當滿足條件(3日內最高價的最低值-收盤價)/收盤價<0.03AND(3日內最低價的最高值-最高價)/最高價<0.05AND換手率<五日均換手率*0.55AND"KDJ的J"<70ANDREF("KDJ的J">=0,1)AND"KDJ的J">=0ANDABS(1日前的"KDJ的J"-1日前的"KDJ的K")>=12時,在5位置畫11號圖標 當滿足條件收陽線時,在橫軸0.01縱軸0.9位置書寫文字,畫紅色 當滿足條件收陽線時,在橫軸1縱軸1位置書寫文字,畫紅色

?

?來源:程序化99（ www.weiqiv.net.cn ）

源碼：

?

?

轉折周期:=7;轉折靈敏:=50;籌碼周期:=17;
A:=(3*C+L+O+H)/6;
X:=(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;
主力成本:EMA(X,13),NODRAW,COLORAAAAFF;
短期支撐:LLV(HIGH,30),NODRAW,COLORAAAAFF;
獲利盤:100*WINNER(C),NODRAW,COLORAAAAFF;
籌碼重心:(HHV(獲利盤,籌碼周期)+LLV(獲利盤,籌碼周期))/2,COLORAAAAFF;
TTR:=SMA(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(LOW-REF(CLOSE,1))),轉折周期,1);
HD:=HIGH-REF(HIGH,1);
LD:=REF(LOW,1)-LOW;
DMP:=SMA(IF(HD>0 AND HD>LD,HD,0),轉折周期,1);
DMM:=SMA(IF(LD>0 AND LD>HD,LD,0),轉折周期,1);
正DI:=DMP*100/TTR,COLORRED;
負DI:=DMM*100/TTR,COLORGREEN;
轉折點:SMA(ABS(負DI-正DI)/(負DI+正DI)*100,轉折周期,1),COLORFF00FF,LINETHICK2;
換手率:VOL/CAPITAL*100,NODRAW,COLORFF8888;
五日均換手率:SUM(100*V/CAPITAL,5)/5,NODRAW,COLORAAAAFF;
十日均換手率:SUM(100*V/CAPITAL,10)/10,NODRAW,COLORAAAAFF;
{五日換手率:SUM(100*V/CAPITAL,5),NODRAW,COLORFF8888;
十日換手率:SUM(100*V/CAPITAL,10),NODRAW,COLORFF8888;
三十日換手率:SUM(100*V/CAPITAL,30),NODRAW,COLORFF8888;
六十日換手率:SUM(100*V/CAPITAL,60),NODRAW,COLORFF8888;}
ADXR:=(轉折點+REF(轉折點,6))/2,COLOR66FF66;
轉折點A:=FILTER(轉折點<REF(轉折點,1)-1.3 AND EVERY(REF(轉折點,1)>=REF(轉折點,2)-1.3,5) AND REF(轉折點,1)>轉折靈敏,5);
轉折點B:=FILTER(轉折點<REF(轉折點,1)-1.3 AND EVERY(REF(轉折點,1)>=REF(轉折點,2)-1.3,5) AND REF(轉折點,1)>轉折靈敏,5);
轉折點C:=FILTER(轉折點<REF(轉折點,1)-1 AND EVERY(REF(轉折點,1)>=REF(轉折點,2)-1,3) AND REF(轉折點,1)<=轉折靈敏 AND REF(轉折點,1)>=21,3);
轉折點D:=FILTER(轉折點<REF(轉折點,1)-1 AND EVERY(REF(轉折點,1)>=REF(轉折點,2)-1,3) AND REF(轉折點,1)<=轉折靈敏 AND REF(轉折點,1)>=21,3);
B1:=SMA(SMA(SMA(MA(C,1),2,1),2,1),2,1);
停損線:=IF(LLV(MA(B1,8),3)<B1,LLV(MA(B1,8),3),B1);
操盤線:=HHV(MA(B1,1),13),COLORRED,LINETHICK3;
STICKLINE(籌碼重心>25,25,籌碼重心,0,0),COLOR2222FF;
STICKLINE(籌碼重心<25,25,籌碼重心,0,0),COLORFFFF55;
ISBUY:=IF (BARSLAST(CROSS(C,操盤線))>BARSLAST(CROSS(停損線,C)),0,1);
ISSEL:=IF (BARSLAST(CROSS(C,操盤線))>BARSLAST(CROSS(停損線,C)),1,0);
STICKLINE(轉折點A AND REF(正DI>負DI,1),0,100,0,-1),COLORGREEN;
DRAWTEXT (轉折點A AND REF(正DI>負DI,1),90,'止盈'),COLORGREEN;
STICKLINE(轉折點B AND REF(正DI<負DI,1),0,100,0,-1),COLOR8888FF;
DRAWTEXT (轉折點B AND REF(正DI<負DI,1),15,'建倉'),COLORFF88FF;
{DRAWICON(轉折點C AND REF(正DI,1)>REF(負DI,1),轉折點+15,2);
DRAWICON(轉折點D AND REF(正DI,1)<REF(負DI,1),轉折點+15,1);}
STICKLINE(轉折點C AND REF(正DI>負DI,1),62,70,1,0),COLORGREEN;
DRAWTEXT (轉折點C AND REF(正DI>負DI,1),70,' 減'),COLORGREEN;
STICKLINE(轉折點D AND REF(正DI<負DI,1),27,35,1,0),COLOR8888FF;
DRAWTEXT (轉折點D AND REF(正DI<負DI,1),35,' 吸'),COLORFF88FF;
STICKLINE(ISBUY,0,-7,5,0),COLOR6666FF;
STICKLINE(ISSEL,0,-7,5,0),COLORFFFF33;
STICKLINE(獲利盤<=1,-6,-1,2.5,0),COLORBLUE;
STICKLINE(獲利盤>=99,-6,-1,2.5,0),COLORRED;
0,COLORFF8888,LINETHICK2;
25,COLOR9966FF,LINETHICK2;
100,COLOR88FF88,LINETHICK2;
量:=IF(C>200,VOL/1000000,VOL/1),LINETHICK0,COLOREEEEFF;
地量:=換手率<1,COLORFF6600;
低靡:=C=C AND 換手率>=1 AND 換手率<2,COLOR008364;
溫和:=C=C AND 換手率>=2 AND 換手率<3,COLORFFFFFF;
活躍:=C=C AND 換手率>=3 AND 換手率<5,COLOR208FFF;
帶量:=C=C AND 換手率>=5 AND 換手率<8,COLORYELLOW;
放量:=C=C AND 換手率>=8 AND 換手率<15,COLORFF00FF;
巨量:=C=C AND 換手率>=15 AND 換手率<25,COLORRED;
怪異:=C=C AND 換手率>=25,COLORE66878;
DRAWTEXT(地量 AND ISLASTBAR AND PERIOD=5,80,'成交地量'),COLORFF6600;
DRAWTEXT(低靡 AND ISLASTBAR AND PERIOD=5,80,'成交低靡'),COLOR008364;
DRAWTEXT(溫和 AND ISLASTBAR AND PERIOD=5,80,'成交溫和'),COLORFFFFFF;
DRAWTEXT(活躍 AND ISLASTBAR AND PERIOD=5,80,'成交活躍'),COLOR208FFF;
DRAWTEXT(帶量 AND ISLASTBAR AND PERIOD=5,80,'成交帶量'),COLORYELLOW;
DRAWTEXT(放量 AND ISLASTBAR AND PERIOD=5,80,'成交放量'),COLORFF00FF;
DRAWTEXT(巨量 AND ISLASTBAR AND PERIOD=5,80,'成交巨量'),COLORRED;
DRAWTEXT(怪異 AND ISLASTBAR AND PERIOD=5,80,'成交怪異'),COLORE66878;
VVOL:=IF(CURRBARSCOUNT=1 AND PERIOD=5,VOL*240/FROMOPEN,DRAWNULL),NODRAW;
V換手率:=VVOL/CAPITAL*100,NODRAW,COLORYELLOW;
{V量:=IF(C>200,VOL/1000000,VOL/1),LINETHICK0,COLOREEEEFF;}
V地量:=V換手率<1,COLORFF6600;
V低靡:=C=C AND V換手率>=1 AND V換手率<2,COLOR008364;
V溫和:=C=C AND V換手率>=2 AND V換手率<3,COLORFFFFFF;
V活躍:=C=C AND V換手率>=3 AND V換手率<5,COLOR208FFF;
V帶量:=C=C AND V換手率>=5 AND V換手率<8,COLORYELLOW;
V放量:=C=C AND V換手率>=8 AND V換手率<15,COLORFF00FF;
V巨量:=C=C AND V換手率>=15 AND V換手率<25,COLORRED;
V怪異:=C=C AND V換手率>=25,COLORE66878;
DRAWTEXT(V地量 AND ISLASTBAR AND FROMOPEN<240 AND FROMOPEN>5 AND PERIOD=5,70,'預測地量'),COLORFF6600;
DRAWTEXT(V低靡 AND ISLASTBAR AND FROMOPEN<240 AND FROMOPEN>5 AND PERIOD=5,70,'預測低靡'),COLOR008364;
DRAWTEXT(V溫和 AND ISLASTBAR AND FROMOPEN<240 AND FROMOPEN>5 AND PERIOD=5,70,'預測溫和'),COLORFFFFFF;
DRAWTEXT(V活躍 AND ISLASTBAR AND FROMOPEN<240 AND FROMOPEN>5 AND PERIOD=5,70,'預測活躍'),COLOR208FFF;
DRAWTEXT(V帶量 AND ISLASTBAR AND FROMOPEN<240 AND FROMOPEN>5 AND PERIOD=5,70,'預測帶量'),COLORYELLOW;
DRAWTEXT(V放量 AND ISLASTBAR AND FROMOPEN<240 AND FROMOPEN>5 AND PERIOD=5,70,'預測放量'),COLORFF00FF;
DRAWTEXT(V巨量 AND ISLASTBAR AND FROMOPEN<240 AND FROMOPEN>5 AND PERIOD=5,70,'預測巨量'),COLORRED;
DRAWTEXT(V怪異 AND ISLASTBAR AND FROMOPEN<240 AND FROMOPEN>5 AND PERIOD=5,70,'預測怪量'),COLORE66878;
個股6日:=(C-MA(C,6))/MA(C,6);
個股12日:=(C-MA(C,12))/MA(C,12);
個股24日:=(C-MA(C,24))/MA(C,24);
大盤6日:=(INDEXC-MA(INDEXC,6))/MA(INDEXC,6);
大盤12日:=(INDEXC-MA(INDEXC,12))/MA(INDEXC,12);
大盤24日:=(INDEXC-MA(INDEXC,24))/MA(INDEXC,24);
大盤:=(大盤6日 + 大盤12日 + 大盤24日)/3;
個股:=(個股6日 + 個股12日 + 個股24日)/3;
DRAWTEXT(個股>大盤 AND ISLASTBAR,60,'強于大盤'),COLORYELLOW;
DRAWTEXT(個股<大盤 AND ISLASTBAR,60,'弱于大盤'),COLORGREEN;
DRAWTEXT(個股>0 AND ISLASTBAR,50,'走勢較強'),COLORYELLOW;
DRAWTEXT(個股<0 AND ISLASTBAR,50,'走勢較弱'),COLORGREEN;
{DRAWICON(CROSS(0.9,1/VOL*1000>0.01 AND "KDJ.J"<0),5,9);}
DRAWICON(換手率<五日均換手率*0.6 AND ("KDJ.J"<0 OR REF("KDJ.J",1)<0),5,9);
DRAWICON((LLV(H,3)-C)/C<0.03 AND (HHV(L,3)-H)/H<0.05
AND 換手率<五日均換手率*0.55 AND "KDJ.J"<70 AND REF("KDJ.J">=0,1) AND "KDJ.J">=0
AND ABS(REF("KDJ.J",1)-REF("KDJ.K",1))>=12,5,11);
DRAWTEXT_FIX(C>O,0.01,0.9,0,' www.weiqiv.net.cn '),COLORRED;
DRAWTEXT_FIX(C>O,1,1,0,'程序化交易模型'),COLORRED;

?

?

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

?