相關標簽:

?

?

原理解析：
VAR1賦值:100*(收盤價-34日內收盤價的最低值)/(34日內最高價的最高值-34日內最低價的最低值)的5日簡單移動平均-20 VAR2賦值:2*VAR1的絕對值 VAR3賦值:100-3*(收盤價-75日內最低價的最低值)/(75日內最高價的最高值-75日內最低價的最低值)*100的20日[1日權重]移動平均+2*(收盤價-75日內最低價的最低值)/(75日內最高價的最高值-75日內最低價的最低值)*100的20日[1日權重]移動平均的15日[1日權重]移動平均 VAR4賦值:100-3*(開盤價-75日內最低價的最低值)/(75日內最高價的最高值-75日內最低價的最低值)*100的20日[1日權重]移動平均+2*(開盤價-75日內最低價的最低值)/(75日內最高價的最高值-75日內最低價的最低值)*100的20日[1日權重]移動平均的15日[1日權重]移動平均 VAR5賦值:(最高價+最低價+收盤價)/3 VAR6賦值:(VAR5-VAR5的14日簡單移動平均)/(0.015*VAR5的14日平均絕對偏差) VAR7賦值:(VAR5-VAR5的70日簡單移動平均)/(0.015*VAR5的70日平均絕對偏差) VAR8賦值:如果VAR6>=150ANDVAR6<200ANDVAR7>=150ANDVAR7<200,返回10,否則返回0 VAR9賦值:如果VAR6<=-150ANDVAR6>-200ANDVAR7<=-150ANDVAR7>-200,返回-10,否則返回VAR8 VARA賦值:(收盤價-收盤價的13日簡單移動平均)/收盤價的13日簡單移動平均*100 VARB賦值:100-VARA的絕對值 VARC賦值:3*(大盤的收盤價-75日內大盤的最低價的最低值)/(75日內大盤的最高價的最高值-75日內大盤的最低價的最低值)*100的20日[1日權重]移動平均-2*(大盤的收盤價-75日內大盤的最低價的最低值)/(75日內大盤的最高價的最高值-75日內大盤的最低價的最低值)*100的20日[1日權重]移動平均的15日[1日權重]移動平均 VARD賦值:3*(大盤的開盤價-75日內大盤的最低價的最低值)/(75日內大盤的最高價的最高值-75日內大盤的最低價的最低值)*100的20日[1日權重]移動平均-2*(大盤的開盤價-75日內大盤的最低價的最低值)/(75日內大盤的最高價的最高值-75日內大盤的最低價的最低值)*100的20日[1日權重]移動平均的15日[1日權重]移動平均 VARE賦值:1日前的最低價*0.9 VARF賦值:最低價*0.9 VAR10賦值:(VARF*成交量(手)+VARE*(當前流通股本(手)-成交量(手)))/當前流通股本(手) VAR11賦值:VAR10的30日指數移動平均 VAR12賦值:VAR11-收盤價 VAR13賦值:1日前的收盤價 VAR14賦值:收盤價-VAR13和0的較大值的7日[1日權重]移動平均/收盤價-VAR13的絕對值的7日[1日權重]移動平均*100 VAR15賦值:收盤價-VAR13和0的較大值的13日[1日權重]移動平均/收盤價-VAR13的絕對值的13日[1日權重]移動平均*100 VAR16賦值:收盤價的有效數據周期數 VAR17賦值:收盤價-1日前的收盤價和0的較大值的6日[1日權重]移動平均/收盤價-1日前的收盤價的絕對值的6日[1日權重]移動平均*100 VAR18賦值:((-100)*(60日內最高價的最高值-收盤價)/(60日內最高價的最高值-60日內最低價的最低值)+50)*2 VAR19賦值:(收盤價-15日內最低價的最低值)/(15日內最高價的最高值-15日內最低價的最低值)*100 VAR1A賦值:(VAR19的4日[1日權重]移動平均-50)*2 VAR1B賦值:VAR1A的3日[1日權重]移動平均 VAR1C賦值:(大盤的收盤價-14日內大盤的最低價的最低值)/(14日內大盤的最高價的最高值-14日內大盤的最低價的最低值)*100 VAR1D賦值:VAR1C的4日[1日權重]移動平均 VAR1E賦值:VAR1D的3日[1日權重]移動平均 VAR1F賦值:(30日內最高價的最高值-收盤價)/收盤價*100 VAR20賦值:如果VAR17<=25ANDVAR18<-95ANDVAR1F>20ANDVAR1B<-30ANDVAR1E<30ANDVAR12>=-0.25ANDVAR14<22ANDVAR15<28ANDVAR16>50,返回80,否則返回0 輸出情報:VAR3 輸出天線:如果VARB<90,返回VARB,否則返回100 紅軍賦值:如果VAR1>0,返回VAR1,否則返回0,畫紅色, LINESTICK 綠軍賦值:如果VAR1<0,返回VAR2,否則返回0,畫綠色,LINESTICK 輸出預警系統:如果VAR7>=200ANDVAR6>=150,返回15,否則返回如果VAR7<=-200ANDVAR6<=-150,返回-15,否則返回VAR9+50 VAR21賦值:收盤價>收盤價的20日簡單移動平均 AND 收盤價的20日簡單移動平均>=1日前的收盤價的20日簡單移動平均 VAR22賦值:收盤價<收盤價的20日簡單移動平均 AND 收盤價的20日簡單移動平均<1日前的收盤價的20日簡單移動平均 VAR23賦值:紅軍>50 AND 預警系統>60 AND 天線=100 VAR24賦值:紅軍>48 AND 預警系統>60 AND 天線<100 VAR25賦值:綠軍>38 AND 預警系統<55 VAR26賦值:VAR20>50 AND 天線<90 VAR27賦值:VAR3<1日前的VAR4 AND 成交量(手)>1日前的成交量(手) AND 收盤價>1日前的收盤價 VAR28賦值:VAR3>=1日前的VAR4 AND 收盤價<1日前的收盤價 AND 預警系統=60 AND VAR20=0 AND 綠軍>=1日前的綠軍 AND VARC<1日前的VARD 當滿足條件VAR21ANDCOUNT(VAR21,30)=1時,在90位置書寫文字 當滿足條件VAR22ANDCOUNT(VAR22,30)=1時,在80位置書寫文字 當滿足條件VAR23ANDCOUNT(VAR23,30)=1時,在60位置書寫文字 當滿足條件VAR24ANDCOUNT(VAR24,30)=1時,在70位置書寫文字 當滿足條件VAR25ANDCOUNT(VAR25,30)=1時,在40位置書寫文字 當滿足條件VAR26ANDCOUNT(VAR26,30)=1時,在20位置書寫文字 當滿足條件VAR27ANDCOUNT(VAR27,30)=1時,在30位置書寫文字 當滿足條件VAR28ANDCOUNT(VAR28,30)=1時,在10位置書寫文字 輸出買入:如果VAR27ANDCOUNT(VAR27,30)=1,返回80,否則返回0,線寬為2,畫藍色 TIPTEXT(ISNULL(1日后的&收盤價),0,' m.kzuj.com.cn '),畫紅色 TIPTEXT(ISNULL(1日前的收盤價),0,'同花順程序化交易')

?

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

源碼：

?

?

?

VAR1:=MA(100*(CLOSE-LLV(CLOSE,34))/(HHV(HIGH,34)-LLV(LOW,34)),5)-20;
VAR2:=2*ABS(VAR1);
VAR3:=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);
VAR4:=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);
VAR5:=(HIGH+LOW+CLOSE)/3;
VAR6:=(VAR5-MA(VAR5,14))/(0.015*AVEDEV(VAR5,14));
VAR7:=(VAR5-MA(VAR5,70))/(0.015*AVEDEV(VAR5,70));
VAR8:=IF(VAR6>=150 AND VAR6<200 AND VAR7>=150 AND VAR7<200,10,0);
VAR9:=IF(VAR6<=-150 AND VAR6>-200 AND VAR7<=-150 AND VAR7>-200,-10,VAR8);
VARA:=(CLOSE-MA(CLOSE,13))/MA(CLOSE,13)*100;
VARB:=100-ABS(VARA);
VARC:=3*SMA((INDEXC-LLV(INDEXL,75))/(HHV(INDEXH,75)-LLV(INDEXL,75))*100,20,1)-2*SMA(SMA((INDEXC-LLV(INDEXL,75))/(HHV(INDEXH,75)-LLV(INDEXL,75))*100,20,1),15,1);
VARD:=3*SMA((INDEXO-LLV(INDEXL,75))/(HHV(INDEXH,75)-LLV(INDEXL,75))*100,20,1)-2*SMA(SMA((INDEXO-LLV(INDEXL,75))/(HHV(INDEXH,75)-LLV(INDEXL,75))*100,20,1),15,1);
VARE:=REF(LOW,1)*0.9;
VARF:=LOW*0.9;
VAR10:=(VARF*VOL+VARE*(CAPITAL-VOL))/CAPITAL;
VAR11:=EMA(VAR10,30);
VAR12:=VAR11-CLOSE;
VAR13:=REF(CLOSE,1);
VAR14:=SMA(MAX(CLOSE-VAR13,0),7,1)/SMA(ABS(CLOSE-VAR13),7,1)*100;
VAR15:=SMA(MAX(CLOSE-VAR13,0),13,1)/SMA(ABS(CLOSE-VAR13),13,1)*100;
VAR16:=BARSCOUNT(CLOSE);
VAR17:=SMA(MAX(CLOSE-REF(CLOSE,1),0),6,1)/SMA(ABS(CLOSE-REF(CLOSE,1)),6,1)*100;
VAR18:=((-100)*(HHV(HIGH,60)-CLOSE)/(HHV(HIGH,60)-LLV(LOW,60))+50)*2;
VAR19:=(CLOSE-LLV(LOW,15))/(HHV(HIGH,15)-LLV(LOW,15))*100;
VAR1A:=(SMA(VAR19,4,1)-50)*2;
VAR1B:=SMA(VAR1A,3,1);
VAR1C:=(INDEXC-LLV(INDEXL,14))/(HHV(INDEXH,14)-LLV(INDEXL,14))*100;
VAR1D:=SMA(VAR1C,4,1);
VAR1E:=SMA(VAR1D,3,1);
VAR1F:=(HHV(HIGH,30)-CLOSE)/CLOSE*100;
VAR20:=IF(VAR17<=25 AND VAR18<-95 AND VAR1F>20 AND VAR1B<-30 AND VAR1E<30 AND VAR12>=-0.25 AND VAR14<22 AND VAR15<28 AND VAR16>50,80,0);
情報:VAR3;
天線:IF(VARB<90,VARB,100);
紅軍:=IF(VAR1>0,VAR1,0),colorred, LINESTICK;
綠軍:=IF(VAR1<0,VAR2,0),colorgreen,LINESTICK;
預警系統:IF(VAR7>=200 AND VAR6>=150,15,IF(VAR7<=-200 AND VAR6<=-150,-15,VAR9))+50;
VAR21:=CLOSE>MA(CLOSE,20) AND MA(CLOSE,20)>=REF(MA(CLOSE,20),1);
VAR22:=CLOSE<MA(CLOSE,20) AND MA(CLOSE,20)<REF(MA(CLOSE,20),1);
VAR23:=紅軍>50 AND 預警系統>60 AND 天線=100;
VAR24:=紅軍>48 AND 預警系統>60 AND 天線<100;
VAR25:=綠軍>38 AND 預警系統<55;
VAR26:=VAR20>50 AND 天線<90;
VAR27:=VAR3<REF(VAR4,1) AND VOL>REF(VOL,1) AND CLOSE>REF(CLOSE,1);
VAR28:=VAR3>=REF(VAR4,1) AND CLOSE<REF(CLOSE,1) AND 預警系統=60 AND VAR20=0 AND 綠軍>=REF(綠軍,1) AND VARC<REF(VARD,1);
DRAWTEXT(VAR21 AND COUNT(VAR21,30)=1,90,'上升通道，持股待長或高拋低吸！');
DRAWTEXT(VAR22 AND COUNT(VAR22,30)=1,80,'下降通道，小心無量陰跌！ ');
DRAWTEXT(VAR23 AND COUNT(VAR23,30)=1,60,'上漲過急，需要調整，短線先拋出！ ');
DRAWTEXT(VAR24 AND COUNT(VAR24,30)=1,70,'莊家出貨，大跌在即，中線拋出！ ');
DRAWTEXT(VAR25 AND COUNT(VAR25,30)=1,40,'不必殺跌，應有小反彈 ,跌停除外!');
DRAWTEXT(VAR26 AND COUNT(VAR26,30)=1,20,'堅決搶反彈，但巨量封跌停除外 ');
DRAWTEXT(VAR27 AND COUNT(VAR27,30)=1,30,'有大資金進場跡象，關注！');
DRAWTEXT(VAR28 AND COUNT(VAR28,30)=1,10,'見頂回落');
買入:IF(VAR27 AND COUNT(VAR27,30)=1,80,0),LINETHICK2,colorblue;
TIPTEXT(ISNULL(REFX(&CLOSE,1)),0,' m.kzuj.com.cn '),colorred;
TIPTEXT(ISNULL(REF(CLOSE,1)),0,'同花順程序化交易');

?

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

?