1
名称：金山银山

源码：
DIFF:=EMA(CLOSE,12)-EMA(CLOSE,26);
DEA:=EMA(DIFF,9);
MA1:MA(CLOSE,3),colorFFFFFF;
MA2:MA(CLOSE,21),colorFFFF;
多头:STICKLINE(DIFF>DEA,CLOSE,OPEN,8,0),colorFF;
STICKLINE(DIFF>DEA,HIGH,LOW,0,0),colorFF;
空头:STICKLINE(DIFF<=DEA,CLOSE,OPEN,8,0),colorFFFF00;
STICKLINE(DIFF<=DEA,HIGH,LOW,0,0),colorFFFF00;
DRAWTEXT(CROSS(DIFF,DEA),LOW-0.2,'买入'),colorFF;
DRAWTEXT(CROSS(DEA,DIFF),HIGH+0.2,'卖出'),colorFF00;
请将买入出现的地方作为买点，改为选股公式.万分感谢！

2
名称：资金炒股

源码：
AA:=AMOUNT/VOL;
var1:=(c-ref(c,1))*AA;
KK:=SMA(var1,9,1);
DIFF:=(EMA(KK,5)-EMA(KK,20))*100;
DEA:=EMA(DIFF,9);
MACD:=2*(DIFF-DEA);
卖出:=STICKLINE(DIFF>=0,0,DIFF,8,0),COLORRED;
买入:=STICKLINE(DIFF<0,0,DIFF,8,0),COLOR00FF00;
MID :MA(DIFF,20),LINETHICK1;
UU:MID + 2*STD(DIFF,20),LINETHICK1,colorgreen;
LL: MID - 2*STD(DIFF,20),LINETHICK1,colorgreen;
v1:=(UU-LL)/LL*100;
STICKLINE(MID>=ref(MID,1),MID,ref(MID,1),10,1),colorred;
STICKLINE(MID<ref(MID,1),MID,ref(MID,1),10,1),colorwhite;

我有不少好看而且有意思的贴图，都发表在这里：http://www.chcj.net/thread-1137210-1-1.html

有兴趣来看看。

金山银山

DIFF:=EMA(CLOSE,12)-EMA(CLOSE,26);
DEA:=EMA(DIFF,9);
MA1:MA(CLOSE,3),colorFFFFFF;
MA2:MA(CLOSE,21);
多头:STICKLINE(DIFF>DEA,CLOSE,OPEN,8,0),colorff00ff;
STICKLINE(DIFF>DEA,HIGH,LOW,0,0),colorff00ff;
空头:STICKLINE(DIFF<=DEA,CLOSE,OPEN,8,0),colorFFFF00;
STICKLINE(DIFF<=DEA,HIGH,LOW,0,0),colorFFFF00;
DRAWTEXT(CROSS(DIFF,DEA),LOW-0.2,'买入'),colorff00ff;
DRAWTEXT(CROSS(DEA,DIFF),HIGH+0.2,'卖出'),colorgreen;
买入选股:if(CROSS(DIFF,DEA),10,0),LINETHICK0,colorred;


名称：资金炒股

源码：
AA:=AMOUNT/VOL;
var1:=(c-ref(c,1))*AA;
KK:=SMA(var1,9,1);
DIFF:=(EMA(KK,5)-EMA(KK,20))*100;
DEA:=EMA(DIFF,9);
MACD:=2*(DIFF-DEA);
卖出:=STICKLINE(DIFF>=0,0,DIFF,8,0);
买入:=STICKLINE(DIFF<0,0,DIFF,8,0);
MID :MA(DIFF,20),LINETHICK1;
UU:MID + 2*STD(DIFF,20),LINETHICK1,colorgreen;
LL: MID - 2*STD(DIFF,20),LINETHICK1,colorgreen;
v1:=(UU-LL)/LL*100;
STICKLINE(MID>=ref(MID,1),MID,ref(MID,1),10,1),colorred;
STICKLINE(MID<ref(MID,1),MID,ref(MID,1),10,1),colorwhite;

[ 本帖最后由 shanying000 于 2008-7-20 11:03 编辑 ]