相關標簽:

?

?

?

原理解析：
N賦值:14 均價賦值:(2*收盤價+(最高價-最低價)/2+最低價)/3 價差賦值:均價-1日前的均價的2日累和/2 高低賦值:(均價+價差) 實價賦值:(高低+均價)/2 AA賦值:((實價的N日線性回歸斜率*20)+實價)的N*3日指數移動平均 BB賦值:((均價的N日線性回歸斜率*20)+均價)的N*3日指數移動平均 多空線賦值:(AA+BB)/2 輸出市場心理:統計N日中滿足收盤價>多空線的天數/N*100,畫白色,線寬為1 輸出險1:如果市場心理>95,返回市場心理+0,否則返回120,畫洋紅色,線寬為2 輸出公式:如果市場心理<5,返回市場心理-20,否則返回0,畫藍色,線寬為4 當滿足條件公式上穿-1時,在-15位置書寫文字,畫洋紅色,線寬為1 輸出公式買:如果市場心理上穿7,返回35,否則返回0,畫洋紅色,線寬為3 當滿足條件公式買時,在36位置書寫文字,畫洋紅色,線寬為1 VAR1賦值:1日前的最低價 LC賦值:1日前的收盤價 RSI1賦值:收盤價-LC和0的較大值的6日[1日權重]移動平均/收盤價-LC的絕對值的6日[1日權重]移動平均*100 AR賦值:最高價-開盤價的26日累和/開盤價-最低價的26日累和*100 賣賦值:85上穿RSI1*30,畫藍色,線寬為2 當滿足條件賣時,在0和60位置之間畫柱狀線,寬度為3,0不為0則畫空心柱.,線寬為4,畫綠色 當滿足條件85上穿RSI1時,在65位置書寫文字,線寬為1,畫綠色 VARB賦值:收盤價-LC和0的較大值的7日[1日權重]移動平均/收盤價-LC的絕對值的7日[1日權重]移動平均*100 VARC賦值:收盤價-LC和0的較大值的13日[1日權重]移動平均/收盤價-LC的絕對值的13日[1日權重]移動平均*100 VARD賦值:收盤價的有效數據周期數 BT1賦值:RSI1上穿25 當滿足條件BT1時,在0和-1位置之間畫柱狀線,寬度為1,0不為0則畫空心柱.,線寬為4,畫黃色 主力賦值:(收盤價-收盤價的7日簡單移動平均)/收盤價的7日簡單移動平均*480的2日指數移動平均*5,線寬為1,COLOR0000FF 散戶賦值:(收盤價-收盤價的11日簡單移動平均)/收盤價的11日簡單移動平均*480的7日指數移動平均*5,線寬為1,COLORC87800 BT2賦值:主力上穿散戶 AND 主力<-10 BT賦值:統計3日中滿足BT1ORBT2的天數>=2的3日過濾 當滿足條件BT時,在0和26位置之間畫柱狀線,寬度為3,0不為0則畫空心柱.,線寬為8,畫紅色 當滿足條件BT時,在32位置書寫文字,線寬為1,畫紅色 當滿足條件BT2時,在0和-10位置之間畫柱狀線,寬度為3,0不為0則畫空心柱.,線寬為6,畫黃色 當滿足條件BT2時,在-11位置書寫文字,線寬為2,畫黃色 VARB1賦值:2日前的收盤價 通達信賦值:收盤價-VARB1和0的較大值的7日[1日權重]移動平均/收盤價-VARB1的絕對值的7日[1日權重]移動平均*100,COLORFFAA66 輸出頂: 如果通達信<1日前的通達信AND通達信>79,返回通達信,否則返回0,線寬為2,畫綠色 當滿足條件頂上穿1時,在86位置書寫文字,線寬為1,畫綠色 當滿足條件收陽線時,在橫軸0.01縱軸0.9位置書寫文字,畫紅色 當滿足條件收陽線時,在橫軸1縱軸1位置書寫文字,畫紅色

?

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

源碼：

?

?

N:=14;均價:=(2*C+(H-L)/2+L)/3;價差:=SUM(均價-REF(均價,1),2)/2;高低:=(均價+價差);實價:=(高低+均價)/2;AA:=EMA(((SLOPE(實價,N)*20)+實價),N*3);BB:=EMA(((SLOPE(均價,N)*20)+均價),N*3);多空線:=(AA+BB)/2;市場心理:COUNT(C>多空線,N)/N*100,COLORWHITE,LINETHICK1;險1:IF(市場心理>95,市場心理+0,120),COLORMAGENTA,LINETHICK2;公式:IF(市場心理<5,市場心理-20,0),COLORBLUE,LINETHICK4;DRAWTEXT(CROSS(公式,-1),-15,'公式'),COLORMAGENTA,LINETHICK1;公式買:IF(CROSS(市場心理,7),35,0),COLORMAGENTA,LINETHICK3;DRAWTEXT(公式買,36,'公式買'),COLORMAGENTA,LINETHICK1;VAR1:=REF(LOW,1);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,COLORBLUE,LINETHICK2;STICKLINE(賣,0,60,3,0),LINETHICK4,COLORGREEN;DRAWTEXT(CROSS(85,RSI1),65,'賣'),LINETHICK1,COLORGREEN;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);BT1:=CROSS(RSI1,25);STICKLINE(BT1,0,-1,1,0),LINETHICK4,COLORYELLOW ;主力:=EMA( (CLOSE-MA(CLOSE,7))/MA(CLOSE,7)*480,2)*5,LINETHICK1,COLOR0000FF;散戶:=EMA( (CLOSE-MA(CLOSE,11))/MA(CLOSE,11)*480,7)*5,LINETHICK1,COLORC87800;BT2:=CROSS(主力,散戶) AND 主力<-10;BT:=FILTER(COUNT(BT1 OR BT2,3)>=2,3);STICKLINE(BT,0,26,3,0),LINETHICK8,COLORRED;DRAWTEXT(BT,32,'獺'),LINETHICK1,COLORRED;STICKLINE(BT2,0,-10,3,0),LINETHICK6,COLORYELLOW;DRAWTEXT(BT2,-11,'升'),LINETHICK2,COLORYELLOW;VARB1:=REF(CLOSE,2);通達信:=SMA(MAX(CLOSE-VARB1,0),7,1)/SMA(ABS(CLOSE-VARB1),7,1)*100,COLORFFAA66;頂: IF(通達信< REF(通達信,1) AND 通達信>79,通達信,0),LINETHICK2,COLORGREEN;DRAWTEXT(CROSS(頂,1),86,'頂'),LINETHICK1,COLORGREEN;DRAWTEXT_FIX(C>O,0.01,0.9,0,' www.kzuj.com.cn '),COLORRED;
DRAWTEXT_FIX(C>O,1,1,0,'程序化交易模型'),COLORRED;

?

?

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

?