相關標簽:

?

?

原理解析：
LC賦值:1日前的收盤價 RSI1賦值:收盤價-LC和0的較大值的6日[1日權重]移動平均/收盤價-LC的絕對值的6日[1日權重]移動平均*100 AR賦值:最高價-開盤價的26日累和/開盤價-最低價的26日累和*100 賣點雷達賦值:85上穿RSI1*30,COLOR00FF00,線寬為2 當滿足條件85上穿RSI1時,在20位置書寫文字,COLOR00FF00 當滿足條件賣點雷達時,在0和20位置之間畫柱狀線,寬度為3,0不為0則畫空心柱.,COLOR00FF00 VARB賦值:收盤價-LC和0的較大值的7日[1日權重]移動平均/收盤價-LC的絕對值的7日[1日權重]移動平均*100 VARC賦值:收盤價-LC和0的較大值的13日[1日權重]移動平均/收盤價-LC的絕對值的13日[1日權重]移動平均*100 VARD賦值:收盤價的有效數據周期數 輸出買點雷達:(VARB< 20 AND VARC< 25 AND VARD> 50 AND AR<70)*30,線寬為2,COLOR0078FF BT1賦值:RSI1上穿25 當滿足條件BT1時,在-80位置書寫文字,COLOR0000FF 當滿足條件BT1時,在-100和-80位置之間畫柱狀線,寬度為3,0不為0則畫空心柱.,COLOR0000FF 輸出主力:(收盤價-收盤價的7日簡單移動平均)/收盤價的7日簡單移動平均*480的2日指數移動平均*5,線寬為1,COLOR0000FF 輸出散戶:(收盤價-收盤價的11日簡單移動平均)/收盤價的11日簡單移動平均*480的7日指數移動平均*5,線寬為2,COLORC87800 BT2賦值:主力上穿散戶 AND 主力<-10 當滿足條件RSI1上穿25時,在主力位置畫26號圖標 當滿足條件主力上穿散戶AND主力<-10時,在主力位置畫23號圖標 BT賦值:統計3日中滿足BT1ORBT2的天數>=2的3日過濾 當滿足條件BT時,在0和50位置之間畫柱狀線,寬度為4,1不為0則畫空心柱.,COLOR0000FF 當滿足條件BT時,在50位置書寫文字,COLOR0000FF 當滿足條件BT2時,在0和20位置之間畫柱狀線,寬度為3,0不為0則畫空心柱.,COLORFF00FF 當滿足條件BT2時,在20位置書寫文字,COLORFF00FF TIPTEXT(ISNULL(1日后的&收盤價),0,' www.kzuj.com.cn '),畫紅色 TIPTEXT(ISNULL(1日前的收盤價),0,'同花順程序化交易')

?

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

源碼：

?

?

LC:=REF(CLOSE,1);
RSI1:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100;
AR:=SUM(HIGH-OPEN,26)/SUM(OPEN-LOW,26)*100;
賣點雷達:=CROSS(85,RSI1)*30,COLOR00FF00,LINETHICK2;
DRAWTEXT(CROSS(85,RSI1),20,'頂'),COLOR00FF00;
STICKLINE(賣點雷達,0,20,3,0),COLOR00FF00;
VARB:=SMA(MAX(CLOSE-LC,0),7,1)/SMA(ABS(CLOSE-LC),7,1)*100;
VARC:=SMA(MAX(CLOSE-LC,0),13,1)/SMA(ABS(CLOSE-LC),13,1)*100;
VARD:=BARSCOUNT(CLOSE);
買點雷達:(VARB< 20 AND VARC< 25 AND VARD> 50 AND AR<70)*30,LINETHICK2,COLOR0078FF;
BT1:=CROSS(RSI1,25);
DRAWTEXT(BT1,-80,'底'),COLOR0000FF;
STICKLINE(BT1,-100,-80,3,0),COLOR0000FF;
主力:EMA( (CLOSE-MA(CLOSE,7))/MA(CLOSE,7)*480,2)*5,LINETHICK1,COLOR0000FF;
散戶:EMA( (CLOSE-MA(CLOSE,11))/MA(CLOSE,11)*480,7)*5,LINETHICK2,COLORC87800;
BT2:=CROSS(主力,散戶) AND 主力<-10;
DRAWICON(CROSS(RSI1,25),主力,26);
DRAWICON(CROSS(主力,散戶) AND 主力<-10,主力,23);
BT:=FILTER(COUNT(BT1 OR BT2,3)>=2,3);
STICKLINE(BT,0,50,4,1),COLOR0000FF;
DRAWTEXT(BT,50,'金底'),COLOR0000FF;
STICKLINE(BT2,0,20,3,0),COLORFF00FF;
DRAWTEXT(BT2,20,'升'),COLORFF00FF;TIPTEXT(ISNULL(REFX(&CLOSE,1)),0,' www.kzuj.com.cn '),colorred;
TIPTEXT(ISNULL(REF(CLOSE,1)),0,'同花順程序化交易');

?

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

?