相關標簽:同花順畫線指標源碼 、 同花順籌指標源碼 、 同花順波段指標源碼 、 同花順cyc指標源碼 、 同花順cci指標源碼 、 同花順逃頂指標源碼 、 同花順pvi指標源碼 、 同花順成交量指標源碼 、 同花順分時副圖公式 、 同花順換手率副圖公式 、 同花順上證副圖公式 、 同花順魔鬼公式源碼 、 同花順大盤副圖公式 、

?

?

原理解析：
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 輸出導彈: VAR20 輸出預警系統: 如果VAR7>=200ANDVAR6>=150,返回15,否則返回如果VAR7<=-200ANDVAR6<=-150,返回-15,否則返回VAR9+60 當滿足條件VAR3>=1日前的VAR4時,在VAR3和VAR4位置之間畫柱狀線,寬度為8,0不為0則畫空心柱. 當滿足條件VAR3<1日前的VAR4時,在VAR3和VAR4位置之間畫柱狀線,寬度為8,0不為0則畫空心柱. 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賦值:導彈>50 AND 天線<90 VAR27賦值:VAR3<1日前的VAR4 AND 成交量(手)>1日前的成交量(手) AND 收盤價>1日前的收盤價 VAR28賦值:VAR3>=1日前的VAR4 AND 收盤價<1日前的收盤價 AND 預警系統=60 AND 導彈=0 AND 綠軍>=1日前的綠軍 AND VARC<1日前的VARD 當滿足條件VAR21ANDCOUNT(VAR21,30)=1時,在100位置書寫文字 當滿足條件VAR22ANDCOUNT(VAR22,30)=1時,在90位置書寫文字 當滿足條件VAR23ANDCOUNT(VAR23,30)=1時,在70位置書寫文字 當滿足條件VAR24ANDCOUNT(VAR24,30)=1時,在80位置書寫文字 當滿足條件VAR25ANDCOUNT(VAR25,30)=1時,在50位置書寫文字 當滿足條件VAR26ANDCOUNT(VAR26,30)=1時,在30位置書寫文字 當滿足條件VAR27ANDCOUNT(VAR27,30)=1時,在40位置書寫文字 當滿足條件VAR28ANDCOUNT(VAR28,30)=1時,在20位置書寫文字 輸出買入:如果VAR27ANDCOUNT(VAR27,30)=1,返回100,否則返回0,線寬為3,畫藍色 TIPTEXT(ISNULL(1日后的&收盤價),0,' www.kzuj.com.cn '),畫紅色

?

?來源:程序化99（ www.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;
導彈: Var20;
預警系統: IF(Var7>=200 AND Var6>=150,15,IF(Var7<=-200 AND Var6<=-150,-15,Var9))+60;
STICKLINE(Var3>=REF(Var4,1),Var3,Var4,8,0);
STICKLINE(Var3<REF(Var4,1),Var3,Var4,8,0);
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:=導彈>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 導彈=0 AND 綠軍>=REF(綠軍,1) AND VarC<REF(VarD,1);
DRAWTEXT(Var21 AND COUNT(Var21,30)=1,100,'上升通道，持股待長或高拋低吸！');
DRAWTEXT(Var22 AND COUNT(Var22,30)=1,90,'下降通道，小心無量陰跌！ ');
DRAWTEXT(Var23 AND COUNT(Var23,30)=1,70,'上漲過急，需要調整，短線先拋出！ ');
DRAWTEXT(Var24 AND COUNT(Var24,30)=1,80,'莊家出貨，大跌在即，中線拋出！ ');
DRAWTEXT(Var25 AND COUNT(Var25,30)=1,50,'不必殺跌，應有小反彈 ,跌停除外!');
DRAWTEXT(Var26 AND COUNT(Var26,30)=1,30,'堅決搶反彈，但巨量封跌停除外 ');
DRAWTEXT(Var27 AND COUNT(Var27,30)=1,40,'有大資金進場跡象，關注！');
DRAWTEXT(Var28 AND COUNT(Var28,30)=1,20,'見頂回落');
買入:IF(VAR27 AND COUNT(VAR27,30)=1,100,0),LINETHICK3,colorblue;
TIPTEXT(ISNULL(REFX(&CLOSE,1)),0,' www.kzuj.com.cn '),colorred;
TIPTEXT(ISNULL(REF(CLOSE,1)),0,'同花順程序化交易');

?

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

?