誰能提供錢隆軟件中QIANLONG指標的原碼，該指標有兩條線壹條是QIAN，另壹條是6MA.能用到通達信股軟的。

僅提供源碼：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;

終極指標

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;