谢谢分享啊

{大盘MACD}
C1:=EMA(INDEXC,500)/EMA(C,500);
D1:=INDEXO/C1;
D2:=INDEXH/C1;
D3:=INDEXL/C1;
D4:=INDEXC/C1;
大盘DIFF:=EMA(INDEXC/C1,12)-EMA(INDEXC/C1,26),COLOR00FF00,LINETHICK3;
大盘DEA:=EMA(大盘DIFF,9),COLORWHITE,LINETHICK3;


{开始控盘}
Var1:=EMA(EMA(CLOSE,13),13);
控盘:= (Var1-REF(Var1,1))/REF(Var1,1)*1000,colorffcccc,pointdot;
STICKLINE(控盘<0,控盘/20,0,2,0),colorwhite;
有庄控盘:= 控盘>REF(控盘,1) AND 控盘>0,colorred;

{吸筹}
v1:=llv(low,10);
v2:=hhv(h,25);
v3:=ema((c-v1)/(v2-v1)*4,4);
DRAWTEXT(CROSS(v3,0.3),-0.1,'底'),ColorRED;
{主力建仓区}
Var2:=REF(LOW,1);
Var3:=SMA(ABS(LOW-Var2),3,1)/SMA(MAX(LOW-Var2,0),3,1)*100;
Var4:=EMA(IF(CLOSE*1.3,Var3*10,Var3/10),3);
Var5:=LLV(LOW,30);
Var6:=HHV(Var4,30);
Var7:=IF(MA(CLOSE,58),1,0);
Var8:=EMA(IF(LOW<=Var5,(Var4+Var6*2)/2,0),3)/618*Var7;
Var9:=IF(Var8>100,10,Var8/5);
STICKLINE(Var9>-120,0,Var9/30,6,1),colorff99ff;
STICKLINE(Var9>0,VAR9/30,0,4,1),colorff99ff;
恐慌区:=Var9>0,colorff99ff;


{本股MACD}
DIFF:EMA(CLOSE,12)-EMA(CLOSE,26),COLORWHITE,LINETHICK3;
DEA:EMA(DIFF,9),COLORYELLOW,LINETHICK3;
MACD:2*(DIFF-DEA), COLORSTICK,LINETHICK1;
峰:=HHV(DIFF,90);
主力建仓区:恐慌区,colorff99ff,LINETHICK4;
DRAWTEXT( 有庄控盘>0 AND 主力建仓区>0 ,0.1,'▲'),COLORRED;
DRAWTEXT(CROSS(DEA,大盘DEA) ,大盘DIFF,'大资金入场'),COLORRED;
大盘MACD:=(DEA-REF(DEA,1)-大盘DEA+REF(大盘DEA,1))*10;
少量参与:if(CROSS(DIFF,DEA) AND 控盘<0,峰,0),color00FF00;
a10:=CROSS(控盘,0);

半仓参与:if(a10 AND DIFF<0,峰,0),coloryellow;
全仓参与:IF(CROSS(DIFF,0) AND  控盘>0 ,峰*1.2,0),COLORRED,LINETHICK3;

STICKLINE(DIFF>DEA AND DIFF>REF(DIFF,1) AND 大盘MACD<0,DIFF,DEA,3,0),LINETHICK1 ,color00FF00;
STICKLINE(DIFF<DEA AND DIFF>REF(DIFF,1) AND DIFF<0,DIFF,DEA,3,0),LINETHICK4 ,color00FF00;

[ 本帖最后由 123A 于 2008-6-13 18:45 编辑 ]

大盘的那段可以去掉
（{大盘MACD}
C1:=EMA(INDEXC,500)/EMA(C,500);
D1:=INDEXO/C1;
D2:=INDEXH/C1;
D3:=INDEXL/C1;
D4:=INDEXC/C1;
大盘DIFF:=EMA(INDEXC/C1,12)-EMA(INDEXC/C1,26),COLOR00FF00,LINETHICK3;
大盘DEA:=EMA(大盘DIFF,9),COLORWHITE,LINETHICK3;

和末尾的
STICKLINE(DIFF>DEA AND DIFF>REF(DIFF,1) AND 大盘MACD<0,DIFF,DEA,3,0),LINETHICK1 ,color00FF00;
STICKLINE(DIFF<DEA AND DIFF>REF(DIFF,1) AND DIFF<0,DIFF,DEA,3,0),LINETHICK4 ,color00FF00;）

谢谢楼主分享。

善举呵,,大力支持

谢谢分享！辛苦了

辛苦了.先顶后下,谢谢

发表源码最好能说明用在何种软件上

多谢楼主分享，辛苦了.先顶后下

修正捞钱手（去掉未来函数）叠加机构K线


{机构K线}
C1:=10000*C/INDEXC;
O1:=10000*O/INDEXO;
STICKLINE(C1>=O1,C,O,-1,1),COLORRED;
STICKLINE(C1>=O1,L,H,0,1),COLORRED;
STICKLINE(C1<O1,C,O,-1,1),COLORGREEN;
STICKLINE(C1<O1,L,H,0,1),COLORGREEN;
{捞钱手}
MMS:=MA(SMA((L+H+2*C)/4-REF((L+H+2*C)/4,1),5,1)/SMA(ABS((L+H+2*C)/4-REF((L+H+2*C)/4,1)),5,1)*100,1)+50;
G1:=IF(-MMS>95,0,20);
UOO:=(-(((C-LLV(C,7))/(HHV(C,7)-LLV(C,7))*100=100)>0 AND G1)+1);
KS:=(C-EMA(C,13))/EMA(C,13)*(-100);
趋势线:=EMA((KS/10)+EMA(C,10),3);
SSL:=EMA(C,3);
MMV:=EMA(SLOPE(C,22)*20+C,55);
MM:=MA(MMV,1);
SA:=MM*0.985;
SS:=MA(C,5);
捞钱手:IF(SSL>MM,MM,SA),LINETHICK2,COLORFF00FF;
A:=EMA((O+H+L)/3,4);
B:=REF(EMA((O+H+L)/3,4),1);
智能黄金线:A,COLORYELLOW,LINETHICK1;
箱顶:MA(REF(HHV(C,30),1),2),COLOR0000FF,LINETHICK2;
箱底:MA(REF(LLV(C,30),1),2),COLOR00FF00,LINETHICK2;
DRAWTEXT(CROSS(EMA(C,8),EMA(C,20))AND C>=O AND 智能黄金线>REF(智能黄金线,1),EMA(C,8)*0.97,'★买'),COLOR00FF00;
VAR3:=SMA(SMA((C-LLV(L,27))/(HHV(H,27)-LLV(L,27))*100,3,1),3,1);
VAR4:=SMA(VAR3,3,1);
DRAWTEXT(CROSS(VAR3,VAR4),L,'--中期好'),COLOR00FFFF;
DRAWTEXT(CROSS(VAR4,VAR3),H,'--中期坏'),COLORF0F000;
DRAWTEXT(CROSS(A,B),L,'--短期好'),COLOR00FFFF;
DRAWTEXT(CROSS(B,A),H,'--短期坏'),COLORF0F000;
DRAWTEXT(CROSS(VAR3,VAR4)AND C>=O AND VAR3<40 AND UOO>0,L*0.96,'★'),COLORF00FF0;
买线:=EMA(C,2);
卖线:=EMA(SLOPE(C,21)*20+C,42);   
DRAWTEXT(CROSS(买线,卖线) AND 箱顶>=REF(箱顶,1),L*0.95,'★跟'),COLOR00FFFF;
STICKLINE(CROSS(买线,卖线),O,C,-1,0),COLOR00FFFF;

好东西一定支持!

全是好东西啊！

主题相关图片如下：attachment.php.gif



【大智慧普通版，L2均可用】火眼金睛，保证无一漏网! （附图）无未来！！！  

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,coloryellow;
火焰:=STICKLINE(火焰山>0 ,0 ,火焰山 ,4 ,1);
今量:火焰山;
STICKLINE(火焰山>0,0 ,今量*1.2,8,0 ),COLOR00EEff;
STICKLINE(火焰山>0,0 ,今量*0.8,8,0 ),COLOR00BBff;
STICKLINE(火焰山>0,0 ,今量*0.6,8,0 ),COLOR0099ff;
STICKLINE(火焰山>0,0 ,今量*0.4,8,0 ),COLOR0066ff;
STICKLINE(火焰山>0,0 ,今量*0.2,8,0 ),COLOR0000ff;

[ 本帖最后由 wugang20008 于 2008-6-16 10:51 编辑 ]

真价双量



AA:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN));
主动买盘:=IF(CLOSE>OPEN,AA*(HIGH-LOW),IF(CLOSE<OPEN,AA*((HIGH-OPEN)+
(CLOSE-LOW)),VOL/2)),COLORRED;
主动卖盘:=IF(CLOSE>OPEN,0-AA*((HIGH-CLOSE)+(OPEN-LOW)),IF(CLOSE<OPEN,
0-AA*(HIGH-LOW),0-VOL/2)),COLORGREEN;
买卖差主动买盘+主动卖盘)/100,COLORRED;
三天量流入:SUM(买卖差,3),COLORYELLOW;
十天量流入:SUM(买卖差,10),COLORYELLOW;
买比:主动买盘/(CAPITAL/100*C),COLORRED;
卖比:主动卖盘/(CAPITAL/100*C),COLORGREEN;
X4:=EMA(C,20);
廿斜率X4-REF(X4,1))/REF(X4,1)*100,COLORYELLOW;
十换手:SUM(VOL,10)/CAPITAL*100,COLORMAGENTA;
VAR11:=1;
VAR55:=LLV(LOW,8);
VAR66:=HHV(HIGH,8);
VAR77:=(VAR66-VAR55)/10;
VAR88:=SMA((CLOSE-VAR55)/VAR77,20,1);
VARAA:=3*VAR88-2*SMA(VAR88,15,1);
筹码锁定:EMA(WINNER(C)*70,3)-(10-VARAA)*VAR11*6;
筹码集中度:COST(10)/(COST(80)-COST(10));
VAR10:=(CLOSE-MA(CLOSE,34))/MA(CLOSE,34)*(10);
增减力度:VAR10,COLORRED,LINETHICK2;
A:=VOL*CLOSE;
B:=SUM(A,1)/SUM(VOL,1);
B1:=EMA(B,17);
主力资金B-B1)*100/B;
STICKLINE(主动买盘>0,0,VOL,2,1),COLORWHITE;
STICKLINE(主动买盘>0,0,主动买盘,2,0),COLORRED;
STICKLINE(主动卖盘<0,0,主动卖盘,2,0),COLORGREEN;

真价双量图



AA:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN));
主动买盘:=IF(CLOSE>OPEN,AA*(HIGH-LOW),IF(CLOSE<OPEN,AA*((HIGH-OPEN)+
(CLOSE-LOW)),VOL/2)),COLORRED;
主动卖盘:=IF(CLOSE>OPEN,0-AA*((HIGH-CLOSE)+(OPEN-LOW)),IF(CLOSE<OPEN,
0-AA*(HIGH-LOW),0-VOL/2)),COLORGREEN;
买卖差主动买盘+主动卖盘)/100,COLORRED;
三天量流入:SUM(买卖差,3),COLORYELLOW;
十天量流入:SUM(买卖差,10),COLORYELLOW;
买比:主动买盘/(CAPITAL/100*C),COLORRED;
卖比:主动卖盘/(CAPITAL/100*C),COLORGREEN;
X4:=EMA(C,20);
廿斜率X4-REF(X4,1))/REF(X4,1)*100,COLORYELLOW;
十换手:SUM(VOL,10)/CAPITAL*100,COLORMAGENTA;
VAR11:=1;
VAR55:=LLV(LOW,8);
VAR66:=HHV(HIGH,8);
VAR77:=(VAR66-VAR55)/10;
VAR88:=SMA((CLOSE-VAR55)/VAR77,20,1);
VARAA:=3*VAR88-2*SMA(VAR88,15,1);
筹码锁定:EMA(WINNER(C)*70,3)-(10-VARAA)*VAR11*6;
筹码集中度:COST(10)/(COST(80)-COST(10));
VAR10:=(CLOSE-MA(CLOSE,34))/MA(CLOSE,34)*(10);
增减力度:VAR10,COLORRED,LINETHICK2;
A:=VOL*CLOSE;
B:=SUM(A,1)/SUM(VOL,1);
B1:=EMA(B,17);
主力资金B-B1)*100/B;
STICKLINE(主动买盘>0,0,VOL,2,1),COLORWHITE;
STICKLINE(主动买盘>0,0,主动买盘,2,0),COLORRED;
STICKLINE(主动卖盘<0,0,主动卖盘,2,0),COLORGREEN;



[ 本帖最后由 wugang20008 于 2008-6-16 11:10 编辑 ]