相關標簽:

?

使用說明:
買入：1 當黃金底出現時《只能“在第二天和第三天買入”》因黃金底公式有未來函數。
2 當紅色的鐵買出現時買入80％，KD交金叉時全部買入。
3 在藍色柱的上面《出現黃色柱》“為鐵買”
賣出：1`當綠色柱在（55％）中位線以上出現，有白色柱出現，KD交死叉前賣出。
2`當綠色柱在（55％）中位線以上出現，有白色柱出現，KD交死叉后(三個條件都滿足了)必須賣出。

?

?

?

原理解析：
輸出MP0:0,COLOR00FFFF 輸出MP100:100,COLOR0000FF 資金1賦值:100*(收盤價-34日內最低價的最低值)/(34日內最高價的最高值-34日內最低價的最低值)的1日指數移動平均,POINTDOT,COLOR00FFFF 輸出//資金1線大>50 <20 >昨天[為買],資金1線>50 下穿50線 <昨天 [為賣]資金3:100*(收盤價-34日內最低價的最低值)/(34日內最高價的最高值-34日內最低價的最低值)的3日指數移動平均,COLOR00FFFF 當滿足條件到最后交易的周期=1時,在橫軸0.5縱軸0.3位置書寫文字,COLORFFFFFF 當滿足條件到最后交易的周期=1時,在橫軸0.57縱軸0.35位置書寫文字,COLOR00FFFF X1賦值:100*(N1日內最高價的最高值-收盤價)/(N1日內最高價的最高值-N1日內最低價的最低值) VAR1賦值:100*(N2日內最高價的最高值-收盤價)/(N2日內最高價的最高值-N2日內最低價的最低值) VAR2賦值:100*(N3日內最高價的最高值-收盤價)/(N3日內最高價的最高值-N3日內最低價的最低值) VAR3賦值:VAR1-X1 VAR4賦值:X1-VAR1 0VAR5賦值:收盤價的13日指數移動平均的13日指數移動平均 LOWV賦值:10日內最低價的最低值 HIGHV賦值:13日內最高價的最高值 RSV=(收盤價-18日內最低價的最低值)/(18日內最高價的最高值-18日內最低價的最低值)*100 K賦值:RSV的3日指數移動平均,線寬為1 D賦值:K的3日[1日權重]移動平均,線寬為1 J賦值:3*K-2*D,POINTDOT //當滿足條件1日前的J>2日前的JANDREF(J,1)>100ANDREF(J,1)>J時,在J位置書寫數字 當滿足條件J<1日前的JAND資金1<1日前的資金1AND資金3<1日前的資金3ANDREF(資金1,1)>1日前的資金3ANDREF(J,1)>100時,在1日前的J位置書寫文字,COLOR00FF00 輸出D線小于20:如果D<20,返回50,否則返回無效數,COLOR9955FF,線寬為4 輸出J線上升:如果J>1日前的J,返回J,否則返回無效數,COLOR00FFFF,線寬為1 輸出J線下降:如果J<1日前的J,返回J,否則返回無效數,COLORFFFF00,線寬為1 輸出資金1上升:如果資金1>1日前的資金1,返回資金1,否則返回無效數,COLOR0000FF,線寬為1 輸出資金1下降:如果資金1<1日前的資金1,返回資金1,否則返回無效數,COLOR00FF00,線寬為1 MM賦值:(2*收盤價+最高價+最低價+開盤價)/5 MPC1賦值:MM的2.78日指數移動平均*1.028 MPC2賦值:開盤價的3.2日簡單移動平均*1.028 資金1線賦值:如果資金1>1日前的資金1,返回1,否則返回0 20K大D賦值:如果K>D,返回1,否則返回0 K大昨賦值:如果K>1日前的K,返回1,否則返回0 J小KD賦值:如果J<KANDJ<D,返回1,否則返回0 笞蚋持?如果J>1日前的J,返回1,否則返回0 主力1賦值:(收盤價-收盤價的7日簡單移動平均)/收盤價的7日簡單移動平均*800的2日指數移動平均 主力2賦值:主力1的2日簡單移動平均 VAR1賦值:(收盤價-收盤價的21日簡單移動平均)/收盤價的21日簡單移動平均*100 VAR2賦值:(收盤價-43日內最低價的最低值)/(43日內最高價的最高值-43日內最低價的最低值)*100 VAR3賦值:VAR2的2日[1日權重]移動平均 頂賦值:100+(-VAR1的絕對值),畫紅色 股價賦值:VAR3的2日[1日權重]移動平均 底賦值:VAR1的絕對值,畫綠色 當滿足條件ISNULL(1日后的&收盤價)時,在資金1位置書寫文字,COLOR0000FF 當滿足條件ISNULL(1日后的&收盤價)時,在資金3位置書寫文字,COLOR00FFFF 當滿足條件ISNULL(1日后的&收盤價)時,在J位置書寫文字,COLORFFFFFF MPC12賦值:如果MPC1>1日前的MPC1,返回1,否則返回0 MPCKD賦值:如果K>1日前的K,返回1,否則返回0 當滿足條件MPCKD>=1ANDK<30ANDX1<1日前的X1時,在50和-20位置之間畫柱狀線,寬度為10,1不為0則畫空心柱.,COLOR0505FF,線寬為1 //紅色柱框、買入DRAWTEXT((0上穿VAR4AND X1<15),50,'↖明后天賣'),COLOR00FF00,,線寬為4 ASW賦值:資金1線=0 AND J大昨=0 AND K大昨=0 AND 主力1<主力2 AND MPCKD<=0 AND 1日前的X1<=10 ANDX1<=15 AND MPCKD<=0 AND K>50AND X1>1日前的X1 當滿足條件X1<=15AND資金1線<1時,在125和117位置之間畫柱狀線,寬度為8,0不為0則畫空心柱.,COLOR999999 //第五排白色,白色點高位要變盤了賣點 當滿足條件ASW時,在117和109位置之間畫柱狀線,寬度為8,0不為0則畫空心柱.,COLOR009900 //淺綠色［有藍色小賣、無藍色、有綠色為大賣］STICKLINE(MPCKD<=0 AND MPCKD=0,15,7.5,8,0),COLOR09FF00,線寬為2 //第一排綠色 當滿足條件VAR4>0ANDMPC12>0時,在7.5和0位置之間畫柱狀線,寬度為8,0不為0則畫空心柱.,COLORF000FF,線寬為1 //第二排的粉紅色,粉紅色點持股點 當滿足條件X1<=10時,在-7.5和-0位置之間畫柱狀線,寬度為8,0不為0則畫空心柱.,COLORFF0000,線寬為2 //第三排藍色,藍色點加白色點為賣 當滿足條件X1<1日前的X1時,在-7.5和-15位置之間畫柱狀線,寬度為8,0不為0則畫空心柱.,COLOR0000FF,線寬為2 //第四排的紅色,紅色點加粉紅色點加黃色點為持股點 當滿足條件VAR4>=0ANDK>1日前的KANDK<35時,在-17和-25位置之間畫柱狀線,寬度為8,0不為0則畫空心柱.,COLOR00FFFF,線寬為2 //第五排的黃色,黃色點加紅色點為買 賣號賦值:MPCKD<=0 AND MPCKD=0 賣號1賦值:X1<=10 AND ASW 當滿足條件賣號ANDREF(賣號,1)=0AND賣號1時,在50和100位置之間畫柱狀線,寬度為6,1不為0則畫空心柱.,COLORFF000F,線寬為4 VARF賦值:收盤價15%之字轉向的前1個波谷位置<1 VAR11賦值:如果VARF=1,返回50,否則返回0 EE賦值:VARF=1的5日過濾 當滿足條件EE>=1時,在125和117位置之間畫柱狀線,寬度為8,0不為0則畫空心柱.,畫黃色 //↖明天買DRAWTEXT(VARF=1的3日過濾,116,'↖明天買'),畫黃色,低位 PARTLINE(J,J>1日前的J,自定色,J<1日前的J,自定色,1),線寬為1 控盤賦值:(VAR5-1日前的VAR5)/1日前的VAR1*500,COLORFFCCCC 控盤1賦值:1日前的控盤 控盤2賦值:如果控盤1上穿控盤,返回4,否則返回0AND(D-K)>2 PARTLINE(資金1,資金1>1日前的資金1,自定色,資金1<1日前的資金1,自定色,1),線寬為1 BB13賦值:VR的3日指數移動平均-1日前的VR的3日指數移動平均的反正切*3.1416*10 TIPTEXT(ISNULL(1日后的&收盤價),0,' m.weiqiv.net.cn '),畫紅色 TIPTEXT(ISNULL(1日前的收盤價),0,'同花順程序化交易')

?

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

源碼：

?

?

mp0:0,color00fffF;mp100:100,color0000fF;
資金1:=EMA(100*(CLOSE-LLV(LOW,34))/(HHV(HIGH,34)-LLV(LOW,34)),1),POINTDOT,color00fffF;//資金1線大>50 <20 >昨天[為買],資金1線>50 下穿50線 <昨天 [為賣]
資金3:EMA(100*(CLOSE-LLV(LOW,34))/(HHV(HIGH,34)-LLV(LOW,34)),3),color00fffF;
DRAWTEXT_FIX(CURRBARSCOUNT=1 ,0.5,0.3,1,'1日資金線'),colorfffffF;
DRAWTEXT_FIX(CURRBARSCOUNT=1 ,0.57,0.35,0,'3日資金線'),color00fffF;
X1:=100*(HHV(HIGH,N1)-CLOSE)/(HHV(HIGH,N1)-LLV(LOW,N1));//X1>50>VAR1 VAR1=VAR2<昨天VAR1<昨天X1[為買]
Var1:=100*(HHV(HIGH,N2)-CLOSE)/(HHV(HIGH,N2)-LLV(LOW,N2));//VAR1>VAR2 VAR2<30,VAR2>昨天 [為調整],VAR1<VAR2 VAR2<30,VAR2>昨天[為出貨]
Var2:=100*(HHV(HIGH,N3)-CLOSE)/(HHV(HIGH,N3)-LLV(LOW,N3));//VAR1=VAR2>70,<昨天VAR1(為買)
Var3:=Var1-X1;
Var4:=X1-Var1;//大于0[買]AND,昨天<=0
Var5:=EMA(EMA(CLOSE,13),13);
{
DRAWGBK(資金1>資金3),color000033;DRAWGBK(資金1<資金3),color332200;
條件:=x1<REF(x1,1); 條件1:=Var1<REF(Var1,1); 條件2:=Var2<REF(Var2,1);
條件3:=Var1<=Var2; 條件4:=Var1=Var2; 條件5:=(x1=(Var1+Var2)/2);xds:=BETWEEN(VAR4,-10,10);
條件6:=x1>75; 條件7:=x1<20; 買條件:=2*(條件6 AND 條件 AND 條件1 AND 條件2);
賣條件:=x1<20 AND 條件<1 AND 條件1<1 AND 條件2<1;fgh:=CROSS(VAR4,1);
指導:=條件+條件1+條件2+條件6+條件7;
}
LOWV:=LLV(LOW,10);
HIGHV:=HHV(HIGH,13);
RSV=(CLOSE-LLV(LOW,18))/(HHV(HIGH,18)-LLV(LOW,18))*100;
k:=EMA(RSV,3,1),LINETHICK1;
D:=SMA(K,3,1),LINETHICK1;
J:=3*K-2*D,POINTDOT;
//DRAWNUMBER(REF(j,1)>REF(j,2) AND REF(j,1)>100 AND REF(j,1)>j,j,'↖▼');
DRAWTEXT(j<REF(j,1)AND 資金1<REF(資金1,1)AND 資金3<REF(資金3,1)AND REF(資金1,1)>REF(資金3,1) AND REF(j,1)>100,REF(j,1),'↖▼'),COLOR00FF00;
D線小于20:IF(d<20,50,DRAWNULL),COLOR9955ff,LINETHICK4;
J線上升:IF(J>REF(J,1),J,DRAWNULL),COLOR00FFff,LINETHICK1;
J線下降:IF(J<REF(J,1),J,DRAWNULL),COLORffFF00,LINETHICK1;
資金1上升:IF(資金1>REF(資金1,1),資金1,DRAWNULL),COLOR0000ff,LINETHICK1;
資金1下降:IF(資金1<REF(資金1,1),資金1,DRAWNULL),COLOR00fF00,LINETHICK1;
MM:=(2*CLOSE+HIGH+LOW+OPEN)/5;
mpc1:=EMA(mm,2.78)*1.028;
mpc2:=MA(OPEN,3.2)*1.028;
資金1線:=IF(資金1>REF(資金1,1),1,0);// 資金1>80 資金1<20
K大D:=IF(K>d,1,0);//K大D=1[上升趨勢],{但K線不能小于昨日K線}
K大昨:=IF(K>REF(K,1),1,0);//K大昨=1 AND J大昨=1[買] 二項=0[賣]
J小KD:=IF(J<K AND J<D,1,0);//判斷J線高低度
J大昨:=IF(J>REF(J,1),1,0);//J大昨=1 J線小于20 K大昨=1[買]
主力1:=EMA( (CLOSE-MA(CLOSE,7))/MA(CLOSE,7)*800,2);
主力2:=MA(主力1,2);
VAR1:=(CLOSE-MA(CLOSE,21))/MA(CLOSE,21)*100;
VAR2:=(CLOSE-LLV(LOW,43))/(HHV(HIGH,43)-LLV(LOW,43))*100;
VAR3:=SMA(VAR2,2,1);
頂:=100+(-ABS(VAR1)),colorred;
股價:=SMA(VAR3,2,1);
底:=ABS(VAR1),colorgreen;
DRAWTEXT(ISNULL(REFX(&CLOSE,1)),資金1,'↖資金1'),COLOR0000FF;
DRAWTEXT(ISNULL(REFX(&CLOSE,1)),資金3,'↖資金3'),COLOR00ffFF;
DRAWTEXT(ISNULL(REFX(&CLOSE,1)),j,'↖J線'+j),COLORffffFF;
MPC12:=IF(MPC1>REF(MPC1,1),1,0);
mpckD:=IF(k>REF(k,1),1,0);
STICKLINE(mpckd>=1AND k<30AND x1<REF(x1,1),50,-20,10,1),COLOR0505ff,LINETHICK1;//紅色柱框、買入
DRAWTEXT((CROSS(0,Var4)AND x1<15),50,'↖明后天賣'),color00ff00,,LINETHICK4;
asw:=資金1線=0 AND J大昨=0 AND K大昨=0 AND 主力1<主力2 AND mpckd<=0 AND REF(x1,1)<=10 AND
X1<=15 AND mpckd<=0 AND k>50AND x1>REF(x1,1);
STICKLINE(X1<=15AND 資金1線<1,125,117,8,0),color999999;//第五排白色,白色點高位要變盤了賣點;
STICKLINE(asw ,117,109,8,0),color009900;//淺綠色［有藍色小賣、無藍色、有綠色為大賣］
STICKLINE(mpckd<=0 AND mpckD=0,15,7.5,8,0),COLOR09ff00,LINETHICK2;//第一排綠色;
STICKLINE(Var4>0AND mpc12>0,7.5,0,8,0),colorf000ff,LINETHICK1;//第二排的粉紅色,粉紅色點持股點;
STICKLINE(X1<=10,-7.5,-0,8,0),colorff0000,LINETHICK2;//第三排藍色,藍色點加白色點為賣;
STICKLINE(X1<REF(X1,1),-7.5,-15,8,0),color0000FF,LINETHICK2;//第四排的紅色,紅色點加粉紅色點加黃色點為持股點;
STICKLINE(VAR4>=0AND k>REF(k,1)AND k<35,-17,-25,8,0),color00fffF,LINETHICK2;//第五排的黃色,黃色點加紅色點為買;
賣號:=mpckd<=0 AND mpckD=0;賣號1:=X1<=10 AND asw;
STICKLINE(賣號 AND REF(賣號,1)=0 AND 賣號1,50,100,6,1),colorff000F,LINETHICK4;
VARF:=TROUGHBARS(3,15,1)<1;
VAR11:=IF(VARF=1,50,0);
EE:=FILTER(VARF=1,5);
STICKLINE(EE>=1,125,117,8,0),coloryellow;//↖明天買
DRAWTEXT(FILTER(VARF=1,3),116,'↖明天買'),coloryellow,低位;
PARTLINE(j,j>REF(j,1),RGB(255,0,150),j<REF(j,1),RGB(0,255,200),1),LINETHICK1;
控盤:=(Var5-REF(Var5,1))/REF(Var1,1)*500,colorffcccc;
控盤1:=REF(控盤,1); 控盤2:=IF(CROSS(控盤1,控盤),4,0)AND(D-K)>2;
PARTLINE(資金1,資金1>REF(資金1,1),RGB(250,0,0),資金1<REF(資金1,1),RGB(0,205,200),1),LINETHICK1;
bb13:=ATAN(EMA(VR,3)-REF(EMA(VR,3),1))*3.1416*10;TIPTEXT(ISNULL(REFX(&CLOSE,1)),0,' m.weiqiv.net.cn '),colorred;
TIPTEXT(ISNULL(REF(CLOSE,1)),0,'同花順程序化交易');

?

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

?