通達(dá)信QSDD 短中長指標(biāo)源碼公式：
VARA:=REF(LOW,1);
VARB:=SMA(ABS(LOW-VARA),3,1)/SMA(MAX(LOW-VARA,0),3,1)*100;
VARC:=EMA(IF(CLOSE*1.3,VARB*10,VARB/10),3);
VARD:=LLV(LOW,30);
VARE:=HHV(VARC,30);
VARF:=IF(MA(CLOSE,58),1,0);
VARG:=EMA(IF(LOW<=VARD,(VARC+VARE*2)/2,0),3)/618*VARF;
VARH:=IF(VARG>100,100,VARG);
吸籌:STICKLINE(VARH>-120,0,VARH,6,1),COLORBLUE;
{
50,COLORRED;
FILLRGN(1,20,80),COLOR222222;
FILLRGN(1,90,100),COLOR000068;
FILLRGN(1,79,90),COLOR663366;
FILLRGN(1,10,20),COLOR666600;
FILLRGN(1, 0,10),COLOR663300;
}
A:=MA(-100*(HHV(HIGH,34)-CLOSE)/(HHV(HIGH,34)-LLV(LOW,34)),19),COLORRED;
B:=-100*(HHV(HIGH,14)-CLOSE)/(HHV(HIGH,14)-LLV(LOW,14));
D:=EMA(-100*(HHV(HIGH,34)-CLOSE)/(HHV(HIGH,34)-LLV(LOW,34)),4),LINETHICK2;

長期線:A+100,COLOR9900FF;
短期線:=B+100,COLOR888888;
中期線:D+100,COLORYELLOW,LINETHICK2;
見頂:=((REF(中期線,1)>85 AND  REF(短期線,1)>85 AND REF(長期線,1)>65) AND CROSS(長期線,短期線)) ,COLORGREEN;
頂部區(qū)域:=(中期線<REF(中期線,1) AND REF(中期線,1)>80) AND (REF(短期線,1)>95 OR REF(短期線,2)>95 ) AND 長期線>60 AND 短期線<83.5
AND 短期線<中期線 AND 短期線<長期線+4,COLORGREEN;
頂部:=FILTER(頂部區(qū)域,4);
STICKLINE( {見頂 OR} 頂部,99,103,5,0 ),COLORRED,LINETHICK2;
底部區(qū)域:=(長期線<12 AND 中期線<8 AND (短期線<7.2 OR REF(短期線,1)<5) AND (中期線>REF(中期線,1) OR 短期線>REF(短期線,1)))
OR (長期線<8 AND 中期線<7 AND 短期線<15 AND 短期線>REF(短期線,1)) OR (長期線<10 AND 中期線<7 AND 短期線<1) ,COLORGREEN;
STICKLINE( 底部區(qū)域,-4,0,3,0 ),COLORGREEN;
低位金叉:=50*(長期線<15 AND REF(長期線,1)<15 AND 中期線<18 AND 短期線>REF(短期線,1) AND CROSS(短期線,長期線) AND 短期線>中期線 
AND (REF(短期線,1)<5 OR REF(短期線,2)<5 )  AND (中期線>=長期線 OR REF( 短期線,1)<1 ))COLORYELLOW;
{減倉}
LC1:=REF(CLOSE,1);
RSI:=((SMA(MAX((CLOSE - LC1),0),3,1) / SMA(ABS((CLOSE - LC1)),3,1)) * 100);
FF:=EMA(CLOSE,3);
DRAWTEXT(CROSS(85,RSI),75,'減倉'),COLORGREEN;
{跟著莊家進(jìn)}
R1:=(((MA(CLOSE,5))-CLOSE)/CLOSE>3/100);
R2:=((MA(CLOSE,10))-(MA(CLOSE,5)))/(MA(CLOSE,5))>0.03;
R3:=(LLV(CLOSE,20)=LLV(CLOSE,30));
大:=(R1 AND R2 AND R3);
大A:=FILTER(大,5);
買:STICKLINE(大A,80,0,2,0),COLORYELLOW;
跟著莊家進(jìn):=IF(大A,1,0),COLORRED;
{底部選股}
VAR15:=((HHV(H,21)-C)/(HHV(H,21)-LLV(L,21)))*100-10;
VAR25:=((C-LLV(L,21))/(HHV(H,21)-LLV(L,21)))*100;
VAR35:=SMA(VAR25,13,8);
VAR45:=SMA(VAR15,21,8);
X2:=CEILING(SMA(VAR35,13,8));
X1:=X2-VAR45 ;
底部選股:IF(X2-VAR45<(-80),30,0),COLORCYAN;
{超級(jí)短線買點(diǎn)}
AA:=REF(CLOSE,1);
BBB:=SMA(MAX(CLOSE-AA,0),5,1)/SMA(ABS(CLOSE-AA),5,1)*1000;
HHH:=BBB-LLV(BBB,10);
SS:=(MA(HHH,2)*3+HHH*13)/16;
短線買點(diǎn):=IF(SS>13,MA(SS,2),SS);
Z:=21;
超級(jí)短線買點(diǎn):IF(CROSS(短線買點(diǎn),21),50,0),COLORWHITE;
{機(jī)構(gòu)增減倉}
VAR28:=(CLOSE-LLV(LOW,20))/(HHV(HIGH,20)-LLV(LOW,20))*100;
VAR38:=SMA(VAR28,4,1);
VAR48:=SMA(VAR38,2,1);
趨勢(shì)線2:=VAR28;
均線:=MA(VAR28,10);
機(jī)構(gòu)增倉:IF(VAR48<14 AND VAR38<11,80,0),COLOR0000FF;
機(jī)構(gòu)減倉:IF(VAR48>82 AND VAR38>89,80,0),COLOR00FF00;
A11:=REF(C,1);
RSI11:=SMA(MAX(C-A11,0),6,1)/SMA(ABS(C-A11),6,1)*100;
A1:=C-MA(C,5)/MA(C,5)*100<1;
A2:=C-MA(C,13)/MA(C,13)*100<-10;
A3:=C-MA(C,34)/MA(C,34)*100<-15;
A4:=RSI11<18;
TYP := (HIGH + LOW + CLOSE)/3;
A5:=(TYP-MA(TYP,14)/(0.015*AVEDEV(TYP,14)))<-120;
組合底部:(A1 AND A2 AND A3 AND A4 AND A5)*100,COLOR00FFFF;
{}
VAR3A:=((HHV(H,21)-C)/(HHV(H,21)-LLV(L,21)))*100-10;
VAR4A:=((C-LLV(L,21))/(HHV(H,21)-LLV(L,21)))*100;
VAR5A:=SMA(VAR4A,13,8);
VAR6A:=SMA(VAR3A,21,8);
趨勢(shì):=CEILING(SMA(VAR5A,13,8)),LINETHICK2,COLOR0000FF;
看底:IF((趨勢(shì)-VAR6A<(-65)),1,6),COLOR00FF00;
頂峰:IF((趨勢(shì)-VAR6A>85),95,100),COLORF0F000;

本文來自: 股票指標(biāo)網(wǎng)(www.) 詳細(xì)出處參考：http://www./html/zhibiaosources/tdx/200905/29-748.html