相關標簽:

?

僅提供源碼：QLSHO
錢龍短鼠

?

原理解析：
VZF賦值:(成交量(手)-1日前的成交量(手))/1日前的成交量(手)的L2日簡單移動平均 賦值:(收盤價-收盤價的L3日簡單移動平均)/收盤價的L3日簡單移動平均*100 輸出MY:BIAS3*(1+VZF) 輸出錢龍短線:MY,COLORSTICK 錢龍短線的N日簡單移動平均,畫黃色 輸出錢龍布林N 1 100 20D 1.01 5 2MB:收盤價的N日簡單移動平均 R賦值:(收盤價-MB)的2乘冪 X1賦值:R的N日簡單移動平均 X賦值:X1的開方 輸出UPPER:MB+D*X 輸出LOWER:MB-D*X 當滿足條件收盤價>=開盤價時,在開盤價和收盤價位置之間畫柱狀線,寬度為5,1不為0則畫空心柱.,畫紅色 當滿足條件收陰線時,在收盤價和開盤價位置之間畫柱狀線,寬度為5,0不為0則畫空心柱.,畫綠色 當滿足條件收盤價>=開盤價時,在收盤價和最高價位置之間畫柱狀線,寬度為0.5,1不為0則畫空心柱.,畫紅色 當滿足條件收盤價>=開盤價時,在開盤價和最低價位置之間畫柱狀線,寬度為0.5,1不為0則畫空心柱.,畫紅色 當滿足條件收陰線時,在收盤價和最低價位置之間畫柱狀線,寬度為0.5,0不為0則畫空心柱.,畫綠色 當滿足條件收陰線時,在開盤價和最高價位置之間畫柱狀線,寬度為0.5,0不為0則畫空心柱.,畫綠色 輸出LONG乾龍長線N 1 100 10乾龍長線:0 VAR1賦值:1日前的收盤價 VAR2賦值:成交量(手)的2日累和/((2日內最高價的最高值-2日內最低價的最低值)*100) VAR3賦值:(收盤價-VAR1)*VAR2 VAR4賦值:VAR3的歷史累和 VAR5賦值:VAR4的10日[1日權重]移動平均 VAR6賦值:VAR4的20日[1日權重]移動平均 輸出LONMA: VAR5-VAR6的N日簡單移動平均畫綠色 VAR5-VAR6,畫黃色 輸出VAR5-VAR6,COLORSTICK錢龍EXPMAEXPMA1 : (收盤價-1日前的收盤價的N1日指數移動平均)*2/(N1+1)+1日前的收盤價的N1日指數移動平均 輸出EXPMA2 : (收盤價-1日前的收盤價的N2日指數移動平均)*2/(N2+1)+1日前的收盤價的N2日指數移動平均 當滿足條件收陽線時,在開盤價和收盤價位置之間畫柱狀線,寬度為6,1不為0則畫空心柱., , 畫紅色 當滿足條件平盤時,在開盤價和收盤價位置之間畫柱狀線,寬度為6,1不為0則畫空心柱., , 畫紅色 當滿足條件收陽線時,在最低價和開盤價位置之間畫柱狀線,寬度為0.8,1不為0則畫空心柱., , 畫紅色 當滿足條件平盤時,在最低價和開盤價位置之間畫柱狀線,寬度為0.8,1不為0則畫空心柱., , 畫紅色 當滿足條件收陽線時,在收盤價和最高價位置之間畫柱狀線,寬度為0.8,1不為0則畫空心柱.,,畫紅色 當滿足條件平盤時,在收盤價和最高價位置之間畫柱狀線,寬度為0.8,1不為0則畫空心柱.,,畫紅色 當滿足條件收陰線時,在收盤價和開盤價位置之間畫柱狀線,寬度為6,0不為0則畫空心柱., , 畫青色 當滿足條件收陰線時,在最低價和最高價位置之間畫柱狀線,寬度為0.8,0不為0則畫空心柱., , 畫青色 終極指標TH賦值:最高價和1日前的收盤價的較大值 TL賦值:最低價和1日前的收盤價的較小值 ACC1賦值:收盤價-TL的7日累和/TH-TL的7日累和 ACC2賦值:收盤價-TL的60日累和/TH-TL的60日累和 ACC3賦值:收盤價-TL的28日累和/TH-TL的28日累和 輸出終極指標:(ACC1*60*28+ACC2*7*28+ACC3*7*60)*100/(7*60+7*28+60*28) 70,畫黃色 50,畫洋紅色 35,畫綠色 壓縮K線HSL賦值:(成交量(手)/成交量(手)的55日簡單移動平均) 當滿足條件收陽線時,在收盤價和開盤價位置之間畫柱狀線,寬度為換手線*10,1不為0則畫空心柱.,畫紅色 當滿足條件收陽線時,在最高價和收盤價位置之間畫柱狀線,寬度為0.5,0不為0則畫空心柱.,畫紅色 當滿足條件收陽線時,在開盤價和最低價位置之間畫柱狀線,寬度為0.1,0不為0則畫空心柱.,畫紅色 當滿足條件收陰線時,在收盤價和開盤價位置之間畫柱狀線,寬度為換手線*10,0不為0則畫空心柱.,畫白色 當滿足條件收陰線時,在最高價和最低價位置之間畫柱狀線,寬度為0.1,0不為0則畫空心柱.,畫白色 當滿足條件收盤價=OPENANDC>1日前的收盤價時,在收盤價和開盤價位置之間畫柱狀線,寬度為換手線*10,1不為0則畫空心柱.,畫紅色 當滿足條件收盤價=OPENANDC>1日前的收盤價時,在最高價和最低價位置之間畫柱狀線,寬度為0.1,0不為0則畫空心柱.,畫紅色 當滿足條件收盤價=OPENANDC<1日前的收盤價時,在收盤價和開盤價位置之間畫柱狀線,寬度為換手線*10,1不為0則畫空心柱.,畫白色 當滿足條件收盤價=OPENANDC<1日前的收盤價時,在最高價和最低價位置之間畫柱狀線,寬度為0.1,0不為0則畫空心柱.,,畫白色 當滿足條件平盤時,在最高價和最低價位置之間畫柱狀線,寬度為0.1,0不為0則畫空心柱.,,畫白色 當滿足條件平盤時,在收盤價和開盤價位置之間畫柱狀線,寬度為換手線*10,0不為0則畫空心柱.,,畫白色 輸出錢龍DPO(區間振蕩線)區間震蕩線:收盤價 - 11日前的收盤價的20日簡單移動平均 MB賦值:DPO的20日簡單移動平均 R賦值:(DPO-MB)*(DPO-MB) X賦值:R的20日簡單移動平均的開方 MB+1.96*X 鸕雌鱒AR1賦值:1日前的收盤價 VAR2賦值:成交量(手)的2日累和/((2日內最高價的最高值-2日內最低價的最低值)*100) VAR3賦值:(收盤價-VAR1)*VAR2 VAR4賦值:VAR3的歷史累和 VAR5賦值:VAR4的5日[1日權重]移動平均 VAR6賦值:VAR4的8日[1日權重]移動平均 輸出變動速率線: VAR5-VAR6 輸出OSCMA: OSC的4日簡單移動平均 OSC, COLORSTICK 輸出VD: 如果OSC>0,返回OSC*1.003,否則返回OSC*1.003>0的34日累和/34 輸出VE: 如果OSC<=0,返回OSC*0.97,否則返回OSC*0.97<0的34日累和/34, 0 錢龍地量線A賦值:成交量(手)*收盤價/1000 輸出B:A的9日簡單移動平均,畫黃色 當滿足條件B時,在0和B位置之間畫柱狀線,寬度為1.2,0不為0則畫空心柱. 輸出平均地量線:0日內B的最低值,畫紅色,線寬為2 輸出相對地量線:500日內B的最低值,畫藍色,線寬為2 輸出錢龍量布林MB:成交量(手)的13日簡單移動平均 R賦值:(成交量(手)-MB)的2乘冪 X1賦值:R的13日簡單移動平均 X賦值:X1的開方 輸出UPPER:MB+1*X 輸出LOWER:MB-1*X 錢龍慢威廉RSV賦值: (9日內最高價的最高值-收盤價)/(9日內最高價的最高值-9日內最低價的最低值)*100 輸出LWR1:RSV的3日[1日權重]移動平均 曲腰量VAR1賦值:成交額(元)/10000000 輸出量能:VAR1/VAR1的5日簡單移動平均 COLOR999999,POINTDOT VAR2賦值:如果收盤價>=1日前的收盤價,返回VAR1,否則返回VAR1的相反數 VAR3賦值:(收盤價-1日前的收盤價)/1日前的收盤價*100 VAR4賦值:VAR3*36 VAR5賦值:VAR4-VAR2 輸出曲腰量:VAR5的Q日累和的Q1日指數移動平均 畫白色 輸出MA1:曲腰量的Q2日指數移動平均,COLORSTICK 當滿足條件曲腰量>=MA1時,在MA1和曲腰量位置之間畫柱狀線,寬度為2,0不為0則畫空心柱.,畫黃色 輸出變動速率INPUT:N(13,1,100),M(6,1,50) 輸出R:(收盤價-N日前的收盤價)/N日前的收盤價*100 輸出RMA:R的M日簡單移動平均 輸出D:如果R<0,返回-R,否則返回R 0,LINEDOT <!--{cke_protected}{C}%3C!%2D%2D%2B%2B%20PLUGIN_CODE%20QCOMIC%20BEGIN%2D%2D%3E--><!--{cke_protected}{C}%3C!%2D%2D%2B%2B%20PLUGIN_CODE%20QCOMIC%20END%2D%2D%3E-->

?

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

源碼：

?

?

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;



終極指標
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(區間振蕩線)

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;<!--++ plugin_code qcomic begin--><!--++ plugin_code qcomic end-->

?

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

?