同花顺麒麟全套指标 源码  很多优秀指标由此演变

麒麟全套指标 源码 很多优秀指标由此演变 你们好好琢磨，琢磨吧。
 
{持股}
 
CG:ma(C,17),colorffcc66;
 FL:hhv(CG,2);
 FS:if(CG<FL,(CG-(FL-CG)),FL);
 STICKLINE(close>=open,open,close,5,1),colorred;
 STICKLINE(open>close,close,open,5,0 ),color00ff00;
 STICKLINE(close>=open,close,HIGH,0.5 ,1 ),colorred;
STICKLINE(close>=open,open,low,0.5 ,1 ),colorred;
STICKLINE(open>close,close,low,0.5 ,0 ),color00ff00;
 STICKLINE(open>close,open,HIGH,0.5 ,0 ),color00ff00;
 
-------------------------------
 
{生命}
 
amv0:=vol*(o+c)/2;
 BS:sum(amv0,88)/sum(vol,88),colorff00ff,linethick2;
 STICKLINE(close>=open,open,close,5,1),colorred;
STICKLINE(open>close,close,open,5,0 ),color00ff00;
 STICKLINE(close>=open,close,HIGH,0.5 ,1 ),colorred;
STICKLINE(close>=open,open,low,0.5 ,1 ),colorred;
STICKLINE(open>close,close,low,0.5 ,0 ),color00ff00;
 STICKLINE(open>close,open,HIGH,0.5 ,0 ),color00ff00;
 
-------------------------------
 
{操盘频率}
 
操盘趋势:MA(C,3),colorff00ff,linethick2;
 持仓线:MA(H,21),coloryellow;
 空仓线:MA(L,21),color00ff00;
 
--------------------------------
 
{短线}
 
VAR1:=EMA(HHV(HIGH,500),21);
VAR2:=EMA(HHV(HIGH,250),21);
VAR3:=EMA(HHV(HIGH,90),21);
VAR4:=EMA(LLV(LOW,500),21);
VAR5:=EMA(LLV(LOW,250),21);
VAR6:=EMA(LLV(LOW,90),21);
VAR7:=EMA((VAR4*0.96+VAR5*0.96+VAR6*0.96+VAR1*0.558+VAR2*0.558+VAR3*0.558)/6,21);
VAR8:=EMA((VAR4*1.25+VAR5*1.23+VAR6*1.2+VAR1*0.55+VAR2*0.55+VAR3*0.65)/6,21);
VAR9:=EMA((VAR4*1.3+VAR5*1.3+VAR6*1.3+VAR1*0.68+VAR2*0.68+VAR3*0.68)/6,21);
VARA:=EMA((VAR7*3+VAR8*2+VAR9)/6*1.738,21);
VARB:=REF(LOW,1);
VARC:=SMA(ABS(LOW-VARB),3,1)/SMA(MAX(LOW-VARB,0),3,1)*100;
VARD:=EMA(IF(CLOSE*1.35<=VARA,VARC*10,VARC/10),3);
VARE:=LLV(LOW,30);
VARF:=HHV(VARD,30);
VAR10:=IF(MA(CLOSE,58),1,0);
快枪:EMA(IF(LOW<=VARE,(VARD+VARF*2)/2,0),3)/618*VAR10,COLORRED;
 
-------------------------
 
{天机}
 
VAR1:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN));
 成交:vol,pointdot;
 主动买盘:IF(CLOSE>OPEN,VAR1*(HIGH-LOW),IF(CLOSE<OPEN,VAR1*((HIGH-OPEN)+(CLOSE-LOW)),VOL/2)),colorred,pointdot;
 主动卖盘:IF(CLOSE>OPEN,0-VAR1*((HIGH-CLOSE)+(OPEN-LOW)),IF(CLOSE<OPEN,0-VAR1*(HIGH-LOW),0-VOL/2)),color00ff00,pointdot;
 stickline(VOL>0,vol,0,4,1),colorwhite;
 stickline(主动买盘>0,0,主动买盘,4,0),colorred;
 stickline(主动卖盘<0,0,主动卖盘,4,0),color00ff00;