

面对近来越来越多的忽悠帖,炫耀帖。我唯一能做的。。。
面对近来越来越多的忽悠帖,炫耀帖。我唯一能做的就是。。。
以下是高手们曾创作的源码。在此转发一下。有需要的就拿去。没必要非得顶帖,顺便帖上图。那些忽悠炫耀帖都是换汤不换药的。没什么神秘的。。
{据传年使用费200万主图}
多:EMA(C,3),COLORYELLOW;
空:EMA(C,5),COLOR00FF00;
均衡:EMA(空,5),COLORWHITE;
VARF1:=COUNT(CROSS(多,均衡),2)=1;
VARF2:=COUNT(CROSS(空,均衡),2)=1;
ZAI:=FILTER(VARF1 AND VARF2,2);
DRAWTEXT(ZAI,均衡,' →◆●¤主升'),COLORWHITE;
DRAWTEXT(CROSS(多,空),空,'多头↑'),COLORYELLOW;
DRAWTEXT(CROSS(空,多),空,' 空↓'),COLOR00FF00;
VV2:=REF(CLOSE,1);
VV3:=SMA((CLOSE-VV2),6,1)/SMA(ABS(CLOSE-VV2),6,1)*100;
DRAWICON(REF(VV3,1)>81 AND VV3<80,HIGH,2);
DRAWTEXT(REF(VV3,1)>81 AND VV3<80,HIGH,' →→→→→沽空↓'),COLORRED;
VF1:=MA(CLOSE,60)-MA(CLOSE,5)/3.2;
DRAWTEXT(IF(CLOSE<VF1 AND VOL/240>MA(VOL,5)/240 AND CLOSE>=REF(CLOSE,1)*1.08 AND CLOSE<MA(CLOSE,13)*1.3,1,0),LOW,'☆'),COLORRED;
VARA:=(CLOSE-REF(OPEN,29))/REF(OPEN,29)*100;
VARB:=EMA(0.667*REF(VARA,1)+0.333*VARA,5);
DRAWTEXT(IF(VOL>=1.3*MA(VOL,5) AND COUNT(VARA>=VARB AND VARA<-17,3) AND REF(LOW,1)=LLV(LOW,120),1,0),LOW,'★注意买');
VARR1:=SMA(MAX(CLOSE-REF(C,1),0),6,1)/SMA(ABS(CLOSE-REF(C,1)),6,1)*100;
DRAWICON(CROSS(82,VARR1),HIGH,2);
{DRAWTEXT(CROSS(82,VARR1),HIGH,'短空↓'),COLORYELLOW;}
VAR1:=(HIGH+LOW+OPEN+2*CLOSE)/5;
VAR2:=REF(VAR1,1);
VAR3:=SMA(MAX(VAR1-VAR2,0),10,1)/SMA(ABS(VAR1-VAR2),10,1)*100;
HY3:=IF(COUNT(VAR3<20,5)>=1 AND COUNT(VAR1=LLV(VAR1,10),10)>=1 AND CLOSE>=OPEN*1.038 AND VOL>MA(VOL,5)*1.2,1,0);
DRAWTEXT(HY3,LOW,' →▲注意买'),COLORRED;
S:=MA(VOL,5)/MA(VOL,60);
A:=MA(S,5);
BIAS:=(CLOSE-MA(CLOSE,5))/MA(CLOSE,5)*100;
F:=MA(S,121);
RSV:=(CLOSE-LLV(LOW,45))/(HHV(HIGH,45)-LLV(LOW,45))*100;
K:=SMA(RSV,15,1);
D:=SMA(K,15,1);
J:=3*K-2*D;
LC:=REF(CLOSE,1);
RSI:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100;
DRAWTEXT(CROSS(84,RSI) , HIGH,' →逃顶◆ '),COLORYELLOW ;
S1:=IF((J<11 AND BIAS>-11 AND CROSS( S,F) AND (S-F)>0.010),2,0);
DRAWTEXT(S1=2,LOW,' →关注◆ '), COLORGREEN;
残剑横盘突破主图
STICKLINE(close>=open,open,close,7,1),colorred;
STICKLINE(open>close,close,open,7,0),colorgreen;
STICKLINE(close>=open,close,HIGH,0,1 ),colorred;
STICKLINE(close>=open,open,low,0,1),colorred;
STICKLINE(open>close,close,low,0,0),colorgreen;
STICKLINE(open>close,open,HIGH,0,0),colorgreen;
O1:(SUM(EMA((CLOSE+LOW)/2,1)/3,3)),COLORyellow,linethick1;
O2:EMA(O1,3),COLORwhite,linethick1;
O3:EMA(O2,3),COLORmagenta,linethick1;
CP1:HHV(O1,20),coloryellow;
CP2:=HHV(O1,1);
A:=CROSS(CP2,CP1);
DRAWTEXT(FILTER(A,1),(CP2* 1),'▲'),coloryellow;
mmm:=MA(CLOSE,20);
底部支撑:LLV(EMA((LOW),1),60),colorred;
MA3:MA(CLOSE,110),colorred,linethick2;
MA5:MA(CLOSE,110),coloryellow,linethick1;
MA2:MA(CLOSE,250),coloryellow,linethick3;
MA4:MA(CLOSE,250),colorblue,linethick2;
DRAWTEXT((CLOSE<mmm),mmm,'*'),COLOR00FF00,linethick1;
DRAWTEXT((CLOSE>mmm),mmm,'*'),colorred,linethick1;
DRAWTEXTABS(0,10,'《残剑智能决策系统》\n新编横盘突破升级版'),Colorred;
还有这个,,不过是本人换了个花样。一模一样的肯定没见过吧。亦非原创。源码奉上。
N:10;
VA6:=(2*CLOSE+HIGH+LOW)/4;
VA8:=LLV(LOW,34);
VARB:=HHV(HIGH,34);
VARC:=EMA((VA6-VA8)/(VARB-VA8)*100,13);
VARD:=EMA(0.667*REF(VARC,1)+0.333*VARC,2);
生命线:EMA(VARD,N), COLORYELLOW,LINETHICK2;
主力持仓:EMA(100*(CLOSE-LLV(LOW,34))/(HHV(HIGH,34)-LLV(LOW,34)),3),COLORFF00FF;
RSV:=(C-LLV(LOW,21))/(HHV(HIGH,21)-LLV(LOW,21))*100;
K:SMA(RSV,3,1),COLORWHITE;
D:SMA(K,3,1),COLORYELLOW;
J:3*K-2*D,COLORRED;
STICKLINE(K>D,K,D,3,0),COLORF00FF0;
STICKLINE(K<D,K,D,3,0),COLORGREEN;
IF(CROSS(D,K) AND K>80,30,100),COLORYELLOW;
抄底:IF(CROSS(K,D) AND D<17,70,0),COLORRED;
VAR1:=(CLOSE-LLV(LOW,36))/(HHV(HIGH,36)-LLV(LOW,36))*100;
VAR2:=SMA(VAR1,3,1);
VAR3:=SMA(VAR2,3,1);
VAR4:=SMA(VAR3,3,1);
波:= VAR3;
段:= VAR4;
VAR6:=CROSS(VAR3,VAR4) AND VAR3<20;
DRAWTEXT(FILTER(VAR6,10)=1,40,'抄底'),COLOR00FF00;
STICKLINE(FILTER(VAR6,10)=1,0,30,10,0),COLORWHITE;
VAR7:=CROSS(VAR4,VAR3) AND VAR3>80;
STICKLINE(FILTER(VAR7,5)=1,80,100,10,0),COLORFFFF00;
DRAWTEXT(FILTER(VAR7,5)=1,70,'逃顶'),COLORRED;
VAR8:=CROSS(VAR2,VAR3) AND VAR3>80 AND VAR3>VAR4;
STICKLINE(VAR8,85,100,10,0),COLORGREEN;
[ 本帖最后由 chenfg 于 2008-8-31 16:32 编辑 ]
附件: 您所在的用户组无法下载或查看附件