打印本文
關閉窗口
相關標簽:
?
使用說明:
買入：1 當黃金底出現時《只能“在第二天和第三天買入”》因黃金底公式有未來函數。
2 當紅色的鐵買出現時買入80％，KD交金叉時全部買入。
3 在藍色柱的上面《出現黃色柱》“為鐵買”
賣出：1`當綠色柱在（55％）中位線以上出現，有白色柱出現，KD交死叉前賣出。
2`當綠色柱在（55％）中位線以上出現，有白色柱出現，KD交死叉后(三個條件都滿足了)必須賣出。
?
?
?
原理解析：
?
?來源:程序化99（ www.tumamayizhan.com ）
源碼：
?
?
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,' www.tumamayizhan.com '),colorred;
TIPTEXT(ISNULL(REF(CLOSE,1)),0,'同花順程序化交易');
?
公式導入教程: 【通達信公式源碼導入方法教程】 【同花順公式源碼導入方法教程】 【大智慧新一代公式源碼導入方法教程】
?