╰☆╮DNASTOCK#共同寻找最安全有效的操作模式！▄◣实验进行中。。。╭☆╯

王月昌

祝你成功

天网123

Originally posted by wangcih266 at 2005-9-5 12:28
好一个"大道至简版"，希望不是原先发在飞弧社区的DNA免费版，期待中！

当然不是了，呵呵，估计明天开始实施，今晚完成发布。

jon

能不能保留安全底部和普通底部

wangcih266

能不能保留安全底部和普通底部 ，还想要DNA7月版的解盘，呵呵，那真是如同WINDOWS98到WINDOWS 2000的飞跃  真是够辛苦天网老师的 ：-D

wangcih266

我给大家发个解盘的源码吧，大家也可以研究和放心修改，不好用就不要用，用的好自然很有用，呵呵

MA5:=MA(C,5) colorwhite;
MA10:=MA(C,10)coloryellow;
MA30:=MA(C,30)colorgreen;
MA60:=MA(C,60)colormagenta;
MA120:=MA(C,120)colorcyan;
MA250:=MA(C,250)colorred;
var1:=(OPEN+LOW+HIGH+CLOSE)/4;
JJ:=(CLOSE+HIGH+LOW)/3;
A:=EMA(JJ,10);
B:=REF(A,1);
持多:STICKLINE(A>B,A,B,5,0),COLORyellow;
持空:STICKLINE(A<B,A,B,5,0),COLORblue;
Var3:=(CLOSE-LLV(LOW,26))/(HHV(HIGH,26)-LLV(LOW,26))*100;
Var8:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K:=SMA(Var8,3,1);
D:=SMA(K,3,1);
Var9:=3*K-2*D;
VarA:=LLV(LOW,36);
VarB:=HHV(HIGH,30);
VarC:=EMA((CLOSE-VarA)/(VarB-VarA)*4,4)*25;
VarD:=87.5;
VarE:=(VarC-LLV(VarC,4))/(HHV(VarC,4)-LLV(VarC,4))*4*25;
短买:=IF(CROSS(varc,10) AND varc>10,50,0);
VarF:=SMA(Var3,20,1);
Var10:=SMA(VarF,15,1);
Var11:=(3*VarF+2*Var10)/4;
Var12:=REF(Var11,1);
Var13:=SMA(MAX(Var11-Var12,0),2,1)/SMA(ABS(Var11-Var12),2,1)*100;
Var14:=MA(Var13,10);
Var15:=IF(CROSS(Var14,90),25,0);
Var20:=EMA(CLOSE,12)-EMA(CLOSE,26);
Var21:=(CLOSE*2+HIGH+LOW)/4;
Var22:=EMA(Var21,12)-EMA(Var21,26);
Var23:=EMA(Var22,2);
Var24:=2*(Var22-Var23)*5.8;
Var25:=EMA(100*(CLOSE-LLV(LOW,34))/(HHV(HIGH,34)-LLV(LOW,34)),3);
Var26:=66.6;

EXPLAIN(VarC<10,'该股处于底背离状态，应及时买入。');
EXPLAIN(VarC>90,'该股处于顶背离状态，应及时卖出。');
EXPLAIN(CROSS(Var9,8),'低位反弹，建议买入。');
EXPLAIN(CROSS(VarE,87.5) AND varc<40,'出现买点，建议买入。');
EXPLAIN(CROSS(VarD,varc),'见好就跑吧。');
EXPLAIN(CROSS(varc,VarE) AND varc>87,'短期到顶，建议卖出。');
EXPLAIN(CROSS(varc,10) AND varc>10,'建议短线买入。');
EXPLAIN(CROSS(Var14,90),'该股处于强势整理状态。');
EXPLAIN(CROSS(Var20,0) AND Var20>0,'该股处于强势状态。');
EXPLAIN(CROSS(0,Var20) AND Var20<0,'该股处于弱势状态。');
EXPLAIN(CROSS(Var24,0.47),'建议加仓。');
EXPLAIN(CROSS(varc,VarD) AND VarE=100,'该股短期目标位已到，注意回调。');
EXPLAIN(CROSS(Var25,63) AND CROSS(Var9,D) OR CROSS(Var25,76) AND CROSS(Var9,D)
OR CROSS(Var25,80) AND CROSS(Var9,D) OR CROSS(Var25,85) AND CROSS(Var9,D),'该股进入反弹状态。');

A1:=BARSLAST(ref(cross("macd.diff","macd.dea"),1));
B1:=ref(c,A1+1)>c and ref("macd.diff",A1+1)<"macd.diff" and cross("macd.diff","macd.dea");
DRAWTEXT(FILTER(B1>0,5),l-0.38,'MACD底背'),COLORGREEN;
A2:=BARSLAST(ref(cross("kdj.k","kdj.d"),1));
B2:=ref(c,A2+1)>c and ref("kdj.k",A2+1)<"kdj.k" and cross("kdj.k","kdj.d");

DRAWTEXT(FILTER(B2>0,5),l-0.39,'KDJ底背'),COLORYELLOW;
A3:=BARSLAST(ref(cross("RSI.RSI1","RSI.RSI2"),1));
B3:=ref(c,A3+1)>c and ref("RSI.RSI1",A3+1)<"RSI.RSI1" and cross("RSI.RSI1","RSI.RSI2");
DRAWTEXT(FILTER(B3>0,5),l,'RSI底背'),COLORCYAN;

C1:=BARSLAST(ref(cross("macd.dea","macd.diff"),1));
D1:=ref(c,C1+1)<c and ref("macd.diff",C1+1)>"macd.diff" and cross("macd.dea","macd.diff");
DRAWTEXT(FILTER(D1>0,5),h+0.08,'MACD顶背'),COLORwhite;
C2:=BARSLAST(ref(cross("kdj.d","kdj.k"),1));
D2:=ref(c,C2+1)<c and ref("kdj.k",C2+1)>"kdj.k" and cross("kdj.d","kdj.k");
DRAWTEXT(FILTER(D2>0,5),h+0.32,'KDJ顶背'),COLORwhite;

C3:=BARSLAST(ref(cross("RSI.RSI2","RSI.RSI1"),1));
D3:=ref(c,C3+1)<c and ref("RSI.RSI1",C3+1)>"RSI.RSI1" and cross("RSI.RSI2","RSI.RSI1");
DRAWTEXT(FILTER(D3>0,5),h+0.1,'RSI顶背'),COLORMAGENTA;

VK:=SQRT(VOL/CAPITAL*100*5);
STICKLINE(C>=O,H,L,0,0) COLORred;
STICKLINE(C>=O,C,O,VK+3.8,0) COLORred;
STICKLINE(C< O,H,L,0,0) COLORgreen;
STICKLINE(C< O,C,O,VK+3.8,0) COLORgreen;
EXPLAIN((MA5>MA10 and MA10>MA30 and MA5>MA30),'解：短期均线排列：多头')COLORred;
EXPLAIN((MA5<MA10 and MA10<MA30 and MA5<MA30),'解：短期均线排列：空头');
EXPLAIN((MA30>MA60 and MA30>MA120 and MA60>MA120),'解：中期均线排列：多头');
EXPLAIN((MA30<MA60 and MA30<MA120 and MA60<MA120),'解：中期均线排列：空头');
EXPLAIN((MA60>MA120 and MA120>MA250 and MA60>MA250),'解：长期均线排列：多头');
EXPLAIN((MA60<MA120 and MA120<MA250 and MA60<MA250),'解：长期均线排列：空头');
EXPLAIN((CROSS(MA5,MA10)),'解：短期均线5x10：金叉')COLORred;
EXPLAIN((CROSS(MA10,MA5)),'解：短期均线5x10：死叉');
EXPLAIN((CROSS(C,MA120)),'解：今日股价上穿半年线');
EXPLAIN((CROSS(MA120,C)),'解：今日股价跌破半年线');
EXPLAIN((CROSS(C,MA250)),'解：今日股价上穿一年线');
EXPLAIN((CROSS(MA250,C)),'解：今日股价跌破一年线');
EXPLAIN((CROSS(C,MA60) and CROSS(C,MA120) and CROSS(C,MA250)),'解：股价一阳上穿三线');
EXPLAIN((MA30>REF(MA30,1)),'解：30日均线趋势：向上');
EXPLAIN((MA30>REF(MA30,1) AND MA30<REF(MA30,1)*1.001),'解：30日均线趋势：走平');
EXPLAIN((MA30<REF(MA30,1)),'解：30日均线趋势：向下');
EXPLAIN((MA5>REF(MA5,1)*1.015),'解：5日均线：强劲向上');
EXPLAIN((MA5>REF(MA5,1) AND MA5<REF(MA5,1)*1.005),'解：5日均线：方向不明');
EXPLAIN((MA5<REF(MA5,1)*0.985),'解：5日均线：快速向下');
DIFF:=EMA(C,5)-EMA(C,20);
DEA:=EMA(DIFF,10);
MACD:=2*(DIFF-DEA);
JC:=CROSS(DIFF,DEA);
SC:=CROSS(DEA,DIFF);
DCJC:=JC AND DEA>0;
EXPLAIN((JC AND DEA>0),'解：MACD在0轴上金叉')COLORred;
EXPLAIN((JC AND DEA<0),'解：MACD在0轴下金叉');
EXPLAIN((SC AND DEA>0),'解：MACD在0轴上死叉');
EXPLAIN((SC AND DEA<0),'解：MACD在0轴下死叉');
EXPLAIN((MACD>0 AND MACD>REF(MACD,1)),'解：MACD的红柱：增长');
EXPLAIN((MACD>0 AND MACD<REF(MACD,1)),'解：MACD的红柱：缩短');
EXPLAIN((MACD<0 AND ABS(MACD)>REF(ABS(MACD),1)),'解：MACD的绿柱：增长');
EXPLAIN((MACD<0 AND ABS(MACD)<REF(ABS(MACD),1)),'解：MACD的绿柱：缩短');
EXPLAIN((COUNT(DCJC,20)=2 AND JC AND DEA>0),'解：0轴上金叉次数：2')COLORredCOLORred;
EXPLAIN((COUNT(DCJC,20)=3 AND JC AND DEA>0),'解：0轴上金叉次数：3');
EXPLAIN((COUNT(DCJC,20)=4 AND JC AND DEA>0),'解：0轴上金叉次数：4');
EXPLAINICON(HIGH>=HHV(HIGH,20), 'MyBMP');
EM5:=EMA(C,5) colorwhite;
EM10:=EMA(C,10)coloryellow;
EM30:=EMA(C,30)colorgreen;
EM60:=EMA(C,60)colormagenta;
EM120:=EMA(C,120)colorcyan;
EM250:=EMA(C,250)colorred;
FILLRGN(EMA(C,5)>EMA(C,10),EMA(C,5),EMA(C,10))COLOR6699FF;
FILLRGN(EMA(C,5)<EMA(C,10),EMA(C,5),EMA(C,10))COLORFF6666;

Var1:=EMA(CLOSE,34)-EMA(CLOSE,5);
Var2:=EMA(Var1,5);
趋势:=(-3)*(Var1-Var2), COLORSTICK;
EXPLAIN(趋势>0,'Z线趋势上升中');
EXPLAIN(趋势<0,'Z线趋势下降中');
EXPLAIN(cross(趋势,0),'Z线考虑买入');
EXPLAIN(cross(0,趋势),'Z线考虑卖出');
Var11:=ma((v/(h-l)),4);
Var33:=abs(c-o);
Var44:=v/(h-l);

TR := SUM(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(LOW-REF(CLOSE,1))),14);
HD := HIGH-REF(HIGH,1);
LD := REF(LOW,1)-LOW;
DMP:= SUM(IF(HD>0 AND HD>LD,HD,0),14);
DMM:= SUM(IF(LD>0 AND LD>HD,LD,0),14);
PDI:= DMP*100/TR;
MDI:= DMM*100/TR;
ADX:= MA(ABS(MDI-PDI)/(MDI+PDI)*100,6);
ADXR:=(ADX+REF(ADX,6))/2;
EXPLAIN(cross(pdi,mdi),'PDI线从下向上突破MDI线，显示有新多头进场，为买进信号');
EXPLAIN(cross(mdi,pdi),'PDI线从上向下跌破MDI线，显示有新空头进场，为卖出信号');
EXPLAIN(adx>ref(adx,1),'ADX值持续高于前一日，行情将维持原趋势');
W1:=C<=MA(C,5) AND C<=MA(C,10) ;
W2:=O>MA(C,5) AND O>MA(C,10) ;
W3:=MA(V,5)<=MA(V,10);
W4:=diff<dea;
EXPLAIN(W1 AND W2,'断头铡刀:向下的趋势,不是洗盘就是将下跌,卖出')colorgreen;
EXPLAIN(W1 ,'5日均线死叉10均线,短线空头势力强大,卖出')coloryellow;
EXPLAIN(W3 ,'5日均量死叉10日均量,做多能量枯竭,卖出')colorred;
EXPLAIN(W4 ,'DIFF下穿DEA,空头形成,卖出')colorff00ff;
EXPLAIN(W1 AND W2 AND W3 AND W4 ,'三死叉见顶,卖出')coloryellow;

EXPLAIN(W1 AND W3 AND W4 ,'多方溃败,空方强大,向下彻底形成,卖出')colorgreen;
DRAWTEXT(W1 AND W2 AND W3 AND W4,c,'＃'),colorFFFF10;
EXPLAINEX(1=1,'换手率=',vol/CAPITAl*100,2,0);
explain((vol/CAPITAl)>0.075,'换手过大，小心主力出逃，短期头部');
LC := REF(CLOSE,1);
RSI1:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100;
RSI2:=SMA(MAX(CLOSE-LC,0),12,1)/SMA(ABS(CLOSE-LC),12,1)*100;
EXPLAINEX(1=1,'相对强弱RSI1=',RSI1,2,0);
EXPLAIN(RSI1>85,'6日RSI超买,防止回挡\n');
EXPLAIN(RSI1>80,'6日RSI向上突破85，超买,考虑卖出');
EXPLAIN(RSI1<15,'6日RSI超卖,随时有可能反弹');
EXPLAIN(RSI1<15,'6日RSI向下跌破15，超卖，考虑买入');
EXPLAIN(CROSS(RSI1,15),'6日RSI向上突破15，买进信号');
EXPLAIN(CROSS(RSI1,85),'6日RSI向下跌破85，卖出信号');
psy:=COUNT(CLOSE>REF(CLOSE,1),12)/12*100;
EXPLAINEX(1=1,'12天心理线,PSY=',psy,2,0);
EXPLAINEX(1=1,'获利盘比例=',WINNER(c)*100,2,0);
EXPLAINEX(1=1,'套牢盘比例=',100-WINNER(c)*100,2,0);
Aa:=(EMA(C,30)*2+MA(C,60))/3;
Ra:=(VOL*CLOSE);
VL1a:=EMA(Ra,13)/EMA(VOL,13);
VL2a:=EMA(Ra,60)/EMA(VOL,60);

VLa:=EMA((VL1a+VL2a)/2,3);
分水岭:=ma((Aa+VLa)/2,1);
EXPLAINEX(1=1,'分水岭（中长标）=',分水岭,2,0);
EXPLAIN(close>分水岭,'股价在分水岭之上,大势属多头,可积极做多');
EXPLAIN(close<分水岭,'股价在分水岭之下,大势属空头,超跌只能抢反弹');
BBI:=(MA(CLOSE,3)+MA(CLOSE,6)+MA(CLOSE,12)+MA(CLOSE,24))/4;
UPR:=BBI+3*STD(BBI,10);
DWN:=BBI-3*STD(BBI,10);
var55:=(UPR-DWN)/UPR<0.03;
var56:=(UPR-DWN)/UPR>0.18;
var57:=(ma(c,60)-ma(c,5))/ma(c,60)>0.15;
var58:=(ma(c,5)-ma(c,60))/ma(c,5)>0.15;
EXPLAIN(var55,'多空布林收敛中，有变盘的可能，上下自己分析');
EXPLAIN(var57 and var56 and c>o ,'布林上下乖离太大，有反弹的');

wangcih266

不论股市多么艰险，我们要保住自己的身体，身体是革命的本钱，每天看盘都要起码5个小时，晚上收盘作业分析又有至少3个多小时，辐射很大伤身体，钱都不好赚啊

我每天看盘也看的脑子一阵阵的抽痛，亏我还年轻呢，就这么样犯下病根可就废了。收盘了要给自己定个规矩，管它今天盈利多少亏了多少，我都要美美的睡上一小时方是良策，不然人倒下了以后怎么做票票呢

今天下雨，不遛狗，机器开着做收盘和磁盘整理就睡会儿，等老师的新公式

严守纪律

1286楼，解盘公式下了，谢谢wangcih266！

iemzaj

我跟着股评作了一个月，赚了1万多，前几天调整又都赔了进入，回头看看什么也没有得到，什么也学到，只是机械地跟着操作...
刚才没有上来还在默默地想，如果天网老师把公式的自定义数据省掉多好呀？（前些时候建议老师6个数据合成一个数据，老师说不行），刚刚上来就看到了老师今天升级的帖子，真是高兴，老师真是及时雨呀,哈哈，并且还有可以在大智慧上用，真是个好消息，感谢...期待中...

马目

明天会更美好！

天网123

基本上完成升级，请到这里先看看，等俺有时间再发布在macd:
http://www.21wuhua.net/dna/bbs/index.asp

jon

有些失望的感觉

天网123

Originally posted by jon at 2005-9-5 19:42
有些失望的感觉

呵呵，那是因为没有自定义数据，用户根本无法了解目前的新的模式究竟比以前改进在哪里，有一种茫然的感觉。。。。。。。

其实不要紧，发现是需要时间的，也许3个月之后你才会完全明白究竟是什么回事，为什么要这样升级。。。。。

时间，会将很多东西洗白。。。。。

天网123

日0905盘后回顾：
按照计划（原来在macd论坛发布的），卖出了2个股，买进了一个股：具体看帐户表：

天网123

09月06日盘前计划：
因为持股7个中有5个已经盈利并且发出卖出信号，所以计划卖出600084，000416，600643，600740，600705，其余2个继续持股，这2个股也没有买进补仓信号，所以不动。
从最新排序选股可以看到，明天计划买进000039，仓位按照排序数值％。

就这样，以后也是每天有盘前计划和盘后回顾。

cppl

没有找到公式在那？？？

天网123

Originally posted by cppl at 2005-9-5 20:31
没有找到公式在那？？？

在俺的论坛，这里也可以：

cppl

得到的新公式也是三个版？？？？

cppl

是不是能自己选可买的股了！！！

wangcih266

好的，现在弄清楚了这个论坛上的那个包里还是老三个公式！！ 而MACD上面的是一个大道至检*卖     可这大道至简怎么用？？？   只能看卖？  以后没数据选股了就看老师贴的股直接买吗？？        

新的论坛很不好，提交了后怎么能跳回论坛头页去呢，这是很不方便的

babyggyy

000676我3.96出了，呵呵。000519继续持股。另外买进天网没有推荐的G金发600143