相關標簽:

?

好用的一個軟件。股友們可以試下呀，還可以選股呀。

?

?

原理解析：
VAR1賦值:收盤價>1日前的收盤價 AND 收盤價>2日前的收盤價 VAR2賦值:1日前的VAR1 AND 收盤價<=1日前的收盤價 AND 收盤價>=2日前的收盤價 VAR3賦值:1日前的VAR2 AND 收盤價>=1日前的收盤價 AND 收盤價<=2日前的收盤價 VAR4賦值:1日前的VAR3 AND 收盤價<=1日前的收盤價 AND 收盤價>=2日前的收盤價 VAR5賦值:1日前的VAR4 AND 收盤價>=1日前的收盤價 AND 收盤價<=2日前的收盤價 VAR6賦值:1日前的VAR5 AND 收盤價<=1日前的收盤價 AND 收盤價>=2日前的收盤價 VAR7賦值:1日前的VAR6 AND 收盤價>=1日前的收盤價 AND 收盤價<=2日前的收盤價 VAR8賦值:1日前的VAR7 AND 收盤價<=1日前的收盤價 AND 收盤價>=2日前的收盤價 VAR9賦值:1日前的VAR8 AND 收盤價>=1日前的收盤價 AND 收盤價<=2日前的收盤價 VARA賦值:1日前的VAR9 AND 收盤價<=1日前的收盤價 AND 收盤價>=2日前的收盤價 VARB賦值:1日前的VARA AND 收盤價>=1日前的收盤價 AND 收盤價<=2日前的收盤價 VARC賦值:1日前的VARB AND 收盤價<=1日前的收盤價 AND 收盤價>=2日前的收盤價 VARD賦值:收盤價<1日前的收盤價 AND 收盤價<2日前的收盤價 VARE賦值:1日前的VARD AND 收盤價>=1日前的收盤價 AND 收盤價<=2日前的收盤價 VARF賦值:1日前的VARE AND 收盤價<=1日前的收盤價 AND 收盤價>=2日前的收盤價 VAR10賦值:1日前的VARF AND 收盤價>=1日前的收盤價 AND 收盤價<=2日前的收盤價 VAR11賦值:1日前的VAR10 AND 收盤價<=1日前的收盤價 AND 收盤價>=2日前的收盤價 VAR12賦值:1日前的VAR11 AND 收盤價>=1日前的收盤價 AND 收盤價<=2日前的收盤價 VAR13賦值:1日前的VAR12 AND 收盤價<=1日前的收盤價 AND 收盤價>=2日前的收盤價 VAR14賦值:1日前的VAR13 AND 收盤價>=1日前的收盤價 AND 收盤價<=2日前的收盤價 VAR15賦值:1日前的VAR14 AND 收盤價<=1日前的收盤價 AND 收盤價>=2日前的收盤價 VAR16賦值:1日前的VAR15 AND 收盤價>=1日前的收盤價 AND 收盤價<=2日前的收盤價 VAR17賦值:1日前的VAR16 AND 收盤價<=1日前的收盤價 AND 收盤價>=2日前的收盤價 VAR18賦值:1日前的VAR17 AND 收盤價>=1日前的收盤價 AND 收盤價<=2日前的收盤價 VAR19賦值:1日前的VARDORVAREORVARFORVAR10ORVAR11ORVAR12ORVAR13ORVAR14ORVAR15ORVAR16ORVAR17ORVAR18 AND VAR1 AAA2賦值:如果收盤價>1日前的收盤價,返回成交量(手)*收盤價,否則返回0的歷史累和 AAA3賦值:如果收盤價<1日前的收盤價,返回成交量(手)*收盤價,否則返回0的歷史累和 AAA4賦值:如果收盤價=1日前的收盤價,返回成交量(手)*收盤價,否則返回0的歷史累和 BB1賦值:0 B1萬元賦值:不定周期成交量*不定周期收盤價/100 B1差賦值:B1萬元-1日前的B1萬元 B2萬元賦值:不定周期成交量*不定周期收盤價/100 B2比賦值:B2萬元/1日前的B2萬元 凈流入萬元賦值:(AAA2-AAA3-0.5*AAA4) PM賦值:凈流入萬元的1日簡單移動平均 PMA賦值:PM/1日前的PM>1 PMB賦值:1日前的PMA<1 AND PMA 密碼賦值:(B1萬元的2日簡單移動平均的2日指數(shù)移動平均)/100000 二日比賦值:密碼/1日前的密碼 輸出選股:PMB AND 密碼>1日前的密碼 AND 二日比>1 AND VAR19=1 AND 成交量(手)<1日前的成交量(手) AND 成交量(手)<成交量(手)的5日簡單移動平均 AND 1日前的成交量(手)<2日前的成交量(手) TIPTEXT(ISNULL(1日后的&收盤價),0,' www.kzuj.com.cn '),畫紅色 TIPTEXT(ISNULL(1日前的收盤價),0,'同花順程序化交易')

?

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

源碼：

?

?

VAR1:=CLOSE>REF(CLOSE,1) AND CLOSE>REF(CLOSE,2);
VAR2:=REF(VAR1,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
VAR3:=REF(VAR2,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
VAR4:=REF(VAR3,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
VAR5:=REF(VAR4,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
VAR6:=REF(VAR5,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
VAR7:=REF(VAR6,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
VAR8:=REF(VAR7,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
VAR9:=REF(VAR8,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
VARA:=REF(VAR9,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
VARB:=REF(VARA,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
VARC:=REF(VARB,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
VARD:=CLOSE<REF(CLOSE,1) AND CLOSE<REF(CLOSE,2);
VARE:=REF(VARD,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
VARF:=REF(VARE,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
VAR10:=REF(VARF,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
VAR11:=REF(VAR10,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
VAR12:=REF(VAR11,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
VAR13:=REF(VAR12,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
VAR14:=REF(VAR13,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
VAR15:=REF(VAR14,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
VAR16:=REF(VAR15,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
VAR17:=REF(VAR16,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
VAR18:=REF(VAR17,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
VAR19:=REF(VARD OR VARE OR VARF OR VAR10 OR VAR11 OR VAR12 OR VAR13 OR
VAR14 OR VAR15 OR VAR16 OR VAR17 OR VAR18,1) AND VAR1;
AAA2:=SUM(IF( CLOSE>REF(CLOSE,1),VOL*C,0),0);
AAA3:=SUM(IF( CLOSE<REF(CLOSE,1),VOL*C,0),0);
AAA4:=SUM(IF( CLOSE=REF(CLOSE,1),VOL*C,0),0);
BB1:=0;
B1萬元:=DVOL*DCLOSE/100;
B1差:=B1萬元-REF(B1萬元,1);
B2萬元:=DVOL*DCLOSE/100;
B2比:=B2萬元/REF(B2萬元,1);
凈流入萬元:=(AAA2-AAA3-0.5*AAA4);
PM:=MA(凈流入萬元,1);
PMA:=PM/REF(PM,1)>1;
PMB:=REF(PMA,1)<1 AND PMA;
密碼:=(EMA(MA(B1萬元,2),2))/100000;
二日比:=密碼/REF(密碼,1);
選股:PMB AND 密碼>REF(密碼,1) AND 二日比>1 AND VAR19=1 AND VOL<REF(VOL,1) AND VOL<MA(VOL,5) AND REF(VOL,1)<REF(VOL,2);TIPTEXT(ISNULL(REFX(&CLOSE,1)),0,' www.kzuj.com.cn '),colorred;
TIPTEXT(ISNULL(REF(CLOSE,1)),0,'同花順程序化交易');

?

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

?