相關標簽:

?

簡化直觀易懂，紅漲至頂部橫盤走背賣出，綠跌至底部走背買入…

?

?

原理解析：
RSV賦值:(收盤價-6日內最低價的最低值)/(6日內最高價的最高值-6日內最低價的最低值)*100 K賦值:RSV的3日[1日權重]移動平均 D賦值:K的3日[1日權重]移動平均 J賦值:3*K-2*D VARV賦值:(2*收盤價+最高價+最低價)/4 VARU賦值:30日內最低價的最低值 VARA1賦值:30日內最高價的最高值 B賦值:(VARV-VARU)/(VARA1-VARU)*100的8日指數移動平均 B1賦值:B的5日指數移動平均 當滿足條件B-B1>0時,在B和B1位置之間畫柱狀線,寬度為8,1不為0則畫空心柱.,畫紅色 當滿足條件B-B1<0時,在B和B1位置之間畫柱狀線,寬度為8,1不為0則畫空心柱.,COLOR00FF00 LC賦值:1日前的收盤價 RSI賦值:收盤價-LC和0的較大值的6日[1日權重]移動平均/收盤價-LC的絕對值的6日[1日權重]移動平均*100 輸出低吸:如果RSI上穿11,返回70,否則返回0,畫白色,POINTDOT 當滿足條件低吸時,在70和0位置之間畫柱狀線,寬度為4,0不為0則畫空心柱.,畫白色 VAR7賦值:成交額(元)/成交量(手)/100的3日指數移動平均 VAR8賦值:VAR7的88日指數移動平均 VAR9賦值:VAR7的88日指數移動平均*0.88 VARA賦值:VAR9*0.87 VARB賦值:最低價<VARA AND 收盤價>1日前的收盤價*1.02 當滿足條件VARB的6日過濾時,在65和0位置之間畫柱狀線,寬度為4,0不為0則畫空心柱.,COLORFF00FF 輸出堅決買進:如果VARB的6日過濾,返回65,否則返回0,COLORFF00FF,POINTDOT VARF賦值:(2*收盤價+最高價+最低價)/4 VA4賦值:34日內最低價的最低值 VA5賦值:34日內最高價的最高值 VA6賦值:(VARF-VA4)/(VA5-VA4)*100的6日指數移動平均 VA7賦值:0.667*1日前的VA6+0.333*VA6的4日指數移動平均 輸出出擊:如果如果統計8日中滿足收盤價<1日前的收盤價的天數/8>0.3ANDCOUNT(VA6>VA7,3)ANDREF(最低價,1)=120日內最低價的最低值ANDCLOSE>開盤價,返回1,否則返回0,返回60,否則返回0,畫黃色,POINTDOT 當滿足條件如果統計8日中滿足收盤價<1日前的收盤價的天數/8>0.3ANDCOUNT(VA6>VA7,3)ANDREF(最低價,1)=120日內最低價的最低值ANDCLOSE>開盤價,返回1,否則返回0時,在60和0位置之間畫柱狀線,寬度為4,0不為0則畫空心柱.,畫黃色 A賦值:(3*收盤價+最低價+開盤價+最高價)/6 D1賦值:(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)/211 D2賦值:D1的2日指數移動平均 D3賦值:D2的2日指數移動平均 K1賦值:D3的2日指數移動平均 輸出波段買入:如果D1上穿K1,返回55,否則返回0,COLOR0099FF,POINTDOT 當滿足條件D1上穿K1時,在55和0位置之間畫柱狀線,寬度為4,0不為0則畫空心柱.,COLOR0099FF 多方趨勢賦值:7*(收盤價-27日內最低價的最低值)/(27日內最高價的最高值-27日內最低價的最低值)*30的4日[1日權重]移動平均-3*(收盤價-27日內最低價的最低值)/(27日內最高價的最高值-27日內最低價的最低值)*30的4日[1日權重]移動平均的3日[1日權重]移動平均-(收盤價-27日內最低價的最低值)/(27日內最高價的最高值-27日內最低價的最低值)*30的4日[1日權重]移動平均的3日[1日權重]移動平均的2日[1日權重]移動平均 天線賦值:78.89 當滿足條件天線上穿多方趨勢時,在90和95位置之間畫柱狀線,寬度為6,0不為0則畫空心柱.,COLOR00FF00 當滿足條件B>0ANDB-B1>=0時,在79和80位置之間畫柱狀線,寬度為6,0不為0則畫空心柱.,畫紅色 當滿足條件B>0ANDB-B1<0時,在79和80位置之間畫柱狀線,寬度為6,0不為0則畫空心柱.,COLOR00FF00 當滿足條件B>0ANDB-B1>=0時,在49和50位置之間畫柱狀線,寬度為6,0不為0則畫空心柱.,畫紅色 當滿足條件B>0ANDB-B1<0時,在49和50位置之間畫柱狀線,寬度為6,0不為0則畫空心柱.,COLORFF8899 當滿足條件B>0ANDB-B1>=0時,在19和20位置之間畫柱狀線,寬度為6,0不為0則畫空心柱.,畫紅色 當滿足條件B>0ANDB-B1<0時,在19和20位置之間畫柱狀線,寬度為6,0不為0則畫空心柱.,COLOR00FF00 當滿足條件B-B1>0時,在B和B1位置之間畫柱狀線,寬度為8,1不為0則畫空心柱.,畫紅色 當滿足條件B-B1<0時,在B和B1位置之間畫柱狀線,寬度為8,1不為0則畫空心柱.,COLOR00FF00 輸出地量:當滿足條件0.9上穿1/成交量(手)*1000>0.01ANDJ<0時,在最低價*1位置書寫文字,COLOR00FFFF 當滿足條件地量>0時,在0和30位置之間畫柱狀線,寬度為2,0不為0則畫空心柱.,COLOR008888 當滿足條件地量>0時,在0和30位置之間畫柱狀線,寬度為1.5,0不為0則畫空心柱.,COLOR00AAAA 當滿足條件地量>0時,在0和30位置之間畫柱狀線,寬度為0.8,0不為0則畫空心柱.,COLOR00DDDD 當滿足條件地量>0時,在0和30位置之間畫柱狀線,寬度為0.3,0不為0則畫空心柱.,COLOR00FFFF VARR1賦值:收盤價-1日前的收盤價和0的較大值的6日[1日權重]移動平均/收盤價-1日前的收盤價的絕對值的6日[1日權重]移動平均*100 當滿足條件82上穿VARR1時,在10位置畫15號圖標 VAR10賦值:100-3*(收盤價-75日內最低價的最低值)/(75日內最高價的最高值-75日內最低價的最低值)*100的20日[1日權重]移動平均+2*(收盤價-75日內最低價的最低值)/(75日內最高價的最高值-75日內最低價的最低值)*100的20日[1日權重]移動平均的15日[1日權重]移動平均 VAR11賦值:100-3*(開盤價-75日內最低價的最低值)/(75日內最高價的最高值-75日內最低價的最低值)*100的20日[1日權重]移動平均+2*(開盤價-75日內最低價的最低值)/(75日內最高價的最高值-75日內最低價的最低值)*100的20日[1日權重]移動平均的15日[1日權重]移動平均 VAR12賦值:VAR10<1日前的VAR11 AND 成交量(手)>1日前的成交量(手) AND 收盤價>1日前的收盤價 當滿足條件VAR12ANDCOUNT(VAR12,30)=1時,在40位置書寫文字 TIPTEXT(ISNULL(1日后的&收盤價),0,' www.weiqiv.net.cn '),畫紅色 TIPTEXT(ISNULL(1日前的收盤價),0,'同花順程序化交易')

?

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

源碼：

?

?

RSV:=(CLOSE-LLV(LOW,6))/(HHV(HIGH,6)-LLV(LOW,6))*100;
K:=SMA(RSV,3,1);
D:=SMA(K,3,1);
J:=3*K-2*D;
VARV:=(2*C+H+L)/4;
VARU:=LLV(LOW,30);
VARA1:=HHV(HIGH,30);
B:=EMA((VARV-VARU)/(VARA1-VARU)*100,8);
B1:=EMA(B,5);
STICKLINE(B-B1>0,B,B1,8,1),colorred;
STICKLINE(B-B1<0,B,B1,8,1),COLOR00FF00;
LC:=REF(CLOSE,1);
RSI:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100;
低吸:IF(CROSS(RSI,11),70,0),colorwhite,POINTDOT;
STICKLINE(低吸,70,0,4,0),colorwhite;
VAR7:=EMA(AMOUNT/VOL/100,3);
VAR8:=EMA(VAR7,88);
VAR9:=EMA(VAR7,88)*0.88;
VARA:=VAR9*0.87;
VARB:=LOW<VARA AND CLOSE>REF(CLOSE,1)*1.02;
STICKLINE(FILTER(VARB,6),65,0,4,0),COLORFF00FF;
堅決買進:IF(FILTER(VARB,6),65,0),COLORFF00FF,POINTDOT;
VARF:=(2*CLOSE+HIGH+LOW)/4;
VA4:=LLV(LOW,34);
VA5:=HHV(HIGH,34);
VA6:=EMA((VARF-VA4)/(VA5-VA4)*100,6);
VA7:=EMA(0.667*REF(VA6,1)+0.333*VA6,4);
出擊:IF(IF(COUNT(CLOSE<REF(CLOSE,1),8)/8>0.3 AND COUNT(VA6>VA7,3) AND REF(LOW,1)=LLV(LOW,120) AND
CLOSE>OPEN,1,0),60,0),coloryellow,POINTDOT;
STICKLINE(IF(COUNT(CLOSE<REF(CLOSE,1),8)/8>0.3 AND COUNT(VA6>VA7,3) AND
REF(LOW,1)=LLV(LOW,120) AND CLOSE>OPEN,1,0),60,0,4,0),coloryellow;
A:=(3*CLOSE+LOW+OPEN+HIGH)/6;
D1:=(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))/211;
D2:=EMA(D1,2);
D3:=EMA(D2,2);
K1:=EMA(D3,2);
波段買入:IF(CROSS(D1,K1),55,0),COLOR0099FF,POINTDOT;
STICKLINE(CROSS(D1,K1),55,0,4,0),COLOR0099FF;
多方趨勢:=7*SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*30,4,1)
-3*SMA(SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*30,4,1),3,1)
-SMA(SMA(SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*30,4,1)
,3,1),2,1);
天線:=78.89;
STICKLINE(CROSS(天線,多方趨勢),90,95,6,0),COLOR00FF00;
STICKLINE(B>0 AND B-B1>=0,79,80,6,0),colorred;
STICKLINE(B>0 AND B-B1<0,79,80,6,0),COLOR00FF00;
STICKLINE(B>0 AND B-B1>=0,49,50,6,0),colorred;
STICKLINE(B>0 AND B-B1<0,49,50,6,0),COLORFF8899;
STICKLINE(B>0 AND B-B1>=0,19,20,6,0),colorred;
STICKLINE(B>0 AND B-B1<0,19,20,6,0),COLOR00FF00;
STICKLINE(B-B1>0,B,B1,8,1),colorred;
STICKLINE(B-B1<0,B,B1,8,1),COLOR00FF00;
地量:DRAWTEXT(CROSS(0.9,1/VOL*1000>0.01 AND J<0),L*1,'地量'),COLOR00FFFF;
STICKLINE(地量>0,0,30,2,0),COLOR008888;
STICKLINE(地量>0,0,30,1.5,0),COLOR00AAAA;
STICKLINE(地量>0,0,30,0.8,0),COLOR00DDDD;
STICKLINE(地量>0,0,30,0.3,0),COLOR00FFFF;
VARR1:=SMA(MAX(CLOSE-REF(C,1),0),6,1)/SMA(ABS(CLOSE-REF(C,1)),6,1)*100;
DRAWICON(CROSS(82,VARR1),10,15);
VAR10:=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);
VAR11:=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);
VAR12:=VAR10<REF(VAR11,1) AND VOL>REF(VOL,1) AND CLOSE>REF(CLOSE,1);
DRAWTEXT(VAR12 AND COUNT(VAR12,30)=1,40,'有大資金進場跡象，關注！');
TIPTEXT(ISNULL(REFX(&CLOSE,1)),0,' www.weiqiv.net.cn '),colorred;
TIPTEXT(ISNULL(REF(CLOSE,1)),0,'同花順程序化交易');

?

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

?