相關標簽:

?

?

原理解析：
N1賦值:5 N2賦值:10 當滿足條件收盤價>0時,在0和10位置之間畫柱狀線,寬度為15,0不為0則畫空心柱.,COLOR781816 LLC賦值:1日前的收盤價 輸出RSI15:收盤價-LLC和0的較大值的N1日[1日權重]移動平均/收盤價-LLC的絕對值的N1日[1日權重]移動平均*10,COLORFF00FF,線寬為1 輸出RSI10:收盤價-LLC和0的較大值的N2日[1日權重]移動平均/收盤價-LLC的絕對值的N2日[1日權重]移動平均*10,COLOR00FFFF VAR21賦值:收盤價-1日前的收盤價 DINGBUTS賦值:如果DDD,返回DDD日前的GDTS,否則返回GDTS DINGBU1賦值:DDD+1日前的DINGBU GDCS1賦值:DINGBUTS的最后一日取值設為常數 DINGBUTS1賦值:DDD+1日前的DINGBUTS GDCS2賦值:DINGBUTS1的最后一日取值設為常數 DINGBU2賦值:DDD+1日前的DINGBU1 MM賦值:如果到最后交易的周期>GDCS2,返回0,否則返回1 AA1賦值:LOWN日前的RSII=2*LOWN+1日內RSII的最低值 QY1賦值:若AA1則將最近LOWN+1周期置為1 CC1賦值:QY1的LOWN日過濾 AND RSII=LOWN+1日內RSII的最低值 當滿足條件CC1時,在RSI*0.098位置畫1號圖標 當滿足條件收陽線時,在橫軸0.01縱軸0.9位置書寫文字,畫紅色 當滿足條件收陽線時,在橫軸1縱軸1位置書寫文字,畫紅色

?

?來源:程序化99（ www.kzuj.com.cn ）

源碼：

?

?

N1:=5;N2:=10;
STICKLINE(C>0,0,10,15,0),COLOR781816;
LLC:=REF(CLOSE,1);
RSI15:SMA(MAX(CLOSE-LLC,0),N1,1)/SMA
(ABS(CLOSE-LLC),N1,1)*10,COLORFF00FF,LINETHICK1;
RSI10:SMA(MAX(CLOSE-LLC,0),N2,1)/SMA
(ABS(CLOSE-LLC),N2,1)*10,COLOR00FFFF;
VAR21:=C-REF(C,1);{www.kzuj.com.cn'←短牛'),COLOR0000FF;
中牛:REF(DOWN,1)<REF(DOWN,2) AND UP>REF(DOWN,1) AND C<HHV(H,21)*0.82;
STICKLINE(中牛,0,0.2,3,0),COLOR880088;
STICKLINE(中牛,0,7,1.5,0),COLORAA00AA;
STICKLINE(中牛,0,7,0.8,0),COLORCC00CC;
STICKLINE(中牛,0,7,0.2,0),COLORFF00FF;
DRAWTEXT(中牛,7,'←中牛'),COLORFF00FF;
HR:=HHV(HIGH,55);
HRY:=LLV(LOW,55);
HRY11:=HR*HRY;
HRY33:=SQRT(HRY11);
大牛:REF(DOWN,1)<REF(DOWN,2) AND UP>REF(DOWN,1) AND C<HRY33;
STICKLINE(大牛,0,0.2,3,0),COLOR008888;
STICKLINE(大牛,0,6,2,0),COLOR00AAAA;
STICKLINE(大牛,0,6,1,0),COLOR00CCCC;
STICKLINE(大牛,0,6,0.2,0),COLOR00FFFF;
DRAWTEXT(大牛,6,'←大牛'),COLOR00FFFF;LC:=REF(CLOSE,1);
RSI5:=((SMA(MAX((CLOSE - LC),0),5,1) / SMA(ABS((CLOSE - LC)),5,1)) * 100);
TR1:=SUM(MAX(MAX((HIGH - LOW),ABS((HIGH - REF(CLOSE,1)))),ABS((LOW - REF(CLOSE,1)))),10);
HD:=(HIGH - REF(HIGH,1));
LD:=(REF(LOW,1) - LOW);{www.kzuj.com.cn'http://www.kzuj.com.cn' title='選股' target='_blank'>選股:=IF(CROSS(最佳買入,0),1,0);
VAR1:=SMA(最佳買入選股,3,1);
VAR2:=SMA(VAR1,3,1),COLOR0000FF;
VAR3:=SMA(VAR2,3,1),COLOR00FFFF;
建倉買點:IF(CROSS(VAR2,VAR3) AND (VAR2<40),1,0* 10000),COLORWHITE,NODRAW;
STICKLINE(建倉買點,0,2,2,0),COLORLINETHICK0;
STICKLINE(建倉買點,0.2,4.0,2,0),COLORLINETHICK0;
RSV:=(((CLOSE - LLV(LOW,9)) / (HHV(HIGH,9) - LLV(LOW,9))) * 50);
K:=SMA(RSV,3,1);
D:=SMA(K,3,1);
J:=3*K-2*D;
X:=LLV(J,2)=LLV(J,8);
最佳買入時機: IF(CROSS(J,3),1,0),COLORYELLOW;
STICKLINE(最佳買入時機,0,1,3,0),COLOR009999;
STICKLINE(最佳買入時機,0,1,2,0),COLOR00DDDD;
STICKLINE(最佳買入時機,0,1,1,0),COLOR00FFFF;
機構建倉: IF(最佳買入<5,1,0),STICK,COLORFF00FF,LINETHICK1;
機構建倉日:STICKLINE(機構建倉,0,-0.3,3,0),COLORFF00FF,LINETHICK6;
HIGHN:=5;
RSII:=SMA(MAX(C-LC,0),12,1)/SMA(ABS(C-LC),12,1)*10,COLORCYAN,LINETHICK1;
LOWN:=HIGHN;
AAA:=REF(RSII,HIGHN)=HHV(RSII,2*HIGHN+1);
QY:=BACKSET(AAA,HIGHN+1);
CCC:=FILTER(QY,HIGHN) AND RSII=HHV(RSII,HIGHN+1);
DRAWICON(CCC,RSII*1.02,2);
DDD:=BARSLAST(CCC);
GDTS:=IF(CCC,CURRBARSCOUNT,0);
DINGBU:=IF(DDD,REF(RSII,DDD),RSII);{頂部}
DINGBUTS:=IF(DDD,REF(GDTS,DDD),GDTS);
DINGBU1:=REF(DINGBU,DDD+1);
GDCS1:=CONST(DINGBUTS);
DINGBUTS1:=REF(DINGBUTS,DDD+1);
GDCS2:=CONST(DINGBUTS1);
DINGBU2:=REF(DINGBU1,DDD+1);
MM:=IF(CURRBARSCOUNT>GDCS2,0,1);
AA1:=REF(RSII,LOWN)=LLV(RSII,2*LOWN+1);
QY1:=BACKSET(AA1,LOWN+1);
CC1:=FILTER(QY1,LOWN) AND RSII=LLV(RSII,LOWN+1);
DRAWICON(CC1,RSI*0.098,1);DRAWTEXT_FIX(C>O,0.01,0.9,0,' www.kzuj.com.cn '),COLORRED;
DRAWTEXT_FIX(C>O,1,1,0,'程序化交易模型'),COLORRED;

?

?

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

?