通達信收費版仿錢龍黃金眼日線指標(biāo)

f翔 2011-12-07

展開全文

通達信收費版仿錢龍黃金眼日線指標(biāo)

主力持倉線
主力買:(LARGEINTRDVOL)*10000/FINANCE(7),NODRAW,LINETHICK0;主力賣:-(LARGEOUTTRDVOL)*10000/FINANCE(7),NODRAW,LINETHICK0;主力凈:(LARGEINTRDVOL-LARGEOUTTRDVOL)*10000/FINANCE(7),NODRAW,LINETHICK0;主力持倉:50+SUM(主力凈,0),COLORCYAN,LINETHICK2;STICKLINE(主力賣<=-0.1 AND 主力賣>=-2,主力持倉+主力賣/3.8,主力持倉,0,0),COLORGREEN;STICKLINE(主力賣<=-2 AND 主力賣>=-18,主力持倉+主力賣/4.5,主力持倉,0.005,0),COLORGREEN;
STICKLINE(主力買>0 AND 主力買<2,主力持倉,主力持倉+主力買/3.8,0,0),COLORLIMAGENTA; STICKLINE(主力買>=2 AND 主力買<20,主力持倉,主力持倉+主力買/4.5,0.005,0),COLORLIMAGENTA;主力5:=MA(主力持倉,12);強勢區(qū):IF(主力持倉>=主力5,主力持倉,DRAWNULL),COLORMAGENTA,LINETHICK2;

主力活躍度
TMP:=(LARGEINTRDVOL-LARGEOUTTRDVOL)*10000/FINANCE(7),NODRAW;
主力活躍度:(LARGEINTRDVOL+LARGEOUTTRDVOL)*10000/(2*FINANCE(7)),NODRAW;
STICKLINE(TMP>0,0,主力活躍度,2,0),COLOR000055;
STICKLINE(TMP<0,0,主力活躍度,2,0),COLOR005500;STICKLINE(TMP>0.8,0,主力活躍度,2,0),COLORRED;
STICKLINE(TMP<-0.8,0,主力活躍度,2,0),COLORGREEN;買賣氣:TMP/5,LINETHICK0;

主力成交手
總成交手:VOL,COLOR160060,LINETHICK0;
A1:=ACTINVOL,COLORLIGRAY,NODRAW;
主力買手:LARGEINTRDVOL,COLORRED,NODRAW;
A2:=ACTOUTVOL,COLORLIGRAY,NODRAW;
主力賣手:LARGEOUTTRDVOL,COLORGREEN,NODRAW;主力凈:(LARGEINTRDVOL-LARGEOUTTRDVOL),COLORYELLOW;
STICKLINE(1,0,2*A1,2,0),COLORBROWN;
STICKLINE(1,0,(-2*A2),2,0),COLORBROWN;
STICKLINE(1,0,主力買手,2,0),COLORRED;
STICKLINE(1,0,(-1*主力賣手),2,0),COLORCYAN;
QLSHO
錢龍短鼠
L3 1 300 5
L2 1 300 5
N 1 50 10
vZF:=ma((v-ref(v,1))/ref(v,1),l2);
BIAS3 :=(CLOSE-MA(CLOSE,L3))/MA(CLOSE,L3)*100;
{BIAS3:=MA((C-REF(C,1))/REF(C,1)*100,10);}
my:bias3*(1+vZF);
錢龍短線:my,colorstick;
ma(錢龍短線,n),coloryellow;

錢龍布林
N 1 100 20
D 1.01 5 2
mb:ma(c,n);
r:=pow((c-mb),2);
x1:=ma(r,n);
x:=SQRT(x1);
upper:mb+d*x;
lower:mb-d*x;
STICKLINE(close>=open,open,close,5,1),colorred;
STICKLINE(open>close,close,open,5,0 ),colorgreen;
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 ),colorgreen;
STICKLINE(open>close,open,HIGH,0.5 ,0 ),colorgreen;

LONG
乾龍長線
N 1 100 10
乾龍長線:0;
Var1:=REF(CLOSE,1);
Var2:=SUM(VOL,2)/((HHV(HIGH,2)-LLV(LOW,2))*100);
Var3:=(CLOSE-Var1)*Var2;
Var4:=SUM(Var3,0);
Var5:=SMA(Var4,10,1);
Var6:=SMA(Var4,20,1);
LONMA: MA(Var5-Var6,n)COLORgreen;
Var5-Var6,COLORyellow;
Var5-Var6,COLORSTICK

錢龍EXPMA
{n1=5 100 12 n2=5 100 50}
EXPMA1 : (CLOSE-REF(EMA(CLOSE,N1),1))*2/(N1+1)+REF(EMA(CLOSE,N1),1);
EXPMA2 : (CLOSE-REF(EMA(CLOSE,N2),1))*2/(N2+1)+REF(EMA(CLOSE,N2),1);
STICKLINE(CLOSE>OPEN,OPEN,CLOSE,6,1), , COLORRED;
STICKLINE(CLOSE=OPEN,OPEN,CLOSE,6,1), , COLORRED;
STICKLINE(CLOSE>OPEN,LOW,OPEN,0.8,1), , COLORRED;
STICKLINE(CLOSE=OPEN,LOW,OPEN,0.8,1), , COLORRED;
STICKLINE(CLOSE>OPEN,CLOSE,HIGH,0.8,1),,COLORRED;
STICKLINE(CLOSE=OPEN,CLOSE,HIGH,0.8,1),,COLORRED;
STICKLINE(CLOSE<OPEN,CLOSE,OPEN,6,0), , COLORCYAN;
STICKLINE(CLOSE<OPEN,LOW,HIGH,0.8,0), , COLORCYAN;

終極指標(biāo)
TH:=MAX(HIGH,REF(CLOSE,1));
TL:=MIN(LOW,REF(CLOSE,1));
ACC1:=SUM(CLOSE-TL,7)/SUM(TH-TL,7);
ACC2:=SUM(CLOSE-TL,60)/SUM(TH-TL,60);
ACC3:=SUM(CLOSE-TL,28)/SUM(TH-TL,28);
UOS:(ACC1*60*28+ACC2*7*28+ACC3*7*60)*100/(7*60+7*28+60*28);
70,COLORYELLOW;
50,COLORMAGENTA;
35,COLORGREEN;

壓縮K線
hsl:=(v/ma(vol,55));
STICKLINE( c>open,c,o,hsl*10 ,1),COLORRED;
STICKLINE( c>open,h,c,0.5 ,0),COLORRED;
STICKLINE( c>open,o,l,0.1 ,0),COLORRED;
STICKLINE( c<open,c,o,hsl*10 ,0),COLORWHITE;
STICKLINE( c<open,h,l,0.1 ,0),COLORWHITE;
STICKLINE( c=open and c>ref(c,1),c,o,hsl*10 ,1),COLORRED;
STICKLINE( c=open and c>ref(c,1),h,l,0.1,0),COLORRED;
STICKLINE( c=open and c<ref(c,1),c,o,hsl*10 ,1),COLORWHITE;;
STICKLINE( c=open and c<ref(c,1),h,l,0.1,0),,COLORWHITE;;
STICKLINE( c=open ,h,l,0.1,0),,COLORWHITE;
STICKLINE( c=open ,c,o,hsl*10,0),,COLORWHITE;

錢龍DPO(區(qū)間振蕩線)

dpo:C - REF(MA(CLOSE,20),11);
mb:=ma(dpo,20);
r:=(dpo-mb)*(dpo-mb);
x:=SQRT(ma(r,20));
mb+1.96*x;
mb-1.96*x

錢龍OSC
艾略特震蕩器
Var1:=REF(CLOSE,1);
Var2:=SUM(VOL,2)/((HHV(HIGH,2)-LLV(LOW,2))*100);
Var3:=(CLOSE-Var1)*Var2;
Var4:=SUM(Var3,0);
Var5:=SMA(Var4,5,1);
Var6:=SMA(Var4,8,1);
OSC: Var5-Var6;
OSCMA: MA(OSC,4);
OSC, COLORSTICK;
VD: SUM(IF(OSC>0,OSC*1.003,OSC*1.003>0),34)/34;
VE: SUM(IF(OSC<=0,OSC*0.97,OSC*0.97<0),34)/34, ;
0;

錢龍地量線
a:=v*c/1000;
b:ma(a,9),COLORYELLOW;
STICKLINE(b,0,b,1.2,0);
平均地量線:llv(b,0),colorred,LINETHICK2;
相對地量線:llv(b,500),COLORBLUE,LINETHICK2;

錢龍量布林
mb:ma(v,13);
r:=pow((v-mb),2);
x1:=ma(r,13);
x:=SQRT(x1);
upper:mb+1*x;
lower:mb-1*x;

錢龍慢威廉
RSV:= (HHV(HIGH,9)-CLOSE)/(HHV(HIGH,9)-LLV(LOW,9))*100;
LWR1:SMA(RSV,3,1);
LWR2:SMA(LWR1,3,1)

曲腰量
{Q(5,1,20)Q1(3,1,10)Q2(3,1,10)}
var1:=AMOUNT/10000000;
量能:var1/ma(var1,5) COLOR999999,POINTDOT;
var2:=if(c>=ref(c,1),var1,REVERSE(var1));
var3:=(c-ref(c,1))/ref(c,1)*100;
var4:=var3*36;
var5:=var4-var2;
曲腰量:EMA(SUM(var5,q),q1) COLORWHITE;
ma1:ema(曲腰量,q2),COLORSTICK;
STICKLINE(曲腰量>=ma1 ,ma1,曲腰量 ,2 ,0 ),COLORYELLOW;

變動速率

INPUT:N(13,1,100),M(6,1,50);
R:(C-REF(C,N))/REF(C,N)*100;
RMA:MA(R,M);
d:if(R<0,-R,R);
0,LINEDOT;

{原文鏈接：http://www./thread-4195646-1-1.html}