相關標簽:

?

原理解析：
N賦值:30 當滿足條件100時,在0和100位置之間畫柱狀線,寬度為8,0不為0則畫空心柱.,COLORF22222 RSV賦值:(收盤價-N日內最低價的最低值)/(N日內最高價的最高值-N日內最低價的最低值)*100 K賦值:RSV的3日[1日權重]移動平均,畫黃色 D賦值:K的3日[1日權重]移動平均,畫白色, 輸出買進:如果D<25ANDCROSS(K,D),返回40,否則返回0,COLOR00FF00,CIRCLEDOT,線寬為1 輸出Q:如果D<25ANDCROSS(K,D),返回40,否則返回0,COLOR00FF00 輸出賣出:如果D>75ANDCROSS(D,K),返回30,否則返回0,COLOR0000FF,CIRCLEDOT,線寬為1 輸出Q1:如果D>75ANDCROSS(D,K),返回30,否則返回0,COLOR0000FF 當滿足條件K>D時,在K和D位置之間畫柱狀線,寬度為5,0不為0則畫空心柱.,COLORFFFF50 當滿足條件D>K時,在K和D位置之間畫柱狀線,寬度為5,0不為0則畫空心柱.,COLOR0000FF 85,POINTDOT,COLORFFFFFF 15,POINTDOT,COLORFFFFFF VAR1賦值:(收盤價的80日簡單移動平均-收盤價的13日簡單移動平均/3) VAR2賦值:( (收盤價-VAR1)/VAR1的1日簡單移動平均) 輸出小買: 如果VAR2上穿0ANDLOW/1日前的最高價<1.012,返回80,否則返回0,COLOR1199FF 輸出加倉:如果統計3日中滿足VAR2>1日前的VAR2的天數=3ANDCOUNT(VAR2<0,10)=10ANDREF(VAR2,3)=10日內VAR2的最低值,返回80,否則返回0,畫黃色 VAR11賦值:100*(收盤價-34日內收盤價的最低值)/(34日內最高價的最高值-34日內最低價的最低值)的5日簡單移動平均-20 VAR12賦值:2*VAR1的絕對值 VAR13賦值:100-3*(收盤價-75日內最低價的最低值)/(75日內最高價的最高值-75日內最低價的最低值)*100的20日[1日權重]移動平均+2*(收盤價-75日內最低價的最低值)/(75日內最高價的最高值-75日內最低價的最低值)*100的20日[1日權重]移動平均的15日[1日權重]移動平均 VAR14賦值:100-3*(開盤價-75日內最低價的最低值)/(75日內最高價的最高值-75日內最低價的最低值)*100的20日[1日權重]移動平均+2*(開盤價-75日內最低價的最低值)/(75日內最高價的最高值-75日內最低價的最低值)*100的20日[1日權重]移動平均的15日[1日權重]移動平均 VAR15賦值:(最高價+最低價+收盤價)/3 VAR16賦值:(VAR15-VAR15的14日簡單移動平均)/(0.015*VAR15的14日平均絕對偏差) VAR17賦值:(VAR15-VAR15的70日簡單移動平均)/(0.015*VAR15的70日平均絕對偏差) VAR18賦值:如果VAR16>=150ANDVAR16<200ANDVAR17>=150ANDVAR17<200,返回10,否則返回0 VAR19賦值:如果VAR16<=-150ANDVAR16>-200ANDVAR17<=-150ANDVAR17>-200,返回-10,否則返回VAR18 VAR20賦值:(收盤價-收盤價的13日簡單移動平均)/收盤價的13日簡單移動平均*100 VAR21賦值:100-VAR20的絕對值 VAR22賦值:3*(大盤的收盤價-75日內大盤的最低價的最低值)/(75日內大盤的最高價的最高值-75日內大盤的最低價的最低值)*100的20日[1日權重]移動平均-2*(大盤的收盤價-75日內大盤的最低價的最低值)/(75日內大盤的最高價的最高值-75日內大盤的最低價的最低值)*100的20日[1日權重]移動平均的15日[1日權重]移動平均 VAR23賦值:3*(大盤的開盤價-75日內大盤的最低價的最低值)/(75日內大盤的最高價的最高值-75日內大盤的最低價的最低值)*100的20日[1日權重]移動平均-2*(大盤的開盤價-75日內大盤的最低價的最低值)/(75日內大盤的最高價的最高值-75日內大盤的最低價的最低值)*100的20日[1日權重]移動平均的15日[1日權重]移動平均 VAR31賦值:1日前的最低價*0.9 VAR32賦值:最低價*0.9 VAR33賦值:(VAR32*成交量(手)+VAR31*(當前流通股本(手)-成交量(手)))/當前流通股本(手) VAR34賦值:VAR33的30日指數移動平均 VAR35賦值:VAR34-收盤價 VAR37賦值:1日前的收盤價 VAR38賦值:收盤價-VAR37和0的較大值的7日[1日權重]移動平均/收盤價-VAR37的絕對值的7日[1日權重]移動平均*100 VAR39賦值:收盤價-VAR37和0的較大值的13日[1日權重]移動平均/收盤價-VAR37的絕對值的13日[1日權重]移動平均*100 VAR40賦值:收盤價的有效數據周期數 VAR41賦值:收盤價-1日前的收盤價和0的較大值的6日[1日權重]移動平均/收盤價-1日前的收盤價的絕對值的6日[1日權重]移動平均*100 VAR42賦值:(-100*(60日內最高價的最高值-收盤價)/(60日內最高價的最高值-60日內最低價的最低值)+50)*2 VAR43賦值:(收盤價-15日內最低價的最低值)/(15日內最高價的最高值-15日內最低價的最低值)*100 VAR44賦值:(VAR43的4日[1日權重]移動平均-50)*2 VAR45賦值:VAR44的3日[1日權重]移動平均 VAR46賦值:(大盤的收盤價-14日內大盤的最低價的最低值)/(14日內大盤的最高價的最高值-14日內大盤的最低價的最低值)*100 VAR47賦值:VAR46的4日[1日權重]移動平均 VAR48賦值:VAR47的3日[1日權重]移動平均 VAR49賦值:(30日內最高價的最高值-收盤價)/收盤價*100 VAR50賦值:如果VAR41<=25ANDVAR42<-95ANDVAR49>20ANDVAR45<-30ANDVAR48<30ANDVAR35>=-0.25ANDVAR38<22ANDVAR39<28ANDVAR40>50,返回80,否則返回0 輸出出擊:VAR50,線寬為1,畫紅色 賦值: (最高價 + 最低價 + 收盤價)/3 V1賦值:如果TYP>1日前的TYP,返回TYP*成交量(手),否則返回0的N日累和/如果TYP<1日前的TYP,返回TYP*成交量(手),否則返回0的N日累和 輸出資金流量指標:100-(100/(1+V1)),畫白色 TIPTEXT(ISNULL(1日后的&收盤價),0,' www.kzuj.com.cn '),畫紅色 TIPTEXT(ISNULL(1日前的收盤價),0,'同花順程序化交易')

?

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

源碼：

?

N:=30;STICKLINE(100,0,100,8,0),colorF22222;
RSV:=(CLOSE-LLV(LOW,n))/(HHV(HIGH,n)-LLV(LOW,n))*100;
K:=SMA(RSV,3,1),coloryellow;
D:=SMA(K,3,1),colorwhite,;
買進:IF(d<25 AND CROSS(k,d) ,40,0),Color00FF00,CIRCLEDOT,LINETHICK1;
Q:IF(d<25 AND CROSS(k,d) ,40,0),Color00FF00;
賣出:IF(d>75 AND CROSS(d,k) ,30,0),color0000ff,CIRCLEDOT,LINETHICK1;
Q1:IF(d>75 AND CROSS(d,k) ,30,0),color0000ff;
STICKLINE(k>d,k,d,5,0),colorffff50;
STICKLINE(d>k,k,d,5,0),color0000ff;
85,POINTDOT,ColorffFFFf;
15,POINTDOT,ColorffFFFf;Var1:=(MA(CLOSE,80)-MA(CLOSE,13)/3);
Var2:=( MA((CLOSE-Var1)/Var1,1));
小買: IF(CROSS(Var2,0) AND LOW/REF(HIGH,1)<1.012,80,0),color1199ff;
加倉:IF(COUNT(Var2>REF(Var2,1),3)=3 AND COUNT(Var2<0,10)=10 AND REF(Var2,3)=LLV(Var2,10),80,0),coloryellow;Var11:=MA(100*(CLOSE-LLV(C,34))/(HHV(HIGH,34)-LLV(LOW,34)),5)-20;
Var12:=2*ABS(Var1);
Var13:=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);
Var14:=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);
Var15:=(H+L+C)/3;
Var16:=(Var15-MA(Var15,14))/(0.015*AVEDEV(Var15,14));
Var17:=(Var15-MA(Var15,70))/(0.015*AVEDEV(Var15,70));
Var18:=IF(Var16>=150 AND Var16<200 AND Var17>=150 AND Var17<200,10,0);
Var19:=IF(Var16<=-150 AND Var16>-200 AND Var17<=-150 AND Var17>-200,-10,Var18);
Var20:=(CLOSE-MA(CLOSE,13))/MA(CLOSE,13)*100;
Var21:=100-ABS(Var20);
Var22:=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);
Var23:=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);
Var31:=REF(LOW,1)*0.9;
Var32:=LOW*0.9;
Var33:=(Var32*VOL+Var31*(CAPITAL-VOL))/CAPITAL;
Var34:=EMA(Var33,30);
Var35:=Var34-C;
Var37:=REF(CLOSE,1);
Var38:=SMA(MAX(CLOSE-Var37,0),7,1)/SMA(ABS(CLOSE-Var37),7,1)*100;
Var39:=SMA(MAX(CLOSE-Var37,0),13,1)/SMA(ABS(CLOSE-Var37),13,1)*100;
Var40:=BARSCOUNT(CLOSE);
Var41:=SMA(MAX(CLOSE-REF(CLOSE,1),0),6,1)/SMA(ABS(CLOSE-REF(CLOSE,1)),6,1)*100;
Var42:=(-100*(HHV(HIGH,60)-CLOSE)/(HHV(HIGH,60)-LLV(LOW,60))+50)*2;
Var43:=(CLOSE-LLV(LOW,15))/(HHV(HIGH,15)-LLV(LOW,15))*100;
Var44:=(SMA(Var43,4,1)-50)*2;
Var45:=SMA(Var44,3,1);
Var46:=(INDEXC-LLV(INDEXL,14))/(HHV(INDEXH,14)-LLV(INDEXL,14))*100;
Var47:=SMA(Var46,4,1);
Var48:=SMA(Var47,3,1);
Var49:=(HHV(HIGH,30)-C)/C*100;
Var50:=IF(Var41<=25 AND Var42<-95 AND Var49>20 AND Var45<-30 AND Var48<30 AND Var35>=-0.25 AND Var38<22 AND Var39<28 AND Var40>50,80,0);
出擊:Var50,linethick1,colorred;TYP := (HIGH + LOW + CLOSE)/3;
V1:=SUM(IF(TYP>REF(TYP,1),TYP*VOL,0),N)/SUM(IF(TYP<REF(TYP,1),TYP*VOL,0),N);
MFI:100-(100/(1+V1)),colorwhite;TIPTEXT(ISNULL(REFX(&CLOSE,1)),0,' www.kzuj.com.cn '),colorred;
TIPTEXT(ISNULL(REF(CLOSE,1)),0,'同花順程序化交易');

?

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

?