相關標簽:

?

1.認為獲利盤函數和流通盤函數是未來函數的請勿下！本指標中這兩個函數是主要條件！2.是排序指標，不是選股。到底取值多少比較合理，目前未知。大概是取前50-100名就可以。
?

?

原理解析：
ST賦值:如果字符串比較=0,返回1,否則返回0 帶星賦值:如果字符串比較=0,返回1,否則返回0 PT賦值:如果字符串比較=0,返回1,否則返回0 S賦值:如果字符串比較=0,返回1,否則返回0 QST賦值:ST OR 帶星 OR PT OR S SG賦值:獲利盤為85%的成本分布的10日指數移動平均 ZG賦值:收盤價/SG*100-100 TJ1賦值:ZG>0 AND ZG<=20 AND 10日內ZG的最高值<=20 TJ2賦值:SG>=1日前的SG AND 收盤價>收盤價的8日簡單移動平均 AND 收盤價>=SG TJ3賦值:TJ1 AND TJ2 AND 最高價不等于最低價 V13賦值:成交量(手)/當前流通股本(手)*13的13日指數移動平均 VM賦值:V13/(1+V13) VZ賦值:((VM-1日前的VM)+(收盤價/收盤價的8日簡單移動平均-1))*100+(1-VM)*50 EV賦值:如果VM>=40日內VM的最高值,返回VM,否則返回上次VM>=40日內VM的最高值距今天數日前的VM 輸出排1:如果TJ3ANDVM<EVANDVM>=1日前的VMANDQST=0,返回(EV-VM)/EV*100+VZ,否則返回0 輸出排2:如果TJ3ANDVM<EVANDQST=0,返回(EV-VM)/EV*100+VZ,否則返回0 當滿足條件排2<50時,在排2和0位置之間畫柱狀線,寬度為8,0不為0則畫空心柱.,畫綠色 當滿足條件排2>=50AND排2<70時,在排2和0位置之間畫柱狀線,寬度為8,0不為0則畫空心柱.,畫黃色 當滿足條件排2>=70時,在排2和0位置之間畫柱狀線,寬度為8,0不為0則畫空心柱.,畫洋紅色 當滿足條件排1>0時,在排1/2和0位置之間畫柱狀線,寬度為8,0不為0則畫空心柱.,畫白色

?

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

源碼：

?

?

{Z無拋壓度}{滿盤獲利無拋壓}
ST:=if(STRCMP(STRLEFT(STKNAME,2),'ST')=0,1,0);
帶星:=if(STRCMP(STRLEFT(STKNAME,3),'*ST')=0,1,0);
PT:=if(STRCMP(STRLEFT(STKNAME,2),'PT')=0,1,0);
S:=if(STRCMP(STRLEFT(STKNAME,1),'S')=0,1,0);
QST:=ST OR 帶星 OR PT OR S;
{}
SG:=EMA(COST(85),10);
ZG:=C/SG*100-100;
TJ1:=ZG>0 AND ZG<=20 AND HHV(ZG,10)<=20;
TJ2:=SG>=REF(SG,1) AND C>MA(C,8) AND C>=SG;
TJ3:=TJ1 AND TJ2 AND H<>L;
V13:=EMA(V/CAPITAL*13,13);
VM:=V13/(1+V13);
VZ:=((VM-REF(VM,1))+(C/MA(C,8)-1))*100+(1-VM)*50;
EV:=IF(VM>=HHV(VM,40),VM,REF(VM,BARSLAST(VM>=HHV(VM,40))));
排1:IF(TJ3 AND VM<EV AND VM>=REF(VM,1) AND QST=0,(EV-VM)/EV*100+VZ,0);
排2:IF(TJ3 AND VM<EV AND QST=0,(EV-VM)/EV*100+VZ,0);
STICKLINE(排2<50,排2,0,8,0),COLORGREEN;
STICKLINE(排2>=50 AND 排2<70,排2,0,8,0),COLORYELLOW;
STICKLINE(排2>=70,排2,0,8,0),COLORMAGENTA;
STICKLINE(排1>0,排1/2,0,8,0),COLORWHITE;
{程序化交易 www.kzuj.com.cn }

{程序化交易 www.kzuj.com.cn }

?

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

?