相關標簽:

?

?

?

原理解析：
VAR1賦值:1日前的收盤價 輸出標尺: 收盤價-VAR1和0的較大值的5日[1日權重]移動平均/收盤價-VAR1的絕對值的5日[1日權重]移動平均*100,COLOR00FF00,線寬為2 VAR2賦值:(收盤價-5日內最低價的最低值)/(5日內最高價的最高值-5日內最低價的最低值)*100 VAR3賦值:VAR2的5日[1日權重]移動平均 VAR4賦值:VAR3的3日[1日權重]移動平均 VAR5賦值:VAR4的3日[1日權重]移動平均 輸出浪:VAR3,畫洋紅色,線寬為2 輸出波:VAR4,畫紅色,線寬為2 輸出段:VAR5,畫黃色,線寬為2 VAR6賦值:VAR3上穿VAR4 AND VAR4<25 VAR61賦值:VAR4上穿VAR5 AND VAR4<50 當滿足條件VAR6時,在0和VAR4+6位置之間畫柱狀線,寬度為1,0不為0則畫空心柱.,COLORFF00FF,線寬為4 當滿足條件VAR61時,在0和VAR4+6位置之間畫柱狀線,寬度為1,0不為0則畫空心柱.,COLORFFFFFF,線寬為4 當滿足條件VAR61的7日過濾時,在VAR5-5位置書寫文字,COLORFFFFFF VAR7賦值:VAR4上穿VAR5 AND VAR4<50 VAR8賦值:VAR7 AND 成交量(手)>=1日前的成交量(手)*2 AND 成交量(手)>=1日前的成交量(手)的5日簡單移動平均*2 當滿足條件VAR8時,在0和VAR4+10位置之間畫柱狀線,寬度為1,0不為0則畫空心柱.,畫紅色,線寬為4 當滿足條件VAR8ANDCOUNT(VAR8,10)=1時,在VAR4-1位置書寫文字,畫紅色 VAR9賦值:VAR3上穿VAR4 AND VAR4>80 AND VAR4>VAR5 當滿足條件VAR9ANDCOUNT(VAR9,5)=1時,在VAR4-5和100位置之間畫柱狀線,寬度為1,0不為0則畫空心柱.,COLOR00FF00,線寬為2 VARA賦值:VAR5上穿VAR4 AND VAR5>=70 當滿足條件VARA時,在VAR4-6和100位置之間畫柱狀線,寬度為1,0不為0則畫空心柱.,畫黃色,線寬為4 當滿足條件VARAANDCOUNT(VARA,10)=1時,在VAR4+20位置書寫文字, 畫黃色 當滿足條件VARAANDCOUNT(VARA,10)=1時,在VAR4+10位置書寫文字, 畫黃色 VAR1A賦值:(收盤價-15日內最低價的最低值)/(15日內最高價的最高值-15日內最低價的最低值)*100 VAR1B賦值:(VAR1A的4日[1日權重]移動平均-50)*2的3日[1日權重]移動平均 VAR1C賦值:(大盤的收盤價-14日內大盤的最低價的最低值)/(14日內大盤的最高價的最高值-14日內大盤的最低價的最低值)*100 VAR1D賦值:VAR1C的4日[1日權重]移動平均 VAR1E賦值:VAR1D的3日[1日權重]移動平均 VAR1F賦值:(30日內最高價的最高值-收盤價)/收盤價*100 VARE賦值:1日前的最低價*0.9 VARF賦值:最低價*0.9 VAR10賦值:(VARF*成交量(手)+VARE*(當前流通股本(手)-成交量(手)))/當前流通股本(手) VAR11賦值:VAR10的30日指數移動平均 VAR12賦值:收盤價-1日前的收盤價 VAR13賦值:VAR12和0的較大值 VAR14賦值:VAR12的絕對值 VAR15賦值:VAR13的7日[1日權重]移動平均/VAR14的7日[1日權重]移動平均*100 VAR16賦值:VAR13的13日[1日權重]移動平均/VAR14的13日[1日權重]移動平均*100 VAR17賦值:收盤價的有效數據周期數 VAR18賦值:VAR12和0的較大值的6日[1日權重]移動平均/VAR12的絕對值的6日[1日權重]移動平均*100 VAR19賦值:(-200)*(60日內最高價的最高值-收盤價)/(60日內最高價的最高值-60日內最低價的最低值)+100 VAR20賦值:VAR18<=25 AND VAR19<-95 AND VAR1F>20 AND VAR1B<-30 AND VAR1E<30AND VAR11-收盤價>=-0.25 AND VAR15<22 AND VAR16<28 AND VAR17>50 當滿足條件VAR20時,在0和50位置之間畫柱狀線,寬度為10,0不為0則畫空心柱.,線寬為2,COLOR888800 當滿足條件VAR20的5日過濾時,在60位置書寫文字,COLOR00FF00 輸出Y:-2,COLORFF0000,線寬為2 輸出B:99,POINTDOT,COLOR00FFFF,線寬為1 輸出T:81,POINTDOT,COLOR0000FF,線寬為1 輸出X:15,POINTDOT,COLOR00FF00,線寬為1 輸出YY:0,線寬為2,COLOR0000FF 輸出HH:90,POINTDOT,COLOR0000FF,線寬為1 TIPTEXT(ISNULL(1日后的&收盤價),0,' www.kzuj.com.cn '),畫紅色 TIPTEXT(ISNULL(1日前的收盤價),0,'同花順程序化交易')

?

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

源碼：

?

?

VAR1:=REF(CLOSE,1);
標尺: SMA(MAX(CLOSE-VAR1,0),5,1)/SMA(ABS(CLOSE-VAR1),5,1)*100,COLOR00FF00,LINETHICK2;
VAR2:=(CLOSE-LLV(LOW,5))/(HHV(HIGH,5)-LLV(LOW,5))*100;
VAR3:=SMA(VAR2,5,1);
VAR4:=SMA(VAR3,3,1);
VAR5:=SMA(VAR4,3,1);
浪:VAR3,colormagenta,LINETHICK2;
波:VAR4,colorred,LINETHICK2;
段:VAR5,coloryellow,LINETHICK2;
VAR6:=CROSS(VAR3,VAR4) AND VAR4<25;
VAR61:=CROSS(VAR4,VAR5) AND VAR4<50;
STICKLINE(VAR6,0,VAR4+6,1,0),COLORFF00FF,LINETHICK4;
STICKLINE(VAR61,0,VAR4+6,1,0),COLORFFFFFF,LINETHICK4;
DRAWTEXT(FILTER(VAR61,7),VAR5-5,'-短線買入'),COLORFFFFFF;
VAR7:=CROSS(VAR4,VAR5) AND VAR4<50;
VAR8:=VAR7 AND VOL>=REF(VOL,1)*2 AND VOL>=REF(MA(VOL,5),1)*2;
STICKLINE(VAR8,0,VAR4+10,1,0),colorred,LINETHICK4;
DRAWTEXT(VAR8 AND COUNT(VAR8,10)=1,VAR4-1,'放量'),colorred;
VAR9:=CROSS(VAR3,VAR4) AND VAR4>80 AND VAR4>VAR5;
STICKLINE(VAR9 AND COUNT(VAR9,5)=1,VAR4-5,100,1,0),COLOR00FF00,LINETHICK2;
VARA:=CROSS(VAR5,VAR4) AND VAR5>=70;
STICKLINE(VARA,VAR4-6,100,1,0),coloryellow,LINETHICK4;
{STICKLINE(FILTER(CROSS(VAR3,VAR4),10) AND
VAR5>80,VAR4-5,100,1,0),COLOR00FF00,LINETHICK2;}
DRAWTEXT(VARA AND COUNT(VARA,10)=1,VAR4+20,'牛市震蕩'), coloryellow;
DRAWTEXT(VARA AND COUNT(VARA,10)=1,VAR4+10,'熊市拋股'), coloryellow;
VAR1A:=(CLOSE-LLV(LOW,15))/(HHV(HIGH,15)-LLV(LOW,15))*100;
VAR1B:=SMA((SMA(VAR1A,4,1)-50)*2,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;
VARE:=REF(LOW,1)*0.9;
VARF:=LOW*0.9;
VAR10:=(VARF*VOL+VARE*(CAPITAL-VOL))/CAPITAL;
VAR11:=EMA(VAR10,30);
VAR12:=CLOSE-REF(CLOSE,1);
VAR13:=MAX(VAR12,0);
VAR14:=ABS(VAR12);
VAR15:=SMA(VAR13,7,1)/SMA(VAR14,7,1)*100;
VAR16:=SMA(VAR13,13,1)/SMA(VAR14,13,1)*100;
VAR17:=BARSCOUNT(CLOSE);
VAR18:=SMA(MAX(VAR12,0),6,1)/SMA(ABS(VAR12),6,1)*100;
VAR19:=(-200)*(HHV(HIGH,60)-CLOSE)/(HHV(HIGH,60)-LLV(LOW,60))+100;
VAR20:=VAR18<=25 AND VAR19<-95 AND VAR1F>20 AND VAR1B<-30 AND VAR1E<30
AND VAR11-CLOSE>=-0.25 AND VAR15<22 AND VAR16<28 AND VAR17>50;
STICKLINE(VAR20,0,50,10,0),LINETHICK2,COLOR888800;
DRAWTEXT(FILTER(VAR20,5),60,''),COLOR00FF00;
Y:-2,COLORFF0000,LINETHICK2;
B:99,POINTDOT,COLOR00FFFF,LINETHICK1;
T:81,POINTDOT,COLOR0000FF,LINETHICK1;
X:15,POINTDOT,COLOR00FF00,LINETHICK1;
YY:0,LINETHICK2,COLOR0000FF;
HH:90,POINTDOT,COLOR0000FF,LINETHICK1;TIPTEXT(ISNULL(REFX(&CLOSE,1)),0,' www.kzuj.com.cn '),colorred;
TIPTEXT(ISNULL(REF(CLOSE,1)),0,'同花順程序化交易');

?

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

?